vbs如何運行程序

『壹』 vbs腳本如何啟動程序

Setshell=Wscript.createobject("wscript.shell")
a=shell.run("這里寫你文件所在的路徑，例如C:windows
otepad.exe",0)

『貳』 怎麼利用vbs來後台運行某個程序

除非它有像QQ呼出聊天窗口一樣的全局快捷鍵

_________________
p = "C:\1.exe"
CreateObject("WScript.Shell").Run """" & p & """", 0

『叄』 VB如何運行VBS程序

我的方法運行vbs文件是沒有問題的,只是不懂bat所以沒法回答你的問題,不過你為什麼不直接shell bat文件 ?
shell "cmd /c C:\run.bat"

你的bat文件中是不應該加上文件保存的路徑?
dir d: > c:\1.txt

vbs依靠windows\system32目錄下的wscript.exe才能運行:
shell "wscript.exe C:\run.vbs"

『肆』 VBE，VBS如何運行某個程序

1. set obj=createobject("wscript.shell")
obj.run"notepad",1'打開notepad.exe--記事本程序2.>msgbox "內容",vbokcancel,"標題" '顯示確定、取消按鈕 >msgbox "內容",vbyesno,"標題" '顯示是、否按鈕3.shell("taskkill /f /im qq.exe",vbhide) '關閉qq

『伍』 .vbs文件怎麼運行

有兩種運行方法：
1在windows界面下運行，也就是雙擊
2在命令提示符下運行，方法為：
開始，輸入cmd回車，然後會彈出一個黑框，輸入cd 「你的vbs所在的地方」回車，然後輸入腳本的名字回車就運行了

『陸』 vbs運行程序

n=inputbox("請輸入口令")

if n="123" then

Set ws = CreateObject("WScript.Shell")

ws.run "游戲程序exe路徑"

end if

『柒』 vbs如何後台運行程序

Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
If colTasks.Exists("我的下載 - 迅雷7") = flash Then
Set objshell=createobject("wscript.shell")
objShell.Run "C:\Progra~1\Thunde~1\Thunder\Program\Thunder.exe", 0
End If
do until j = 1
If colTasks.Exists("我的下載 - 迅雷7") Then
colTasks("我的下載 - 迅雷7").visible = flase
j=1
End If
loop
objWord.Quit
End If
loop
objWord.Quit

直接用run有好多程序不會後台啟動的
本程序是先運行再進行後台隱藏。 所以會看到迅雷窗口一閃而過

『捌』 如何利用Vbs 運行外部程序

dim wshshell

set wshshell = createobject("wscript.shell")

wshshell.exec "程序路徑"

『玖』 vbs怎麼運行啊，

你是說從cmd中運行這個vbs文件么？發的時候要給成vbs的，如果發給好友的話好友未必會運行啊，
建議你從網上下載一個exe文件轉換器，把一個圖片.jpg的轉換成一個exe的然後再把這個.vbs的轉換成.exe的，再用exe合並器把這兩個exe文件合並成一個，然後發給好友說這是一個圖片………………

當然打開的時候確實是一個圖片，關閉這個圖片的時候會運行你那個vbs的惡搞程序…………

『拾』 vbs運行一個程序的代碼

加入說你要用那個來進行QQ登陸 我可以給你vbs Dim Program1 Program1= "路徑" Set WshShell=createobject("wscript.shell") Set oExec=WshShell.Exec(Program1) WScript.Sleep 3000 WshShell.AppActivate "cncn" WshShell.SendKeys "+{TAB}" WshShell.SendKeys "QQ號碼" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WshShell.SendKeys "密碼" WScript.Sleep 200 WshShell.SendKeys "{ENTER}"