查看: 175  |  回复: 0
VB6 关闭自己Shell的程序
楼主
发表于 4月1日 14:15

新建From1(窗体),新建Command1-2(按钮CommandButton),代码:

Dim pid As Double

Private Sub Command1_Click()
    pid = Shell("C:\windows\system32\notepad.exe")
End Sub

Private Sub Command2_Click()
    Shell ("taskkill /pid " & pid)
End Sub

可以打开记事本,和关闭此记事本。

您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com