تفعيل الدخول على جهاز فى الشبكة بدون user برمجيا

up

وجدت هذ الكود ولكنه لا يعمل

------------------------------------------------------------------------------------------------

يمكنك استعمال ال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\cim v2")

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

اين عباقرة الفيجوال بيسك