自动领取不香了吧，给你们按键精灵脚本吧，可以0点自动刷新那种！

社区服务
高级搜索
猴岛论坛跑跑卡丁车自动领取不香了吧，给你们按键精灵脚本吧，可以0点自动刷新那种！
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
« 返回列表
17个回复

[经验心得]自动领取不香了吧，给你们按键精灵脚本吧，可以0点自动刷新那种！

 楼层直达
苯苯~决绝

ZxID：20680851

等级: 中校
举报 只看楼主 使用道具 楼主   发表于: 2020-02-22 0
欢迎志同道合的小伙伴来群里交流心得
扣扣群 314951712
https://pan.baidu.com /s/153PKycJ2XScbTddxHwCZEQ(删表情)
代码：
Hwnd = Plugin.Window.Find(0, "PopKart Client")
i=0
Do until i=1
系统时间=now
时=hour(系统时间)
分=Minute(系统时间)
If 时 = 21 and 分 = 02 Then
Call a()
Delay 1000
ElseIf 时 = 00 and 分 = 03 Then
Call b()
Delay 1000
ElseIf 时=hour(系统时间)and 分=Minute(系统时间) Then
Call c()
Delay 1000
i = 1
End If
Loop
Sub a
Delay 10000
Call Plugin.Bkgnd.LeftClick(Hwnd, 706, 336)
End Sub
Sub b
Delay 6000
Call Plugin.Bkgnd.LeftClick(Hwnd, 60, 747)
Delay 6000
Call Plugin.Bkgnd.LeftClick(Hwnd, 480, 744)
End Sub
Sub c
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, 129, 745)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, 120, 694)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, 129, 745)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, 120, 694)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, 521, 588)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, 507, 428)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, 557, 593)
End Sub
打赏 收藏 新鲜事

相关主题

回复 引用
　 鲜花[0]　 鸡蛋[0]
苯苯~决绝

ZxID：20680851

等级: 中校
举报 只看该作者 沙发   发表于: 2020-02-22 0
度盘有按键精灵2014+在线挂机脚本，懒人和手残党福音。
游戏官方默认窗口分辨率下运行，请在游戏内按几下f11切换到窗口模式。可在后台最小化模式下运行。
引用
补充内容(2020-03-05 22:44)更新下。18点和21点两个show time自动点击，12点刷新。21：05停止脚本。

Hwnd = Plugin.Window.Find(0, "PopKart Client")
i=0
Do until i=1
    系统时间=now
    时 = hour(系统时间)
    分 = Minute(系统时间)
    If 时 = 20 and 分 = 00 Then
        Call b()
        Delay 1000
    ElseIf 时 = 5 and 分 = 03 Then
        Call d()
        Delay 1000
    ElseIf 时 = 2 and 分 = 02 Then
        Call a()
        Delay 1000
    ElseIf 时 = 5 and 分 = 02 Then
        Call a()
        Delay 1000
    ElseIf 时=hour(系统时间)and 分=Minute(系统时间) Then
        Call c()
        Delay 1000
    End If
    i = 1
Loop
Sub a
    Delay 10000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 706, 336)
End Sub
Sub b
    Delay 6000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 60, 747)
    Delay 6000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 480, 744)
    Delay 6000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 514, 554)
End Sub
Sub c
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 129, 745)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 120, 694)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 129, 745)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 120, 694)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 521, 588)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 507, 428)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 557, 593)
End Sub
Sub d
    Delay 1000
    ExitScript  
End Sub
引用
补充内容(2020-03-05 22:49)Hwnd = Plugin.Window.Find(0, "PopKart Client")
i=0
Do until i=1
    系统时间=now
    时 = hour(系统时间)
    分 = Minute(系统时间)
    If 时 = 12 and 分 = 00 Then
        Call b()
        Delay 1000
    ElseIf 时 = 21 and 分 = 03 Then
        Call d()
        Delay 1000
    ElseIf 时 = 18 and 分 = 02 Then
        Call a()
        Delay 1000
    ElseIf 时 = 21 and 分 = 02 Then
        Call a()
        Delay 1000
    ElseIf 时=hour(系统时间)and 分=Minute(系统时间) Then
        Call c()
        Delay 1000
    End If
    i = 1
Loop
Sub a
    Delay 10000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 706, 336)
End Sub
Sub b
    Delay 6000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 60, 747)
    Delay 6000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 480, 744)
    Delay 6000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 514, 554)
