找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 19662|回复: 17

[教程源码] 天天跑酷送心源码

[复制链接]

18

主题

48

回帖

104

积分

按键电脑&手机班学员

紫猫助手

鲜花
0
猫粮
494
QQ
发表于 2018-5-22 13:29:08 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
本帖最后由 ycploveyu 于 2018-5-22 13:31 编辑

本次分享,是因为新手很多人对,滑动,循环登陆不太了解,
这次源码我没做太多的优化,可能还存在一些小问题,如果大家
觉得那里要改进的,可以在下方留言,给大家参考.

[按键精灵] 纯文本查看 复制代码
/***********
*版本:V10.0
*分辨率:600*1024
*游戏名:天天酷跑→QQ登陆帐号
*功能:自动切换号+循环送心
*作者:稻草人(Alan)
*开发时间:2015/12/5-2015/12/7
***********/
ShowMessage "正式版开始"
Import "LuaArray.lua" '调用Lua插件
'初始化主程序要用的变量
Sub ini
    Dim ret
    i = 0
    a = 0
    c = 0
End Sub
/**************************↓以下是用户定义变量***********************************/
Dim IntX,IntY,i1
Dim 确定,排行,炫飞,拇指,关闭,返回,菜单,不发送,划动距离,登入QQ,QQ帐号,QQ密码,登录界面,设置,下一页,退出登录,上一页
Dim 帐号切换,添加帐号,QQ号,密码,最后登录,极速不发送,领取奖励,确定奖励,手机验证,返回添加帐号,公告返回
Dim 颜色差值,颜色值,颜色值1,皇冠,正在获取,正在登陆,确定每日奖励,返回确定奖励
Dim SNs,Key

/********************用户定义数组*************************/
/*↓↓↓↓↓↓↓↓↓↓↓↓↓以下是多点找色数组↓↓↓↓↓↓↓↓↓↓↓↓↓*/
炫飞 = Array(474,732,514,858, "AA510D","-9|3|A9590D,-6|10|BA690F,4|22|E39E0E,-2|35|87440D,-11|49|803F0D,1|58|C4740C,6|66|95520F,-9|85|F6A00A,-9|93|D1800A", "炫飞",1)
拇指 = Array(43,773,438,846, "5B50F6","9|6|B59AFE,-11|5|3132B9,-18|3|A46C2B,-1|21|F5CC9C,-6|21|8EF0FD,-17|11|5DC4D1,-16|25|8DF2FF,-24|19|15CDFF,-30|22|028FE4", "拇指",0)
菜单 = Array(5,75,65,136,"FFFDEA","10|-10|FFCD6D,12|1|FFC445,7|10|E28315,3|11|C06213,-7|11|FCF3BA,-7|0|E47F1B,-12|-3|F59A20,-9|-14|CA8738,2|-14|DE8338","菜单",0)
登入QQ = Array(34,541,99,784, "35282B","3|28|252292,5|67|FFFDE7,1|111|CA8F51,5|133|D7A36B,3|159|A96121", "与qq好友玩",0)
正在获取 = Array(130,134,473,188, "E4E2E1","33|3|CBC9C6,87|1|464037,118|2|899494,174|10|696A70,241|7|E2E3E3","正在获取",1)
正在登陆 = Array(162,135,445,182, "898989","13|-7|D0D0D0,51|-12|373737,90|0|9D9D9D,115|-5|292929,166|-1|8D8D8D","正在登陆",1)
确定每日奖励  = Array(47,392,126,613, "12C0EA","13|23|053380,9|48|3ABEE2,-20|65|45CAF8,-6|75|05428C,0|75|13CBF2","确定每日奖励",0)
退出登录 = Array(175,717,221,867, "0F64EB","-2|28|DFE8FB,-2|54|2A61E3,-18|55|FFFFFF,-4|66|FFFFFF,-11|80|0551EB", "退出登录",0)
返回确定奖励= Array(25,435,72,601, "00B9F0","-5|36|00ABEF,4|62|0376B3,7|74|07ABDC,3|84|01C2F0,-4|101|00B1F3", "返回确定奖励",0)
帐号切换 = Array(481,53,596,92,"FAD674","20|0|F6B80D,30|-5|FDEDC1,44|-5|F7C231,62|0|FAD776,75|4|F6B80D", "帐号切换",0)

