'บางครั้งจำเป็นต้องสแกนรีจิสทรีของคอมพิวเตอร์ระยะไกลเพื่อตรวจสอบการมีอยู่ของรายการคีย์-ค่าบางรายการ หรือเพื่อแก้ไขรายการเหล่านั้น
'RegistryKey, Registry และ RegistryHive ภายใต้เนมสเปซ Microsoft.Win32 ใน .NET ใช้เพื่อดำเนินการรีจิสทรี
'|______ ScanRemoteRegister ___________|
'|. Coypright wgscd (c)2005 |
'|. QQ:153964481 อีเมล:[email protected] |
'|. บล็อก:http://blog.csdn.net/wgsnet |
'|________________________________________|.
Dim treeV เป็น TreeView ใหม่
Dim SubNode เป็น TreeNode ใหม่
Dim treeN เป็น TreeNode ใหม่
ฟังก์ชัน OpenRemoteRegister (ByVal RemoteBaseKey As String, ByVal ComputerName As String) เป็นสตริง
คีย์ย่อย Dim เป็น Microsoft.Win32.RegistryKey
Dim k As Microsoft.Win32.RegistryKey = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey (RemoteBaseKey, Net.Dns.GetHostByName (ชื่อคอมพิวเตอร์) ชื่อโฮสต์)
treeV.Nodes.Add(Net.Dns.GetHostByName(ComputerName).HostName) 'เพิ่มชื่อคอมพิวเตอร์ลงใน TreeView
treeV.Nodes.Add(k.ชื่อ)
Dim เป็นสตริง
สำหรับแต่ละ s ใน k.GetSubKeyNames 'รับชื่อคีย์ย่อย
treeN.Nodes.Add(s)
คีย์ย่อย = k.OpenSubKey
OpenKeys(คีย์ย่อย) 'เปิดคีย์ย่อย/คีย์
ต่อไป
treeV.Nodes.Add (treeN)
ฟังก์ชันสิ้นสุด
OpenKeys ย่อย (คีย์ ByVal เป็น Microsoft.Win32.RegistryKey)
'k.SubKeyCount' รับจำนวนคีย์ย่อย
Dim เป็นสตริง
Dim SubKey เป็น Microsoft.Win32.RegistryKey
treeN.Nodes.Add (คีย์ชื่อ)
ถ้า Key.GetSubKeyNames.Length > 0 แล้ว
สำหรับแต่ละ s In Key.GetSubKeyNames 'รับชื่อคีย์ย่อย
treeN.Nodes.Add(s)
พยายาม
SubKey = Key.OpenSubKey (s, False)
Me.Text = s
หากชอบ "*microsoft*" หรือชอบ "*wgscd*" จากนั้นให้ 'เพิ่มคำค้นหาจากนั้น' เพิ่มคำค้นหา
'เพิ่มรหัสของคุณ....
กล่องข้อความ
สิ้นสุดถ้า
OpenKeys(คีย์ย่อย)
จับอดีตเป็นข้อยกเว้น
สิ้นสุด ลอง
ถัดไป
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
จบหมวดย่อย
ย่อย ScanRemoteRegistry()
Dim Mythread เป็นเธรดใหม่ เธรด (AddressOf โดม)
Mythread.Start ()
จบหมวดย่อย
ย่อย AddTreeViewToForm() 'เพิ่ม TreeView ไปยัง Formss
กับทรีวี
.ความกว้าง = 400
.ส่วนสูง = 500
จบด้วย
Me.Controls.Add(treeV)
ย่อย
:
ScanRemoteRegistry()