按键精灵的高手看看!!这段代码有问题吗?为什么鼠标会偏移?
Setdm=createobject("dm.dmsoft")TracePrintdm.ver()ver=dm.Ver()Iflen(ver)=0ThenMessageB...
Set dm = createobject("dm.dmsoft")
TracePrint dm.ver()
ver = dm.Ver()
If len(ver) = 0 Then
MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限"
EndScript
End If
dm.setpath "C:\Documents and Settings\Administrator\桌面\tmp"
dm.setdict 0, "dm_soft.txt"
dm.SetShowErrorMsg 0
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd,"dx2","normal","windows",0)
Delay 1500
If dm_ret = 0 Then
MessageBox "绑定失败"
EndScript
End If
dm.MoveTo 0,0
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
End Sub
调试用了 鼠标会偏移到-435,1 为什么啊?dm,move to x,y(x总会-435 y会+1) 展开
TracePrint dm.ver()
ver = dm.Ver()
If len(ver) = 0 Then
MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限"
EndScript
End If
dm.setpath "C:\Documents and Settings\Administrator\桌面\tmp"
dm.setdict 0, "dm_soft.txt"
dm.SetShowErrorMsg 0
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd,"dx2","normal","windows",0)
Delay 1500
If dm_ret = 0 Then
MessageBox "绑定失败"
EndScript
End If
dm.MoveTo 0,0
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
End Sub
调试用了 鼠标会偏移到-435,1 为什么啊?dm,move to x,y(x总会-435 y会+1) 展开
2个回答
2012-07-07
展开全部
学习
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询