Question

按键精灵 读取TXT文本账号密码后进行一系列操作？

我的代码是这样的，
Delay 3000
MoveTo 110, 355
Delay 1000
LeftDoubleClick 1
Delay 3000
MoveTo 1075, 367
Delay 200
LeftClick 2
Delay 200
KeyPress "BackSpace", 10
Delay 200
KeyPress "Q", 1
Delay 200
KeyPress "Q", 1
Delay 200
KeyPress "H", 1
Delay 200
KeyPress "E", 1
Delay 200
KeyPress "Num 3", 1
Delay 200
KeyPress "Num 6", 1
Delay 200
KeyPress "Num 4", 1
Delay 200
KeyPress "Num 6", 1
Delay 500
KeyPress "Tab", 1
Delay 200
KeyPress "Num 3", 1
Delay 200
KeyPress "Num 6", 1
Delay 200
KeyPress "Num 4", 1
Delay 200
KeyPress "Num 6", 1
Delay 200
KeyPress "H", 1
Delay 200
KeyPress "E", 1
Delay 200
KeyPress "Enter", 1
Delay 2000
MoveTo 170, 24
Delay 300
LeftClick 1
Delay 4000
KeyDown 17, 1
KeyPress 49, 1
KeyUp 17, 1
Delay 200
KeyPress "Enter", 3
Delay 200
KeyDown 17, 1
KeyPress 49, 1
KeyUp 17, 1
Delay 200
KeyPress "Enter", 3
Delay 200
KeyDown 17, 1
KeyPress 49, 1
KeyUp 17, 1
Delay 200
KeyPress "Enter", 3
Delay 200
KeyDown 17, 1
KeyPress 49, 1
KeyUp 17, 1
Delay 200
KeyPress "Enter", 3
Delay 200
KeyDown 17, 1
KeyPress 49, 1
KeyUp 17, 1
Delay 200
KeyPress "Enter", 3
Delay 2000
KeyDown 18, 1
KeyPress 115, 1
KeyUp 18, 1
Delay 2000
KeyPress "Enter", 1

上面代码中QQHE3646这个是账号，3646HE是密码，总体来讲就是鼠标移动到坐标，点开客户端-鼠标移动到坐标输入帐号密码-进入客户端执行一系列操作之后推出在更换另一个账号执行同样的操作，我这个怎么简化？同时读取TXT文本的账号密码？因为账号密码很多，按照我这样做很费劲还，经常出错！

Answer 1

Dim a
// 密码
PSW="QQHE3646"
// 计算密码长度
PSW_Len=Len(PSW)
ReDim a(PSW_Len)
i=0
For PSW_Len
a(i) = Mid(PSW,1+i,1)
If Asc(a(i))>=97 and Asc(a(i))<=122
// 英文大写
KeyPress Asc(a(i))-32,1
ElseIf Asc(a(i))>=65 and Asc(a(i))<=90
// 英文小写
KeyDown 16,1
KeyPress Asc(a(i)),1
KeyUp 16,1
ElseIf Asc(a(i))>=48 and Asc(a(i))<=57
// 数字
KeyPress Asc(a(i)),1
Else
MessageBox "密码: " & PSW &" 含有符号,不适用此脚本"
EndScript
EndIf
i = i + 1
EndFor

追问

您有联系方式吗？有一些地方不是很懂。

Answer 2

瑶瑟怨(温庭筠)

Answer 3

月夜(刘方平)

Answer 4

遣怀(杜牧)

Answer 5

，手机IP是