看流星社区

 找回密码
 注册账号
楼主: 逍遥公子

[易语言源码] [开源]QQ群验证修改版带网络验证

[复制链接]

该用户从未签到

发表于 2017-2-12 15:31:13 | 显示全部楼层
[开源]QQ群验证修改版带网络验证

该用户从未签到

发表于 2017-2-12 15:31:39 | 显示全部楼层
[开源]QQ群验证修改版带网络验证

该用户从未签到

发表于 2017-2-12 15:34:54 | 显示全部楼层
.版本 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)

该用户从未签到

发表于 2017-3-13 11:27:06 | 显示全部楼层
6768686889

该用户从未签到

发表于 2017-3-13 20:25:09 | 显示全部楼层
你还修改过??模块倪出来了 ??

该用户从未签到

发表于 2017-3-17 01:01:58 | 显示全部楼层
666666666666

该用户从未签到

发表于 2017-4-3 00:16:54 | 显示全部楼层
666666666666666666666666666666666666666666666666666666666666666

该用户从未签到

发表于 2017-4-13 01:50:12 | 显示全部楼层
谢谢老板
谢谢老板
谢谢老板

该用户从未签到

发表于 2017-9-26 20:20:34 | 显示全部楼层
感谢分享啊

该用户从未签到

发表于 2017-9-30 01:06:16 | 显示全部楼层
看看感谢楼主分享
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-28 17:31

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表