Question

怎样用BAT。VBS写一个自动复制指定的字符串粘贴到开始-运行窗口里，的程序

例如我要把这行字符自动粘贴到运行窗口里cmd /c attrib "c:\program files" -s -h
我该怎样写这个代码？求详解！

Answer 1

Dim objArgs,var,NewDate
Set objArgs=WScript.Arguments
var=objArgs.Item(0)
Select Case LCase(var)
Case "zt"
NewDate=DateAdd("d",-1,Date)
Case "mt"
NewDate=DateAdd("d",1,Date)
End Select
SetClipboardText(NewDate)
WScript.Quit
Sub SetClipboardText(Text) '写入信息到剪切板
Dim wsh
Set wsh = CreateObject("WScript.Shell")
wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)& _
"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& _
")(close)",0,True
Set wsh=Nothing
End Sub
看看这段代码

Answer 2

其实你只要直接运行就可以了，不一定要到运行里啊。
比如在批处理：
attrib C:\Progra~1 -s -h
就可以了

Answer 3

Dim WshShell
Set WshShell = WScript.CreateObject("Wscript.Shell")

WshShell.Run("%comspec% /k attrib c:\program files -s -h"),true