08.按键精灵大漠插件多开例子
在开发脚本中，其实有很多厉害的插件可以供我们使用，不再自己再去额外的写复杂的代码，类似的插件很多，比如：天使插件、DD、大漠等，各个插件都有比较擅长的功能，有些小众的插件更是给力，因为可以过NP。
//代码开始区域
//采用大漠7.2336 VIP模式绑定例子 集合了3.1233免费版 -- 波哥编写
Global Hwnd //全局变量
Dim MyArray//普通变量
Call 注册大漠
Function 注册大漠
PutAttachment "c:\dk_game","*.*"//大漠释放
PutAttachment ".\Plugin", "RegDll.dll"//大漠注册
RunApp "regsvr32 c:\dk_game\dm.dll /s"//免费模式
Call 大漠VIP注册//VIP模式开启这项即可
HwndEx = Plugin.Window.Search("寻仙2")
MyArray = Split(HwndEx, "|")
For i = 0 To UBound(MyArray) - 1
//下面这句将字符串转换成数值
Hwnd = Clng(MyArray(i))
TracePrint Clng(MyArray(i))
//移动窗口位置并激活前面
Call Plugin.Window.Min(Hwnd)
Call Plugin.Window.Restore(Hwnd)
Call Plugin.Window.Move(Hwnd, i * 30, i * 50)
//创建对应的控制线程
XXID = BeginThread(绑定游戏)
//加延迟防止程序多开卡掉
Delay 50
Next
End Function
Function 大漠VIP注册
need_ver = "7.2336"
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
set ws=nothing
Call Plugin.RegDll.Reg("c:\dk_game\dm.dll")
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
dm_ret = dm.Reg("注册码填入到此", "0001")
TracePrint dm_ret
End Function
Function 绑定游戏()
Dim HD,BD
HD = Hwnd
Set dm = createobject("dm.dmsoft")
BD = dm.BindWindow(HD, "dx2", "windows", "windows", 1)
If BD = 1 Then
Call 游戏功能测试()
TracePrint "绑定成功"
Else
TracePrint "绑定失败"
End If
End Function
sub 游戏功能测试()
Do
Delay 300
dm.keypress 27
Loop
End sub
//波哥游戏脚本学习网游安全VIP群：191075097 所有脚本的工具在附件里可以找到。
//代码结束区域
波哥