玩一个端游,平时后台挂机甚至最小化隐藏,但是游戏会时不时弹验证码检测挂机。
所以我按教程写了个代码,但是运行后,后台找不到图,需要找的截图和大漠插件都放在附件了
请大家帮看看问题出在哪里
Call 注册大漠()
Call 窗口绑定()
Call 查找图片()
Sub 注册大漠()
need_ver = "3.1233"
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
set ws=nothing
PutAttachment "C:\test_game","*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("C:\test_game\dm.dll")
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
set dm = nothing
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 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
end if
End If
If ver = need_ver Then
TracePrint "恭喜你注册成功!插件所在目录是:"&dm.GetBasePath()
End If
dm.SetPath "C:\test_game"
End Sub
Sub 窗口绑定
hwnd = dm.GetMousePointWindow()
TracePrint hwnd
dm_ret = dm.BindWindow(hwnd,"dx","dx","windows",0)
Delay 500
End Sub
Sub 查找图片()
dm_ret = dm.FindPic(0,0,2000,2000,"小.bmp","000000",0.9,0,intX,intY)
If intx < 0 and inty < 0 Then
MessageBox "没找到你要的图片。"
Else
Beep
MessageBox "找到你要的图片啦。"
dm.MoveTo intx+15,inty+15
End If
End Sub
谢谢大家
所以我按教程写了个代码,但是运行后,后台找不到图,需要找的截图和大漠插件都放在附件了
请大家帮看看问题出在哪里
Call 注册大漠()
Call 窗口绑定()
Call 查找图片()
Sub 注册大漠()
need_ver = "3.1233"
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
set ws=nothing
PutAttachment "C:\test_game","*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("C:\test_game\dm.dll")
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
set dm = nothing
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 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
end if
End If
If ver = need_ver Then
TracePrint "恭喜你注册成功!插件所在目录是:"&dm.GetBasePath()
End If
dm.SetPath "C:\test_game"
End Sub
Sub 窗口绑定
hwnd = dm.GetMousePointWindow()
TracePrint hwnd
dm_ret = dm.BindWindow(hwnd,"dx","dx","windows",0)
Delay 500
End Sub
Sub 查找图片()
dm_ret = dm.FindPic(0,0,2000,2000,"小.bmp","000000",0.9,0,intX,intY)
If intx < 0 and inty < 0 Then
MessageBox "没找到你要的图片。"
Else
Beep
MessageBox "找到你要的图片啦。"
dm.MoveTo intx+15,inty+15
End If
End Sub
谢谢大家