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

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

 

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

 

用按键精灵写的手机端按键精灵批量加群的脚本,,5-wow.com

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。