繁體
|
簡體
Sclub交友聊天~加入聊天室當版主
(檢舉)
分享
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line
标题:
按键精灵手机助手 常用代码
[打印本页]
作者:
forwe
时间:
2018-4-15 15:51
标题:
按键精灵手机助手 常用代码
取字符
Dim a, b,c,d,e,g
a = File.ReadLines("/storage/emulated/0/baidu/password.txt")
For i = 1 to 6225
b = Split(a(i-1), "---")
d = Left(b(0), 4)
g = b(1) & "---" & d & "\n"
File.Append("/storage/emulated/0/baidu/ps.txt", g)
// TracePrint g
Next
复制代码
------------------------------------------------------------------
比较
Dim a, b,c,d,e,g, r
a = File.ReadLines("/storage/emulated/0/baidu/password.txt")
c = File.ReadLines("/storage/emulated/0/baidu/oo.txt")
For e = 1 To 33659
d = d & a(e-1)
Next
//r = UTF8.InStr(1, d, "13002956954")
For i = 1 to 12002
b = Split(c(i-1), "---")
r = UTF8.InStr(1, d, b(0))
If r = 0 Then
g = b(0) & "---" & b(1) & "\n"
File.Append("/storage/emulated/0/baidu/ps.txt", g)
End If
Next
//TracePrint r
复制代码
---------------------------------------------------------------
金币
Dim intX, intY, i, e
For i = 1 To 92
Delay 500
Do
FindPic 0, 0, 0, 0, "Attachment:1.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 300
Do
FindPic 0, 0, 0, 0, "Attachment:2.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 300
Do
FindPic 0, 0, 0, 0, "Attachment:3.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 300
Do
FindPic 0, 0, 0, 0, "Attachment:4.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 1000
Do
FindPic 0, 0, 0, 0, "Attachment:4.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 1500
Do
FindPic 0, 0, 0, 0, "Attachment:3t.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 1000
Do
FindPic 0, 0, 0, 0, "Attachment:7.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 500
Do
FindPic 0, 0, 0, 0, "Attachment:8.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 3500
Next
e = Dialog.MsgBox("完成",0)
复制代码
---------------------------------------------------------------------------
登录
Dim a, b, c, e, g, intX, intY, intA, intB, intC, intD, intE, intF, intG, intH
a = File.ReadLines("/storage/emulated/0/baidu/password.txt")
c = 0
g = 0
For i = 1 to ReadUIConfig("输入框1", 10)
b = Split(a(i-1), "---")
c = c+1
Call 子程序()
Next
e = Dialog.MsgBox("完成",0)
Sub 子程序()
Tap 436, 133
Delay 500
Tap 436, 133
Delay 300
InputText b(0)
Delay 300
KeyPress "Tab"
Delay 300
InputText b(1)
Delay 300
Tap 232, 252
Delay 1000
FindPic 0, 0, 0, 0, "Attachment:s1.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 5000
Tap 50, 690
Delay 300
Tap 50, 690
Delay 300
Do
FindPic 0, 0, 0, 0, "Attachment:s2.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
FindPic 0, 0, 0, 0, "Attachment:po.png", "000000", 0, 0.9, intG, intH
If intG > -1 And intH > -1 Then
KeyPress "Back"
End If
Loop
Delay 1000
Tap 22, 90
Delay 300
Tap 22, 90
Delay 300
Tap 22, 90
Delay 800
Swipe 230, 750, 230, 70, 1000
Delay 500
//Tap 230, 730
Do
FindPic 0, 0, 0, 0, "Attachment:s3.png", "000000", 0, 0.9, intE, intF
If intE > -1 And intF > -1 Then
Tap intE, intF
Exit Do
End If
Loop
Delay 500
Do
FindPic 0, 0, 0, 0, "Attachment:s4.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 1000
g = b(0) & "---" & b(1) & "\n"
File.Append("/storage/emulated/0/baidu/ps.txt", g)
Delay 1000
Do
FindPic 0, 0, 0, 0, "Attachment:手机登录.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
FindPic 0, 0, 0, 0, "Attachment:ss1.png", "000000", 0, 0.9, intA, intB
If intA > -1 And intB > -1 Then
KeyPress "Back"
Delay 500
End If
FindPic 0, 0, 0, 0, "Attachment:s1.png", "000000", 0, 0.9, intC, intD
If intC > -1 And intD > -1 Then
Tap intC, intD
Tap 50, 690
Delay 300
Tap 50, 690
Delay 300
Do
FindPic 0, 0, 0, 0, "Attachment:s2.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
FindPic 0, 0, 0, 0, "Attachment:po.png", "000000", 0, 0.9, intG, intH
If intG > -1 And intH > -1 Then
KeyPress "Back"
End If
Loop
Delay 1000
Tap 22, 90
Delay 300
Tap 22, 90
Delay 300
Tap 22, 90
Delay 800
Swipe 230, 750, 230, 70, 1000
Delay 500
Do
FindPic 0, 0, 0, 0, "Attachment:s3.png", "000000", 0, 0.9, intE, intF
If intE > -1 And intF > -1 Then
Tap intE, intF
Exit Do
End If
Loop
Delay 500
Do
FindPic 0, 0, 0, 0, "Attachment:s4.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 1000
g = b(0) & "---" & b(1) & "\n"
File.Append("/storage/emulated/0/baidu/ps.txt", g)
Delay 1000
Exit Do
End If
Loop
End If
If c > 9 Then
Delay 1000
KeyPress "Back"
Delay 1500
Do
FindPic 0, 0, 0, 0, "Attachment:手机登录.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
FindPic 0, 0, 0, 0, "Attachment:ss1.png", "000000", 0, 0.9, intA, intB
If intA > -1 And intB > -1 Then
KeyPress "Back"
Delay 500
End If
FindPic 0, 0, 0, 0, "Attachment:s1.png", "000000", 0, 0.9, intC, intD
If intC > -1 And intD > -1 Then
Tap intC, intD
Tap 50, 690
Delay 300
Tap 50, 690
Delay 300
Do
FindPic 0, 0, 0, 0, "Attachment:s2.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
FindPic 0, 0, 0, 0, "Attachment:po.png", "000000", 0, 0.9, intG, intH
If intG > -1 And intH > -1 Then
KeyPress "Back"
End If
Loop
Delay 1000
Tap 22, 90
Delay 300
Tap 22, 90
Delay 300
Tap 22, 90
Delay 800
Swipe 230, 750, 230, 70, 1000
Delay 500
Do
FindPic 0, 0, 0, 0, "Attachment:s3.png", "000000", 0, 0.9, intE, intF
If intE > -1 And intF > -1 Then
Tap intE, intF
Exit Do
End If
Loop
Delay 500
Do
FindPic 0, 0, 0, 0, "Attachment:s4.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Exit Do
End If
Loop
Delay 1000
g = b(0) & "---" & b(1) & "\n"
File.Append("/storage/emulated/0/baidu/ps.txt", g)
Delay 1000
Exit Do
End If
Loop
Delay 1000
c = 0
End If
FindPic 0, 0, 0, 0, "Attachment:ss2.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
KeyPress "Back"
Delay 500
KeyPress "Back"
End If
End Sub
复制代码
--------------------------------------------------------
快捷键
Function 复制()
KeyDown "Menu"
KeyPress "C"
KeyUp "Menu"
End Function
Function 粘贴()
KeyDown "Menu"
KeyPress "V"
KeyUp "Menu"
End Function
Function 全选()
KeyDown "Menu"
KeyPress "A"
KeyUp "Menu"
End Function
Dim s
Call 复制()
s = Sys.GetClipText()
复制代码
欢迎光临 Forwe (http://forwe.joinbbs.net/)
Powered by Discuz! 7.2
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line