Question

如何在VBS中写CMD命令

1、按一下 [开始]，再按 [运行]。
2、输入 cmd，按一下 [确定]。
3、在命令提示中输入cd %temp%，按 ENTER。
4、输入cd.. ，再按 Enter。
5、输入cipher /d temp，按回车后完成解密。
6、进行安装MSN 的操作。
7、完成安装后请您重复1至4的操作。
8、之后在命令提示中输入cipher /e temp，完成对文件夹的加密

以上步骤如何用VBS编程一个脚本，请高手指点，不胜感激！！

Answer 1

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^{Esc}"
WScript.Sleep 1000
WshShell.SendKeys "r"
WScript.Sleep 1000
WshShell.SendKeys "cmd"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "cd +{5}temp+{5}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "cd.."
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "cipher /d temp"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "MSN.exe"'改为MSN安装文件的目录
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000'时间无法设置准确，不知道MSN安装多长时间。后面的无法实现你的要求。
WshShell.SendKeys "cipher /e temp"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
'sleep是为了显示效果
感觉后面的操作最好用批处理。直接发送按键感觉不好实现

Answer 2

楼主不如下个脚本精灵试试...自己录一遍..

然后把代码提出来改改就得了.~~~

Answer 3

楼上的,你也太实在了.不然就生成个批处理用shell调用吧,最多给vbhide掉,这样反正也是用vbs做的,嘿嘿.