添加帐号=Array(8,237,150,1006,"ECC865","26|-2|E2AD17,53|-2|E9BF4B,70|7|E3AE1A,83|-3|EFD17E,91|-5|FCF5E3","添加帐号",0)
QQ号=Array(10,142,219,197,"929292","19|-1|FFFFFF,61|-1|969696,109|12|CDCDCD,150|3|A5A5A5,176|2|A7A7A7","QQ号",0)
密码=Array(11,213,145,261,"DDDDDD","7|6|B5B5B5,22|14|D3D3D3,29|12|ADADAD,37|6|929292,40|17|FFFFFF","密码",0)
最后登录=Array (115,332,415,395,"F3BA1F","13|-3|FFFCF3,39|4|F7D066,54|7|FEF5DF,61|7|F7D16B,60|3|FFFFFF","最后登录",0)

不发送=Array(75,263,124,402,"FFFFFF","-9|18|053380,-23|20|85A1C5,-21|35|6586B4,-26|57|5F80B0,-9|59|053380,-22|66|1C478D,-35|75|053380,-5|85|7591BB,-27|105|486BA3","不发送",0)
确定 = Array(30,473,60,547, "036BAC","-6|0|018AC9,5|5|043F89,12|10|063D86,10|19|20EBFB,-5|37|0282C2,5|40|043481,10|41|043480,2|49|04599D,9|58|095C9C", "确定",0)
排行 = Array(13,278,59,399, "DEBF8A","1|21|8EC3FC,4|37|EADABB,0|62|B78C4E,10|71|CA9E15,4|88|E8D2AF","排行",0)
关闭=Array(545,910,589,957,"012FD4","10|5|EBF5FF,13|13|739DEF,-5|16|052E93,-6|19|2D58B1,13|20|709BEF,5|18|D8EDFF,13|29|F7FCFF,-2|29|3E62D3,11|31|2A64DB","关闭",0)
下一页 = Array(45,400,190,449, "C08C57","8|-10|FFF4E6,-12|-6|FFD8AA,-7|7|FFDFB9,-1|18|EAD6C3,3|8|E9CAAA,4|0|CEA172,-7|-1|B48149,-2|5|EAC8A3,-12|13|F0C99F", "下一页",0)
上一页=Array(252,400,435,548,"BF8B55","13|-3|FFF5EB,7|4|DCB68F,-1|9|C18E58,2|20|E7CEB8,9|35|C2B7B2,6|57|D2BFB9,8|79|F5F4F3,5|83|B19E94,14|81|D9C9C1","上一页",0)
返回 = Array(529,73,596,141, "FFF9DC","11|-7|F18A11,-5|-10|CCA06C,-11|-3|DCBB7D,-10|2|FFF4B7,-2|20|EAD4A6,9|15|F6980F,8|4|AF6615,5|2|B97B36,-14|-2|B75006", "返回",0)
公告返回 = Array(515,82,595,143, "FFFBDC","-10|-1|D55404,-4|17|AC7B1E,4|20|F48F13,7|10|D18307,8|-1|F18304", "公告返回",0)
'领取奖励 = Array(420, 509, 593, 562, "104fa7-444444", "领取奖励")
设置 = Array(91,374,202,457, "FFEFC6","25|-5|DBCEBA,27|4|FFFFFF,17|8|F3DBA5,-1|11|F3D286,-26|-23|F1E7CD,-36|-12|E1CC8C,-22|18|E9DAC7,-33|13|E4D098,-35|20|E6D297", "设置",0)
领取奖励 = Array(23,431,69,598,"02B0E0","13|10|24B9D8,11|18|085295,3|52|068CC4,15|58|24A8CD,1|63|043581","领取奖励",0)
确定奖励=Array (40,383,143,640,"02B0E0","13|10|24B9D8,11|18|085295,3|52|068CC4,15|58|24A8CD,1|63|043581""确定奖励",1) 
手机验证=Array(14,97,103,134,"E4B020","-32|-10|F4DEA3,-39|0|E0A500,-21|2|E0A500,-17|0|FFFFFF,-9|4|EAC254,2|-1|EBC65D,9|-2|E0A500,19|-8|E8BE47,23|3|EBC55B","手机验证",1)
返回添加帐号=Array(5,29,98,68,"F8CC53","-35|-10|F9D46F,-40|6|F5B712,-23|-5|FAD571,-18|-1|FAD777,-12|4|F6BD1E,4|-2|F7C12C,7|1|FADB85,16|-1|F9CF5A,18|6|F9D267","返回添加帐号",0)
皇冠=Array(396,865,441,889,"FFD668","9|-1|FFD668,11|1|E4BC5F,10|3|CE9F58,-15|-2|E8BD60,8|-1|FFD668,-13|3|E9BF61,-8|-2|FFD668","皇冠",1)

