怎样用VB6 打开和关闭一个程序

来源：百度知道 编辑：UC知道 时间：2024/06/17 12:58:37
如果我有个a.exe 的文件,现在建一个VB6的exe文件,添加两个按钮,一个按钮名为"打开",安这个按钮就运行 a.exe 另一个按钮为"关闭",安这个按钮就 关闭 a.exe

假设a.exe 和 建立的vb应用程序在同一个目录下

如何实现上面的功能.
如果答案相同,则谁第一个答对的,分数就给谁

dim pID&

sub command1_click()
pID=shell("a.exe",1)
end sub

Private Sub Command2_Click()
Set wmi = GetObject("WinMgmts:").InstancesOf("Win32_Process")
For Each obj In wmi
If obj.ProcessId = pID Then obj.Terminate:pID=0
Next
End Sub

手边没有VB,未调试,代码很简单,楼主看一下就可以自己改了

这里有
http://www.jcgc.com.cn/software/p121/A12114825.shtml

打开
Private Sub Command1_Click()
'打开同目录下的程序
Shell App.Path & "\a.exe"
'如果不是同目录的就直接是相对路径可以了.如：
Shell "C:\a.exe"
End Sub

关闭
Private Sub Command2_Click()
Shell "taskkill /f /im a.exe", vbHide
'这里a.exe是进程名
End Sub

关闭：
Private Sub Command2_Click()
unload
end sub