用下面的登陆 我每次只登陆第一个 是不是在登陆之前还要加什么命令
.版本 2
.支持库 iext
.子程序 导入账号密码
.局部变量 文本, 文本型, , "0"
.局部变量 项数, 整数型
.局部变量 a, 整数型
.局部变量 分割数组, 文本型, , "0"
.局部变量 h, 整数型
超级列表框_账密.全部删除 ()
通用对话框_账密.初始目录 = 取运行目录 ()
通用对话框_账密.打开 ()
文件 = 到文本 (读入文件 (通用对话框_账密.文件名))
文本 = 分割文本 (文件, #换行符, )
项数 = 取数组成员数 (文本)
.计次循环首 (项数, a)
分割数组 = 分割文本 (文本 [a], “-”, )
.如果真 (取数组成员数 (分割数组) ≠ -1)
h = 超级列表框_账密.插入表项 (, , , , , )
超级列表框_账密.置标题 (h, 0, 分割数组 [1])
超级列表框_账密.置标题 (h, 1, 分割数组 [2])
.如果真结束
.计次循环尾 ()
账号 = 超级列表框_账密.取标题 (a, 0)
密码 = 超级列表框_账密.取标题 (a, 1)
.子程序 _按钮_开始_被单击
.计次循环首 (取文本长度 (账号), i)
键码 = 取代码 (账号, i)
dm.键盘_按下虚拟键码 (, 键码)
延迟 (500)
.计次循环尾 ()
延迟 (2000)
dm.键盘_按下虚拟键码 (, #Tab键)
延迟 (2000)
函数_发送文本 (靠谱2窗口, 密码)
延迟 (1000)
|