以下是模板,注意D:\path路径需要改到你放大漠插件的文件夹,否则会失效。
Call 注册大漠() Call 窗口绑定() //Call 获取颜色() //Call 查找颜色() //Call 查找图片(() Sub 查找颜色() dm_ret = dm.FindColor(226,418,416,570,"ff6146",1.0,0,intX,intY) If intX >= 0 and intY >= 0 Then dm.moveto intX, intY Delay 100 dm.leftclick End If End Sub Sub 查找图片() dm_ret = dm.FindPic(0,0,2000,2000,"1.bmp","000000",0.9,0,intX,intY) If intX >= 0 and intY >= 0 Then dm.moveto intX, intY Delay 100 dm.leftclick End If End Sub Sub 获取颜色() color = dm.GetColor(320,451) If color = "ff6146" Then dm.MoveTo 320,451 Delay 100 dm.leftclick End If End Sub Sub 窗口绑定() hwnd = dm.GetMousePointWindow() TracePrint hwnd dm_ret = dm.BindWindow(hwnd, "dx", "dx", "dx", 0) Delay 1000 dm_ret = dm.Capture(0, 0, 2000, 2000, "screen.bmp") TracePrint dm_ret Delay 1000 End Sub Sub 注册大漠() need_ver = "3.1233" set ws=createobject("Wscript.Shell") ws.run "regsvr32 atl.dll /s" set ws=nothing PutAttachment "D:\path","*.*" PutAttachment ".\Plugin" ,"RegDll.dll" Call Plugin.RegDll.Reg("D:\path\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 D:\path\dm.dll /s" set ws=nothing Delay 1500 set dm = createobject("dm.dmsoft") ver = dm.Ver() if ver <> need_ver then set dm = nothing set ws=createobject("Wscript.Shell") ws.run "regsvr32 D:\path\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 &nb
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。