单衫十你 单衫十你
关注数: 16 粉丝数: 104 发帖数: 1,410 关注贴吧数: 19
新人请教大漠后台问题 //注册大漠插件 PutAttachment ".\plugin", "RegDll.dll" PutAttachment ".\plugin\dm", "dm.dll" Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll") Set dm = createobject("dm.dmsoft") //注册大漠插件结束 //释放图片 dm.SetPath ".\screen" //得到鼠标指向窗口句柄 hwnd = dm.GetMousePointWindow() //绑定窗口 dm_ret = dm.BindWindow(hwnd, "dx", "dx", "dx", 0) //脚本开始 Do Rem a 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 +100, intY + 20 Delay 200 dm.LeftClick Delay 1000 Goto a Else Delay 1000 Goto b End If Rem b dm_ret = dm.FindPic(0,0,2000,2000,"2.bmp","000000",0.9,0,intaX,intaY) If intaX > 0 And intaY > 0 Then dm.MoveTo intaX -500, intaY + 0 Delay 1000 Goto a Else Delay 1000 Goto c End If Rem c dm_ret = dm.FindPic(0,0,2000,2000,"3.bmp","000000",0.9,0,intbX,intbY) If intbX > 0 And intbY > 0 Then dm.MoveTo intbX +10, intbY + 10 Delay 200 dm.LeftClick Delay 200 dm.MoveTo intbX +110, intbY + 110 Delay 1000 Goto d Else Goto b End If Rem d dm_ret = dm.FindPic(0,0,2000,2000,"4.bmp","000000",0.9,0,intcX,intcY) If intcX > 0 And intcY > 0 Then dm.MoveTo intcX +121, intcY + 17 Delay 200 dm.LeftClick Delay 1000 Goto e Else Goto a End If Rem e dm_ret = dm.FindPic(0,0,2000,2000,"5.bmp","000000",0.9,0,intdX,intdY) If intdX > 0 And intdY > 0 Then dm.MoveTo intdX +5, intdY + 207 Delay 200 dm.LeftClick Delay 200 dm.MoveTo intdX +5, intdY + 185 Delay 200 dm.LeftClick Delay 200 Goto a Else Goto d End If loop 有没有前辈帮我看看是哪里出了问题,具体情况是鼠标有时候会乱点。如果可以的话帮我改改,不要太深奥,我今天才弄明白大漠后台,稍微看了下子程序Sub的教程,想用Sub来代替goto的,太依赖goto了想克服这个习惯,可惜看的不是很明白,最后还是用的goto来编写。希望你能把重点给我指出来,先谢谢进来看这个问题的你。
1 下一页