谁帮我设置下这个vbs

显示全部楼层 · 2011-1-16 19:05:37

就是这段VBS 中的G盘可不可以搞个可以填的方式
就是我输入F 就开打F:\电脑\系统软件\压缩工具\WinRAR.exe
就是我输入H 就开打H:\电脑\系统软件\压缩工具\WinRAR.exe
Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "g:\电脑\系统软件\压缩工具\WinRAR.exe"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 500

WshShell.SendKeys "{ENTER}"
WScript.Sleep 500

WshShell.SendKeys "{ENTER}"
WScript.Sleep 500

WshShell.SendKeys "{ENTER}"

千问 · 2011-1-16 19:05:37

x=inputbox("")Set objShell = CreateObject("Wscript.Shell") strCommandLine = x & ":\电脑\系统软件\压缩工具\WinRAR.exe"objShell.Run(strCommandLine)set WshShell = CreateObject("WScript.Shell")WScript.Sleep 500
WshShell.SendKeys "{ENTER}"WScript.Sleep 500
WshShell.SendKeys "{ENTER}"WScript.Sleep 500
WshSh