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

ارديد كود التحقق من قيمه في الريجستري

اضعه في الفورم الرئيسي .... الكود
( اذا كانت القيمه موجوده .... يفتح الفورم الرئيسي ... اما اذا لم تكن القيمه موجود فتح فورم اخر )
الرد }}}
تم الشكر بواسطة:
#2
كود :
Try




            Dim regKey As Microsoft.Win32.RegistryKey
            regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("مسار المفتاح", True)


            If regKey.GetValue("اسم المفتاح") Is Nothing Then


form3.show
                End If


            End If
            regKey.Close()
        Catch ex As Exception


        End Try


واذا اردت اضافة قيمة لمفتاح ما

كود :
regKey.SetValue("ضع القيمة هناا", "اسم المفتاح")

تحياتي لك
ابو سامي
الرد }}}
تم الشكر بواسطة:
#3
اخي سامي ... يعطيك العافيه
لم يتغير شي بالمثال

PHP كود :
Imports Microsoft.Win32
Public Class Form1
    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Registry
.CurrentUser.SetValue("Test""My Reg Key")
        
MsgBox("موافق")
    
End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        Registry
.CurrentUser.DeleteValue("Test")
        
MsgBox("موافق")
    
End Sub

    
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click
        Dim str 
As String Registry.CurrentUser.GetValue("Test")
        
MsgBox(str)
    
End Sub
    
Private Sub Form1_Load(ByVal sender As ObjectByVal e As System.EventArgsHandles Me.Load
        
'عند التحقق من قيمه في الريجستري ... تشغيل الفورم الحالي ... اما اذا  لم يوجد قيمه تشغيل فورم اخر 

    End Sub
End Class 
الرد }}}
تم الشكر بواسطة:
#4
للرفع
للرفع
الرد }}}
تم الشكر بواسطة:
#5
كود :
Dim exists As Boolean = False
        Try
            If My.Computer.Registry.CurrentUser.OpenSubKey("Test") IsNot Nothing Then
                exists = True
            End If
        Finally
            My.Computer.Registry.CurrentUser.Close()
        End Try
        If Not exists Then
            Application.ExitThread()
        End If
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6]
[/SIZE]
الرد }}}
تم الشكر بواسطة:
#6
Osama_Ghareeb
لم يعمل معي الكود

على العموم وضعت مثال
احتاج في حدث Form1_Load
اذا كانت القيمه موجوده .... فتح الفورم 1 كما هو
واذا لم تكن القيمه موجوده فتح فورم 2

مع الشكر


الملفات المرفقة
.rar   تحقق الريجستري.rar (الحجم : 45.94 ك ب / التحميلات : 55)
الرد }}}
تم الشكر بواسطة:
#7
التحقق يكون هكذا

PHP كود :
If Registry.CurrentUser.GetValue("Test"Is Nothing Then
            
'فى حالة عدم وجود القيمة
        Else
            '
فى حالة وجود القيمة

        End 
If 
الرد }}}
تم الشكر بواسطة:
#8
يعطيك العافيه
الكود يعمل معي جيدآ



حبيت اخذ رائيك في هذا الكود .... الكود يعمل معي ... هل هو صحيح 100% ام يفضل الكود السابق.؟
PHP كود :
Dim str As String Registry.CurrentUser.GetValue("Test")
        If (
str Is Nothing) = 0 Then

        
Else

            
MsgBox("لم يتم تفعيل الريجستري")
            
Me.Close()
        
End If 
الرد }}}
تم الشكر بواسطة:
#9
كلاهما صحيح ولا يوجد فرق كبير بينهما وإن كان الكود الأول أفضل لأنه قام بالتأكد من وجود القيمة مباشرة دون الحاجة لتعريف متغير وحفظه فى الذاكرة
وإن كنت أفضل أن تقوم بعمل مفتاح خاص بتطبيقك يتم إضافة أى قيم تحتاج لتخزينها

تحياتى
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 280 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  مساعده في تشغيل اكثرمن فورم في وقت واحد maherhaddaf 5 527 19-07-23, 03:28 PM
آخر رد: Taha Okla
  مساعده في كود ترحيل البيانات الى اكسل من داتا قرايد فيو maherhaddaf 1 621 27-06-23, 08:03 PM
آخر رد: Shade0001
  التحقق من معطيات قبل تشغيل البرنامج ابو محمد محمد محمد 3 510 30-04-23, 11:03 PM
آخر رد: عبدالله الدوسري
Question [VB.NET] مساعده في طريقه الاتصال بالسيرفر ايهما افضل Àhmedsaif500 0 297 10-04-23, 09:45 AM
آخر رد: Àhmedsaif500
  ممكن الحل masport tv 0 295 07-04-23, 11:36 AM
آخر رد: masport tv
  مساعده لوسمحتوا mahmoudabdelshafy1 3 528 16-03-23, 02:45 AM
آخر رد: mahmoudabdelshafy1
  [VB.NET] بالله عليكم مساعده عايز اقفل البرنامج بخصوص عمل اذن صرف اكسس وفيجوال 2013 hanyeltnen 7 1,888 04-02-23, 10:36 AM
آخر رد: hanyeltnen
  ممكن مساعده malekmohamed155 0 366 29-01-23, 10:48 PM
آخر رد: malekmohamed155

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


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