按键精灵循环输入txt 5
自己写了下面这个脚本,循环在密码框逐行输入txt文本'==========以下是按键精灵录制的内容==========RemstartMoveTo110,115Delay...
自己写了下面这个脚本,循环在密码框逐行输入txt文本
'==========以下是按键精灵录制的内容==========
Rem start
MoveTo 110, 115
Delay 1270
LeftDown 1
Delay 6
LeftClick 1
Delay 1
LeftUp 1
word = Plugin.File.ReadFileEx("C:\1.txt")
//分割为行
Dim hang
hang = split(word, "|")
//循环打出每一行
For i = 0 To UBound(hang)
SayString hang(i)
Delay 900
KeyPress "Tab", 1
//暂停,任意键继续
Delay 900
MoveTo 553, 377
Delay 90
LeftDown 1
Delay 2
LeftClick 1
Delay 1
LeftUp 1
Goto start
Next
'==========以上是按键精灵录制的内容==========
已经能循环了,但是txt文本每次都只输入第一条,不能跳转到第2条 展开
'==========以下是按键精灵录制的内容==========
Rem start
MoveTo 110, 115
Delay 1270
LeftDown 1
Delay 6
LeftClick 1
Delay 1
LeftUp 1
word = Plugin.File.ReadFileEx("C:\1.txt")
//分割为行
Dim hang
hang = split(word, "|")
//循环打出每一行
For i = 0 To UBound(hang)
SayString hang(i)
Delay 900
KeyPress "Tab", 1
//暂停,任意键继续
Delay 900
MoveTo 553, 377
Delay 90
LeftDown 1
Delay 2
LeftClick 1
Delay 1
LeftUp 1
Goto start
Next
'==========以上是按键精灵录制的内容==========
已经能循环了,但是txt文本每次都只输入第一条,不能跳转到第2条 展开
2个回答
展开全部
代码移动一下就行
你用了跳转命令出错了而已
'==========以下是按键精灵录制的内容==========
word = Plugin.File.ReadFileEx("C:\1.txt")
//分割为行
Dim hang
hang = split(word, "|")
//循环打出每一行
For i = 0 To UBound(hang)
MoveTo 110, 115'移动内容--------------
Delay 1270
LeftDown 1
Delay 6
LeftClick 1
Delay 1
LeftUp 1'移动内容-----------------
SayString hang(i)
Delay 900
KeyPress "Tab", 1
//暂停,任意键继续
WaitKey
Delay 900
MoveTo 553, 377
Delay 90
LeftDown 1
Delay 2
LeftClick 1
Delay 1
LeftUp 1
Next
'==========以上是按键精灵录制的内容==========
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询