自动登录TIM - QQ

帅气与大侠

每天电脑开机都要登TIM，数量有点多，每次都要手动一个一个选择账hao，写了一个循环操作，解放双手。源码中使用了“精易模块11.0.5”，请前往：ec.125.la 自行下载

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
TIM	文本型
窗口类名	文本型
窗口标题	文本型
进程结构	精易_进程结构
窗口句柄	整数型
userName	文本型		0
i	整数型
j	整数型
键代码	整数型
登录成功后窗口句柄	整数型

关闭所有TIM窗口 (“TIM”, “TXGuiFoundation”, 725, 548, -1777860608, 524800)  ' 关闭所有未登录的
加入成员 (userName, “xxx”)
加入成员 (userName, “xxx”)
加入成员 (userName, “xxx”)
加入成员 (userName, “xxx”)
加入成员 (userName, “xxx”)
TIM＝ “TIM文件路径”
计次循环首 (取数组成员数 (userName), i)
如果真 (运行 (TIM, 假, ))
窗口句柄 ＝ 等待TIM登录窗口出现 (“TIM”, “TXGuiFoundation”, 725, 548, -1777860608, 524800, )
如果真 (窗口句柄 ≠ 0)
' 等待1秒，让窗口完全激活显示，不同电脑配置显示速度可能有差异，可适当加大延迟，保证稳定
程序_延时 (1000)
窗口_激活 (窗口句柄)
' 模拟按Tab键9次，让账号输入框获得焦点
计次循环首 (9, )
键盘_消息 (窗口句柄, #Tab键, 5, )
程序_延时 (100)
计次循环尾 ()
' 取出TIM账hao对应键代码，发送键盘消息。仅支持单字节字符
调试输出 (“正在登录：”, userName [i])
计次循环首 (取文本长度 (userName [i]), j)
键代码 ＝ 取代码 (userName [i], j)
键盘_消息 (窗口句柄, 键代码)
计次循环尾 ()
' 输入完TIM账hao后，按回车键登录
程序_延时 (1000)
键盘_消息 (窗口句柄, #回车键, 5, 假)
' 最多等待30秒，等窗口属性发生改变
登录成功后窗口句柄 ＝ 等待TIM登录窗口出现 (“TIM”, “TXGuiFoundation”, -1, -1, -1777401856, 525056, 30 × 1000)
窗口句柄 ＝ 选择 (登录成功后窗口句柄 ＝ 0, 窗口句柄, 登录成功后窗口句柄)
' 登录成功后要做个延迟等待TIM主动将登录窗口关闭动作，然后我们再关闭登录后的窗口（也可能是登陆前窗口）
程序_延时 (2000)
窗口_关闭 (窗口句柄)


计次循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
等待TIM登录窗口出现	整数型		返回窗口句柄
参数名	类 型	参考	可空	数组	备 注
窗口标题	文本型				固定：TIM
窗口类名	文本型				固定：TXGuiFoundation
窗口宽度	整数型				未登录：725，登陆后：变动
窗口高度	整数型				未登录：548，登陆后：变动
窗口风格	整数型				未登录：-1777860608，登录后：-1777401856
窗口扩展风格	整数型				未登录：524800，登录后：525056
超时	整数型				默认为：3000

变量名	类 型	静态	数组	备 注
启动时间	整数型
窗口信息	精易_窗口信息		0
窗口数量	整数型
i	整数型
位置和大小	精易_位置和大小

超时 ＝ 选择 (是否为空 (超时), 3000, 超时)
启动时间 ＝ 取启动时间 ()
循环判断首 ()
窗口数量 ＝ 窗口_枚举 (窗口信息)
计次循环首 (窗口数量, i)
如果真 (窗口信息 [i].窗口标题 ＝ 窗口标题 且 窗口信息 [i].窗口类名 ＝ 窗口类名)
如果真 (窗口_取窗口属性 (窗口信息 [i].窗口句柄, #GWL_STYLE ) ＝ 窗口风格 且 窗口_取窗口属性 (窗口信息 [i].窗口句柄, #GWL_EXSTYLE ) ＝ 窗口扩展风格)
如果真 (窗口宽度 ＝ -1 且 窗口高度 ＝ -1)
返回 (窗口信息 [i].窗口句柄)

位置和大小 ＝ 窗口_取位置和大小 (窗口信息 [i].窗口句柄)
如果真 (位置和大小.宽度 ＝ 窗口宽度 且 位置和大小.高度 ＝ 窗口高度)
返回 (窗口信息 [i].窗口句柄)


处理事件 ()
计次循环尾 ()
程序_延时 (1)
循环判断尾 (取启动时间 () － 启动时间 ≤ 超时)
返回 (0)

子程序名	返回值类型	公开	备 注
关闭所有TIM窗口
参数名	类 型	参考	可空	数组	备 注
窗口标题	文本型				固定：TIM
窗口类名	文本型				固定：TXGuiFoundation
窗口宽度	整数型				未登录：725，登陆后：变动
窗口高度	整数型				未登录：548，登陆后：变动
窗口风格	整数型				未登录：-1777860608，登录后：-1777401856
窗口扩展风格	整数型				未登录：524800，登录后：525056

变量名	类 型	静态	数组	备 注
窗口数量	整数型
窗口信息	精易_窗口信息		0
i	整数型
位置和大小	精易_位置和大小

窗口数量 ＝ 窗口_枚举 (窗口信息)
计次循环首 (窗口数量, i)
如果真 (窗口信息 [i].窗口标题 ＝ 窗口标题 且 窗口信息 [i].窗口类名 ＝ 窗口类名)
如果真 (窗口_取窗口属性 (窗口信息 [i].窗口句柄, #GWL_STYLE ) ＝ 窗口风格 且 窗口_取窗口属性 (窗口信息 [i].窗口句柄, #GWL_EXSTYLE ) ＝ 窗口扩展风格)
如果真 (窗口宽度 ＝ -1 且 窗口高度 ＝ -1)
进程_结束 (窗口信息 [i].进程ID)
到循环尾 ()

位置和大小 ＝ 窗口_取位置和大小 (窗口信息 [i].窗口句柄)
如果真 (位置和大小.宽度 ＝ 窗口宽度 且 位置和大小.高度 ＝ 窗口高度)
调试输出 (进程_结束 (窗口信息 [i].进程ID))


处理事件 ()
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 TIM, 文本型<br /> .局部变量 窗口类名, 文本型<br /> .局部变量 窗口标题, 文本型<br /> .局部变量 进程结构, 精易_进程结构<br /> .局部变量 窗口句柄, 整数型<br /> .局部变量 userName, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 键代码, 整数型<br /> .局部变量 登录成功后窗口句柄, 整数型<br /> <br /> 关闭所有TIM窗口 (“TIM”, “TXGuiFoundation”, 725, 548, -1777860608, 524800)  ' 关闭所有未登录的<br /> <br /> 加入成员 (userName, “xxx”)<br /> 加入成员 (userName, “xxx”)<br /> 加入成员 (userName, “xxx”)<br /> 加入成员 (userName, “xxx”)<br /> 加入成员 (userName, “xxx”)<br /> <br /> TIM＝ “TIM文件路径”<br /> <br /> .计次循环首 (取数组成员数 (userName), i)<br /> <br />     .如果真 (运行 (TIM, 假, ))<br />         窗口句柄 ＝ 等待TIM登录窗口出现 (“TIM”, “TXGuiFoundation”, 725, 548, -1777860608, 524800, )<br />         .如果真 (窗口句柄 ≠ 0)<br />             ' 等待1秒，让窗口完全激活显示，不同电脑配置显示速度可能有差异，可适当加大延迟，保证稳定<br />             程序_延时 (1000)<br />             窗口_激活 (窗口句柄)<br /> <br />             ' 模拟按Tab键9次，让账号输入框获得焦点<br />             .计次循环首 (9, )<br />                 键盘_消息 (窗口句柄, #Tab键, 5, )<br />                 程序_延时 (100)<br />             .计次循环尾 ()<br /> <br />             ' 取出TIM账hao对应键代码，发送键盘消息。仅支持单字节字符<br />             调试输出 (“正在登录：”, userName <i>)<br />             .计次循环首 (取文本长度 (userName <i>), j)<br />                 键代码 ＝ 取代码 (userName <i>, j)<br />                 键盘_消息 (窗口句柄, 键代码)<br />             .计次循环尾 ()<br /> <br />             ' 输入完TIM账hao后，按回车键登录<br />             程序_延时 (1000)<br />             键盘_消息 (窗口句柄, #回车键, 5, 假)<br /> <br />             ' 最多等待30秒，等窗口属性发生改变<br />             登录成功后窗口句柄 ＝ 等待TIM登录窗口出现 (“TIM”, “TXGuiFoundation”, -1, -1, -1777401856, 525056, 30 × 1000)<br />             窗口句柄 ＝ 选择 (登录成功后窗口句柄 ＝ 0, 窗口句柄, 登录成功后窗口句柄)<br />             ' 登录成功后要做个延迟等待TIM主动将登录窗口关闭动作，然后我们再关闭登录后的窗口（也可能是登陆前窗口）<br />             程序_延时 (2000)<br />             窗口_关闭 (窗口句柄)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 等待TIM登录窗口出现, 整数型, , 返回窗口句柄<br /> .参数 窗口标题, 文本型, , 固定：TIM<br /> .参数 窗口类名, 文本型, , 固定：TXGuiFoundation<br /> .参数 窗口宽度, 整数型, , 未登录：725，登陆后：变动<br /> .参数 窗口高度, 整数型, , 未登录：548，登陆后：变动<br /> .参数 窗口风格, 整数型, , 未登录：-1777860608，登录后：-1777401856<br /> .参数 窗口扩展风格, 整数型, , 未登录：524800，登录后：525056<br /> .参数 超时, 整数型, 可空, 默认为：3000<br /> .局部变量 启动时间, 整数型<br /> .局部变量 窗口信息, 精易_窗口信息, , "0"<br /> .局部变量 窗口数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 位置和大小, 精易_位置和大小<br /> <br /> 超时 ＝ 选择 (是否为空 (超时), 3000, 超时)<br /> 启动时间 ＝ 取启动时间 ()<br /> .循环判断首 ()<br />     窗口数量 ＝ 窗口_枚举 (窗口信息)<br />     .计次循环首 (窗口数量, i)<br />         .如果真 (窗口信息 <i>.窗口标题 ＝ 窗口标题 且 窗口信息 <i>.窗口类名 ＝ 窗口类名)<br />             .如果真 (窗口_取窗口属性 (窗口信息 <i>.窗口句柄, #GWL_STYLE) ＝ 窗口风格 且 窗口_取窗口属性 (窗口信息 <i>.窗口句柄, #GWL_EXSTYLE) ＝ 窗口扩展风格)<br />                 .如果真 (窗口宽度 ＝ -1 且 窗口高度 ＝ -1)<br />                     返回 (窗口信息 <i>.窗口句柄)<br />                 .如果真结束<br /> <br /> <br />                 位置和大小 ＝ 窗口_取位置和大小 (窗口信息 <i>.窗口句柄)<br />                 .如果真 (位置和大小.宽度 ＝ 窗口宽度 且 位置和大小.高度 ＝ 窗口高度)<br />                     返回 (窗口信息 <i>.窗口句柄)<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br />         处理事件 ()<br />     .计次循环尾 ()<br />     程序_延时 (1)<br /> .循环判断尾 (取启动时间 () － 启动时间 ≤ 超时)<br /> 返回 (0)<br /> <br /> .子程序 关闭所有TIM窗口<br /> .参数 窗口标题, 文本型, , 固定：TIM<br /> .参数 窗口类名, 文本型, , 固定：TXGuiFoundation<br /> .参数 窗口宽度, 整数型, , 未登录：725，登陆后：变动<br /> .参数 窗口高度, 整数型, , 未登录：548，登陆后：变动<br /> .参数 窗口风格, 整数型, , 未登录：-1777860608，登录后：-1777401856<br /> .参数 窗口扩展风格, 整数型, , 未登录：524800，登录后：525056<br /> .局部变量 窗口数量, 整数型<br /> .局部变量 窗口信息, 精易_窗口信息, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 位置和大小, 精易_位置和大小<br /> <br /> 窗口数量 ＝ 窗口_枚举 (窗口信息)<br /> <br /> .计次循环首 (窗口数量, i)<br /> <br />     .如果真 (窗口信息 <i>.窗口标题 ＝ 窗口标题 且 窗口信息 <i>.窗口类名 ＝ 窗口类名)<br /> <br />         .如果真 (窗口_取窗口属性 (窗口信息 <i>.窗口句柄, #GWL_STYLE) ＝ 窗口风格 且 窗口_取窗口属性 (窗口信息 <i>.窗口句柄, #GWL_EXSTYLE) ＝ 窗口扩展风格)<br />             .如果真 (窗口宽度 ＝ -1 且 窗口高度 ＝ -1)<br />                 进程_结束 (窗口信息 <i>.进程ID)<br />                 到循环尾 ()<br />             .如果真结束<br /> <br /> <br />             位置和大小 ＝ 窗口_取位置和大小 (窗口信息 <i>.窗口句柄)<br />             .如果真 (位置和大小.宽度 ＝ 窗口宽度 且 位置和大小.高度 ＝ 窗口高度)<br />                 调试输出 (进程_结束 (窗口信息 <i>.进程ID))<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()

aa731118539

牛逼啊正找这个呢

放飞梦想321

感谢发布原创作品，精易因你更精彩！

窥伺

        感谢发布原创作品，精易因你更精彩！

czk2

#在这里快速回复#感谢分享，很给力！~

aszxcv

#在这里快速回复#https://github.com/snlie/WeChat-Hook

Tckya

走过路过别错过

学习小米I

  感谢分享！！~

亿万

        支持开源~！感谢分享

依旧破晓

感谢分享 支持开源