按键精灵循环输入txt

2025-02-23 00:57:41
推荐回答(2个)
回答1:

代码移动一下就行

你用了跳转命令出错了而已

'==========以下是按键精灵录制的内容==========
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
'==========以上是按键精灵录制的内容==========

回答2:

貌似每次写完第一行之后你就按TAB键然后不断重复?