按键精灵吧 关注:499,410贴子:1,006,841
  • 3回复贴,共1

各位大神帮帮忙,看看问题出在哪里

只看楼主收藏回复

玩一个端游,平时后台挂机甚至最小化隐藏,但是游戏会时不时弹验证码检测挂机。
所以我按教程写了个代码,但是运行后,后台找不到图,需要找的截图和大漠插件都放在附件了
请大家帮看看问题出在哪里
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
谢谢大家


IP属地:广东1楼2017-08-10 17:18回复
    大漠找图,不支持相对路径和附件找图


    IP属地:安徽来自iPhone客户端2楼2017-08-10 17:22
    收起回复
      绑定和操作必须要在一个过程里,图片路径如果没写全称,就必须设置全局路径,还有,免费版大漠,凡事跟dx模式有关的都别想


      IP属地:广东来自Android客户端3楼2017-08-10 23:17
      回复