كيف اعطل ال Firewall برمجيا

Use Win32 API functions to terminate process

TerminateProcess

يمكنك استعمال الWMI من أجل ايقاف وتشغيل خدمة الجدار الناري ومشاركة الأنترنت

الخدمة اسمها :SharedAccess

كمثال بسيط قمت بانشاء دالة تقوم بالعمل

   Private Enum aType
	  StartFireWall = 1
	  StopFireWall = 2
   End Enum
   Private Sub FireWall(SubOption As aType)
   Dim objWMIService, objService
   Dim colListOfServices
   Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\.\root\cimv2")
   Set colListOfServices = objWMIService.ExecQuery _
   ("Select * from Win32_Service Where Name ='SharedAccess'")
   For Each objService In colListOfServices
   Select Case SubOption
	Case StartFireWall: objService.StartService
	Case StopFireWall: objService.StopService
   End Select
   Next
   End Sub

استعمال الدالة سهل

من أجل ايقاف الخدمة نكتب:

FireWall StopFireWall

للتشغيل

FireWall StartFireWall

بالتوفيق