怎么关闭当前的程序?
比如:按时打开QQ, 然后关闭 QQ 如何关闭? 请指教 谢谢
示例,打开、关闭记事本 Option Explicit Dim rtn As Long
Private Sub Command1_Click() rtn = Shell("notepad.exe", vbNormalFocus) End Sub
Private Sub Command2_Click() AppActivate rtn SendKeys "%{F4}" End Sub