在测试目录写了一个简单的referer.php，代码如下

<?php 
if (!isset($_SERVER["HTTP_REFERER"])) 
echo "No Referer"; 
else 
echo $_SERVER["HTTP_REFERER"]; 
?> 

如果直接点击上面的链接，那么页面会显示referer页面的链接。

Set http = CreateObject("msxml2.xmlhttp") 
http.open "GET","http://gimoo.net/test/referer.php",False 
http.setRequestHeader "Referer","http://gimoo.net" 
http.send 
WScript.Echo http.responseText 

但是如果我用VBS调用msxml2.xmlhttp组件访问这个页面，返回的却是No Referer。实在匪夷所思，难道我的代码写错了？

于是Google了一下“VBS伪造HTTP REFERER”，发现搜出来的内容大部分和这篇文章一样，不用看又是复制粘贴，你抄我的，我抄你的，抄来抄去不知道到底是谁的，而且还是错的！
那篇文章第一个例子是ASP的

dim http 
set http=server.createobject("MSXML2.XMLHTTP") 
Http.open "GET",url,false 
Http.setRequestHeader "Referer","http://www.fromdomain.cn/" 
Http.send() 

开始我还以为ASP下的VBS和我直接双击运行的VBS不一样，ASP下的比较牛逼，可以改Referer。为此我还专门装了IIS测试，发现返回的照样是No Referer。后来才看到下面的留言，“原谅我对asp不熟，给不了你什么帮助，自己查点其他资料参考一下吧”，“这我没怎么玩asp了，代码只是参考来的，asp的没测试过”。

我真的不想骂人，不熟你写也就算了，起码测试一下吧，没有测试过的代码你也好意思贴上来？后来在千一网络（这个网络貌似不错）看到一个比较靠谱的答案，Referer在ASP和Ajax中是无法通过设置Header来更改的。

怒了，既然xmlhttp组件不行，我用socket来写总行了吧！（注：不是所有电脑上都注册了Winsock组件）

Set socket = WScript.CreateObject("MSWinsock.Winsock","Winsock_") 
socket.RemoteHost = "gimoo.net" 
socket.RemotePort = 80 
socket.Connect 
Do 
WScript.Sleep 100 
Loop 
Sub Winsock_Connect() 
data = "GET /test/referer.php HTTP/1.1" & vbCrLf &_ 
"Referer: http://gimoo.net" & vbCrLf &_ 
"Host: gimoo.net" & vbCrLf & vbCrLf 
socket.SendData data 
End Sub 
Sub Winsock_DataArrival(bytesTotal) 
socket.GetData str 
WScript.Echo Utf8ToUnicode(str) 
WScript.Quit 
End Sub 

Utf8ToUnicode函数比较长就不贴出来了，以前的文章写过。测试结果如下：

HTTP/1.1 200 OK 
Date: Thu, 04 Nov 2010 14:05:20 GMT 
Server: Apache 
Transfer-Encoding: chunked 
Content-Type: text/html 
f 
http://gimoo.net 
0 

可以肯定伪造Referer成功了，但是返回的结果好像有点奇怪，gimoo.net前面和后面一行的f和0是什么东西啊？（其实用浏览器访问也是这样返回的，只不过浏览器不显示给我们看罢了）我猜想f是Referer字符串的长度，但是搜了半天也找不到解释。不管了，伪造成功就行，结果难看点就难看点吧。
原文：http://demon.tw/programming/vbs-http-referer.html

网络连接状态建立于断开的VBS脚本
断开连接提示strComputer="."SetobjWMIService=GetObject("winmgmts:\"&strComputer&"rootwmi")SetcolMonitoredEvents=objWMIService.ExecNotificationQuery_("Select*fromMSNdis_StatusMediaDisconnect")D

用VBS实现监视进程创建与删除的代码
监视进程的创建，在每次创建新的进程时，临时事件消费程序都发出警报。1.监视进程的创建strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=im

用VBS实现音乐播放的多个代码小结
第一个代码，会使用默认mp3文件关联的程序，会出现音乐播放框wscript.sleep12000setws=createobject("wscript.shell")ws.run"兄弟你累了吗.mp3"第二段代码调用了WMPlayer.