nbsp;            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 Mythread As New Threading.Thread(AddressOf dome)
        Mythread.Start()
    End Sub
    Sub AddTreeViewToForm() '将TreeView添加到Formss上
        With treeV
            .Width = 400
            .Height = 500
        End With
        Me.Controls.Add(treeV)

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

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

	Web www.51ec.org

上一篇信息学院： 解读ASP.NET 2.0 Internals…

下一篇信息学院： 利用.NET的File控件上传文件的最终解决方案(个人版)