用按键精灵实现单手挖宝的源码
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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
dm.keypress 84
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
dm.moveto 682,406
Delay 100
dm.LeftDown
Delay 500
dm.LeftUp
Delay 50
dm.moveto 682,400
Delay 100
dm.LeftDown
Delay 500
dm.LeftUp
Delay 50
dm.moveto 682,406
dm.LeftDown
Delay 500
dm.LeftUp
Delay 50
dm.moveto 682,404
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
dm.keypress 71
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