str = Plugin.File.ReadFileEx("D:\qq.txt")
//分行读取账号文件，自己在D盘设置好账号密码，以逗号为分隔，每行一个账号密码
ss=split(str,"|")
i=1
For UBound(ss)
//分离账号和密码
s=split(ss(i-1),",")
//输出账号文本
//MessageBox "账号"&i&":"&s(0)&" 密码:"&s(1)
Delay 1000
SayString s(0) //输入QQ号
Delay 300
KeyPress 9,1
Delay 300
a=1
For len(s(1))
//这里就是把密码一个一个拆开，并还原为ASC码值，然后通过键盘模拟输入密码，文本输入密码筐不支持
b=asc(mid(s(1),a,1))
If b>=48 and b<=57
//字符为数字
KeyPress b,1
ElseIf b>=97 and b<=122
//字符小写字母
KeyPress b-32,1
ElseIf b>=65 and b<=90
//字符为大写字母
KeyPress b-32,1
ElseIf b>=44 and b<=47
KeyPress b+144,1
ElseIf b=64
//字符为@
KeyDown 16,1
KeyPress 50,1
KeyUp 16,1
ElseIf b=33
//字符为!
KeyDown 16,1
KeyPress 49,1
KeyUp 16,1
ElseIf b>=35 and b<=37
//字符为# $ %
KeyDown 16,1
KeyPress b+16,1
KeyUp 16,1
ElseIf b=41
//字符为)
KeyDown 16,1
KeyPress 48,1
KeyUp 16,1
ElseIf b=42
//字符为*
KeyDown 16,1
KeyPress 56,1
KeyUp 16,1
ElseIf b=40
//字符为(
KeyDown 16,1
KeyPress 57,1
KeyUp 16,1
ElseIf b=38
//字符为&
KeyDown 16,1
KeyPress 55,1
KeyUp 16,1
Else
EndIf
a=a+1
EndFor
Delay 500
KeyPress 13,1
i=i+1
Delay 1000
EndFor
EndScript | 
发表于 2020-9-27 21:31
