Dim M
M = Int((M1 - M2 + 1) * Rnd + M2)
Delay M * 1000
Delay 2000
Event Form1.Load
End Event
//以下为标签
Event Form1.Label1.Click
End Event
Event Form1.Label2.Click
End Event
Event Form1.Label3.Click
End Event
//以下为按钮
Event Form1.Button1.Click
KeyPress "F10", 1
End Event
Event Form1.Button2.Click
KeyPress "F12", 1
End Event
//以下为文件按钮
//以下为第一条订单
Dim t
t = Int((1500 - 500 + 1) * Rnd + 500)
Randomize
Delay t
KeyPress "Enter", 1
Delay t
Randomize
X = Int((780 - 490 + 1) * Rnd + 490)
Y = Int((305 - 290 + 1) * Rnd + 290)
MoveTo X, Y
LeftClick 1
Delay 1000
//下面这句是打开Excel文档工作表
//ActiveX component can't create object, 点击按钮时显示以这条代码,怎么解决 这个按钮的表达意思是,打开EXCEL,然后读取指定表格输出,
//当然后续我是要读取某一列的数值,判断数值大于10,则读取对应的行输出
Event Form1.Button3.Click
Dim Button3
Plugin.Office.OpenXls(Button3)
Button3 = filepath
Text = Plugin.Office.ReadXls(1, 1, 2)
SayString Text
End Event
Randomize
Delay t
X = Int((910 - 810 + 1) * Rnd + 810)
Y = Int((305 - 290 + 1) * Rnd + 290)
MoveTo X, Y
LeftClick 1
Randomize
Delay t
Randomize
Delay t
X = Int((1117 - 972 + 1) * Rnd + 972)
Y = Int((849 - 807 + 1) * Rnd + 807)
MoveTo X, Y
LeftClick 1