复制代码 代码如下: 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)
|