昨天在采集某一个网站的时候，采集程序出错了。 是自写的采集程序。 经过搜索以后，查到一些没有用的结果，后来发现，用Msxml2.ServerXMLHTTP替换掉Msxml2.XMLHTTP,问题成功解决。 以下是分析排错过程。 老是采集一段时间就挂了，指定资源下载失败，或者拒绝访问。 后来直接全部是拒绝访问。 一开始，认为，对方服务器做了防

1. Asc(x),Chr(x):转换字符，字符码 2. Filter:搜寻字符串数组中的特定字符串 格式：v=filter(x,s[,include[,compare]]) 实例： Dim x()={'kjwang','wangkj','peter'} Dim v v=filter(x,'kj') ''结果v(0)='kjwang',v(1)='wangkj' v=filter(x,'kj',false) ''结果v(0)='peter' v=filter(x,'kj',true,vbText

使用CDO.Message对象就可以实现，示例代码演示的是gmail发送纯文本并带附件的邮件，至于其他的电子邮箱，需要修改代码中对应的smtp服务器和端口，原理也是一样的，就不举例了。贴出来的代码没有写注释，需要看注释的请下载源码。 复制代码 代码如下: Const Email_From = 'still.demon@gmail.com' Const Password = 'passwo

pack.vbs 用来打包文件夹, 根目录为文件所在目录. 复制代码 代码如下: Dim n, ws, fsoX, thePath Set ws = CreateObject('WScript.Shell') Set fsoX = CreateObject('Scripting.FileSystemObject') thePath = ws.Exec('cmd /c cd').StdOut.ReadAll() & '\' i = InStr(thePath, Chr(13)) thePath

这篇日志完全是看了一篇日志后的启发，原文为：邪恶的eval和new Function。 很少使用new Array的方式来定义数组，没想到new Array有这么一个妙用，通过new Array(n)我们可以创建n个空元素，同时也就在n个元素中间存在n-1个空白，通过join,我们可以将一些东西放在这些空白中间从而组成我们需要的特殊串，这不禁启发了我的灵感

如果问题就这么结束，那么也就不会有这篇文章。怪我手贱，在Google中输入“vbs sort”，回车，看到一段代码，顿时泪流满面。 复制代码 代码如下: Set outputLines = _ CreateObject('System.Collections.ArrayList') ''add lines outputLines.Add output outputLines.Add output outputLines.Sort() For Each outputLine i

可vbs根本就没有类似于StringBuilder这样的东东，所以咱哥们只能自己想办法优化了。 正文: 我写了几段代码做了测试，得出以下结果： ''普通字符串连接 StringLinkTest1() ''性能最差，大约耗时20秒(最要命的是在这20秒内，整个CPU几乎是100%满负荷在运行) ''普通字符串连接，但使用了临时变量来提升效率 StringLinkTest2()

复制代码 代码如下: ''''getIP set http=createobject('Microsoft.XMLHTTP') ipp='http://www.ip138.com/ip2city.asp' http.open 'get',ipp,false http.send ss=bytes2BSTR(Http.responsebody) intStrA = InStr(1,ss,'[',1)+1 sss=mid(ss,intStrA) intStrB = InStr(1,sss,']',1)