按键精灵的问题，能正常调试，循环时复制粘贴结果还是脚本最后的内容，同时不时就自己打开以剪贴板为内容

按键精灵的问题，能正常调试，循环时复制粘贴结果还是脚本最后的内容，同时不时就自己打开以剪贴板为内容按键精灵的问题，能正常调试，循环时复制粘贴结果还是脚本最后的内容，同时不... 按键精灵的问题，能正常调试，循环时复制粘贴结果还是脚本最后的内容，同时不时就自己打开以剪贴板为内容按键精灵的问题，能正常调试，循环时复制粘贴结果还是脚本最后的内容，同时不时就自己打开以剪贴板为内容的搜索新网页

'==========以下是按键精灵录制的内容==========

MoveTo 290, 750//浏览器
LeftClick 1
MoveTo 338, 13//页面2
LeftClick 1
MoveTo 51, 48//刷新页面2
LeftClick 1
MoveTo 425, 416//页面2选择开始
LeftDown 1
MoveTo 445, 416//页面2选择结束
LeftUp 1
Call lib.键盘.KeyList("Ctrl+C",0)
MoveTo 470, 749//EXCEL页面
LeftClick 1
MoveTo 211, 211//EXCEL页面CX单元格
LeftClick 1
Call lib.键盘.KeyList("Ctrl+V",0)
LeftClick 1
Keypress "Enter", 1
MoveTo 290, 750//浏览器
LeftClick 1
MoveTo 70, 10//页面1
LeftClick 1
Keypress "PageDown", 1
Dim i
Clipboard = Plugin.Sys.GetCLB()
i = cint(Clipboard)
If i>5 Then
//满足条件，执行下面的脚本
MoveTo 540, 320//大
ElseIf i
MoveTo 710, 320//小
End If//通过判断表达式的取值，来执行后面的动作或控制
LeftClick 1
MoveTo 470, 749//EXCEL页面
LeftClick 1
MoveTo 70, 190//EXCEL页面复制A2
LeftClick 1
Call lib.键盘.KeyList("Ctrl+C",0)
MoveTo 290, 750//浏览器
LeftClick 1
Call lib.键盘.KeyList("Ctrl+V",0)
MoveTo 810, 490//页面1确实
LeftClick 1
Keypress "Enter", 1
MoveTo 800, 370//页面1核实确认
LeftClick 1
Keypress "Enter", 1
Keypress "Home", 1
MoveTo 795, 165//页面1选择开始
LeftDown 1
MoveTo 1090, 165//页面1选择结束
LeftUp 1
Call lib.键盘.KeyList("Ctrl+C",0)
MoveTo 669, 747//任务栏QQ
LeftClick 1
MoveTo 830, 650//QQ页面
LeftClick 1
Call lib.键盘.KeyList("Ctrl+V",0)
Call lib.键盘.KeyList("Ctrl+Enter",0)
Call Plugin.Sys.SetCLB("")//剪贴板清空
'==========以上是按键精灵录制的内容========== 展开

 我来答