VBS其实存在两种标识符： 普通标识符（NORMALIDENTIFIER） 中括号标识符（BRACKETIDENTIFIER） 但是我看过的VBS书籍上都只讲了普通标识符，没有讲中括号标识符。 普通标识符的规则我们已经很熟悉了： 第一个字符必须是字母。 后面的字符可以是字母、数字和下划线（_） 长度不能超过 255 个字符 不能是VBS保留的关键字 中括号

曾经一直很好奇VbsEdit的代码自动补全是怎么实现的，现在看来，大约的确用的就是这个COM。 比如我想知道scrrun.dll（提供fso对象的dll）这个COM组件提供了哪些接口，可以用下面的代码： 复制代码 代码如下: Set tli = CreateObject('TLI.TLIApplication') Set Info = tli.TypeLibInfoFromFile('scrrun.dll') For Each Inte

今天写了一个类似于下面的程序： 复制代码 代码如下: Dim http Set http = CreateObject('msxml2.xmlhttp') http.open 'GET','http://www.sina.com.cn/',False http.send WScript.Echo http.responseText 但是却发现返回的中文都是乱码，看了一下发现新浪的编码竟然是gb2312的，汗，现在都是utf-8编码的时代了。responseT

复制代码 代码如下: Set objShell = CreateObject('WScript.shell') strCurrentDir = objShell.CurrentDirectory set fso = createobject('scripting.filesystemobject') set f=fso.getfolder(strCurrentDir) For Each i In f.files If LCase(right(i,4)) = '.exe' Then objShel

既然Python可以计算2的100次方，那么我就要用VBS实现。不过这个效率嘛，计算2的10000次方Python用了0.009013秒，VBS用了120.9805秒，不是一个等级的，我就不多说什么了。 直接上代码： 复制代码 代码如下: ''Date: 2010/10/27 ''Author: Demon ''QQ: 380401911 ''E-mail: still.demon@gmail.com begin = Timer n = 1 For i

有两种方法可以转换，一种是自己写个函数解析： 复制代码 代码如下: Function WMIDateStringToDate(DateTime) WMIDateStringToDate = _ CDate(Mid(DateTime, 5, 2) &_ '/' &_ Mid(DateTime, 7, 2) &_ '/' &_ Left(DateTime, 4) &_ ' ' &_ Mid (DateTime, 9, 2) &_ ':' &_ Mid(DateTime, 11, 2) &_ ':'

复制代码 代码如下: IP = 'jb51.net' WQL = 'Select * from Win32_PingStatus Where Address = ''$IP''' WQL = Replace(WQL,'$IP',IP) n = 0 : s = 0 Do Until n = 100 Set objWMIService = GetObject('winmgmts:\\.\root\cimv2') Set colItems = objWMIService.ExecQuery(WQL,,

当然，对于少量的字符串连接，效率并没有对程序造成多大影响，现在让我们考虑一个极端的问题：将1到100000之间的所有数字连接成一个字符串。 最简单的解决方案是直接使用&连接： 复制代码 代码如下: begin = Timer For i = 1 To 100000 str = str & CStr(i) Next WScript.Echo str finish = Timer WScript.Echo finish - b