//鼠标点击
Sub clk()
Leftdown
Delay 50
Leftup
End Sub
Call clk()
//等待X分钟
UserVar X=1 "输入等待时间X分钟"
For X
Delay 60000
Next
//定义函数
Function myfun()
...
End Function
myfun()
//IF判断
If ... Then
...
ElseIf ... Then
...
End If
//Select判断
Select Case 变量
Case 0
...
Case 1
...
Case Else
...
End Select
//查找指定点坐标
GetCursorPos x,y
cr1=GetPixelColor(x,y)
MessageBox cr1
//定义变量,接收输入
Dim Input
Input = InputBox("请输入内容","提示","张三",0,0)
MsgBox "输入:"&Input
//日志记录
LogStart "C:\a.log" //记录日志
For i = 0 To 3
TracePrint "保存次数:" & i
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "屏幕内容填写:" & i, "0000FF")
Next
LogStop //记录日志停止
TracePrint "这句不会输出到日志里!"
//启动程序
RunApp "notepad.exe"
//输入文本
SayString "你好"
Plugin clirect=Window.GetClientRect(hwnd)
dim rx, ry
dim tmp
tmp=split(cliectRect,"|")
rx=cint(tmp(0))+20 : ry=cint(tmp(1))+60
Sub clk()
Leftdown
Delay 50
Leftup
End Sub
Call clk()
//等待X分钟
UserVar X=1 "输入等待时间X分钟"
For X
Delay 60000
Next
//定义函数
Function myfun()
...
End Function
myfun()
//IF判断
If ... Then
...
ElseIf ... Then
...
End If
//Select判断
Select Case 变量
Case 0
...
Case 1
...
Case Else
...
End Select
//查找指定点坐标
GetCursorPos x,y
cr1=GetPixelColor(x,y)
MessageBox cr1
//定义变量,接收输入
Dim Input
Input = InputBox("请输入内容","提示","张三",0,0)
MsgBox "输入:"&Input
//日志记录
LogStart "C:\a.log" //记录日志
For i = 0 To 3
TracePrint "保存次数:" & i
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "屏幕内容填写:" & i, "0000FF")
Next
LogStop //记录日志停止
TracePrint "这句不会输出到日志里!"
//启动程序
RunApp "notepad.exe"
//输入文本
SayString "你好"
Plugin clirect=Window.GetClientRect(hwnd)
dim rx, ry
dim tmp
tmp=split(cliectRect,"|")
rx=cint(tmp(0))+20 : ry=cint(tmp(1))+60