ASP.NET编程：.NET扫描远程盘算机注册表
说句实话，Java跨平台根本就不是外行人想想的那种，一次编译，处处运行。注册表偶然候必要扫描远程盘算机的注册表，判别一些键值项的存在与否，大概修正他们.NET里的Microsoft.Win32定名空间下的RegistryKey,Registry,RegistryHive就是用来操纵注册表的
|______ScanRemoteRegister___________|
|Coyprightwgscd(c)2005|
|QQ:153964481E-mail:wgscd@126.com|
|Blog:http://blog.csdn.net/wgsnet|
|______________________________________|
DimtreeVAsNewTreeView
DimSubNodeAsNewTreeNode
DimtreeNAsNewTreeNode
FunctionOpenRemoteRegister(ByValRemoteBaseKeyAsString,ByValComputerNameAsString)AsString
DimsubkeyAsMicrosoft.Win32.RegistryKey
DimkAsMicrosoft.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)
DimsAsString
ForEachsInk.GetSubKeyNames失掉子键项Name
treeN.Nodes.Add(s)
subkey=k.OpenSubKey(s)
OpenKeys(subkey)翻开子项/键
Next
treeV.Nodes.Add(treeN)
EndFunction
SubOpenKeys(ByValKeyAsMicrosoft.Win32.RegistryKey)
k.SubKeyCount失掉子键项数
DimsAsString
DimSubKeyAsMicrosoft.Win32.RegistryKey
treeN.Nodes.Add(Key.Name)
IfKey.GetSubKeyNames.Length>0Then
ForEachsInKey.GetSubKeyNames失掉子键项Name
treeN.Nodes.Add(s)
Try
SubKey=Key.OpenSubKey(s,False)
Me.Text=s
IfsLike"*microsoft*"OrsLike"*wgscd*"Then加如搜刮前提Then加如搜刮前提
ADDYORCODE....
MsgBox(s)
EndIf
OpenKeys(SubKey)
CatchexAsException
EndTry
Next
treeV.Nodes.Add(treeN)将注册表项以子项增加到TreeView
EndIf
EndSub
Subdome()
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项
EndSub
SubScanRemoteRegistry()
DimMythreadAsNewThreading.Thread(AddressOfdome)
Mythread.Start()
EndSub
SubAddTreeViewToForm()将TreeView增加到Formss上
WithtreeV
.Width=400
.Height=500
EndWith
Me.Controls.Add(treeV)
EndSub
挪用：
ScanRemoteRegistry()前天傍晚我发表了《Java的跨平台就是一句谎言。》，原本就是周末闲来无事，发表一篇略带争议性的博文让大家都来吵吵架，发表自己的看法，根本就没想着谁把谁打倒，一个行业或者是技术阵营是无法用短期口水仗打到对手的。 关于ASP.NET功能上，ASP.NET比微软以前的ASP(96年出现)有更强大的library,更好的稳定性。ASP.NET可以使用.NETFramework中所有组件(也就是说.NET能实现的，ASP.NET一样能实现)。 主流网站开发语言之PHP:PHP的全名非常有趣，它是一个巢状的缩写名称——“PHP:HypertextPreprocessor”，打开缩写还是缩写。PHP是一种HTML内嵌式的语言(就像上面讲的ASP那样)。而PHP独特的语法混合了C，Java，Perl以及PHP式的新语法。它可以比CGI或者Perl更快速地执行动态网页。 网页从开始简单的hmtl到复杂的服务语言，走过了10多个年头，各种技术层出不穷，单个的主流技术也在不断翻新的版本，现在分析下各种语言的区别、优势、劣势、开发注意事项！ 比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 主流网站开发语言之PHP:PHP的全名非常有趣，它是一个巢状的缩写名称——“PHP:HypertextPreprocessor”，打开缩写还是缩写。PHP是一种HTML内嵌式的语言(就像上面讲的ASP那样)。而PHP独特的语法混合了C，Java，Perl以及PHP式的新语法。它可以比CGI或者Perl更快速地执行动态网页。 ASP在执行的时候，是由IIS调用程序引擎，解释执行嵌在HTML中的ASP代码，最终将结果和原来的HTML一同送往客户端。
页:
[1]