Do
' 移动和点击操作
MoveTo 1519,630
LeftClick 1
Delay 1000
MoveTo 1519,553
LeftClick 1
Delay 1000
MoveTo 1606,143
' 这里的坐标改为第一个输入框的大致坐标,以确保鼠标能点到
LeftClick 1
Delay 1000
' 读取业务号文本内容
业务号集 = Plugin.File.ReadFileEx("D:\业务号.txt")
业务号 = Split(业务号集,"|")
' 检查业务号是否为0(这里假设业务号是以文本形式存储的数字,且第一个业务号是我们关心的)
If 业务号(0) = "0" Then
' 如果业务号为0,则退出循环
Exit Do
End If
' 说出业务号(这里可能是为了调试或展示,实际使用时可能需要去掉)
SayString 业务号(0)
' 删除业务号文本的第一行
Call Lib.文件.删除指定行文本内容("D:\业务号.txt", 1)
Delay 1500
' 移动和点击操作(继续后续流程)
MoveTo 1606,194
' 这里的坐标改为第二个输入框的大致坐标,以确保鼠标能点到
LeftClick 1
Delay 1500
' 读取串号文本内容
串号集 = Plugin.File.ReadFileEx("D:\串号.txt")
串号 = Split(串号集,"|")
' 说出串号(同样可能是为了调试或展示)
SayString 串号(0)
' 删除串号文本的第一行
Call Lib.文件.删除指定行文本内容("D:\串号.txt",1)
Delay 1000
' 其他移动和点击操作
MoveTo 1370,1115
Delay 1500
LeftClick 1
Delay 1500
MoveTo 1600,630
Delay 1500
LeftClick 1
MoveTo 1311, 80
Delay 1500
LeftClick 1
Delay 1500
' 这里的MessageBox只是为了展示循环正在运行,实际使用时可以去掉
' MessageBox "循环中"
Loop
当业务号文本内容为空时,停止循环,但是这个代码无法停止循环呢,求大神指点