منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] عمل بلوك للبورتات في الجدار الناري عن طريق الفجول بيسك [ netsh advfirewall firewall - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عمل بلوك للبورتات في الجدار الناري عن طريق الفجول بيسك [ netsh advfirewall firewall (/showthread.php?tid=37850)

عمل بلوك للبورتات في الجدار الناري عن طريق الفجول بيسك [ netsh advfirewall firewall - Vimtos - 21-02-21

السلام عليكم ورحمة الله وبركآته

ياشباب انا عندي مشكلة .. فأاتمنى منكم مسآعدتي في الحل ..

لغة البرنآمج VB.net

أريد ان يقوم البرنآمج بااضافة بورتات في جدار الحماية


وبزر checkbox < Allow - Block


يعني زي ماانتم فاهمين .. مجرد احط الصح يسوي بلوك للبورتات .. واذا شلت الصح يشيل البلوك



ماعلينا .. المهم ..



انا ابي اسوي نفس الصورة هذي






[صورة مرفقة: 07AIlk9.png]
سويت كود بس للأسف مانجح
كود :
ProcessStartInfo kk14 = new ProcessStartInfo();

kk14.FileName = "cmd.exe";
kk14.WindowStyle = ProcessWindowStyle.Hidden;
kk14.Verb = "runas";
// اضافة القيمة الى جدار الحماية
kk14.Arguments = "/c netsh advfirewall firewall add rule name=GGM protocol=TCP dir=out remoteport=51212,51213,51214,51218,58281,8088,58287,58534,58542 action=block";

Process.Start(kk14);
القيم ياشباب لمن ارارد مسآعدتي ..

كود :
مسار البرنامج
C:\Program Files\ldplayerbox\LdVBoxHeadless.exe

====  UDP ====
0-10000, 11500-65535, 68, 55597, 58952, 61971
====  TCP ====
35000, 8081, 10012, 18081, 8086, 8088, 60000-65000, 17000, 17500, 8085, 35000, 8089, 17000-18000, 30000-35000, 547, 3013, 10000-10050, 17500, 35000, 62448, 14000, 18018, 7889, 8000-8099, 8080, 3013, 11443  
 ====  TCP ====  
 51212, 51213, 51214, 51218, 58281, 8088, 58287, 58534, 58542, 58548, 58586, 58587, 58588, 58589, 58607, 58608, 58613
[صورة مرفقة: stXPORv.png]