划动距离 = Array(423,850,68,850)
极速不发送 = Array(98, 337)  '不发送坐标点.
//========================UI界面设置================================//
RunApp "com.tencent.pao"
ini 
SNs = ReadUIConfig("SN")
Key = ReadUIConfig("Key")
//***************************调试区********************************//

天天酷跑.mqb

23.86 KB, 下载次数: 155, 下载积分: 猫粮 -2

源码

评分

参与人数 2猫粮 +10 收起 理由
何为人生 + 5 谢谢分享
紫猫 + 5 很给力!

查看全部评分

楼主热帖
承接PC版插件定制,Office办公软件辅助,网页相关[Post,Get]软件定制,网页批量注册或采集功能定制.等,点击我>>>租售网络授权验证系统!

18

主题

48

回帖

104

积分

按键电脑&手机班学员

紫猫助手

鲜花
0
猫粮
494
QQ
 楼主| 发表于 2018-5-22 13:31:28 | 显示全部楼层
本帖最后由 ycploveyu 于 2018-5-22 13:33 编辑

[按键精灵] 纯文本查看 复制代码
////////////////////////////以下测试区为true说明成功找到////////////
//TracePrint "帐号:",SNs
//TracePrint "密码:",key
'TracePrint 判断数组(确定)
//TracePrint 判断数组(排行)
//TracePrint 判断数组(炫飞)
//TracePrint 判断数组(拇指)
//TracePrint 判断数组(关闭)
//TracePrint 判断数组(下一页)
//TracePrint 判断数组(上一页)
//TracePrint 判断数组(返回)
//TracePrint 判断数组(公告返回)
//TracePrint 判断数组(菜单)
//TracePrint 判断数组(不发送)
//TracePrint 判断数组(登入QQ)
//TracePrint 判断数组(正在获取)
//TracePrint 判断数组(正在登陆)
//TracePrint 判断数组(设置)
//TracePrint 判断数组(退出登录)
//TracePrint 判断数组(返回确定奖励)
//TracePrint 判断数组(帐号切换)
//TracePrint 判断数组(添加帐号)
//TracePrint 判断数组(QQ号)
//TracePrint 判断数组(密码)
//TracePrint 判断数组(最后登录)
//TracePrint 判断数组(领取奖励)
//TracePrint 判断数组(确定奖励)
//TracePrint 判断数组(确定每日奖励)
//TracePrint 判断数组(手机验证)
//TracePrint 判断数组(返回添加帐号)
//TracePrint 判断数组(皇冠)
//TracePrint luaarray.ubound(Split(SNs, ","))
//TracePrint luaarray.ubound(下一页)
//TracePrint 帐号分解(0)
//TracePrint "你选择的速度是:  ",speed()/2
//TracePrint 帐号分解(0)
//EndScript
//
/////////////////////////主程序///////////////////////////////  
  Dim i,b,x1,y1,a,c,t1,t2          
