按键精灵函数

//鼠标点击
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