hment "c:\test_game", "*dm.dll*" PutAttachment "c:\test_game", "*真锁怪.bmp*" PutAttachment "c:\test_game", "*抽奖开始.bmp*" PutAttachment "c:\test_game", "*水月.bmp*" PutAttachment "c:\test_game", "*魂铠.bmp*" set ws=createobject("Wscript.Shell") ws.run "regsvr32 c:\test_game\dm.dll /s" set ws=nothing Delay 300 set dm = createobject("dm.dmsoft") TracePrint dm.Ver() dm.SetPath "c:\test_game" hwnd = dm.GetMousePointWindow() dm.MoveWindow hwnd,-10,0 dm_ret = dm.BindWindow(hwnd, "dx2", "dx", "dx", 1) Do dm_ret = dm.Findpic(635,142,722,214, "抽奖开始.bmp", "000000", 0.9, 0, x, y) If x >= 0 Then dm.MoveTO 682, 178 Delay 1000 dm.LeftClick Delay 1650 dm.LeftClick End If dm.KeyPress 192 Delay 200 dm_ret = dm.Findpic(295,5,566,87, "真锁怪.bmp", "000000", 0.7, 0, x, y) If x >= 0 Then dm.KeyPress 50 Else dm.KeyPress 9 dm_ret = dm.Findpic(295,5,566,87, "真锁怪.bmp", "000000", 0.7, 0, x, y) If x <= 0 Then dm_ret = dm.FindColor(872, 48, 1006, 175, "eff001", 0.9, 4, intX, inty) If intX >= 0 Then dm.MoveTO intX, intY dm.LeftClick End If End If dm_ret = dm.Findpic(537,61,829,166, "魂铠.bmp", "000000", 0.9, 0, x, y) If x <= 0 Then dm.KeyPress 55 End If dm_ret = dm.Findpic(537,61,829,166, "水月.bmp", "000000", 0.9, 0, x, y) If x <= 0 Then dm.KeyPress 56 End If End If Loop dm_ret = dm.UnBindWindow()