PutAttachment "D:\dm", "*.*"
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 d:\dm\dm.dll /s"
Set ws = nothing
Delay 1200
Set dm = createobject("dm.dmsoft")
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd,"dx","windows","windows",1)
Do
Delay 300
dm.KeyPress 69
Loop
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
End Sub
大漠的
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024