这几天在按键精灵用到的比较实用的代码

Function GetTokenForMG
    Dim RequestUrl,Source
    RequestUrl = "http://www.baidu.com/"
    Source = URL.Get(RequestUrl)
End Function

RunApp "com.xxx.xxx"
KillApp "com.xxx.xxx"

Dim intX, intY
FindPic x1, y1, x2, y2, "Attachment:x.png", "000000", 0, 0.6, intX, intY
If intX > 0 and intY > 0 Then 
Else 
End If

p1 = ReadUIConfig("p1")

Function RndNum(MinNum,MaxNum)
    RndNum=Int((MaxNum-MinNum+1)*Rnd()+MinNum)
End Function

Import "FileEx.lua"
Call File.Append(GetTempDir() & "filename.txt", "content")