Dim ws Set ws = CreateObject ws.run “cmd /c .\alist.exe server”,vbhide WScript.Sleep ws.run “”“C:\soft\RaiDrive\RaiDrive.exe”“” WScript.Sleep ws.appactivate “RaiDrive” while True ws.sendkeys “%+{F4}” WScript.quit Wend。