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()