• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.2.9
软件大小:62.5M
更新时间:12-07

按键精灵iOS版
立即下载

软件版本:1.3.1
软件大小:29.2M
更新时间:09-29

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
返回列表 12345678» / 16
发新话题 回复该主题

[源码分享] qq自动查找自动进空间说说自动评论源码分享 [复制链接]

1#
qq自动查找自动进空间说说自动评论源码分享,功能强大Dim intX,intY
Dim 文本,x,xArr,aa,文件路径
If ReadUIConfig("多选框1") = true Then
文本 = File.ReadLines("/sdcard/Download/账号1.txt")
文件路径="/sdcard/Download/账号1.txt"
ElseIf ReadUIConfig("多选框2") = true Then
文本 = File.ReadLines("/sdcard/Download/账号2.txt")
文件路径="/sdcard/Download/账号2.txt"
ElseIf ReadUIConfig("多选框3") = true Then
文件路径="/sdcard/Download/账号3.txt"
文本 = File.ReadLines("/sdcard/Download/账号3.txt")
ElseIf ReadUIConfig("多选框4") = true Then
文件路径="/sdcard/Download/账号4.txt"
文本 = File.ReadLines("/sdcard/Download/账号4.txt")
ElseIf ReadUIConfig("多选框5") = true Then
文本 = File.ReadLines("/sdcard/Download/账号5.txt")
文件路径 = "/sdcard/Download/账号5.txt"
ElseIf ReadUIConfig("多选框6") = true Then
文本 = File.ReadLines("/sdcard/Download/账号6.txt")
文件路径 = "/sdcard/Download/账号6.txt"
ElseIf ReadUIConfig("多选框7") = true Then
文本 = File.ReadLines("/sdcard/Download/账号7.txt")
文件路径 = "/sdcard/Download/账号7.txt"
ElseIf ReadUIConfig("多选框8") = true Then
文本 = File.ReadLines("/sdcard/Download/账号8.txt")
文件路径 = "/sdcard/Download/账号8.txt"
ElseIf ReadUIConfig("多选框9") = true Then
文本 = File.ReadLines("/sdcard/Download/账号9.txt")
文件路径 = "/sdcard/Download/账号9.txt"
ElseIf ReadUIConfig("多选框10") = true Then
文本 = File.ReadLines("/sdcard/Download/账号10.txt")
文件路径="/sdcard/Download/账号10.txt"
ElseIf ReadUIConfig("多选框11") = true Then
文件路径="/sdcard/Download/账号11.txt"
文本 = File.ReadLines("/sdcard/Download/账号11.txt")
ElseIf ReadUIConfig("多选框12") = true Then
文件路径="/sdcard/Download/账号12.txt"
文本 = File.ReadLines("/sdcard/Download/账号12.txt")
ElseIf ReadUIConfig("多选框13") = true Then
文本 = File.ReadLines("/sdcard/Download/账号13.txt")
文件路径 = "/sdcard/Download/账号13.txt"
ElseIf ReadUIConfig("多选框14") = true Then
文本 = File.ReadLines("/sdcard/Download/账号14.txt")
文件路径 = "/sdcard/Download/账号14.txt"
ElseIf ReadUIConfig("多选框15") = true Then
文本 = File.ReadLines("/sdcard/Download/账号15.txt")
文件路径 = "/sdcard/Download/账号15.txt"
ElseIf ReadUIConfig("多选框16") = true Then
文本 = File.ReadLines("/sdcard/Download/账号16.txt")
文件路径 = "/sdcard/Download/账号16.txt"
ElseIf ReadUIConfig("多选框17") = true Then
文本 = File.ReadLines("/sdcard/Download/账号17.txt")
文件路径 = "/sdcard/Download/账号17.txt"
ElseIf ReadUIConfig("多选框18") = true Then
文本 = File.ReadLines("/sdcard/Download/账号18.txt")
文件路径 = "/sdcard/Download/账号18.txt"
End if

For Each x In 文本
xArr = Split(x, "----")
Dim zh,mm
zh = xArr(0)

Rem ks
Do
FindPic 0,0,0,0,"Attachment:搜索.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Delay 500
Tap intX, intY
Delay 1200
End If

FindPic 0,0,0,0,"Attachment:取消.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Delay 500
Tap 370,50
Delay 500

InputText zh
Delay 4000
Exit Do
End If
Loop
For 30
FindPic 5,53,56,301,"Attachment:人.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Delay 500
Tap intX, intY+60
Delay 4000
Goto asd
End If
Next
Goto huan
Rem asd
For 30
FindMultiColor 0,0,0,0,"816B67","-4|6|826C68,-12|8|A39390,-7|15|826C68,-8|22|8F7B76,8|23|836D68,13|9|CAC1BF,4|11|7D6662,4|11|7D6662,-4|16|836D69",0,1.0,intX,intY
If intX > -1 And intY > -1 Then
Delay 500
Tap intX, intY
Delay 1200
Goto aa
End If
Next
Swipe 239,707, 235,120
Delay 3000
For 30
FindMultiColor 0,0,0,0,"816B67","-4|6|826C68,-12|8|A39390,-7|15|826C68,-8|22|8F7B76,8|23|836D68,13|9|CAC1BF,4|11|7D6662,4|11|7D6662,-4|16|836D69",0,1.0,intX,intY
If intX > -1 And intY > -1 Then
Delay 500
Tap intX, intY
Delay 1200
Goto aa
End If
Next
Goto huan
Rem aa
For 30
FindPic 0,0,0,0,"Attachment:说说.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Delay 500
Tap intX, intY
Delay 2000
goto bb
End If
Next
Goto huan
Delay 1500
Rem bb
Delay 1500
For 30
FindPic 0,0,0,0,"Attachment:没有说说.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Delay 500
Goto huan
End If
FindPic 0,0,0,0,"Attachment:赞.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Delay 500
Tap 295, 223
Delay 3000
Tap 295+90,223
Delay 2000
Call 内容()
Delay 2000
Exit For
End If
FindPic 0,0,0,0,"Attachment:l赞.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Delay 500
Tap 295, 223
Delay 3000
Tap 295+90,223
Delay 2000
Call 内容()
Delay 2000
Exit For
End If
Next
Goto huan
Rem huan
Do
FindPic 0,0,0,0,"Attachment:取消.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Delay 500
Exit Do
Else
KeyPress "Back"
Delay 2000
end if
Loop
Call File.DeleteLine(文件路径, 1) //删除第1行的内容

Next

2#

谢谢分享

3#

支持开源!

4#

学习一下~~

5#

睡觉睡觉手母女哦咯了

6#

学习

7#

自动查找自动

8#

感谢分享







Yeah分享

9#

动查找自动进空间说说自动评论源码

10#

是不是啊,有没有这么厉害

11#

垃圾咯pool

12#

和打飞机同样的看就

13#

学习下 谢谢分享

14#

好好学习 ,天天向上.........

15#

受教了

16#

进来学习学习

17#

找自动进空间说说自动评论源

18#

感谢分享

当年顶风尿十丈,如今顺风尽湿鞋!
19#

谢谢分享

熊家班熊叫兽
20#

看看屋影视

发新话题 回复该主题