These days more practical code used in QuickMacro

1. Get page source

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

2. Run the APP and APP kill

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

3. Identify the location of the picture

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

4. Read the content of the edit box UI

p1 = ReadUIConfig("p1")

The random number generator

Function RndNum (memory, MaxNum) 
    RndNum = Int ((MaxNum memory + 1 ) * rnd () + my)
 End Function

6. Save the file in the device specified path

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

These are some of the features commonly used to follow-up used in supplements

Guess you like

Origin www.cnblogs.com/xuyi007/p/11128124.html
Recommended