你的位置：
行脚洞口提示判断 源代码
16:15:51 |
来源: 按键精灵资源站
// 首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它(字库，图片等)也可以一并打包
// 这个need_ver作为本脚本需要使用的版本. 如果要换插件时，记得更改这个值.
need_ver = &3.1233&
// 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
set ws=createobject(&Wscript.Shell&)
ws.run ®svr32 atl.dll /s&
set ws=nothing
// 释放附件&&&&&&&&&&&&&&&&&&&
// 这里选择c盘的test-_game作为插件的基本目录 也就是SetPath对应的目录。所以所有资源都释放在此目录.
PutAttachment &c:\test_game&,&*.*&
// 这里要用到RegDll来注册插件，所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.
PutAttachment &.\Plugin& ,&RegDll.dll&
// 插件注册开始&&&&&&&&&&&&&&&&&&&
// 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
Call Plugin.RegDll.Reg(&c:\test_game\dm.dll&)
// 这里判断是否注册成功
set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
if ver && need_ver then
// 先释放先前创建的dm
set dm = nothing
& &// 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
set ws=createobject(&Wscript.Shell&)
ws.run ®svr32 c:\test_game\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 &请关闭程序,重新打开本程序再尝试&
& & endscript
//=========以上是每次写代码时，必须复制的，注册大漠（不用了解）=====
//====== 以下绑定窗口======
//獲取鼠標指向的窗口句柄
hwnd = dm.GetMousePointWindow()
//綁定指定的窗口,並指定這個窗口的屏幕顏色獲取方式,鼠標仿真模式,鍵盤仿真模式,以及模式設定
dm_ret = dm.BindWindow(hwnd,&dx&,&windows3&,&windows&,1)
// =====以上是后台绑定窗口模式====
// ----- 以下是脚本命令-----
Rem 继续查找
dm_ret = dm.SetPath(&C:\test_game&) //设置调用路径
dm_ret = dm.FindPic(-50,-50,800,600,&判洞1.bmp&,&.9,0,intX,intY)
If intX &= 0 and intY &= 0 Then
MessageBox &找到1&
dm_ret = dm.SetPath(&C:\test_game&) //设置调用路径
dm_ret = dm.FindPic(-50,-50,800,600,&判洞2.bmp&,&.9,0,intX,intY)
If intX &= 0 and intY &= 0 Then
MessageBox &找到2&
dm_ret = dm.SetPath(&C:\test_game&) //设置调用路径
dm_ret = dm.FindPic(-50,-50,800,600,&判洞3.bmp&,&.9,0,intX,intY)
If intX &= 0 and intY &= 0 Then
MessageBox &找到3&
dm_ret = dm.SetPath(&C:\test_game&) //设置调用路径
dm_ret = dm.FindPic(-50,-50,800,600,&判洞4.bmp&,&.9,0,intX,intY)
If intX &= 0 and intY &= 0 Then
MessageBox &找到4&
dm_ret = dm.SetPath(&C:\test_game&) //设置调用路径
dm_ret = dm.FindPic(-50,-50,800,600,&判洞5.bmp&,&.9,0,intX,intY)
If intX &= 0 and intY &= 0 Then
MessageBox &找到5&
dm_ret = dm.SetPath(&C:\test_game&) //设置调用路径
dm_ret = dm.FindPic(-50,-50,800,600,&判洞6.bmp&,&.9,0,intX,intY)
If intX &= 0 and intY &= 0 Then
MessageBox &找到6&
Goto 继续查找
// ----- 以上是脚本命令-----
// 下面这是脚本结束时执行的部分
Sub OnScriptExit()
& &dm.UnBindWindow
[/code]上面是使用大漠插件，判断QQ三国&&行脚的洞口
使用说明：
& &1.必须使用QQ三国黑屏
& &2.对话进去行脚打开脚本（鼠标记得放游戏里）
& &3.绑定成功后按M& &就马上跳出提示说是第洞口。
以下是代码所需的图片文件
( 16:15:25, Size: 2.75 KB, Downloads: 95)