'Terkadang perlu memindai registri komputer jarak jauh untuk menentukan keberadaan beberapa item nilai kunci, atau untuk memodifikasinya
'RegistryKey, Registry, dan RegistryHive di bawah namespace Microsoft.Win32 di .NET digunakan untuk mengoperasikan registri
'|______ ScanRemoteRegister ___________|
'|.Hak Cipta wgscd (c)2005 |
'|.QQ:153964481 Email:[email protected] |
'|.Blog:http://blog.csdn.net/wgsnet |
'|________________________________________|.
Redupkan pohonV Sebagai Tampilan Pohon Baru
Redupkan SubNode Sebagai TreeNode Baru
Redupkan pohonN Sebagai Node Pohon Baru
Fungsi OpenRemoteRegister(ByVal RemoteBaseKey Sebagai String, ByVal ComputerName Sebagai String) Sebagai String
Redupkan subkunci Sebagai Microsoft.Win32.RegistryKey
Redupkan Sebagai Microsoft.Win32.RegistryKey = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(RemoteBaseKey, Net.Dns.GetHostByName(ComputerName).HostName)
treeV.Nodes.Add(Net.Dns.GetHostByName(ComputerName).HostName) 'Tambahkan nama komputer ke TreeView
pohonV.Node.Tambahkan(k.Nama)
Redupkan Sebagai String
Untuk Masing-masing s In k.GetSubKeyNames 'Dapatkan nama subkunci
treeN.Node.Tambahkan
subkunci = k.OpenSubKey(s)
OpenKeys(subkunci) 'Buka subkunci/kunci
Berikutnya
pohonV.Node.Tambahkan(pohonN)
Fungsi Akhir
Sub OpenKeys (Kunci ByVal Sebagai Microsoft.Win32.RegistryKey)
'k.SubKeyCount' mendapatkan jumlah subkunci
Redupkan Sebagai String
Redupkan SubKey Sebagai Microsoft.Win32.RegistryKey
treeN.Nodes.Add(Kunci.Nama)
Jika Key.GetSubKeyNames.Length > 0 Lalu
Untuk Masing-masing s In Key.GetSubKeyNames 'Dapatkan nama subkunci
treeN.Node.Tambahkan
Mencoba
SubKey = Kunci.OpenSubKey(s, False)
Me.Text = s
Jika Suka "*microsoft*" Atau Suka "*wgscd*" Lalu 'Tambahkan istilah pencarian, Lalu 'Tambahkan istilah pencarian
'TAMBAHKAN KODE ANDA....
Kotak Pesan
Akhiri Jika
OpenKeys(SubKey)
Tangkap mantan Sebagai Pengecualian
Akhiri Coba
Berikutnya
treeV.Nodes.Add(treeN) 'Tambahkan kunci registri ke TreeView sebagai subkunci
End If
Akhiri Sub
Sub kubah()
OpenRemoteRegister(Microsoft.Win32.RegistryHive.CurrentUser, Net.Dns.GetHostByName("wgscd").HostName) 'Pindai item CurrentUser
'"wgscd" adalah nama komputer jarak jauh yang ingin Anda pindai. Perhatikan bahwa premisnya adalah Anda memiliki izin yang sesuai untuk "komputer jarak jauh"!
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.LocalMachine, Net.Dns.GetHostByName("wgscd").HostName)'Pindai entri LocalMachine
' OpenRemoteRegister(Microsoft.Win32.RegistryHive.Users, Net.Dns.GetHostByName("wgscd").HostName) 'Pindai item Pengguna
' OpenRemoteRegister(Microsoft.Win32.RegistryHive.ClassesRoot, Net.Dns.GetHostByName("wgscd").HostName) 'Pindai item ClassesRoot
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.CurrentConfig, Net.Dns.GetHostByName("wgscd").HostName) 'Pindai item CurrentConfig
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.DynData, Net.Dns.GetHostByName("wgscd").HostName) 'Pindai item DynData
Akhiri Sub
Sub PemindaianRemoteRegistry()
Redupkan Mythread Sebagai Threading Baru.Thread(AddressOf dome)
Mitos.Mulai()
Akhiri Sub
Sub AddTreeViewToForm() 'Tambahkan TreeView ke Formulir
Dengan pohonV
.Lebar = 400
.Tinggi = 500
Akhiri Dengan
Saya.Kontrol.Tambahkan(pohonV)
Akhiri Subpanggilan
:
ScanRemoteRegistry()