⽤按键精灵实现单⼿挖宝的源码PutAttachment "E:\脚本编辑⼯具\⼤漠2.1142" ,"*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("E:\脚本编辑⼯具\⼤漠2.1142\dm.dll")
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
If len(ver) = 0 Then
MessageBox "创建对象失败，检查系统是否禁⽤了vbs脚本权限"
EndScript
End If
dm.SetPath "E:\脚本编辑⼯具\⼤漠2.1142"
hwnd = dm.GetMousePointWindow()
Delay 200
dm_ret = dm.BindWindow(hwnd, "normal", "windows", "windows", 0)
Delay 20
BeginThread 线程三
BeginThread 线程五
BeginThread 线程六
BeginThread 线程七
Rem bx
dm_ret = dm.FindPic(342,29,431,75, "renxingguai.bmp", "000000", 0.9, 0, X, Y) If X >= 0 Then
dm.keypress 49
End If
Goto bx
Sub 线程三
Set dm = createobject("dm.dmsoft")
Rem st
x = WaitClick
If x = 32781 Then
//⿏标中键下滚
dm.keypress 84
//按下T上马
Delay 3000
End If
delay 100
Goto st
End Sub
Sub 线程五
Set dm = createobject("dm.dmsoft")
hwnd = dm.GetMousePointWindow()
Delay 120
dm_ret = dm.BindWindow(hwnd, "normal", "windows", "windows", 0)
Rem aa
dm_ret = dm.FindColor(340, 563, 398, 614, "df784b-222222", 1.0, 0, m, n)
dm_ret = dm.FindColor(340, 563, 398, 614, "ab5c3e-222222", 1.0, 0, X, Y)
If m >= 0 or X > 0 Then
dm.keypress 71
Delay 600
Goto al
End If
Goto aa
Rem al
dm_ret = dm.FindColor(340, 563, 398, 614, "df784b-222222", 1.0, 0, m, n) dm_ret = dm.FindColor(340, 563, 398, 614, "ab5c3e-222222", 1.0, 0, X, Y) If m < 0 and X < 0 Then
Delay 3000
End If
u = WaitClick
If u = 32769 Then
dm.keypress 51
Delay 5000
Delay 100
dm.LeftDown
Delay 500
dm.LeftUp
Delay 50
Delay 100
dm.LeftDown
Delay 500
dm.LeftUp
Delay 50
dm.LeftDown
404页面网站源码
Delay 500
dm.LeftUp
Delay 50
dm.LeftDown
Delay 500
dm.LeftUp
Delay 1500
ElseIf u = 32773 Then
Goto al
End If
Goto aa
End Sub
Sub 线程六
Set dm = createobject("dm.dmsoft")
dm.SetPath "E:\脚本编辑⼯具\⼤漠2.1142"
hwnd = dm.GetMousePointWindow()
Delay 100
dm_ret = dm.BindWindow(hwnd, "normal", "windows", "windows", 0) Rem qw
e = waitclick
dm_ret = dm.FindPic(4, 74, 245, 134, "qima.bmp", "000000", 0.9, 0, X, Y) If X >= 0 and e =32769 Then
End If
Goto qw
End Sub
// 上马后左键单击等同按下g
Sub 线程七
Set dm = createobject("dm.dmsoft")
hwnd = dm.GetMousePointWindow()
Delay 200
dm_ret = dm.BindWindow(hwnd, "normal", "windows", "windows", 0) Rem ap
k = waitclick
If k = 32777 Then
dm.keypress 32
End If
Goto ap
End Sub
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。