7,785
社区成员




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)