منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ايقاف تشغيل جدار الحمايه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ايقاف تشغيل جدار الحمايه (/showthread.php?tid=25996)

الصفحات: 1 2

ايقاف تشغيل جدار الحمايه - ابو روضة - 05-08-18

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

حينما أقوم بتشغيل مشروعى المبرمج ب VB.NET وأدرج به phantomjs 

الموجودة فى ال السلينيام تظهر لى هذه الرسالة وانا لا اريدها تظهر لو سمحتم

يعنى اريد اخفاء هذا كما بالصورة ولا يظهر للمستخدم لانى بعمل اتصال من خلال ال phantomjs 


وجزاكم الله كل خير


RE: ايقاف تشغيل جدار الحمايه - elgokr - 05-08-18

هذه الرسالة تظهر لاتمام السماح بتجاوز الجدار الناري

وبمجرد الضغط على Allow access لم تظهر مجدداً

حيث ان سيختلف الامر عند وجود برامج الحماية
عند فحص البرنامج واعطاء التصريح له للعمل

كما يمكنك فحص البرنامج من خلال الرابط التالى واعطاء
https://www.virustotal.com

تحياتى لك
وتمنياتى لك التوفيق


RE: ايقاف تشغيل جدار الحمايه - ابو روضة - 05-08-18

(05-08-18, 07:44 PM)elgokr كتب :
هذه الرسالة تظهر لاتمام السماح بتجاوز الجدار الناري

وبمجرد الضغط على Allow access لم تظهر مجدداً

حيث ان سيختلف الامر عند وجود برامج الحماية
عند فحص البرنامج واعطاء التصريح له للعمل

كما يمكنك فحص البرنامج من خلال الرابط التالى واعطاء

تحياتى لك
وتمنياتى لك التوفيق

بارك الله فيك اخى الجوكر لكن هذا ليس مقصدى فأنا لا اقصد ان اقوم بفحص البرنامج
انا فقط اريد ايقاف هذه الرسالة برمجيا وانا عثرت على كود جزاك الله كل خير استاذى
 
هنا
https://www.codeproject.com/Articles/17309/Programmatically-disable-enable-Windows-firewall

RE: ايقاف تشغيل جدار الحمايه - Finish - 05-08-18

PHP كود :
Private Sub StopFirewall() 
الكود الذي تم حذفه من مشاركتك الأخيرة يعمل جيدا،
ولكن يجب تكون للبرنامج صلاحيات مسءول.

RE: ايقاف تشغيل جدار الحمايه - ابو روضة - 05-08-18

(05-08-18, 09:13 PM)Finish كتب :
PHP كود :
Private Sub StopFirewall() 
الكود الذي تم حذفه من مشاركتك الأخيرة يعمل جيدا،
ولكن يجب تكون للبرنامج صلاحيات مسءول.

منا حذفته لانه يعمل ايقاف فقط ولم اعرف اعمل له تشغيل بعد اغلاق البرنامج

وجربت الان على ويندوز 10 وللأسف لم يعمل أيأ منهم فلو عند حل اتمنى وضعها
وهذا هو كود الايقاف كامل من هنا

http://vb-net-source-codes-snippets.blogspot.com/2012/03/snp-disable-turn-off-windows-firewall.html


RE: ايقاف تشغيل جدار الحمايه - Finish - 05-08-18

لتشغيله غير كلمة disable إلى enable
انا لدي ويندوز 7 ويعمل

RE: ايقاف تشغيل جدار الحمايه - ابو روضة - 05-08-18

(05-08-18, 09:38 PM)Finish كتب : لتشغيله غير كلمة disable إلى enable
انا لدي ويندوز 7 ويعمل

نعم يعمل على ويندوز 7 وانا جربته لكنه لا يعمل على 10 وانا اريده يعمل على كل الانظمة..
وازاى اغير كلمة disable إلى enable اذا كان امر الايقاف اصلا من هنا
كود :
StopFirewall


RE: ايقاف تشغيل جدار الحمايه - Finish - 05-08-18

(05-08-18, 09:47 PM)ابو روضة كتب :
(05-08-18, 09:38 PM)Finish كتب : لتشغيله غير كلمة disable إلى enable
انا لدي ويندوز 7 ويعمل

نعم يعمل على ويندوز 7 وانا جربته لكنه لا يعمل على 10 وانا اريده يعمل على كل الانظمة..
وازاى اغير كلمة disable إلى enable اذا كان امر الايقاف اصلا من هنا
كود :
StopFirewall





الكلمة موجودة في الكود

تفضل
PHP كود :
Program.StartInfo.Arguments = ("firewall set opmode enable") 


RE: ايقاف تشغيل جدار الحمايه - ابو روضة - 05-08-18

(05-08-18, 09:50 PM)Finish كتب :
(05-08-18, 09:47 PM)ابو روضة كتب :
(05-08-18, 09:38 PM)Finish كتب : لتشغيله غير كلمة disable إلى enable
انا لدي ويندوز 7 ويعمل

نعم يعمل على ويندوز 7 وانا جربته لكنه لا يعمل على 10 وانا اريده يعمل على كل الانظمة..
وازاى اغير كلمة disable إلى enable اذا كان امر الايقاف اصلا من هنا
كود :
StopFirewall





الكلمة موجودة في الكود

تفضل
PHP كود :
Program.StartInfo.Arguments = ("firewall set opmode enable") 

نعم أعلم استاذى انها هنا لكن انا اتكلم عن امر الايقاف كان StopFirewall
فكيف يكون امر تشغيلها مرة اخرى وبعدين هى لا تعمل على ويندوز 10 لا اعرف لماذا

RE: ايقاف تشغيل جدار الحمايه - Finish - 05-08-18

هو نفس الكود فقط بتغيير الكلمة

وعموما تفضل الكود باسم StartFirewall
PHP كود :
Private Sub StartFirewall()
    Dim Program As Process = New Process
    Dim top As String = "netsh.exe"
    Program.StartInfo.Arguments = ("firewall set opmode enable")
    Program.StartInfo.FileName = top
    Program.StartInfo.UseShellExecute = False
    Program.StartInfo.RedirectStandardOutput = True
    Program.StartInfo.CreateNoWindow = True
    Program.Start()
    Program.WaitForExit()
End Sub 
وهذا كود الايقاف السابق StopFirewall
PHP كود :
Private Sub StopFirewall()
    Dim Program As Process = New Process
    Dim top As String = "netsh.exe"
    Program.StartInfo.Arguments = ("firewall set opmode disable")
    Program.StartInfo.FileName = top
    Program.StartInfo.UseShellExecute = False
    Program.StartInfo.RedirectStandardOutput = True
    Program.StartInfo.CreateNoWindow = True
    Program.Start()
    Program.WaitForExit()
End Sub