我现在的脚本
功能都正常，就是想添加进去自动加血和自动点击复活，复活需要鼠标点击，谁能告诉我下弄
Set dm = createobject("dm.dmsoft")
//设置大漠全局路径,设置了此路径后,所有接口调用中,相关的文件都相对於此路径. 比如图片,字库等
dm.SetPath ("d:\tmp")
//创建大漠字库
//dm.SetDict 0, ("d:\tmp\dm_soft.txt")
//获取句柄
hwnd = dm.GetMousePointWindow()
//激活指定窗口
dm_ret = dm.SetWindowState(hwnd,1)
//绑定指定的窗口,并指定这个窗口的屏幕颜色获取方式,鼠标仿真模式,键盘仿真模式
dm_ret = dm.BindWindow(hwnd,"dx","dx2","dx",0)
dm.LockInput 0
// 这里做需要锁定输入做的事情
dm.LockInput 0
Delay 200
d
If dm_ret =0 Then
MessageBox "绑定失败"
EndScript
//习惯脚本过程后,可将下两行删除,脚本将会直接进入主程序
Else
End If
do
Delay 30
dm.KeyPress 81
Delay 100
dm.KeyPress 81
dm.KeyPress 9
Delay 100
dm.KeyPress 9
dm.KeyPress 49
Delay 100
dm.KeyPress 49
Delay 100
dm.KeyPress 50
Delay 100
dm.KeyPress 50
Delay 100
dm.KeyPreSs 51
Delay 100
dm.KeyPress 51
Delay 100
dm.KeyDownChar "4"
Delay 100
dm.KeyPress 53
Delay 100
dm.KeypreSs 53
Delay 100
dm.KeyPress 54
Delay 100
dm.KeyPress 54
Delay 100
dm.KeyPress 55
Delay 100
dm.KeyPress 55
Delay 100
dm.KeyPress 56
Delay 100
dm.KeyPress 56
Delay 100
dm.KeyPress 70
Delay 100
dm.KeyPress 70
Delay 100
dm.KeyPress 90
Delay 100
dm.KeyPress 192
Delay 100
dm.KeyPress 192
Delay 100
dm.KeyPress 192
Delay 100
dm.KeyPress 192
Delay 100
dm.KeyPress 192
Delay 100
dm.KeyPress 192
Delay 100
dm.KeyPress 192
Delay 100
dm.KeyPress 192
Delay 100
dm.KeyPress 192
Delay 100
dm.KeyPress 192
Delay 100
Loop
//解除视窗绑定
dm_ret = dm.UnBindWindow()
//********************************************************************
Event Form1.Load
End Event