+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=4520)
فحص وجود قيمة في الريجستري - aiman - 27-09-12
اصدقائي الأكارم
كيف استطيع فحص وجود قيمة او مفتاح في الريجستري عن طريق GetSetting ؟؟
مثلا المفتاح "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\startup"
كيف اتأكد ان المفتاح موجود ام لا
فحص وجود قيمة في الريجستري - Mr. DotNet - 27-09-12
القرأ المقال التالي
http://www.codeproject.com/Articles/3881/Working-with-Windows-Registry-using-VB-NET
التعامل مع الرجستري
فحص وجود قيمة في الريجستري - aiman - 27-09-12
الحمدلله تم العثور على الكود المطلوب
كود :
Imports Microsoft.Win32
Public Class Form1
Dim regKey As RegistryKey
Dim aa As String
Dim MyKey As Microsoft.Win32.RegistryKey
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
aa = CType(MyKey.GetValue(Application.ProductName), String)
MyKey.Close()
If aa = "" Then
MsgBox("المفتاح غير موجود")
Else
MsgBox("المفتاح موجود")
End If
End
End Sub
End Classطبعا يجب استبدال "Software\Microsoft\Windows\CurrentVersion\Run" بالمسار المطلوب
و Application.ProductName باسم المفتاح الطلوب البحث عنه