- 注册时间
- 2017-2-12
- 最后登录
- 1970-1-1
该用户从未签到
|
发表于 2017-2-12 15:35:06
|
显示全部楼层
.版本 2
.支持库 spec
.支持库 eAPI
.子程序 关闭信息框
.局部变量 Hwnd, 整数型
.局部变量 Hwnd2, 整数型
.局部变量 Hwnd3, 整数型
延迟 (1) ' 延迟1毫秒,如果计算机性能差一点,请延长。
Hwnd = FindWindowA (“#32770”, “来自网页的消息”) ' 信息框窗口句柄 几个IE版本的好像标题不一样,这里IE8为例。
.如果真 (Hwnd = 0)
Hwnd = FindWindowA (“#32770”, “Microsoft Internet Explorer”)
.如果真结束
' 如果用字符(0) 应该要枚举所有句柄,需要一个个对下面的匹配。我偷懒了。
Hwnd3 = API_取顶级窗口 (Hwnd) ' 信息框父窗口句柄,没刨根问底,一般这里取一级的父窗口就可以。
Hwnd2 = _启动窗口.取窗口句柄 () ' 本程序窗口
输出调试文本 (Hwnd, Hwnd3, Hwnd2)
.如果真 (Hwnd2 = Hwnd3) ' 两个窗口句柄相等,相当于信息框是窗口自身弹出来的。
模拟按键 (#回车键, , )
' PostMessageA (Hwnd, #WM_KEYDOWN, 0, #回车键)
' PostMessageA (Hwnd, #WM_KEYUP, 0, #回车键)
' 输出调试文本 (“窗口句柄相同”)
.如果真结束
' 关闭线程句柄 (ThreadHandle_hwnd)
|
|