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

阅读：416回复：17

- 回复楼主
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
苯苯~决绝 (中校)

楼主 2020-02-22
欢迎志同道合的小伙伴来群里交流心得
扣扣群 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
分享
倒序阅读只看楼主

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
苯苯~决绝 (中校)

沙发 2020-02-22

度盘有按键精灵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重新编辑 ]

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
JIEARA (一代君主)

板凳 2020-02-22

多谢分享

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
zhansheng499 (大校)

地板 2020-02-22

感谢分享

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
阿鹏的baby (禁止发言)

4楼 2020-02-22

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
红河 (上将)

5楼 2020-02-22

回楼主(苯苯~决绝) 的帖子

这种是不是只适合挂机啊？如果我在游戏中，他也可以后台自动领取吗？

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
‖腾飞の地平线‖ (上校)

6楼 2020-02-22

看不懂呀

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
′silencee288 (上士)

7楼 2020-02-22

66666666666

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
qq2970365 (准尉)

8楼 2020-02-22

怎么下载按键精灵和挂机脚本啊

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
m5208562 (下士)

9楼 2020-02-22

是我眼瞎了吗。。没看到提取码

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
苯苯~决绝 (中校)

10楼 2020-02-22

Re:回 9楼(m5208562) 的帖子

不好意思顶没了，提取码:5314

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
一合巧克力 (中士)

11楼 2020-02-22

大佬厉害了

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
m5208562 (下士)

12楼 2020-02-23

回 10楼(苯苯~决绝) 的帖子

谢谢大佬！

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
天黑了，我想回家 (大尉)

13楼 2020-02-23

666，真香，可以后台。之前自己录制的不能后台的，与这个相比，真是……。
用过这个后，感觉真的太香了。

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
fffffss (列兵)

14楼 2020-02-26

感谢分享

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
qwer1234ty67 (上尉)

15楼 2020-02-28

太香了~~~

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
anm963 (少校)

16楼 2020-02-29

- 回复
- 发消息
- 举报
- 使用道具
- 加好友
- 引用
- 收藏
苯苯~决绝 (中校)

17楼 2020-03-05

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重新编辑 ]

点击查看更多