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发命令dim函数的第三个参数，也就是截取字符的长度，我在设置这个的时候，出了些问题:response.write mid(up_address,a(i),a(i+1)-1) & “”像我上面这样写的时候，它就会报错，提示无效的过程调用或参数, response.write mid(up_address,a(i),a(i+1)+1) & “”但是当我把其中的a(i+1)-1改为a(i+1)+1时，就能执行了,a(i+1)对应的值是11，可为什么只能减不能加呢?全部代码如下: VB code:

end if如上代码，我是想把字符串按空格分解出来，但是mid的第三个参数那出了点问题，我本来是想这样截取的： VB code：

现在的问题是，经测试，mid的第三个参数那，无法使用减法，也就是说，我可以写a(i+1)+，但不能写a(i+1)-，想了好久，我一直不明白问题出在哪？应该怎么来解决呢？ 出现这个问题是因为上面的MID函数的第三个参数出现了负数,下面是在网上找的测试的VBS代码，原理一样，如下的代码： VBScript code:

'Examine the available domains the provider can reach For each dom in prov

'Examine the objects in the domain and check for Computer objects For each o in dom If o.Class="Computer" Then

'Display properties of the Computer WScript.Echo o.Class & " " & o.Name WScript.Echo " Owner: " & o.Owner WScript.Echo " Division: " & o.Division WScript.Echo " OperatingSystem: " & o.OperatingSystem WScript.Echo " OS Version: " & o.OperatingSystemVersion WScript.Echo " Processor: " & o.Processor WScript.Echo " ProcessorCount: " & o.ProcessorCount

End If

Next Next 比如将一个手榴弹当作一个对象，那么你就可以这样描述：

1.它的样子象个锤子

（即不需要再做ActiveX DLL了） Sub OnContextMenu() set srcEvent=external.menuArguments.event set EventElement=external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY) set cpbObj=external.menuArguments.clipboardData call cpbObj.setData("Text",EventElement.href) end Sub call OnContextMenu() 制作了一个安装文件，下载解压后，右键单击CopyImageUrl.inf，选择“安装”即可在删除表中的全部数据时，还可以使用TruncateTable语句

'获取已初始化Soap对象 Public Function GetSoapClient(sURL)

Dim oSoap Set oSoap=CreateObject("MSSOAP.SoapClient") oSoap.mssoapinit sURL Set GetSoapClient=oSoap End Function

'用户绑定对应序列号 sub BindCodeNumber()

Dim oSoap Dim sURL dim str sURL="" 'sURL="" Set oSoap=GetSoapClient(sURL) 'str=oSoap.HelloWorld() Set oSoap=Nothing 'msgbox str

End sub BindCodeNumber

　　　PrivateDeclareFunctionRegSetValueLib"advapi32.dll"Alias"RegSetValueA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValdwTypeAsLong,ByVallpDataAsString,ByValcbDataAsLong)AsLong　　　PrivateDeclareFunctionRegCreateKeyLib"advapi32.dll"Alias"RegCreateKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLong　　　PrivateDeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLong

　　然后声明以下两个常数，要进行注册表写入的位置是在HKEY_LOCAL_MACHINE下，我们可以在VB自带的API文本查看器中找到这些常数的定义方法

然后再在cmd里输入netshare命令，这时候没有发现共享列表了

　　三、显示本机IP地址

　　有许多时候，我们需要知道本机的IP地址，使用各种软件虽然可以办到，但用VBS脚本也非常的方便红手指导入

　　在General里声明新的变量：

　　DimPointFlagAsBoolean'判断是否已有小数点

　　我们知道小数点只能输入一次，一个数据中不能有多个小数点存在，所以需要一个布尔变量做判断如果使用当前用户以外的其他用户的凭据来映射网络驱动器，则必须提供该参数。