威山滴屋

        一般在VB中通过创建MSXML2.XmlHttp使用XMLHTTP，MSXML2.XmlHttp是无法发送新的Cookie值的。微软说MSXML2.XmlHttp有BUG，需要两次设置Cookie头才可以，比如：
        XmlHttp.SetRequestHeader "Cookie", "NewCookie='hello'"
...

        本代码经过威山滴屋www.v3d5.com实际测试，效果明显。
        最近有个程序需要xmlhttp抓取网页数据。实际使用时发现，设置xmlhttp为异步模式，由于网络的不稳定性和返回数据过大，很容易导致接收数据不完整。于是改用同步模式，在函数末尾循环检测XmlHttp.readyState 是否为 4，代码如下：
...

很久以前写的一个小程序，用来计算查询字符串的16位MD5码和32位MD5码，并可以联机查询MD5码对应的明文，使用了CMD5.COM的接口。

现在放出来吧。版权所无，转载随意，也不奢求能加上嬷嬷茶的小名了......

输入字符，自动计算MD5码

摘自圈内www.quannei.com

作者：田嘉奇

不直接挖掘客户，而采用公共宣传、品牌活动和软性文章等方式进行推广，这种依靠“形象感染力”和“口碑宣传”的推广方式造就了嘉信理财、麦肯锡等许许多多非常成功的企业，被其创始人田嘉奇称之为“吸式推广”。

网上流传有很多vb下的CRC32校检代码，找到一个能用的不容易啊。废话少说，上图上代码！源代码下载见文末

这是原始文件crc32.exe对自身的检验

拷贝这个文件，对复制出来的"复件 crc32.exe"添加一个特征码，再次校检

...

‘威山http://www.v3d5.com常用的MD5编码类模块

Option Explicit
'==================================================
'作  用：设置类模块变量,1.FileMD5 path ,文件md5,2.StringMD5,字符串md5
'==================================================
...

'威山http://www.v3d5.com常用的注册表操作类，感谢原作者

'注册表操作模块
'设置值
'SetRegistryValue(ByVal hKey As RootKeyEnum, ByVal KeyName As String, _
    ByVal ValueName As String, ByVal Value As Variant, valueType As RegValueTypes, _
...

'威山使用的BASE64编码类模块

Option Explicit
Dim Base64Chr         As String
Dim NullChr As String
Dim psBase64Chr(0 To 63)    As String

Public Function InitBase(ByVal Base64Chr As String)
...