• 首页
  • 教程
  • 资源
  • 脚本
  • 源码库
  • 新闻
  • 卖脚本
  • 用户中心
加入收藏  返回官网
你的位置:按键精灵资源站
求大神,用大漠找图找不到
发布: 2014-06-27 12:20:25 | 作者: | 来源: 按键精灵资源站
PutAttachment "E:\game","dm.dll"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("E:\game\dm.dll")
Set dm = createobject("dm.dmsoft")
If dm.Ver() <> 3.1233 Then
Set dm = nothing
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 c:\test_game\dm.dll /s"
Set ws = nothing
Delay 1500
End If
If len(dm.Ver()) = 0 Then
        MsgBox "大漠注册失败,请检查系统是否禁用了VBS脚本权限"
EndScript
Else
MsgBox "大漠注册成功,当前版本号"&dm.Ver()&""
End If
Delay 1000
Set dm = createobject("dm.dmsoft")
dm.SetPath"E:\game"
dm_ret = dm.SetPath("E:\game")
dm_ret = dm.LoadPic("*.bmp")
Delay 100
MessageBox "请在按确定后3s内将鼠标移入窗口"
Delay 3000
Hwnd = dm.GetMousePointWindow()
Delay 500
Call Plugin.Window.Move(Hwnd, -10,-10)
Call Plugin.Window.Size(Hwnd, 1015, 635)
dm_ret = dm.BindWindow(Hwnd, "dx", "windows", "windows", 0)
Delay 100
If dm_ret = 1 Then
        MessageBox "绑定成功"
        Else
        MessageBox "绑定失败,请尝试重启脚本"
        EndScript
End If
Delay 500
dm_ret = dm.FindPic(144,480,799,620,"1.bmp","101010",0.9,0,intX,intY)
Delay 100
If intX > 0 and intY > 0 Then
        MessageBox "&intX"",""&intY"
        Else
        MessageBox "没有找到"
End If


我是一个按键小白,刚学怎么用,用这个后台找图,前面步骤都能成功进行,就是最后找不到图,找图的模式都试过,除了gdi2和dx其他模式绑定后软件都会黑屏,但gdi2和dx还是找不到图,求大神看看哪里有问题,感激不尽