> 0 Then
   For Each s In Key.GetSubKeyNames '得到子键项Name
   treeN.Nodes.Add(s)
   Try
   SubKey = Key.OpenSubKey(s, False)
  
   Me.Text = s
   If s Like "*microsoft*" Or s Like "*wgscd*" Then '加如搜索条件Then '加如搜索条件
   'ADD YOR CODE ....
   MsgBox(s)
   End If
   OpenKeys(SubKey)
   Catch ex As Exception
   End Try
  
   Next
   treeV.Nodes.Add(treeN) '将注册表项以子项添加到TreeView
  
   End If
   End Sub
   Sub dome()
   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) '扫描Users项
   ' 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项
   End Sub
   Sub ScanRemoteRegistry()
   Dim Mythrea

上一页  [1] [2] [3] 下一页

在google里搜索更多.NET扫描远程计算机注册表

	Web www.51ec.org

上一篇信息学院： .NET Remoting构建分布式数据库查询…

下一篇信息学院： C#+Windows API操纵系统菜单…