用按键精灵写的手机端按键精灵批量加群的脚本

前几天朋友想在手机上面多加几个群，可是一个个的手工操作太难受了，于是就用按键精灵帮他写了一个自动加群的代码。分享给大家。

KeepScreen True
Delay 2000

Dim scrWidth, scrHeight,a,x,y,i,intX,intY
scrWidth = GetScreenX()
scrHeight = GetScreenY()
‘ShowMessage scrWidth&"--"&scrHeight

TracePrint scrWidth
TracePrint scrHeight
If scrWidth<>540 and scrHeight<>960 then
    ShowMessage "此脚本只支持960*540分辨率，手机分辨率不对，脚本停止。"
    Delay(2000)
    EndScript
End If

Delay 2000

     Delay 2000
    x = 270
    y = 60

    For i=1 to 9
        Delay 1000
        y = y + 104
        Tap x, y
        ShowMessage x&"-"&y
        Delay 2000        

            Tap 260,920
            Delay 4000    

            InputText "nihao 。"

            Delay 4000
            Tap 490,70
            Delay 4000
            KeyPress "Back"

    Next
    ShowMessage "next page"
    Delay 2000
    KeyPress "PageDown"
    Delay 1000

用按键精灵写的手机端按键精灵批量加群的脚本,布布扣,bubuko.com