|
本帖最后由 wizard 于 2017-12-5 22:53 编辑
- ///////////////////////////////////////////////////////下面参数自己设///////////////////////////////////////////////////////
- //要打几坑就写几,本例中写的是2
- Dim tk
- tk=2
- //x y 是标准24人坑中心坐标 可以设5个(一国钱坑最多5个)
- Dim x(5)
- x(1) = 31
- x(2) = 31
- x(3) = 11
- x(4) = 17
- x(5) = 11
- Dim y(5)
- y(1) = 36
- y(2) = 76
- y(3) = 36
- y(4) = 84
- y(5) = 36
- //商店的地址码,SD(1)对应 X1,Y1
- Dim sd(5)
- sd(1) = 1703973
- sd(2) = 1835085
- sd(3) = 524324
- sd(4) = 983126
- sd(5) = 524324
- /////////////////////自定义部分结束,下面的除了帐号密码外其他全部不要改/////////////////////
- Dim fz
- fz = 3
- Dim j
- Dim Hwnd
- Dim a(24)
- Sub mob
- a(1) = x(j) * 65536 + y(j) + 131081
- a(2) = a(1) + 65537
- a(3) = a(1) - 327680
- a(4) = a(1) - 327679
- a(5) = a(1) - 16
- a(6) = a(1) + 65519
- a(7) = a(1) - 327697
- a(8) = a(1) - 458751
- a(9) = a(1) - 393233
- a(10) = a(1) - 393232
- a(11) = a(1) - 393215
- a(12) = a(1) - 393216
- a(13) = a(1) + 65520
- a(14) = a(1) + 131055
- a(15) = a(1) + 65536
- a(16) = a(1) + 131073
- a(17) = a(1) + 131056
- a(18) = a(1) + 131072
- a(19) = a(1) + 196609
- a(20) = a(1) + 196591
- a(21) = a(1) - 458768
- a(22) = a(1) - 458769
- a(23) = a(1) - 458752
- a(24) = a(1) - 327696
- End Sub
- Dim u(8)
- Sub item
- //正上
- u(1) = x(j) * 65536 + y(j) - 2
- //右上
- u(2) = u(1) + 1
- //正右
- u(3)=u(1)+65538
- //右下
- u(4) = u(1) + 3
- //正下
- u(5) = u(1) + 4
- //左下
- u(6) = u(1) - 65533
- //正左
- u(7) = u(1) - 65534
- //左上
- u(8) = u(1) - 65535
- End Sub
- Sub pan
- f = HOUR(now)
- g = minute(now)
- If f=07 and g>=02 and g<=05
- Goto reconect
- Else
- End If
- Delay 1000
- End Sub
- Sub star
- Delay 200
- Call Plugin.Bkgnd.SendString(Hwnd, "run "&x(j)&","&y(j))
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 10000
- End Sub
- Sub sha
- For 7
- For 6
- Call Plugin.Bkgnd.SendString(Hwnd, "cast mind_blast on")
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 300
- Next
- Delay 5500
- Next
- Call pan
- End Sub
- Sub jian
- Dim z
- For z = 1 To 3
- Call Plugin.Bkgnd.SendString(Hwnd, "get ALL_ITEM_IN "&u(z))
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 300
- Next
- Call Plugin.Bkgnd.SendString(Hwnd, "look 1@"&sd(j))
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 300
- For t = 1 To fz * 4
- Call Plugin.Bkgnd.SendString(Hwnd, "sell 1")
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 300
- Next
- For z = 4 To 6
- Call Plugin.Bkgnd.SendString(Hwnd, "get ALL_ITEM_IN "&u(z))
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 300
- Next
- Call Plugin.Bkgnd.SendString(Hwnd, "look 1@"&sd(j))
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 300
- For t = 1 To fz * 4
- Call Plugin.Bkgnd.SendString(Hwnd, "sell 1")
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 300
- Next
- For z = 7 To 8
- Call Plugin.Bkgnd.SendString(Hwnd, "get ALL_ITEM_IN "&u(z))
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 300
- Next
- Call Plugin.Bkgnd.SendString(Hwnd, "look 1@"&sd(j))
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 300
- For t = 1 To fz * 4
- Call Plugin.Bkgnd.SendString(Hwnd, "sell 1")
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 300
- Next
- End Sub
- Sub kill
- Dim i
- For i = 1 To 24
- Delay 1000
- Call Plugin.Bkgnd.SendString(Hwnd, "kill "&a(i))
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 400
- If i = 8 Then
- Call sha
- Call jian
- End If
- If i = 16 Then
- Call sha
- Call jian
- End If
- If i = 24 Then
- Call sha
- Call jian
- End If
- Next
- End Sub
- Rem window
- Delay 1000
- Hwnd = Plugin.Window.MousePoint()
- Delay 1000
- Call Plugin.Window.SetText(Hwnd, "咒术师打坑")
- Delay 1000
- Goto start
- Rem start
- For j = 1 To TK
- Delay 1000
- Call star
- Delay 1000
- Call mob
- Delay 1000
- Call item
- Delay 1000
- Call kill
- Delay 1000
- Next
- Goto start
- Rem reconect
- Call Plugin.Window.Active(Hwnd)
- Delay 5000
- Call Plugin.Window.Restore(Hwnd)
- Delay 20000
- MoveTo 1091, 701
- Delay 3000
- LeftClick 1
- Delay 5000
- MoveTo 1173, 724
- Delay 3000
- LeftClick 1
- Delay 5000
- Call Plugin.Bkgnd.SendString(Hwnd, "你的帐号")
- Delay 3000
- Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
- Delay 3000
- Call Plugin.Bkgnd.SendString(Hwnd, "你的密码")
- Delay 3000
- Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
- Delay 3000
- MoveTo 1151, 774
- Delay 3000
- LeftClick 1
- Delay 3000
- MoveTo 1158, 782
- Delay 3000
- LeftClick 1
- Delay 3000
- Call Plugin.Window.Min(Hwnd)
- Delay 60000
- Goto start
复制代码 代码仍然是借鉴@张容恺的代码思路
然后进行了改良
本代码可供咒术师打1~5坑(自定义)钱坑
根据刚才的测试,效率相当滴高。
已经修复了所有BUG
大概4分钟多一点就可以打完一坑,完美支持2坑的高效挂坑~
注:因为我目前不会使用那个相对鼠标坐标,所以这个代码的断线重连功能只能在1920*1080的分辨率下使用 |
|