1樓：士秀越
shell"taskkill /f /im qq.exe",vbhide shell"taskkill /f /im qqq.exe",vbhide 一直寫完就可以了，名稱自己改
如何用vb編寫關閉程序的程式**？？
2樓：匿名使用者
private declare function findwindows lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
private declare function postmessage lib "user32" alias "postmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
private const wm_close = &h10
private sub command1_click()
'winhwnd = findwindows("windows 任務管理器", vbnullstring) '知道視窗類名，關閉
winhwnd = findwindows(vbnullstring, "microsoft word") '知道視窗標題，關閉
call postmessage(winhwnd, wm_close, 0&, 0&)
end sub
用vb寫個（強制）結束程序程式
3樓：匿名使用者
使用下面的**可以強制結束程序，如果還不行，可以追加問。gc.suppressfinalize(get.exe)
4樓：匿名使用者
shell 「cmd.exe /c taskkill.exe /f /im get.exe"
vb寫乙個殺程序的程式
5樓：胖哥社會觀
在vb窗體裡加乙個text和乙個命令按鈕。執行後，在text裡輸入你想要結束的程序名，點選按鈕結束即可。
private sub command1_click()
on error resume next
dim s
s = text1.text
set objwmiservice = getobject("winmgmts:!\\.\root\cimv2")
set colprocesslist = objwmiservice.execquery _
("select * from win32_process where name='" & s & "'")
for each objprocess in colprocesslist
msgbox "已發現目標！"
objprocess.terminate'結束程序
next
set objprocess = nothing
set colprocesslist = nothing
set objwmiservice = nothing
end sub
6樓：匿名使用者
shell"taskkill /f /im 程序名.exe"
例：結束qq程序
shell"taskkill /f /im qq.exe"
vb怎樣結束指定程序
7樓：四捨**入
第一種：用cmd中的taskkill結束程式shell 」cmd/c taskkill /f /im 你的程序名.exe「
第二種：（win7）以下的電腦可以使用，用ntsd結束程式shell 」cmd/c ntsd -c q -pn 使用者的程序名.exe「
8樓：匿名使用者
我簡單地提供提供三種方法：
------------------------------------------
第一種：用cmd中的taskkill結束程式
shell 」cmd/c taskkill /f /im 你的程序名.exe「
------------------------------------------
第二種：（win7）以下的電腦可以使用，用ntsd結束程式
shell 」cmd/c ntsd -c q -pn 你的程序名.exe「
------------------------------------------
第三種：見**
private sub command1_click()
on error resume next
dim s
s = text1.text
set objwmiservice = getobject("winmgmts:!\\.\root\cimv2")
set colprocesslist = objwmiservice.execquery _
("select * from win32_process where name='" & s & "'")
for each objprocess in colprocesslist
objprocess.terminate'結束程序
next
set objprocess = nothing
set colprocesslist = nothing
set objwmiservice = nothing
end sub
9樓：匿名使用者
private sub command1_click()
on error resume next
dim s
s = text1.text
set objwmiservice = getobject("winmgmts:!\\.\root\cimv2")
set colprocesslist = objwmiservice.execquery _
("select * from win32_process where name='" & s & "'")
for each objprocess in colprocesslist
msgbox "已發現目標！"
objprocess.terminate'結束程序
next
set objprocess = nothing
set colprocesslist = nothing
set objwmiservice = nothing
end sub
10樓：匿名使用者
真麻煩,不能用軟體麼?
防毒軟體都帶這個功能的.
怎樣用vb關閉乙個指定的程序? 10
11樓：匿名使用者
1.首行看他的標題是什麼
2.把標題加到以下的程式**,即可.
option explicit
private declare function postmessage lib "user32" alias "postmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, byval lparam as long) as long '傳送訊息，用來關閉指定程式
private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long '查詢窗體
關閉程式
private sub command1_click()
dim winhwnd as long
dim retval as long
winhwnd = findwindow(vbnullstring, "這裡是你要關閉的程式的標題") '找到視窗
debug.print winhwnd '用來除錯 在立即視窗中輸入winhnd
if winhwnd <> 0 then '這裡是判斷視窗是否啟動 如果視窗不存在那麼值為0
retval = postmessage(winhwnd, wm_close, 0&, 0&) '關閉視窗
if retval = 0 then '如果視窗沒有啟動 就彈出下面的資訊
msgbox "錯誤！"
else
msgbox "成功關閉程式！"
end if
else
msgbox "程式沒有開啟！"
end if
end sub
12樓：至公天下
shell "taskkill /im 123.exe"
如何用cmd命令結束乙個程序和開啟乙個程式？
13樓：匿名使用者
1、用cmd命令結束乙個程序和開啟乙個程式首先，利用執行快捷鍵win+r，輸入cmd也可以用開始執行，輸入cmd。
2、輸入tasklist，確認以顯示程序。
3、這些就是我現在電腦正在執行的程序，接下來就是結束程序了。這裡就以結束qq為例好了，可以看到qq的程序名字是qq.exe，那麼就輸入taskkill /f /t /im qq.
exe 然後回車確認就好了。
用vb如何編寫剪下和還原程序，用vb如何編寫剪下和還原程式
實現剪下 實現還原 vb中的剪下 5 朋友 5分啊 是不是太少了點啊 private sub 複製 click clipboard.clear if typeof screen.activecontrol is textbox then clipboard.settext screen.active...
VB怎麼編寫四則運算，如何用VB進行加減乘除運算
dim num1,num2 as single 下面是用來處理數字的 dim strnum1,strnum2 as string dim firstnum as boolean 判斷是否是數字開頭 dim pointflag as boolean 判斷是否已有小數點 這是處理小數點的 dim run...
用VB編寫記事本簡單程式，如何用記事本編寫jsp程式
如下 private sub command1 click 複製 clipboard.settext text1.seltext end sub private sub command2 click 剪下 clipboard.settext text1.seltext text1.seltext e...