- 帖子
- 172
- 积分
- 348
- 威望
- 440
- 金钱
- 346
- 在线时间
- 21 小时
|
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Command1_Click()
ExitWindowsEx 0, 0 '通过注销系统让反病毒软件自动退出
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 2 Then Cancel = True
End Sub |
|