挂海论坛 › 按键脚本 › 贡献一段交接任务和打怪按键源码，第一次来多多关照

daoke 发表于 2015-8-6 23:02:02

贡献一段交接任务和打怪按键源码，第一次来多多关照

这里面用到了找图，是我在做轩辕的时候写的
Sub 挂机()
b.SetDict 0, App.Path + "\ziku.txt"'字.库
    b.SetPath App.Path + "\data"
    窗口句柄 = b.GetMousePointWindow()
    b.MoveWindow 窗口句柄, -10, 0
    b.BindWindow 窗口句柄, "dx2", "windows", "windows", 0
    Delay 1500
    Call 打怪1
    b.UnBindWindow
End Sub
Sub 交接()
    b.FindPic 0, 0, 2000, 2000, "交付2.bmp", "000000", 0.9, 0, X, Y
    b.MoveTo X, Y
    Delay 1000
    b.LeftClick
    Delay 200
    b.FindPic 0, 0, 2000, 2000, "接受.bmp", "000000", 0.9, 0, X, Y
    b.MoveTo X, Y
    Delay 1000
    b.LeftClick
End Sub
Sub 打怪1()
    Dim I As Integer
      I = 0
    Do
      I = I + 1
         Delay 20
      b.KeyPress vbKeyTab
Delay 20
b.KeyPress vbKey1
Delay 20
b.KeyPress vbKey2
Delay 20
   b.KeyPress vbKey6
   Delay 20
    b.KeyPress vbKey7
         If I = 30 Then Exit Do
      Loop
End Sub

ァ純純欲動╰ 发表于 2015-8-6 23:13:59

我要拿出这帖子奉献给世人赏阅，我要把这个帖子一直往上顶，往上顶!顶到所有人都看到为止!

烟誮濄后… 发表于 2015-8-26 05:34:31

我飘过一下 赚一个海币

heartwwd 发表于 2015-10-8 16:19:50

楼主工作顺利，继往开来！

a869743332 发表于 2015-10-8 17:09:26

我要拿出这帖子奉献给世人赏阅，我要把这个帖子一直往上顶，往上顶!顶到所有人都看到为止!

cz8776009 发表于 2016-12-14 13:50:12

虽然用不到 但是也要支持

查看完整版本: 贡献一段交接任务和打怪按键源码，第一次来多多关照