Do
    t1 = TickCount()               //↓↓↓↓↓↓以下是【以下是App运行后与进入关心界面环节】↓↓↓↓↓↓
    If 判断数组(登入QQ) = True Then                                                 
    ElseIf 判断数组(帐号切换) = True Then
    ElseIf 判断数组(添加帐号) = True Then 
    ElseIf 判断数组(QQ号) = True Then 
        InputText 帐号分解(i)
        Delay 1000
        If 判断数组(密码) = True Then 
            InputText Key
        End If 
        If 判断数组(最后登录) = True Then 
            Delay 2000
        End If
    ElseIf 判断数组(正在获取) = True Then
        KeyPress "Back"
   
    ElseIf 判断数组(领取奖励) = True Then         	          
    ElseIf 判断数组(确定奖励) = True Then
    ElseIf 判断数组(确定每日奖励) = True Then
    ElseIf 判断数组(确定) = True Then 
    ElseIf 判断数组(关闭) = True Then
    ElseIf 判断数组(公告返回) = True Then
    
    ElseIf 判断数组(排行) = True Then                               //↑↑↑↑↑↑↑以上是【以上是App运行后与进入关心界面环节】↑↑↑↑↑↑↑
    ElseIf 判断数组(炫飞) = True Then                                    //↓↓↓↓↓↓以下是【以下是送心环节】 ↓↓↓↓↓↓
        do
            触屏划动 划动距离, 2
            c = c + 1
            Delay 100         
        Loop Until c = 3
        c = 0
        ShowMessage "送心开始"
        Delay speed()
        Do    
            If 判断数组(拇指) = True Then 
                颜色值 = GetPixelColor(95, 681, 0)
                TracePrint speed()
                Delay speed()
                颜色值1 = GetPixelColor(95,681, 0)
                颜色对比 
                b=b+1
                a=0
            ElseIf 判断数组(上一页) = True Then
                a=0
                Delay speed()
            ElseIf 判断数组(不发送) = True Then 
                触屏数组 (极速不发送)
                b=b+1
                ShowMessage "网络或安卓设备运行比较慢,建议清除缓存"
            ElseIf 判断数组(炫飞) = False Then
                If 判断数组(返回) = True Then
                End If
            Else
                'TracePrint "我要划动了"
                触屏划动 划动距离, 1
                If 判断数组(皇冠) = True
                    a = a + 1
                End If                
                Delay speed()/2
            End If
            Delay speed()/2
        Loop Until a > 1
        t2 = TickCount()
        ShowMessage "QQ号:"&帐号分解(i)&"送心耗时" & ((t2 - t1) / 1000) & "秒,共送"&b&"位好友"
        TracePrint "QQ号:"&帐号分解(i)&"送心耗时" & ((t2 - t1) / 1000) & "秒,共送"&b&"位好友"
        a = 0
        b = 0
        If 判断数组(返回确定奖励) = True Then 
        End If
        Do                                   //↑↑↑↑↑↑↑以上是【以上是送心环节】↑↑↑↑↑↑↑
            If 判断数组(退出登录) = True Then 
                i = i + 1
                Exit Do 
            ElseIf 判断数组(设置) = True Then
                Delay 1000
            ElseIf 判断数组(菜单) = True Then
                Delay 1000
            ElseIf 判断数组(返回) = True Then                               //↓↓↓↓↓↓以下是【以下是切换帐号环节】↓↓↓↓↓↓
                触屏点击                     
            End If
        Loop 
    Else 
        //        If 判断数组(手机验证) = True Then 
        //            If 判断数组(返回添加帐号) = True Then 
        //            End If
        //        End If
        TracePrint"正在登陆"
        Delay 3000
        If 判断数组(正在登陆) = True Then 
        	
            TracePrint"检测正在登陆"
            KeyPress "Back"
        End If 
    End If                                                        //↑↑↑↑↑↑↑以上是【以上是切换帐号环节】↑↑↑↑↑↑↑                                                 
    //    If i = luaarray.ubound(Split(SNs, ",")) Then                   //↓↓↓↓↓↓以上是【以下的是判断登入第几个号】↓↓↓↓↓↓
    //        ShowMessage "测式版结束"
    //        Delay 3000
    //        EndScript
    //    End If   
    If i = luaarray.ubound(Split(SNs, ",")) Then                   //↓↓↓↓↓↓以上是【以下的是判断登入第几个号】↓↓↓↓↓↓
        i = 0
    End If                                                       //↑↑↑↑↑↑↑以上是【以上的是判断登入第几个号】↑↑↑↑↑↑↑
