快速业务通道

复制代码 代码如下: Function CutAndJoin(sSource, iLong, sJoiner) Dim I, N N = Len(sSource) / iLong If(N Fix(N))Then N = Fix(N) + 1 For I = 0 To N - 1 CutAndJoin = CutAndJoin 0)Then CutAndJoin = Left(CutAndJoin, Len(CutAndJoin) - Len(sJoiner)) End Function WSc

发布时间:2013-07-09 作者: 佚名 views(309)

我想到的方法有两种。 一种是WMI中的Win32_DesktopMonitor类 复制代码 代码如下: strComputer = '.' Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2') Set colItems = objWMIService.ExecQuery('Select * from Win32_DesktopMonitor',,48) For Each objItem in col

发布时间:2013-07-09 作者: 佚名 views(413)

这个down.vbs的用法看这里 http://www.jb51.net/article/15506.htm 代码: 复制代码 代码如下: On Error Resume Next Set outstreem=Wscript.stdout If (LCase(Right(Wscript.fullname,11))='Wscript.exe') Then Wscript.Quit End If If Wscript.arguments.Count4 Then Wscript.echo 'Not

发布时间:2013-07-09 作者: 佚名 views(430)

str='a|b|c|d' 要求写一段小程序得出: a|b|c|d b|c|d|a c|d|a|b d|a|b|c 这样的结果,str长度未定,格式是上边的格式。 实现代码如下: 复制代码 代码如下: str='a|b|c|d' Call Sort(str, '|') Function Sort(sSource, sDelimiter) Dim I, J, N, sItems, sTemp sItems = Split(sSource, sDelimiter) For I = 0 To UBo

发布时间:2013-07-09 作者: 佚名 views(191)

复制代码 代码如下: strIPAddress = Array('192.168.0.148') strSubnetMask = Array('255.255.255.0') strGateway = Array('192.168.0.1') strGatewayMetric = Array(1) arrDNSServers = Array('192.168.0.1','192.168.0.2') strComputer = '.' Set objWMIService = GetObject('

发布时间:2013-07-09 作者: 佚名 views(262)

复制代码 代码如下: strComputer = '.' Set objCmdLib = CreateObject('Microsoft.CmdLib') Set objCmdLib.ScriptingHost = WScript.Application Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2') WScript.Echo objCmdLib.getHostName(objWMIServic

发布时间:2013-07-09 作者: 佚名 views(433)

用Script Encoder加密VBS脚本 Script Encoder 是一个简单的命令行工具,脚本设计者可使用此工具对他们的最终脚本进行编码,从而使 Web 主机和 Web 客户端无法查看或更改其源代码。注意,这种编码只能防止对您代码的一般性浏览,而无法防止专业黑客查看您的代码和实现方式。 这其实并不是加密(encrypt)而仅仅是编码(encod

发布时间:2013-07-09 作者: 佚名 views(776)

复制代码 代码如下: On Error Resume Next Set outstreem=Wscript.stdout If (LCase(Right(Wscript.fullname,11))='Wscript.exe') Then Set objShell=Wscript.CreateObject('Wscript.shell') objShell.Run('cmd.exe /k cscript //nologo '4 Then usage() Wscript.echo 'Not enou

发布时间:2013-07-09 作者: 佚名 views(352)

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号