'في بعض الأحيان يكون من الضروري فحص سجل الكمبيوتر البعيد لتحديد وجود بعض العناصر ذات القيمة الرئيسية، أو لتعديلها
'يتم استخدام RegistryKey وRegistry وRegistryHive ضمن مساحة الاسم Microsoft.Win32 في .NET لتشغيل السجل
'|______ ScanRemoteRegister ___________|
'|
'|س:153964481 البريد الإلكتروني:[email protected] |
'|.المدونة:http://blog.csdn.net/wgsnet |
'|________________________________________|
.Dim TreeV كـ New TreeView
العقدة الفرعية الخافتة كعقدة شجرة جديدة
شجرة خافتة N كعقدة شجرة جديدة
وظيفة OpenRemoteRegister (ByVal RemoteBaseKey كسلسلة، ByVal ComputerName كسلسلة) كسلسلة
تعتيم المفتاح الفرعي باسم Microsoft.Win32.RegistryKey
Dim k As Microsoft.Win32.RegistryKey = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(RemoteBaseKey, Net.Dns.GetHostByName(ComputerName).HostName)
TreeV.Nodes.Add(Net.Dns.GetHostByName(ComputerName).HostName) 'أضف اسم الكمبيوتر إلى TreeView
TreeV.Nodes.Add(k.Name)
خافت كسلسلة
لكل s في k.GetSubKeyNames 'احصل على اسم المفتاح الفرعي
TreeN.Nodes.Add(s)
المفتاح الفرعي = k.OpenSubKey(s)
OpenKeys(مفتاح فرعي) "فتح المفاتيح الفرعية/المفاتيح."
التالي
TreeV.Nodes.Add(treeN)
وظيفة النهاية
المفاتيح المفتوحة الفرعية (مفتاح ByVal كـ Microsoft.Win32.RegistryKey)
يحصل "k.SubKeyCount" على عدد المفاتيح الفرعية
خافت كسلسلة
تعتيم المفتاح الفرعي باسم Microsoft.Win32.RegistryKey
TreeN.Nodes.Add(Key.Name)
إذا كان Key.GetSubKeyNames.Length > 0 ثم
لكل مفتاح في Key.GetSubKeyNames 'احصل على اسم المفتاح الفرعي
TreeN.Nodes.Add(s)
يحاول
SubKey = Key.OpenSubKey(s, False)
Me.Text = s
إذا كنت تحب "*microsoft*" أو مثل "*wgscd*" ثم "أضف مصطلحات البحث"، ثم "أضف مصطلحات البحث"
'أضف الرمز الخاص بك....
صندوق (صناديق) الرسائل
نهاية إذا
المفاتيح المفتوحة (المفتاح الفرعي)
قبض على السابق كاستثناء
إنهاء حاول
التالي
TreeV.Nodes.Add(treeN) 'أضف مفتاح التسجيل إلى TreeView كمفتاح فرعي
End If
نهاية الفرعية
القبة الفرعية ()
OpenRemoteRegister(Microsoft.Win32.RegistryHive.CurrentUser, Net.Dns.GetHostByName("wgscd").HostName) 'فحص عنصر CurrentUser
""wgscd" هو اسم الكمبيوتر البعيد الذي تريد فحصه. لاحظ أن الفرضية هي أن لديك الأذونات المقابلة لـ "الكمبيوتر البعيد"!
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.LocalMachine, Net.Dns.GetHostByName("wgscd").HostName)'فحص إدخالات LocalMachine
' OpenRemoteRegister(Microsoft.Win32.RegistryHive.Users, Net.Dns.GetHostByName("wgscd").HostName) 'فحص عناصر المستخدمين
' OpenRemoteRegister(Microsoft.Win32.RegistryHive.ClassesRoot, Net.Dns.GetHostByName("wgscd").HostName) 'فحص عناصر ClassesRoot
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.CurrentConfig, Net.Dns.GetHostByName("wgscd").HostName) 'فحص عناصر CurrentConfig
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.DynData, Net.Dns.GetHostByName("wgscd").HostName) 'فحص عناصر DynData
نهاية الفرعية
Sub ScanRemoteRegistry()
خافت Mythread كـ Threading.Thread جديد (عنوان القبة)
Mythread.Start()
نهاية الفرعية
Sub AddTreeViewToForm() 'أضف TreeView إلى Formss
مع الشجرةV
العرض = 400
.الارتفاع = 500
نهاية مع
Me.Controls.Add(treeV)
إنهاء
المكالمة الفرعية:
ScanRemoteRegistry()