الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تغير خصائص الfirewall عن طريق الرجستيري

مغلق
بدأه روح الفيجوال بيسك نت في 24 يوليو 2007 · 5 رد · 919 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

معلومات: انا سويت برنامج يقوم باضافة نفسة الى الفيروالل list عن طريق الرجستري ولكن هنالك مشكلة ممكن شخص يوضح لي السبب

LEFT TO RIGHT
Additional information: Object reference not set to an instance of an object.

هذا هو الكود الذي استخدمتة 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim regKey As RegistryKey
		regKey = (Registry.LocalMachine.OpenSubKey("System\ControlSet011\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile/AuthorizedApplications/list", True))
		regKey.SetValue("D:\server1.exe", "D:\server1.exe:*:Enabled:server1")

	End Sub

هذا هو مسار الفييروال في الرجستري

LEFT TO RIGHT
HKLM,"System\ControlSet011\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile/AuthorizedApplications/list

تم تعديل هذه المشاركة بواسطة HGB في 25 يوليو 2007 في 13:59

if You.needhelp = true then

msgbox ("Never Ever Ask dam Question  Before Searching in google")

Else 

msgbox ("You are Doing Good")

End if
#2

يا ليت رد

if You.needhelp = true then

msgbox ("Never Ever Ask dam Question  Before Searching in google")

Else 

msgbox ("You are Doing Good")

End if
#3

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

أخي العزيز اتمنى التأكد من المسار المكتوب و حالة السلاشس فيها - حيث انك تستخدم الـ ( / ) و تستخدم الـ ( \ ) مرة اخرى

""System\ControlSet011\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile/AuthorizedApplications/list"

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

مواضيع برمجية تقنية جديدة

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

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

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

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

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

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

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

مواضيع برمجية تقنية قديمة

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

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

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

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

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

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

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

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

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

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

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

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

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

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

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

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

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

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)

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

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

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

#4

شكراً لك اخي الكريم على الرد

بل النسبة للمسار فئنا متئكد منة

يا ليت اذا شخص يعرف الحل يكلمني

if You.needhelp = true then

msgbox ("Never Ever Ask dam Question  Before Searching in google")

Else 

msgbox ("You are Doing Good")

End if
#5

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

اخي العزيز تمنيت ان تقوم بفحص المسار مرة اخرى فسبحان من لا يخطى ... حيث ان المسار الصحيح هو :

SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List

و المسار الذي استخدمه انت كان

System\ControlSet011\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile/AuthorizedApplications/list

و معناه ان الـسلاشين الاخيرين فيهما خطأ ( معكوسين ) على العموم هذه دالة بسيطة تقوم بالعمل

   Sub AddToFirewall(ByVal exeFile As String, ByVal displayName As String)
		Try
			Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List", True)
			reg.SetValue(exeFile, exeFile + ":*:Enabled:" + displayName)
			reg.Close()
		Catch ex As Exception
		End Try
	End Sub

و لكي تستخدمها لإضافة برنامجك يمكن كتابة كود كالتالي :

	AddToFirewall("D:\server1.exe", "Server1")

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

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

مواضيع برمجية تقنية جديدة

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

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

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

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

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

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

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

مواضيع برمجية تقنية قديمة

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

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

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

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

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

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

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

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

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

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

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

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

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

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

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

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

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

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)

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

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

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

#6

شكراً لك اخي العزيز رغيد الطيب على المساعدة

وجاري التطبق

ووفقك الله

if You.needhelp = true then

msgbox ("Never Ever Ask dam Question  Before Searching in google")

Else 

msgbox ("You are Doing Good")

End if

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…