如何编写结束一个vb程序的vb程序?
现在run.exe是一个编译了的vb程序,而且总在一直运行,假设它本身没有结束功能,
我要编写一个vb程序end_run.exe去结束它,这个vb程序如何写?要用到shell()函数,
体如何写原代码?
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Dim ret
Private Sub Form_load()
ret = Shell("f:\run.exe", 1)
'获取参数ret了,但 run.exe使运行,而此时原来的run.exe早就在运行
Dim x As Long
x = OpenProcess(0, False, ret)'ret参数被传递
Dim ret2 As Long
ret2 = TerminateProcess(x, 0)
ret2 = CloseHandle(x)
End Sub
上面的代码有一个问题:
run.exe又运行了一次,而run.exe已经在一直运行,所以我不想要它再运行一次,但是我又必须从原来的run.exe程序中得到参数ret,这怎么办呢?