EndSub　　2、模块代码：　　OptionExplicit　　ConstERROR_SUCCESS=0＆　　ConstERROR_BADDB=1009＆　　ConstERROR_BADKEY=1010＆　　ConstREG_EXPAND_SZ=2＆　　ConstREG_BINARY=3＆　　ConstKEY_QUERY_VALUE=＆H1＆　　ConstKEY_ENUMERATE_SUB_KEYS=＆H8＆　　ConstKEY_NOTIFY=＆H10＆　　ConstREAD_CONTROL=＆H20000　　ConstSTANDARD_RIGHTS_READ=READ_CONTROL　　ConstKEY_READ=STANDARD_RIGHTS_READOrKEY_QUERY_VALUEOrKEY_ENUMERATE_SUB_KEYSOrKEY_NOTIFY　　ConstHKEY_CURRENT_USER=＆H80000001　　DimhKeyAsLong,MainKeyHandleAsLong　　DimrtnAsLong,lBufferAsLong,sBufferAsString,SubKeyAsString　　DimlBufferSizeAsLong　　DeclareFunctionRegOpenKeyExLib“advapi32.dll"Alias“RegOpenKeyExA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValulOptionsAsLong,ByValsamDesiredAsLong,phkResultAsLong)AsLong　　DeclareFunctionRegCloseKeyLib“advapi32.dll"(ByValhKeyAsLong)AsLong　　DeclareFunctionRegQueryValueExLib“advapi32.dll"Alias“RegQueryValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallpReservedAsLong,lpTypeAsLong,ByVallpDataAsString,lpcbDataAsLong)AsLong　　FunctionGetBinaryValue(EntryAsString)　　MainKeyHandle=HKEY_CURRENT_USER　　SubKey=“ControlPanel\desktop"　　rtn=RegOpenKeyEx(MainKeyHandle,SubKey,0,KEY_READ,hKey)　　Ifrtn=ERROR_SUCCESSThen'如果HKEY_CURRENT_USER\ControlPanel\desktop键被成功打开　　lBufferSize=1　　rtn=RegQueryValueEx(hKey,Entry,0,REG_BINARY,0,lBufferSize)'读取ScreenSave_Data的值　　sBuffer=Space(lBufferSize)　　rtn=RegQueryValueEx(hKey,Entry,0,REG_BINARY,sBuffer,lBufferSize)　　Ifrtn=ERROR_SUCCESSThen'如果读取ScreenSave_Data的值成功　　rtn=RegCloseKey(hKey)　　GetBinaryValue=sBuffer'函数返回ScreenSave_Data的值　　Else'如果读取ScreenSave_Data的值不成功　　CallErrorMsg　　End　　EndIf　　Else'如果HKEY_CURRENT_USER\ControlPanel\desktop键不能打开　　CallErrorMsg'调用ErrorMsg()过程　　End　　EndIf　　EndFunction　　PrivateSubErrorMsg()'显示错误信息过程　　SelectCasertn　　CaseERROR_BADDB　　MsgBox(“您的计算机注册表有错误!")　　CaseERROR_BADKEY,REG_EXPAND_SZ　　MsgBox(“您的计算机未设屏保密码不，绝对不是笑话大多数不幸与脚本专家交谈的人

'***************************************************************** '** Script: getxmlelement.vbs '** Version: 1.0 '** Created: 1/8/2009 10:58PM '** Author: Adriaan Westra '** E-mail: '** Purpose / Comments: '** Get an element from a xml file '** '** '** Changelog : '** 1/8/2009 10:58PM : Initial version '** '***************************************************************** Dim objXML ' object to hold the xml document Dim objNnode ' xml node object '***************************************************************** '** create the xml object Set objXML=CreateObject("Msxml2.DOMDocument.6.0") '***************************************************************** '** Load the xml from file objXML.load("album.xml") '***************************************************************** '** Set language for finding information to XPath objXML.setProperty "SelectionLanguage", "XPath" '***************************************************************** '** Get a reference to the node Set objNode=objXML.selectSingleNode("/album/DSC_2710/title") '***************************************************************** '** Output the requested text wscript.echo "Title : " & objNode.text 而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开始信息发送，客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息

.. 共有二种方法方法1:VB3/VB4之版本，可于Form_Load()程序中加入下列程式码：Me.Move(Screen.Width-Width)\2,(Screen.Height-Height)\2方法2:VB5以上之版本，则直接将Form之StartUpPosition设成(2-荧幕中央)即可->

Iisext.vbs 执行可用于 IIS 管理器的相同的操作在字符串处理时，如果字符串变量必须有引号，怎么处理呢？如theStr=[MyName="schunter"Class="2"]如何将此字符串显示出来呢？很多初学者肯定使用了C/C 的方法，""",或者""",这些在Vb中都是错误的

假定您的剪贴板上有一个文件路径，例如“C:\Scripts\ScriptLog.txt”如何举报　　换句话说,就是通过DBGrid控件所显示的二维网格，实际上可以形象地看到整个记录集的结构和内容示例：

。