|
楼主 |
发表于 2017-12-13 19:32:28
|
显示全部楼层
四川省内江市
弄了一天 ,自己写了一个 用的文本_投递 有需要的可以看看
- .版本 2
- .子程序 安全控件_写内容, 逻辑型, 公开
- .参数 浏览器句柄, 整数型, , 请提供浏览器的窗口句柄
- .参数 安全控件数量, 文本型, , 安全控件数量中标记的功能来获取
- .参数 投递的内容, 文本型, , 投递的内容
- .局部变量 局_枚举子窗口句柄, 整数型
- .局部变量 局_安全控件数量, 整数型
- .局部变量 局_安全控件句柄, 整数型, , "0"
- 局_安全控件数量 = 到数值 (安全控件数量)
- 清除数组 (局_安全控件句柄)
- 浏览器句柄 = 类名是否是ShellDocObjectView (浏览器句柄)
- 局_枚举子窗口句柄 = FindWindowExA_整数 (浏览器句柄, 0, 0, 0) ' 在窗口列表中寻找与指定条件相符的第一个子窗口
- 递归寻找子窗口 (局_枚举子窗口句柄, 局_安全控件句柄)
- .如果真 (IsWindow (浏览器句柄) = 0)
- 返回 (假)
- .如果真结束
- .如果真 (局_安全控件数量 = 0 或 局_安全控件数量 > 取数组成员数 (局_安全控件句柄) 或 删首尾空 (投递的内容) = “”)
- 返回 (假)
- .如果真结束
- .如果真 (IsWindow (局_安全控件句柄 [局_安全控件数量]) ≠ 0)
- 文本_投递 (局_安全控件句柄 [局_安全控件数量], 投递的内容)
- .如果真结束
- 返回 (真)
复制代码 |
|