1个回答
展开全部
Dim i As Long '定义i为用来储存进程ID
Private Sub Command1_Click() '建立一个按钮用来调用exe文件
i = Shell("C:\我的应用程序.exe", vbNormalFocus) '自己改路径
End Sub
Private Sub Command2_Click() '建立一个按钮用来结束刚才启动的exe程序
Shell "ntsd -c q -p " & i, vbHide '这个就是结束程序进程的代码了
End Sub
Private Sub Command1_Click() '建立一个按钮用来调用exe文件
i = Shell("C:\我的应用程序.exe", vbNormalFocus) '自己改路径
End Sub
Private Sub Command2_Click() '建立一个按钮用来结束刚才启动的exe程序
Shell "ntsd -c q -p " & i, vbHide '这个就是结束程序进程的代码了
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询