- Sub 注册大漠
- need_ver = "3.1233"
- // 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败,这里手动注册一下atl.dll
- Set ws = createobject("Wscript.Shell")
- ws.run "regsvr32 atl.dll /s"
- set ws=nothing
- // 释放附件>>>>>>>>>>>>>>>>>>>
- PutAttachment ".\Plugin", "RegDll.dll"
- PutAttachment "c:\梦幻资源", "dm.dll"
- PutAttachment "c:\梦幻资源", "宝宝logo.bmp"
- Delay 100
- Dim iPath_
- iPath_ = Plugin.SysEx.GetDir(0)
- If Plugin.RegDll.Reg("c:\梦幻资源\dm.dll")=1 Then
- TracePrint "——大漠注册成功——"
- End If
- // 这里判断是否注册成功
- set dm = createobject("dm.dmsoft")
- ver = dm.Ver()
- TracePrint "大漠版本号:"&ver
- if ver <> need_ver then
- // 先释放先前创建的dm
- set dm = nothing
- // 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
- Set ws = createobject("Wscript.Shell")
- ws.run "regsvr32 c:\梦幻资源\dm.dll /s"
- set ws=nothing
- Delay 1500
- // 再判断插件是否注册成功
- set dm = createobject("dm.dmsoft")
- ver = dm.Ver()
- if ver <> need_ver then
- // 这时,已经确认插件注册失败了。 弹出一些调试信息,以供分析.
- messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
- messagebox "请关闭程序,重新打开本程序再尝试"
- ExitScript
- end if
- End If
- dm.SetPath "c:\梦幻资源" //设置资源文件路径
- End Sub
- 注册大漠
- hwnd = dm.EnumWindow(0,"梦幻西游 ONLINE","WSGAME",1+2) //大漠查找梦幻窗口(通过标题和类名),返回窗口句柄
- Call dm.BindWindow(hwnd, "normal", "normal", "normal", 0) //大漠绑定梦幻窗口
- TracePrint "窗口句柄:"&hwnd
- If dm.FindPic(414,2,451,40, "宝宝logo.bmp", "000000", 0.9, 0, bmpx, bmpy) >= 0 Then //大漠找图,返回图片坐标
- TracePrint "X坐标:"&bmpx &" Y坐标:"&bmpy
- plugin.gk.DreamMove hwnd,bmpx,bmpy //果壳插件梦移,移向图片坐标
- End If
复制代码
梦幻找宝宝源码.zip
(749.42 KB, 下载次数: 4)
|