vb 关闭窗口 后同时关闭一个外部程序 求解

用VB做太麻烦，用VB结合 *** 作系统的调试命扮轿令 才是王道，

ntsd.exe 系统高级人员使用的工具，不会报错！可以级别很高的进程（杀毒软件等除外）

具体代码如下：

在From时间里选择 Unload事件，即退出时执行的事件

Private Sub Form_Unload(Cancel As Integer)

ShellExecute(Me.hwnd, "open", ntsd, "-c q -pn QQ.exe", vbNullString, SW_SHOWNORMAL)'如果要隐藏执氏余行的话，请改 SW_SHOWNORMAL

End Sub

由于现在现在没有VB开发环境，可能代码会有点问题，不过授人以鱼不如授人以渔，告诉你总体思路：

1、退出时的时间是：Form_Unload

2、调用系统 ntsd.exe 直接在cmd下输入 ntsd -c q -pn qq.exe 就可以看到效果歼缺滚

3、容错处理，在代码开始时加入：on error resume next

如果还是不懂，QQ联系我，谢谢

------gh027soft

添加timer控件，intervel=30000

在timer事件里写

Call taskkill("xx.exe")'如果存在进程xx.exe,则结束xx.exe

在空白处写

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long

Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long

Private Type PROCESSENTRY32

dwSize As Long

cntUsage As Long

th32ProcessID As Long

th32DefaultHeapID As Long

th32ModuleID As Long

cntThreads As Long

th32ParentProcessID As Long

pcPriClassBase As Long

dwFlags As Long

szExeFile As String * 1024

End Type

Const TH32CS_SNAPHEAPLIST = &H1

Const TH32CS_SNAPPROCESS = &H2

Const TH32CS_SNAPTHREAD = &H4

Const TH32CS_SNAPMODULE = &H8

Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)

Const TH32CS_INHERIT = &H80000000

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)

l1 = CloseHandle(l)

End If

End Sub

---