loop 
EndScript
/*******************************调用子程序*****************************/
承接PC版插件定制,Office办公软件辅助,网页相关[Post,Get]软件定制,网页批量注册或采集功能定制.等,点击我>>>租售网络授权验证系统!

18

主题

48

回帖

104

积分

按键电脑&手机班学员

紫猫助手

鲜花
0
猫粮
494
QQ
 楼主| 发表于 2018-5-22 13:33:24 | 显示全部楼层
[按键精灵] 纯文本查看 复制代码
/*******************************调用子程序*****************************/
//速度调节
Function speed()
    speed=1000
    If ReadUIConfig("speed")=0 then   '快
        speed=500
    ElseIf ReadUIConfig("speed")=1 then  '中速
        speed=800
    ElseIf ReadUIConfig("speed")=2 then   '低速
        speed=1500
    End if
End Function
Function 触屏点击()   
    Tap intX, intY
    Delay 100
End Function

Function 触屏数组(数组特征)
    Dim arr()
    arr=数组特征
    Tap arr(0), arr(1)
    Delay 10
End Function

Function 帐号分解(i)
    Dim SN
    SN = Split(SNs, ",")
    帐号分解 = SN(i)
End Function

Sub 触屏划动(数组特征,mode)
    Dim arr()
    arr=数组特征
    If mode = 1 Then 
        TouchDown arr(0),arr(1),1
        TouchMove arr(2),arr(3)-5,1
        Delay 600
        TouchUp 1
        Delay 200
    ElseIf mode = 2 Then  
        TouchDown arr(2),arr(3)-5,2
        TouchMove arr(0),arr(1),2
        TouchUp 2
        Delay 200
    End If
End Sub

Function 颜色对比()
    颜色对比=False
    Dim 颜色差值
    颜色差值 = ColorDiff(颜色值, 颜色值1)
    TracePrint "两个颜色差值为:" & 颜色差值
    If 颜色差值 > 0 Then 
        触屏数组(极速不发送)
        颜色对比=True
    End If
End Function

//注释:倒数最2个参数,1为调试输出.0为不输出

Function 判断数组(数组特征)
    判断数组=False
    Dim arr()
    arr = 数组特征
    Delay 50
    If luaarray.ubound(数组特征) = 6 Then 
        If FS(arr(0), arr(1), arr(2), arr(3), arr(5), arr(4), 1, arr(5)) = True Then 
            判断数组=True
        End If
    ElseIf luaarray.ubound(数组特征) = 8 Then  
        If FC(arr(0), arr(1), arr(2), arr(3), arr(4), arr(5), 1, arr(6),arr(7)) = True Then 
            判断数组=True
        End If    
    End If
End Function

//FSex是找字封包

Function FSex(x, y, x1, y1, fonst, colous, hint, answer)
    Dim ret
    FSex=False
    ret = FindStr(x, y, x1, y1, fonst, colous, 0.9, intX, intY)
    Delay 100
    If ret > -1 Then 
        FSex = True
        If hint = 1 Then 
            TracePrint "为你找到了",answer
        End If
    End If
