تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ايقاف تشغيل جدار الحمايه
#1
السلام عليكم ورحمة الله وبركاته......

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

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

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


وجزاكم الله كل خير
الرد }}
تم الشكر بواسطة:
#2
هذه الرسالة تظهر لاتمام السماح بتجاوز الجدار الناري

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

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: Abou Eman
#3
(05-08-18, 07:44 PM)elgokr كتب :
هذه الرسالة تظهر لاتمام السماح بتجاوز الجدار الناري

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

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

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

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

بارك الله فيك اخى الجوكر لكن هذا ليس مقصدى فأنا لا اقصد ان اقوم بفحص البرنامج
انا فقط اريد ايقاف هذه الرسالة برمجيا وانا عثرت على كود جزاك الله كل خير استاذى
 
هنا
https://www.codeproject.com/Articles/173...s-firewall
الرد }}
تم الشكر بواسطة: Abou Eman , Abou Eman
#4
PHP كود :
Private Sub StopFirewall() 
الكود الذي تم حذفه من مشاركتك الأخيرة يعمل جيدا،
ولكن يجب تكون للبرنامج صلاحيات مسءول.
الرد }}
تم الشكر بواسطة: ابو روضة
#5
(05-08-18, 09:13 PM)Finish كتب :
PHP كود :
Private Sub StopFirewall() 
الكود الذي تم حذفه من مشاركتك الأخيرة يعمل جيدا،
ولكن يجب تكون للبرنامج صلاحيات مسءول.

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

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

الرد }}
تم الشكر بواسطة:
#6
لتشغيله غير كلمة disable إلى enable

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

انا لدي ويندوز 7 ويعمل

نعم يعمل على ويندوز 7 وانا جربته لكنه لا يعمل على 10 وانا اريده يعمل على كل الانظمة..
وازاى اغير كلمة disable إلى enable اذا كان امر الايقاف اصلا من هنا
كود :
StopFirewall
الرد }}
تم الشكر بواسطة:
#8
(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"
الرد }}
تم الشكر بواسطة:
#9
(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 لا اعرف لماذا
الرد }}
تم الشكر بواسطة:
#10
هو نفس الكود فقط بتغيير الكلمة

وعموما تفضل الكود باسم 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 
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation ملفات تشغيل قاعدة البيانات Access أبو خالد الشكري 2 299 20-05-22, 12:26 AM
آخر رد: أبو خالد الشكري
  كيف يمكن اضافة عناصر للكومبوبوكس اثناء تشغيل البرنامج عن طريق المستخدم haithammoftah 1 793 09-04-22, 02:15 AM
آخر رد: asmarsou
  [VB.NET] مشكلة في تشغيل مشروع vb net 2017 على حاسوب اخر baronblack 4 646 23-03-22, 08:36 PM
آخر رد: Taha Okla
  [سؤال] تشغيل الفيديوهات على التوالى؟ saidhamed 2 409 30-01-22, 11:02 PM
آخر رد: saidhamed
  [VB.NET] تشغيل صوت عند الحفظ محمد بوقزاحة 4 486 19-01-22, 09:23 PM
آخر رد: محمد بوقزاحة
  [VB.NET] تشغيل المشروع مع بداية ويندوز محمد بوقزاحة 3 683 13-01-22, 08:46 PM
آخر رد: معاند الحظ
  رغم تنشيط Devexpress لكن مع تشغيل الكود يعطى هذه الرسالة shrarf_eg 2 529 28-12-21, 03:21 AM
آخر رد: DR.YASER
  تشغيل برنامج موجود في مجلد programmes file i1982 1 543 15-12-21, 02:16 AM
آخر رد: ابو انس
  [كود] ممكن كود تشغيل ملف امتداد reg jam3h 0 380 03-12-21, 09:42 PM
آخر رد: jam3h
Thumbs Up [سؤال] كيف يمكنني جعل مشرع الفيجوال بيزك يظهر عند تشغيل الويندوز,مع الشكرا عبدالله سعد سلطان 2 661 17-11-21, 06:55 AM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم