خاموش كردن Firewall

[mansourii]

سلام دوستان
نوع سوال: (برنامه نويسي سوكتينگ)
يه برنامه اي دارم مينويسم كه بصورت كلاينت سروره! (از آبجكت وراثت استفاده شده)
اول با برنامه سرور يك كلاينت درست مي كنه كه كلاينت رو ميتونه سرور كنترل كنه

توضيح بيشتر:
فرض كنيد كه كار اين كلاينت فايروال رو خاموش كنه تا سرور بتونه به اون سيستم ريموت كنه
ميدونيد كه اگه فايروالش روشن باشه مجوز ورود نميده ريموت سرور رو نميده

حالا سوال:
وقتي كلاينت رو توي يك دستگاه اجرا ميكنم كه بتونه مجوز ورود و خروج از فايروال بگيره ( اصلا انگار نه انگار) كار نميكنه

اينم كدم در رابطه با فايروال


Dim _StrFireWall As String = "Netsh advfirewall set allprofiles state off"
Dim host As String = TextBox19.Text
Dim ComputerName As String = TextBox1.Text
Dim port As Integer = 21567
Dim buf As Integer = 1024
Dim Data As New IO.File
While True
Data = Input(MYIP_PINGING)
If Not Data Then
MsgBox("ارتباط با كلاينت مقدور نيست")
Exit Sub

Else
ServerHosting.Send(_StrFireWall)
UDPSock.connect(IP_PORT)
if(UDPSock.send(_str FireWall) =True then
Dim SEND_MSG = MsgBox("فايروال خاموش شد")
ServerHosting.Res(SEND_MSG)
End If

كارم خيلي فروي فوتيه زودتر كمكم كنيد!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!

[mansourii]

:متعجب:تا حالا هيچ كس جواب نداده؟:کف:
كسي سورسي بلده كه بتونه فايروال ويندوز رو خاموش كنه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/

تا خودم تبديلش كنم .