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

daoke

这里面用到了找图，是我在做轩辕的时候写的
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


联系我时，请说是在 挂海论坛 上看到的，谢谢！

ァ純純欲動╰

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

烟誮濄后…

我飘过一下 赚一个海币

heartwwd

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

a869743332

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

cz8776009

虽然用不到 但是也要支持