7,763
社区成员
发帖
与我相关
我的任务
分享
Dim pid
Private Sub Command1_Click()
pid = Shell("C:\windows\system32\notepad.exe")
End Sub
Private Sub Command2_Click()
cmd = "taskkill /pid " + CStr(pid)
Shell (cmd)
End Sub
dim pid#=shell("要打开的程序")
dim cmd$="taskkill /pid "+cstr(pid)
shell(cmd)