السلام عليكم
هذا الكود يوضح كيف تغلق خدمة النورتون انتى فيرس و غيره من البرامج المشابهة كبرامج الفير وول
Private Sub Command1_Click() 'stops Norton Antivirus StopService "Norton Antivirus Auto Protect Service" End Sub Private Sub Command2_Click() 'starts antivirus StartService "Norton Antivirus Auto Protect Service" End Sub Sub StopService(ServiceName As String) a = """" & ServiceName & """" 'uses the NET STOP function to stop the ' service Shell "net stop " & a, vbHide End Sub Sub StartService(ServiceName As String) a = """" & ServiceName & """" 'uses the NET START function to start th ' e service Shell "net start " & a, vbHide End Sub
مع تحياتى
