希望是从文本导入的
你把账号密码放到一个TXT里中间用 | 隔开。一行一组账号密码
Rem 循环登录
Call 账号密码()
//这里你可以把你的脚本弄好,登录的子程序放在最后面就行。
//下面是登录的子程序了。
Sub 账号密码()
Text = Plugin.File.ReadFileEx("E:\QQ.txt")//读取帐号密码，存到text.（那个路径你自己改）
arr = Split(Text, "|")
A=arr(i)//这里定义账号变量
B=arr(i+1)//这里定义密码变量
MoveTo 724, 320//这里是输入账号的对话框的坐标，你自己改
Delay 200
LeftDoubleClick 1//这里我用的双击，有些可能双击不能选中以前的账号，你就改成单击然后删除
Delay 200
SayString A //这里就是输入账号了。
Delay 200
MoveTo 724, 371//这里是输入密码的对话框的坐标
Delay 200
LeftClick 1//这个跟账号一样。我用的那个网页不保存密码 所以我单击的。
Delay 200
SayString B//这里是输入账号。
i = i + 2
End Sub
我也是刚学这个。从网上找了好多才弄了这么一个。还不知道怎么让这个账号密码的循环断掉。。有空多交流一下。
Rem 循环登录
Call 账号密码()
//这里你可以把你的脚本弄好,登录的子程序放在最后面就行。
//下面是登录的子程序了。
Sub 账号密码()
Text = Plugin.File.ReadFileEx("E:\QQ.txt")//读取帐号密码，存到text.（那个路径你自己改）
arr = Split(Text, "|")
A=arr(i)//这里定义账号变量
B=arr(i+1)//这里定义密码变量
MoveTo 724, 320//这里是输入账号的对话框的坐标，你自己改
Delay 200
LeftDoubleClick 1//这里我用的双击，有些可能双击不能选中以前的账号，你就改成单击然后删除
Delay 200
SayString A //这里就是输入账号了。
Delay 200
MoveTo 724, 371//这里是输入密码的对话框的坐标
Delay 200
LeftClick 1//这个跟账号一样。我用的那个网页不保存密码 所以我单击的。
Delay 200
SayString B//这里是输入账号。
i = i + 2
End Sub
我也是刚学这个。从网上找了好多才弄了这么一个。还不知道怎么让这个账号密码的循环断掉。。有空多交流一下。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2018-03-31
操作如下：
把账号密码放到一个TXT里中间用 | 隔开。一行一组账号密码Rem 循环登录Call 账号密码，这里你可以把你的脚本弄好,登录的子程序放在最后面就行。
下面是登录的子程序：
Sub 账号密码()
Text = Plugin.File.ReadFileEx("E:\QQ.txt")//读取帐号密码，存到text.（那个路径你自己改）
arr = Split(Text, "|")
A=arr(i)//这里定义账号变量
B=arr(i+1)//这里定义密码变量
MoveTo 724, 320//这里是输入账号的对话框的坐标，你自己改
Delay 200
LeftDoubleClick 1//这里我用的双击，有些可能双击不能选中以前的账号，你就改成单击然后删除
Delay 200
SayString A //这里就是输入账号了。
Delay 200
MoveTo 724, 371//这里是输入密码的对话框的坐标
Delay 200
LeftClick 1//这个跟账号一样。我用的那个网页不保存密码 所以我单击的。
Delay 200
SayString B//这里是输入账号。
i = i + 2
End Sub
第2个回答 2013-04-24
//前提是光标在输帐号框里面闪动
GG=InputBox("请输入您的帐号!!!"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!")
If StrComp("",GG)=0 Then
Goto 结束
End If
MM=InputBox("请输入您的密码!!!"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!")
If StrComp("",MM)=0 Then
Goto 结束
End If
KEY=InputBox("请输入启动按键码! 如:F1~F12键为112~123码;a~z键为65~90码;"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!")
If StrComp("",KEY)=0 Then
Goto 结束
End If
//转换按键码
KEY=CInt(KEY)
Rem ID
Delay 100
K=WaitKey()
//122为F11键(只要在你的脚本加入按F11键就可以)
If K=KEY Then
//GG为帐号
SayString GG
Delay 500
KeyPress 9 ,1
Delay 200
//MM为密码
SayString MM
Delay 500
KeyPress 13, 1
End If
Goto ID
Rem 结束
EndScript
GG=InputBox("请输入您的帐号!!!"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!")
If StrComp("",GG)=0 Then
Goto 结束
End If
MM=InputBox("请输入您的密码!!!"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!")
If StrComp("",MM)=0 Then
Goto 结束
End If
KEY=InputBox("请输入启动按键码! 如:F1~F12键为112~123码;a~z键为65~90码;"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!")
If StrComp("",KEY)=0 Then
Goto 结束
End If
//转换按键码
KEY=CInt(KEY)
Rem ID
Delay 100
K=WaitKey()
//122为F11键(只要在你的脚本加入按F11键就可以)
If K=KEY Then
//GG为帐号
SayString GG
Delay 500
KeyPress 9 ,1
Delay 200
//MM为密码
SayString MM
Delay 500
KeyPress 13, 1
End If
Goto ID
Rem 结束
EndScript