End Function

//FCex是多点找色封包

Function FCex(x, y, x1, y1, BBGGRR, cols, hint, answer,mode)
    Dim intX,intY
    FCex=False 
    FindMultiColor x, y, x1, y1,BBGGRR,cols,0,0.9,intX,intY
    If intX>-1 And intY>-1 Then 
        FCex = True          
        If mode = 0 Then
            Tap intX, intY
            If hint = 1 Then 
                TracePrint "为你找到了",answer
            End If
        End If
    End If
End Function

/*************************自定义固定模块组合应用************************/
Function FS(x, y, x1, y1, fonst, colous, hint, answer)
    Fs=FSex(x, y, x1, y1, fonst, colous, hint, answer)
End Function

Function FC(x, y, x1, y1,BBGGRR,cols,hint, answer,mode)
    FC=FCex(x, y, x1, y1,BBGGRR,cols,hint, answer,mode)
End Function
/***********************以上固定模块自己分析*****************************/

/*=====================================================以下是运行思路================================================

先运行酷跑App组件
【以下是App运行后与进入关心界面环节】
1、触摸各种弹窗口中的(确定、关闭......)
2、进入游戏界面后,直接找到排行并触摸
3、进入排行后,查找炫飞字样(证明已进入关心界面)
4、如果找到触摸,进入送心环节
【以下是送心环节】 
1、如果找到拇指,(a、查找不发送位置任何一点中的颜色,并保存。b、然后触摸,触摸后再次查找位置任何一点中的颜色,并保存。)
2、进行a与b的颜色差值,如果大于0 则触摸不发送位置任何一点。(突出事件处理:1、不发送界面:特点:没拇指,这时要精确找不发送字样。2、点错弹出界面:没炫飞字样,没不发送字样,判定点错,则触摸返回)
3、循环找拇指直到不存在时启动划屏操作,(a、重复1、2步操作。b、如果划动后还是不存在,但查找到上一页字样,则触摸。c、划动三次后,a,b操作都为假时,判定为送心完毕)
4、跳出关心环节
【以下是切换帐号环节】 
1、跳出后直接查找打开菜单按钮,找到并触摸
2、查找设置字样并触摸
3、查找退出帐号字样并触摸
4、查找到与QQ好友玩并触摸
5、查找到切换帐号字样并触摸
6、查找到添加帐号字样并触摸
7、查找到QQ帐号\手机号\邮箱并触摸,然后读取UI界面中的QQ号帐号,并输入
8、查找到密码,然后读取UI界面中的QQ号密码,并输入
9、查找到确定按钮并触摸
10、重复以上依次所有操作

==================================================== 思 路 完 结=========================================================*/
承接PC版插件定制,Office办公软件辅助,网页相关[Post,Get]软件定制,网页批量注册或采集功能定制.等,点击我>>>租售网络授权验证系统!

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
0
发表于 2018-5-23 15:53:25 | 显示全部楼层
少时诵诗书所

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
0
发表于 2018-5-24 15:38:50 | 显示全部楼层
感觉不错 ,看看

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
2
发表于 2018-6-2 22:56:24 | 显示全部楼层
666666666666

0

主题

1

回帖

1

积分

按键电脑&手机班学员

鲜花
0
猫粮
24
发表于 2018-6-12 09:21:51 | 显示全部楼层
JNCNOP90999

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
2
发表于 2018-10-2 09:27:46 | 显示全部楼层
好的  谢谢  我需要

1

主题

2

回帖

4

积分

学前班

鲜花
0
猫粮
7
发表于 2018-10-25 13:49:40 | 显示全部楼层
学习了,谢谢

0

主题

21

回帖

21

积分

学前班

鲜花
0
猫粮
11
发表于 2019-7-12 06:46:17 | 显示全部楼层
bound(数组特征) = 8
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2024-10-12 11:53

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表