Question

求用VB做一个能够关闭指定程序的程序，最好是代码？

比如说，电脑只要一运行QQ，VB程序就自动关闭QQ？
你们的代码都无效呀？
能不能重新再发一下？
求求了！

Answer 1

给你这最简春弯中单的添加一个Timer控件
Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()

Shell "taskkill /f /im QQ.exe", vbHide
End Sub
生成EXE文件 放到开始 启动扒山里闹轮，并设为隐藏

Answer 2

Dim pid As Long
Dim pname As String
'-------------结束进码让仿程通用函数 注意进程名要区分大小写
Private Sub taskkill(ByVal taskname As String)
Dim my As PROCESSENTRY32
Dim l As Long
Dim l1 As Long
Dim flag As Boolean
Dim mName As String
Dim i As Integer
l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
If l Then
my.dwSize = 1060
If (Process32First(l, my)) Then '遍历第一个进程
Do
i = InStr(1, my.szExeFile, Chr$(0))
mName = LCase$(Left$(my.szExeFile, i - 1))
If mName = LCase$(taskname) Then
pid = my.th32ProcessID
pname = mName
Dim mProcID As Long
mProcID = OpenProcess(1&, -1&, pid)
TerminateProcess mProcID, 0&
flag = True
Else
flag = False
End If
Loop Until (Process32Next(l, my) < 1) '遍历所有进程迟纤知道返滑拦回值为False
End If
l1 = CloseHandle(l)
End If
End Sub
Private Sub Command1_Click()
Call taskkill("taskmgr.exe")
'这个是关闭任务管理器进程的
End Sub

Answer 3

Dim TaskName
TaskName="qq.exe"

Set w=GetObject("winmgmts:")
Set p=w.Execquery("select * from win32_process where name='" & TaskName & "碰竖春'")
For Each i In p
i.Terminate
Next
'放到timer控件纤早里笑耐

Answer 4

方法很多，shell taskkill和process.Terminate都行