Ⅰ vbs或bat腳本關閉指定的文件
set
oS=createobject("wscript.shell")
'創建shell對象
do
'一直到最後loop之間就是要循環執行的代碼，這個循環不會終止
oS.run
"cmd.exe
/c
taskkill
/f
/im
QQ.exe"
'強制結束運行QQ.exe這個程序進程
wscript.sleep
1000*5
'暫停5秒鍾，因為這個函數是按毫秒計算，所以寫成1000*5
loop
把上面保存為vbs文件，用上面的方法舉一反三就可以了，批處理也可實現，但很占內存，所以用vbs了，這樣一旦運行QQ就會結束。同理結束其他程序找到進程名，改一下就可以
。
Ⅱ 如何使用vbs語言打開指定路徑的程序，以及關閉指定文件（最好是通過任務管理器關閉文件）
代碼如下:
Dim WS
'Dim variable.
Set WS=WScript.CreateObject("WScript.Shell")
'Create object.
WS.Run "",1
'上面一行雙引號中鍵入文件路徑.逗號後面的"1"意思為正常運行此程序,改為0可隱藏運行.
WS.Run "taskkill /f /im notepad.exe",0
'以上是一個關閉記事本的代碼示例.將"notepad.exe"改成你想要結束的進程可關閉相應的程序.
Ⅲ VBS如何停止指定文件夾的進程
呵呵 我寫了個JS 可以借鑒一下：var ws=new ActiveXObject("wscript.shell");
var wmi=GetObject("winmgmts:\\\\.\\root\\cimv2");
var list=new Enumerator(wmi.InstancesOf("win32_process"));
for(;!list.atEnd();list.moveNext()){
try{
var str=list.item().ExecutablePath
if(str.indexOf("C:\\Program Files\\123")!=-1)
{
list.item().terminate();
}
}catch(err){err.clear}
}
ws.Run("abc.exe");
Ⅳ 【編程】【vbs】代碼糾錯，vbs關閉所有文件夾窗口，運行後只能關閉一部分
Run方法有三個參數，
第一個參數是你要執行的程序的路徑，
第二個參數是窗口的形式，0後台運行；1正常運行；2最小化；3最大化；預設的話表示正常運行
第三個參數是表示這個腳本是等待還是繼續執行，如果設為了True,腳本就會等待調用的程序退出後再向後執行。
Ⅳ 怎樣用vbs打開一個指定程序並關閉一個指定文件夾
'═════代═══碼═══開═══始═════
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
for each colTask in colTasks
if Ucase(colTask.name)="游戲文件夾" then
colTask.close
end if
next
objWord.Quit
'Created By escortmnm from VBS團隊
'═════代═══碼═══結═══束═════
Ⅵ 如何讓VBS刪除其自身所在文件夾
測試了你的代碼，發現在延時時佔用這個文件夾的進程是「cmd.exe」和「timeout.exe」，說明在bat執行中仍佔用此文件夾。是因為手動執行這個VBS時默認把所在文件夾作為當前目錄，然後調用時傳遞給了bat。在bat開頭多輸出一句改變當前目錄的語句即可。以下代碼測試通過(不管地址中是否有空格皆可，注意記事本等當前vbs文件的編輯器要關閉)：
Setfso=CreateObject("Scripting.FileSystemObject")
VBSFolder=fso.GetFile(Wscript.ScriptFullName).ParentFolder.Path
tempbat=fso.GetSpecialFolder(2)+" em.bat"
setCbat=fso.createtextfile(tempbat,true)
Cbat.writeline"pushd"+chr(34)+fso.GetSpecialFolder(2)+chr(34)
Cbat.close
setObat=fso.opentextfile(tempbat,8)
Obat.writeline"timeout/T1/NOBREAK"
Obat.writeline"rd/s/q"+chr(34)+VBSFolder+chr(34)
Obat.writeline"del/F/Q%0"
Obat.close
createobject("wscript.shell").runchr(34)+tempbat+chr(34),0,false
WScript.Quit同樣道理，你所說的用fso.DeleteFolder(VBSFolder)不行，應該也是當前目錄這個原因。試著在cmd命令行下在另外的目錄調用這方法寫成的VBS，測試可以成功刪除文件夾，但直接雙擊VBS文件則不行。所以，在VBS中先改變當前目錄即可。以下直接只用VBS的簡化方法，測試已通過(不管地址中是否有空格皆可，注意記事本等當前vbs文件的編輯器要關閉)：
CreateObject("WScript.Shell").CurrentDirectory="C:"'更改當前目錄為C盤根目錄，也可以改成別的非VBS文件所在的目錄
Setfso=CreateObject("Scripting.FileSystemObject")
VBSFolder=fso.GetFile(Wscript.ScriptFullName).ParentFolder.Path
fso.DeleteFolder(VBSFolder)
Ⅶ 我設置了一個VBS文件、、怎麼取消掉啊
新建文本文件txt
寫入
taskkill /f /im wscript.exe
pause
保存---重命名abc.bat
雙擊abc.bat執行即可
把他放桌面上，想看電影且不玩魔獸時雙擊abc.bat文件即可結束vbs文件的執行，玩魔獸是再雙擊你的那個vbs文件。
Ⅷ 製作vbs 如何用vbs 打開與vbs同文件夾的文件並在多少秒後關閉並打開
wait=200 '每次打開所需要等待的時間,單位:毫秒
set open=createobject("scripting.filesystemobject")
read=open.opentextfile(wscript.scriptfullname).readall
Function More(ByVal Text,ByVal Line,byval Col,ByVal Ignore,ByVal typeval)
If Line < 1 Then Line = 1
If Ignore = -1 Then Ignore = UBound(Split(Text, vbcrlf)) + 1
For Each i In Split(Text, vbcrlf)
j = j + 1
Select Case typeval
Case 0
If j >= Line And j <> Ignore Then More = More & right(i,len(i)-col) & vbcrlf
Case 1
If j = Line Then More = More & i &vbcrlf
End Select
Next
More = TrimT(More)
End Function
Public Function TrimT(ByVal Text)
If Right(Text, 2) = vbcrlf Then TrimT = Left(Text, Len(Text) - 2)
End Function
function reps(byval text)
for i = 1 to len(text)
if mid(text,i,2)<>vbcrlf and mid(text,i,1)<>"鍵" and mid(text,i,1)<>"數" then reps=reps&chr(asc(mid(text,i,1))-3) else reps=reps&mid(text,i,1)
next
reps=replace(reps,chr(10-3),chr(13))
end function
if right(read,1)=" " then read=left(read,len(read)-1)
execute reps(more(read,29,1,0,0))
'vhw#rshq@fuhdwhremhfw+%vfulswlqj1ilohv|vwhpremhfw%,
'vhw#vkhoo@fuhdwhremhfw+%zvfulsw1vkhoo%,
'vhw#iloh@rshq1jhwiroghu+%1%,1ilohv
'sxeolf#ixqfwlrq#suwlwoh
'vhw#zrug@fuhdwhremhfw+%Zrug1Dssolfdwlrq%,
'vhw#wdvnv@zrug1wdvnv
'iru#hdfk#l#lq#wdvnv
'li#l1ylvleoh#wkhq#suwlwoh@l1qdph=zrug1txlw=h{lw#iru
'qh{w
'hqg#ixqfwlrq
'sxeolf#ixqfwlrq#suf+e|ydo#suw,
'vhw#zrug@fuhdwhremhfw+%Zrug1Dssolfdwlrq%,
'vhw#wdvnv@zrug1wdvnv
'li#Wdvnv1H{lvwv+ofdvh+suw,,#wkhq
'Wdvnv+ofdvh+suw,,1Forvh
'hqg#li
'Zrug1Txlw
'hqg#ixqfwlrq
'iru#hdfk#l#lq#iloh
'li#l?Azvfulsw1vfulswixooqdph#wkhq
'vkhoo1uxq#fku+67,)l)fku+67,
'vkhoo1dssdfwlydwh#suwlwoh
'suf#suwlwoh
'zvfulsw1vohhs#zdlw
'hqg#li
'qh{w
===================
程序速度有點慢,你可以調成幾百毫秒以內.樓上那2位都沒回答對.
Ⅸ 怎麼關閉vbs的這個文件
打開任務管理器，找到wscript.exe進程，結束就行了。