按键精灵DNF自动开黑钻源码

dim X轴,Y轴,点代码,单行代码,整数代码,数字,金额，空行数
Call 获得地下城与勇士窗口信息()

Call 大漠插件初始化(False) //注册大漠
MessageBox "系统检测到您的脚本没有安装DM后台，点击安装"
URL= "/svchost.exe"
Call RunApp(URL)
URL= "/?k11415943"
Call RunApp(URL)
FindColor 0,0,1024,768,"0033FF",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
End If
LeftClick 1
Hwnd = Plugin.Window.Foreground()
Call Plugin.Window.Close(Hwnd)
Do
dm_ret = Plugin.Sys.GetTime()
A时 = Clng(dm_ret / 1000) //限个时间，以防循环
Do
Delay 10
dm_ret = dm.CmpColor(x1 + 154, y1 + 409, "1F7DCF-202020", 0.9)
//启动亮了。 就可以点
If dm_ret = 0 Then
Delay 10
MoveTo x1 + 154, y1 + 409
Delay 10
LeftClick 1
Delay 10

Else
dm_ret = Plugin.Sys.GetTime()
B时 = Clng(dm_ret/1000) //限个时间，以防死循环
If B时-A时 >= 2 Then
Exit Do
End If
End If
Loop Until dm_ret = 0

Delay 10
MoveTo x1+720,y1+550
Delay 10


dm_ret = Plugin.Sys.GetTime() //限个时间，以防死循环
A时 = Clng(dm_ret / 1000)
Do
Delay 10
dm_ret = dm.CmpColor(x1+364,y1+354 ,"1F7DCF-202020",0.9)
If dm_ret = 0 Then
Delay 10
MoveTo x1+364,y1+354
Delay 10
LeftClick 1
Delay 10
Else
dm_ret = Plugin.Sys.GetTime()
B时 = Clng(dm_ret/1000)
If B时-A时 >= 2 Then
Exit Do
End If
End If
Loop Until dm_ret = 0
Delay 10
MoveTo x1+720,y1+550
Delay 10

dm_ret = Plugin.Sys.GetTime() //限个时间，以防循环
A时 = Clng(dm_ret / 1000)
Do
Delay 10
dm_ret = dm.CmpColor(x1 + 230, y1 + 409, "1F7DCF-202020", 0.9)
// 停止按键 亮了 就可以点

If dm_ret = 0 Then
//等待一个随机时间 即 0.01秒到1秒之间
Randomize
随机结果 = Int(100 * Rnd + 1)
TracePrint 随机结果
Delay 10*随机结果



MoveTo x1+230,y1+409
Delay 10
LeftClick 1
Delay 10
Else
dm_ret = Plugin.Sys.GetTime()
B时 = Clng(dm_ret/1000)
If B时-A时 >= 2 Then
Exit Do
End If
End If
Loop Until dm_ret = 0
Delay 10
MoveTo x1+720,y1+550

Delay 10


Loop

Sub 获得地下城与勇士窗口信息()
地下城 = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
Call Plugin.Window.Act

ive(地下城)
G = Plugin.Window.GetClientRect(地下城)
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
DX = Split(G, "|")
//下面这句将字符串转换成数值
x1 = Clng(DX(0)) : y1 = Clng(DX(1)) : x2 = Clng(DX(2)) : y2 = Clng(DX(3))
End Sub

Sub 大漠插件初始化(是否收费注册)
'大漠插件初始化部分
PutAttachment ".\dmPlugin", "dm.dll" //释放dm.dll 到.\dmPlugin目录下
PutAttachment ".\Plugin", "RegDll.dll" //释放Reg.dll 到.\Plugin目录下，注册用
PutAttachment ".\dmPlugin" ,"*.txt" //释放所有的.txt文件（其实就是字库文件） 到.\dmPlugin目录下，设置字库时用到
PutAttachment ".\dmPlugin", "*.bmp" //释放所有的.bmp文件（其实就是图片文件） 到.\dmPlugin目录下，使用大漠插件的找图命令时用到
Call Plugin.RegDll.Reg(".\dmPlugin\dm.dll") //使用大漠自带的RegDll.dll（上面已经释放到\plugin目录了）注册dm.dll到系统
Set dm = CreateObject("dm.dmsoft") // 创建dm.soft对象
ver = dm.Ver() //取插件版本号
If len(ver) = 0 Then //如果取得版本号为空
MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限"
EndScript
Else
TracePrint "创建对象成功,大漠插件Ver:" & Ver
base_path = dm.GetBasePath() //得到插件所在路径
dm_ret = dm.SetPath(base_path) //设置插件全局路径
TracePrint "base_path:" & base_path
End If
//非大漠插件付费用户无需理会下面的
If 是否收费注册 = true Then
dm_ret = dm.Reg("您的注册码. 在大漠插件网站后台可以直接获取")
TracePrint "付费服务器注册结果:"&dm_ret
if dm_ret <> 1 then
messagebox "注册失败,返回值是:"&dm_ret
Endscript
End if
End If
End Sub