End Sub
Sub c
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 129, 745)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 120, 694)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 129, 745)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 120, 694)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 521, 588)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 507, 428)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 557, 593)
End Sub
Sub d
    Delay 1000
    ExitScript  
End Sub
[ 此帖被苯苯~决绝在2020-03-05 22:49重新编辑 ]
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
JIEARA

ZxID：24085138

等级: 一代君主
举报 只看该作者 板凳   发表于: 2020-02-22 0
多谢分享
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
zhansheng499

ZxID：20232309

等级: 大校
举报 只看该作者 地板   发表于: 2020-02-22 0
感谢分享
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
阿鹏的baby

ZxID：80624040

等级: 禁止发言
举报 只看该作者 4楼  发表于: 2020-02-22 0
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
红河

ZxID：1028709

等级: 上将
举报 只看该作者 5楼  发表于: 2020-02-22 0
回 楼主(苯苯~决绝) 的帖子
这种是不是只适合挂机啊？如果我在游戏中，他也可以后台自动领取吗？
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
‖腾飞の地平线‖

ZxID：58728649

等级: 上校
举报 只看该作者 6楼  发表于: 2020-02-22 0
看不懂呀
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
′silencee288

ZxID：23867536

等级: 上士
大方的大方
举报 只看该作者 7楼  发表于: 2020-02-22 0
66666666666
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
qq2970365

ZxID：1673215

等级: 准尉
举报 只看该作者 8楼  发表于: 2020-02-22 0
怎么下载按键精灵和挂机脚本啊
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
m5208562

ZxID：25286884

等级: 下士
举报 只看该作者 9楼  发表于: 2020-02-22 0
是我眼瞎了吗。。没看到提取码
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
苯苯~决绝

ZxID：20680851

等级: 中校
举报 只看该作者 10楼  发表于: 2020-02-22 0
Re:回 9楼(m5208562) 的帖子
不好意思顶没了，提取码:5314
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
一合巧克力

ZxID：17826456

等级: 中士
举报 只看该作者 11楼  发表于: 2020-02-22 0
大佬厉害了
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
m5208562

ZxID：25286884

等级: 下士
举报 只看该作者 12楼  发表于: 2020-02-23 0
回 10楼(苯苯~决绝) 的帖子
谢谢大佬！
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
天黑了，我想回家

ZxID：72835997

等级: 大尉
举报 只看该作者 13楼  发表于: 2020-02-23 0
666，真香，可以后台。之前自己录制的不能后台的，与这个相比，真是……。
用过这个后，感觉真的太香了。
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
fffffss

ZxID：475686

等级: 列兵
举报 只看该作者 14楼  发表于: 2020-02-26 0
感谢分享
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
qwer1234ty67

ZxID：9730772

等级: 上尉
梦_追忆
举报 只看该作者 15楼  发表于: 2020-02-28 0
太香了~~~
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
anm963

ZxID：26284059

等级: 少校
举报 只看该作者 16楼  发表于: 2020-02-29 0
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
苯苯~决绝

ZxID：20680851

等级: 中校
举报 只看该作者 17楼  发表于: 2020-03-05 0
Re:回 1楼(苯苯~决绝) 的帖子
更新下。18点和21点两个show time自动点击，12点刷新。21：05停止脚本。

Hwnd = Plugin.Window.Find(0, "PopKart Client")
i=0
Do until i=1
    系统时间=now
    时 = hour(系统时间)
    分 = Minute(系统时间)
    If 时 = 12 and 分 = 00 Then
        Call b()
        Delay 1000
    ElseIf 时 = 21 and 分 = 03 Then
        Call d()
        Delay 1000
    ElseIf 时 = 18 and 分 = 02 Then
        Call a()
        Delay 1000
    ElseIf 时 = 21 and 分 = 02 Then
        Call a()
        Delay 1000
    ElseIf 时=hour(系统时间)and 分=Minute(系统时间) Then
        Call c()
        Delay 1000
    End If
    i = 1
Loop
Sub a
    Delay 10000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 706, 336)
End Sub
Sub b
    Delay 6000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 60, 747)
    Delay 6000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 480, 744)
    Delay 6000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 514, 554)
End Sub
Sub c
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 129, 745)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 120, 694)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 129, 745)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 120, 694)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 521, 588)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 507, 428)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 557, 593)
End Sub
Sub d
    Delay 1000
    ExitScript  
End Sub
[ 此帖被苯苯~决绝在2020-03-05 22:49重新编辑 ]
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
« 返回列表
发帖 回复