网购之家(wgzj.cn)-网购之家福利站

 找回密码
 注册会员
查看: 3276|回复: 14

微信跳一跳代码

[复制链接]

4

主题

14

帖子

465

积分

网购会员

Rank: 2

积分
465
发表于 2018-1-2 12:04 来自手机 | 显示全部楼层 |阅读模式
网购之家活动线报群:427176004 | 点击返回【最新活动】获取实时线报 | 网购之家小编私人微信号:vip445566789

下载按键精灵把下边的代码复制进去保存,打开微信跳一跳,运行软件

Dim ll=0.36'向右跳约束系数
Dim rr=0.38'向左跳约束系数
Dim 跳跃步数=0
Dim 亮点坐标(),小人坐标()

Randomize

Do
KeepCapture
跳跃步数 = 跳跃步数 + 1
亮点坐标 = 寻找亮点()
小人坐标 = 寻找小人()
If 亮点坐标(0) > 0 Then
Call 检测光点(亮点坐标(0), 亮点坐标(1))
Else
Call 按压屏幕()
End If
TracePrint 跳跃步数
Delay 2000 + Int((200 - (-200) + 1) * Rnd() - 200)
Loop

////////思路模块//////////////////////////////////////////////////////
Sub 按压屏幕()
Dim intX=小人坐标(0)
Dim intY=小人坐标(1)
Dim a,b,c,tt,rt
Dim i
Dim k=0.308'向右跳系数
If intX > 0 Then
i=ll
If intX > 540 Then '小人在屏幕右半侧
k = 0.328'向左跳系数
i=rr
End If
a = Abs(intX - 562.25)
b = Abs(intY - 979)
c = (Sqr(a ^ 2 + b ^ 2))
//        TracePrint a,b,c
tt = a / k
tt = 逼近(tt, c, i)
rt=c/tt
TracePrint rt,tt
ShowMessage "没找到点"
Touch 749, 1504, tt
End If
End Sub

Function 逼近(tt, c, i)
        Dim t=tt
        Dim rt=c/t
        Do
                rt=c/t
                If rt > i Then
                        t = t + rt / t
                ElseIf rt < i Then
                         t = t - rt / t
                End If
        Loop Until Abs(rt - i) < 0.00001
        逼近=t
End Function

Sub 检测光点(x,y)
        Dim intX=小人坐标(0)
Dim intY=小人坐标(1)
Dim a,b,c,tt,rt       
a = Abs(intX - x)
b = Abs(intY - y)
        c = (Sqr(a ^ 2 + b ^ 2))
        TracePrint a,b,c
        ShowMessage "找到点了"
        Touch 749, 1504,c*1.393
End Sub

/////////图色模块//////////////////////////////////////////////////////////////
Function 寻找亮点()
        Dim x,y
        FindMultiColor 128, 717, 912, 1142, "F5F5F5","-19|-6|F5F5F5,18|-1|F5F5F5", 0, 1, x, y
//        TracePrint x,y
        If x < 0 Then
                FindMultiColor 128, 717, 912, 1142, "F5F5F5","-19|-5|F5F5F5,19|-3|F5F5F5", 0, 1, x, y
        End If
        If x < 0 Then
                FindMultiColor 128, 717, 912, 1142, "F5F5F5","-17|-9|F5F5F5,18|-3|F5F5F5", 0, 1, x, y
        End If
//        TracePrint x,y
        寻找亮点=array(x,y)
End Function

Function 寻找小人()
        Dim intX,intY
        FindMultiColor 3, 788, 1073, 1513, "613837", "-38|1|492B2B,37|0|51363A,-1|-118|3A3434,0|17|663C36,-1|-156|76484F", 0, 0.95, intX, intY
//        TracePrint intX,intY
If intX < 0 Then        
         FindMultiColor 3, 788, 1073, 1513, "633939", "-37|0|492B2B,37|0|53383C,1|-187|3D3534", 0, 0.9, intX, intY
         TracePrint intX,intY
End If
// TracePrint intX,intY
        寻找小人=array(intX, intY)
End Function


论坛实时热帖榜

扫一扫即可在手机端浏览
网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复

使用道具 举报

0

主题

1117

帖子

-39

积分

网购游客

积分
-39
发表于 2018-1-2 12:04 | 显示全部楼层
网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

0

主题

1116

帖子

-36

积分

网购游客

积分
-36
发表于 2018-1-2 12:04 | 显示全部楼层
网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

0

主题

1723

帖子

-38

积分

网购游客

积分
-38
发表于 2018-1-2 12:04 | 显示全部楼层
我自横田向天笑,笑完我就去睡觉


网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

0

主题

1115

帖子

-33

积分

网购游客

积分
-33
发表于 2018-1-2 12:04 | 显示全部楼层
支持楼主,赞一个


网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

0

主题

1768

帖子

-33

积分

网购游客

积分
-33
发表于 2018-1-2 12:04 | 显示全部楼层
人生有风险,入世需谨慎


网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

0

主题

1664

帖子

-34

积分

网购游客

积分
-34
发表于 2018-1-2 12:05 | 显示全部楼层
我不是随便的人,随便起来不是人


网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

4

主题

14

帖子

465

积分

网购会员

Rank: 2

积分
465
 楼主| 发表于 2018-1-2 12:05 来自手机 | 显示全部楼层
亲测现在1500多分...


网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

0

主题

1775

帖子

-50

积分

网购游客

积分
-50
发表于 2018-1-2 12:05 | 显示全部楼层
网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

6

主题

93

帖子

114

积分

网购会员

Rank: 2

积分
114
发表于 2018-1-2 12:11 | 显示全部楼层
网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复

使用道具 举报

0

主题

29

帖子

634

积分

网购会员

Rank: 2

积分
634
发表于 2018-1-2 12:13 来自手机 | 显示全部楼层
网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复

使用道具 举报

0

主题

19

帖子

14

积分

网购新手

Rank: 1

积分
14
发表于 2018-1-2 12:30 来自手机 | 显示全部楼层
网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复

使用道具 举报

0

主题

27

帖子

424

积分

网购会员

Rank: 2

积分
424
发表于 2018-1-2 12:31 来自手机 | 显示全部楼层
网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

0

主题

6

帖子

3

积分

网购新手

Rank: 1

积分
3
发表于 2018-9-18 15:12 | 显示全部楼层
网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

0

主题

6

帖子

7

积分

网购新手

Rank: 1

积分
7
发表于 2020-3-3 21:41 | 显示全部楼层
网购之家(wgzj.cn)线报原创爆料集散地!【网购之家福利站QQ群:427176004】 网购之家微信公众号:wgzjcn
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

关闭

重要信息提醒上一条 /1 下一条

网购之家 | 关于我们 | 广告合作 | 联系我们 | 客服帮助 | Archiver | 站点统计 | 小黑屋 | 手机版

Copyright © 2012-2019 网购之家www.wgzj.cn版权所有 All Rights Reserved.

网购之家微信公众号:wgzjcn 客服热线:029-68880000 邮箱:wgzjcn@163.com

陕ICP备16015816号-1 工信部备案号:陕ICP备16015816号-1
点击验照

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