该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

//------大漠注册-------------------------------------------------------------

DMPath = "c:\test_game\"'注册大漠的文件夹

DMVer = "3.1233"'当前使用的大漠版本号

//

//Call 大漠注册标准版(DMPath, DMVer)

//------------------

//------大漠注册标准版-------------------------------------------------------

//--------------------------------------------------------------------------

Function 大漠注册标准版(sPath, sVer)

// 建立大漠插件的基本目录，即存放所有资源的文件夹

Plugin.File.CreateFolder (sPath)

// 向文件夹复制文件

PutAttachment sPath, "*.*"

// 要用到RegDll来注册插件，所以需要释放到Plugin文件夹

PutAttachment ".\plugin", "RegDll.dll"

// 用RegDll注册大漠

Call Plugin.RegDll.Reg(sPath & "dm.dll")

Delay 200

// 建立大漠实例对象

Set dm = CreateObject("dm.dmsoft")

// 判断注册是否成功，如果当前DM的版本号等于DMVer变量中预设的版本号，则注册成功

If dm.ver() <> sVer Then

// 先释放先前创建的dm

Set ws = nothing

//实例化一个Wscript.Shell的对象

Set ws = CreateObject("Wscript.Shell")

// 因为有人使用一些GHOST版的系统，会精简掉一些文件，所以这里提前注册一下有关文件

ws.run "regsvr32 atl.dll /s"

// 再尝试用regsvr32 来注册. 这里必须使用绝对路径。

ws.run "regsvr32 " & sPath & "dm.dll /s"

Delay 200

// 建立大漠实例对象

Set dm = CreateObject("dm.dmsoft")

// 判断注册是否成功，如果当前DM的版本号等于DMVer变量中预设的版本号，则注册成功

If dm.Ver() <> sVer Then

Mbox = "大漠没有注册成功，脚本要求安装版本号是：" & sVer & vbcrlf

Mbox = Mbox & "请检查是版本错误还是您的系统禁用了VBS脚本权限！" & vbcrlf & "现在点击 【确定】 按钮退出脚本！"

//Mbox="注册失败，脚本中止了，请联系作者解决，作者QQ：760071708"

MsgBox Mbox

//如果两种方式都不能注册成功，显示错误信息后，中止脚本

EndScript

End If

End If

TracePrint dm.ver()

End Function

Hwnd1 = Plugin.Window.Find("TXGuiFoundation", "腾讯手游助手【极速傲引擎】")

Hwnd = Plugin.Window.FindEx(Hwnd1, 0, "AEngineRenderWindowClass", "AEngineRenderWindow")

Call Lib.大漠命令.大漠绑定4(hwnd)

dm_ret = Lib.大漠命令.大漠简易找图("C:\Users\Administrator\Desktop\脚本测试\血条.bmp")

If dm_ret > - 1 Then

Call Plugin.Bkgnd.KeyDown(Hwnd, 87)

Delay 1000

Call Plugin.Bkgnd.KeyUp(Hwnd, 87)

End If

Delay 1000