今天写了一个类似于下面的程序：

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编码的时代了。responseText对utf-8编码支持得很好，但是如果是gb2312编码就会返回乱码，有时甚至会报错。无奈，只好用responseBody然后自己转码。

Dim http 
Set http = CreateObject("msxml2.xmlhttp") 
http.open "GET","http://www.sina.com.cn/",False 
http.send 
WScript.Echo GB2312ToUnicode(http.responseBody) 

于是就要自己写一个GB2312ToUnicode函数，用ado很容易实现：

Function GB2312ToUnicode(str) 
With CreateObject("adodb.stream") 
.Type = 1 : .Open 
.Write str : .Position = 0 
.Type = 2 : .Charset = "gb2312" 
GB2312ToUnicode = .ReadText : .Close 
End With 
End Function 

这样返回的就是VBS字符串默认的Unicode编码了，不过用ado不能显示我鬼使神差的VBS水平，于是自己根据“算法”再写了一个：

Function GB2312ToUnicode(str) 
length = LenB(str) : out = "" 
For i = 1 To length 
c = AscB(MidB(str,i,1)) 
If c <= 127 Then 
out = out & Chr(c) 
Else 
i = i + 1 
d = Hex(AscB(MidB(str,i,1))) 
c = "&H" & Hex(c) & d 
out = out & Chr(c) 
End If 
Next 
GB2312ToUnicode = out 
End Function 

只可惜效率太低，就当练练手吧。
原文：http://demon.tw/programming/vbs-gb2312-unicode.html

VBS中的标识符（Identifiers）
VBS其实存在两种标识符：普通标识符（NORMALIDENTIFIER）中括号标识符（BRACKETIDENTIFIER）但是我看过的VBS书籍上都只讲了普通标识符，没有讲中括号标识符

VBS访问剪贴板的几种方法小结
SetIE=CreateObject("InternetExplorer.Application")IE.Navigate("about:blank")Setclipboard=IE.document.parentWindow.clipboardData'SetData设置剪切板的内容clipboard.SetData"text","忘记了，喜

VBS伪造HTTP-REFERER的实现方法
在测试目录写了一个简单的referer.php，代码如下?phpif(!isset($_SERVER["HTTP_REFERER"]))echo"NoReferer";elseecho$_SERVER["HTTP_REFERER"];?如果直接点击上面的链接，那么页面