声明：DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByVallpComputerNameAsString)AsLong使用：NewName="HelloWorld"SetComputerNameNewName->

只有当复制本地计算机的配置时才使用该地址 重启电脑正是利用这一点,在WLL中可以通过调用WordBasic函数来实现对Word的定制

例如一个完整的路径如下所示： 　　"HKCR\Software\Microsoft\Windows\CurrentVersion\Policies\NoRun" 　 方法详解 　　1、RegRead操作详解 　　读操作RegRead主要是用来读取注册表中主键的默认值或键值的数据,我们可以将读得的数据送到相应的变量中,再利用VB中的MsgBox()函数将该数据显示出来,这就达到了读取注册表中数据的目的(也可以利用对象OperationRegistry的方法Popup()将读取的数据送至屏幕), 例如: 　　2、RegWrite操作详解 　　写操作RegWrite主要是用来在注册表中新建主键或键值,并要赋予给它们一个初始值,该操作同样可以对注册表中以存在的主键或键值进行数据的修改,因此写操作的参数结构就比读操作要复杂一些,它不仅要路径参数,还要一个初始值和类型参数. 　　先来看初始值参数,该参数对于写操作来说是必不可少的，它可以为空(null)但却不能省掉如果有客户退出，则关闭相应的连接

只要把上面文件中的所有　换成你要执行的ASP文件的URL地址就可以了DataArrival事件程序如下：

　　

　　PrivateSubtcpServer_DataArrival

　　(ByValbytesTotalAsLong)

　　DimstrDataAsString

　　DimiAsLong

　　DimmKeyAsString

　　tcpServer.GetDatastrData

　　'接收数据并存入strData

　　Fori=1ToLen(strData)

　　'分离strData中的命令

　　IfMid(strData,i,1)="@"Then

　　mKey=Left(strData,i-1)

　　'把命令ID号存入mKey

　　

　　'把命令参数存入strData

　　strData=Right(strData,Len(strData)-i)

　　ExitFor

　　EndIf

　　Nexti

　　SelectCaseVal(mKey)

　　Case1

　　‘驱动器名、目录名、文件名

　　Case2

　　强制关闭服务器端的计算机

　　Case3

　　强制重启服务器端的计算机

　　Case4

　　屏蔽任务栏窗口；

　　Case5

　　屏蔽开始菜单；

　　Case6

　　按照客户机端传过来的文件名或目录名，而删除它；

　　Case7

　　屏蔽热启动键；

　　Case8

　　运行服务器端的任何程序

　　EndSelect

　　EndSub

　　

　　客户机端用tcpClient.SendData发命令

|----变量类型 启动UniversalDataAccessWebSite在下载之前先到VB6中z查一下，【控件】【O定引用目】中的MicrosoftJetandReplicationObjectsX.Xlibrary如果已经是2.1以上的版本，您就可以不用下载了比如我想知道scrrun.dll（提供fso对象的dll）这个COM组件提供了哪些接口，可以用下面的代码： 或者我忘记了fso对象有哪些属性和方法，而又没有参考文档，可以用下面的代码： 时间和篇幅有限，举的例子比较简单，更详细的请查阅文档（参考链接2为下载地址）。