4,008
社区成员
发帖
与我相关
我的任务
分享
dim wsh
set wsh=WScript.CreateObject("WScript.Shell")
wsh.SendKeys "^+%{F6}" shift+ctrl+alt+F6调出冰点还原窗口
Dim Program1
Set WshShell=createobject("wscript.shell")
WScript.Sleep 2000
WshShell.AppActivate "Deep Freeae Standard"窗口名称
WshShell.SendKeys "XXX"密码
WScript.Sleep 200
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 3000
WshShell.SendKeys "%t" 设置
WScript.Sleep 200
WshShell.SendKeys "%r"设置
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "%y"
确认