求助VB解压Gzip代码-CSDN论坛

求助VB解压Gzip代码

VB > API

收藏回复

[问题点数：100分]

⋅求助VB解压Gzip代码 更多帖子 关注私信空间博客 longzhiziln 等级 本版专家分：0 结帖率 0%: Private Sub Winsock1_Connect()
    Dim StrCommand As String
    StrCommand = StrCommand & "GET /s?bs=%B7%C7%B3%CF%CE%F0%C8%C5&f=8&wd=%B7%C7%B3%CF%CE%F0%

C8%C5 HTTP/1.1" & vbCrLf
    StrCommand = StrCommand & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,

application/x-shockwave-flash, application/msword, application/vnd.ms-excel,

application/vnd.ms-powerpoint, application/x-silverlight, application/QVOD, application/QVOD,

*/*" & vbCrLf
    StrCommand = StrCommand & "Referer: http://www.baidu.com/" & vbCrLf
    StrCommand = StrCommand & "Accept-Language: zh-cn" & vbCrLf
    StrCommand = StrCommand & "Accept-Encoding: gzip, deflate" & vbCrLf
    StrCommand = StrCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1;

SV1; QQDownload 1.7; .NET CLR 2.0.50727; CIBA; Alexa Toolbar)" & vbCrLf
    StrCommand = StrCommand & "Host: www.baidu.com" & vbCrLf
    StrCommand = StrCommand & "Connection: Keep-Alive" & vbCrLf
    StrCommand = StrCommand & "Cookie: BAIDUID=E3E01D2A45C64A7EEED5379889E976BF:FG=1" &

vbCrLf & vbCrLf
    Winsock1.SendData StrCommand
End Sub

WinSock接收来的Gzip数据解压位正常数据，希望各位大侠帮我解决。

2010-08-10 17:59:35

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅管理员，论坛服务器被搬到朝鲜了吗？

⋅贪吃蛇小游戏

⋅挺粗糙的一个画图小程序

更多帖子

关注私信空间博客

笨狗先飞

等级

本版专家分：12797

勋章

签到新秀

黄花 2018年7月硬件/嵌入开发大版内专家分月排行榜第二
2017年6月 VB大版内专家分月排行榜第二: 用winsock处理http协议不是很好,可以试试winhttp,解码用zlib.dll网上有下载的

2010-08-10 23:52:52

点赞只看TA 引用举报 #1得分 0

⋅求一条SQL语句，同一个表批量更新 ⋅水个分，致好久不来 ⋅周末散粪玩 更多帖子 关注私信空间博客 神马被哪个妞占用了呢 等级 本版专家分：12519: 可以不用gzip传输的，服务器回给你的不是gzip数据
把这句去掉试试
StrCommand = StrCommand & "Accept-Encoding: gzip, deflate" & vbCrLf

2010-08-11 08:19:39

点赞只看TA 引用举报 #2得分 0

⋅求助VB解压Gzip代码 更多帖子 关注私信空间博客 longzhiziln 等级 本版专家分：0: 去掉StrCommand = StrCommand & "Accept-Encoding: gzip, deflate" & vbCrLf
数据量大的时候，软件会很慢，

因为默写特殊的功能限制，所以不得不用Winsock

Zlib中有解压数据流的VB的源码吗

2010-08-11 16:12:25

点赞只看TA 引用举报 #3得分 0

⋅有个小活需要把百来行MASM x86转为Linux NASM汇编，近四位数人民币酬谢 ⋅找做过H264编解码器的牛人充当顾问 ⋅有一Flex项目，寻觅有经验者兼职 更多帖子 关注私信空间博客 kmzs 等级 本版专家分：11790: Zlib当然没有VB源码，可以找编译为DLL的，尝试以API方式访问其中的解码函数解码。记得有人做过一个VB自定义控件能调用Zlib的。

2010-08-12 20:58:28

点赞只看TA 引用举报 #4得分 0

⋅帮忙看看这段代码的问题。。关于CString,关于new,delete ⋅问个关于CString的小问题 ⋅线程同步小问题(InterlockedExchangeAdd) 更多帖子 关注私信空间博客 Gordon_Freeman 等级 本版专家分：69

楼主干吗搞这么复杂，用winsock处理
用XMLHTTP不是更好吗？直接使用responseText

而且，你winsock可以不发送gzip的请求，这样服务器返回的信息就不用解压缩了



StrCommand = StrCommand & "Referer: http://www.baidu.com/" & vbCrLf

  StrCommand = StrCommand & "Accept-Language: zh-cn" & vbCrLf

  StrCommand = StrCommand & "Accept-Encoding: gzip, deflate" & vbCrLf

把这段代码删掉

  StrCommand = StrCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1;  



SV1; QQDownload 1.7; .NET CLR 2.0.50727; CIBA; Alexa Toolbar)" & vbCrLf

2010-08-18 14:37:52

点赞只看TA 引用举报 #5得分 0

⋅求一条SQL语句，同一个表批量更新 ⋅水个分，致好久不来 ⋅周末散粪玩 更多帖子 关注私信空间博客 神马被哪个妞占用了呢 等级 本版专家分：12519: 顶起……
我的一个也是由于没有解决gzip在vb下解压的问题而放弃了Accept-Encoding: gzip这句，虽然本来就数据不大。但是总给人怪怪的。

期待解决……

2010-08-18 16:32:01

点赞只看TA 引用举报 #6得分 0

⋅管理员，论坛服务器被搬到朝鲜了吗？

⋅贪吃蛇小游戏

⋅挺粗糙的一个画图小程序

更多帖子

关注私信空间博客

笨狗先飞

等级

本版专家分：12797

勋章

签到新秀

黄花 2018年7月硬件/嵌入开发大版内专家分月排行榜第二
2017年6月 VB大版内专家分月排行榜第二

这个是我用过的解码程序,可以用,但是有时候会解出些乱码,要用到zlib.dll版本是1.1.2.0



Public Declare Function uncompress Lib "zlib.dll" (dest As Any, destLen As Any, src As Any, ByVal srcLen As Long) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)



Public Function DecompressData(TheData() As Byte, OrigSize As Long) As Long

    Dim BufferSize As Long, TempBuffer() As Byte, Result As Long

    BufferSize = OrigSize

    BufferSize = BufferSize + (BufferSize * 0.01) + 12

    ReDim TempBuffer(BufferSize)

    Result = uncompress(TempBuffer(0), BufferSize, TheData(0), UBound(TheData) + 1)

    ReDim Preserve TheData(BufferSize - 1)

    CopyMemory TheData(0), TempBuffer(0), BufferSize

    Erase TempBuffer

    DecompressData = Result

End Function

2010-08-18 19:54:27

点赞 1 只看TA 引用举报 #7得分 0

⋅求助VB解压Gzip代码 更多帖子 关注私信空间博客 longzhiziln 等级 本版专家分：0: 谢谢，bakw，我测试下看是否可用

2010-08-25 00:38:06

点赞只看TA 引用举报 #9得分 0

收起

收藏回复

longzhiziln

等级：

关注私信 TA的帖子

VB6进行GZIP解压&C#进行GZIP压缩和解压: VB进行GZIP解压的,DLL是系统的,如果没有 [点击下载] 1 Option Explicit 2 'GZIP API 3 '-------------------------------------------------- 4 Private Declare Sub CopyMemory Lib "kernel32" Alias ...

VB6之借助zlib实现gzip解压缩: 这是个简版的，可以拿来做下网页gzip的解压缩，整好我的webserver还不支持这个，有时间了就加上。 zlib.dll下载请点击我！模块zlib.bas的代码如下： 1 'code by lichmam from cnblogs.com 2 'whatfor: ...

vb.net 利用.net自带的GZipStream压缩或者解压文件的代码，不需要任何第三方控件: 网上很少有用VB写的压缩文件的代码，但是，在网络传输，文件下载,打包发布等等方面的需求又比较多，所以，借鉴了一下C#代码的例子，改造成了VB用的类。另外加上了多层文件夹压缩解压。但是，因为时间有限，只是将...

关于HTTP GZIP解压问题: 如何用vb获取网络上的xml文件,并解析内容关于GZIP的解码怎样解gzip的压缩请问Wininet是否可以进行Gzip的http传输，尤其是post的时候！如果可以如何实现？关于GZIP格式解压缩HTTP数据包的问题,我使用ZLIB...

【VB.NET】解密gzip压缩的网页数据流: 因为采集某个网页遇到问题，一直无法获取页面数据。经过一番排查，发现该网站会检查客户端的Header信息，如果遇到不明确...实际上.NET已经为我们封装好了GZip和Deflate加解压算法类，都位于 System.IO.Compression...

vbs表白代码+整人代码，抖音vbscript表白代码: 步骤二：将以下代码复制过去（中文可以改） const title = “爱情测试” const yourname = “嫦娥” const question = “你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。” const info = “你在说谎！不要...

VB6.0和VB.NET对比: 不能简单认为VB .net是VB的新版本。首先它们一个是完全面向对象的语言，而另一个不是完全面向对象的，其次VB .NET是构建于.Net framework之上的。当然，它们同属Basic系列语言，又同为微软所开发，语法上有一定的...

VB当中的颜色代码: 颜色常数颜色常数值描述 vbBlack &H0 黑色 vbRed &HFF 红色 vbGreen &HFF00 绿色 vbYellow &HFFFF 黄色 vbBlue &HFF0000 兰色 vbMagenta &...amp...

vb语言代码大全: VisualBasic是微软公司推出的简单...本文主要介绍的就是vb语言代码大全，分别从五种常用的vb语言代码中来详细说明，跟随小编一起来了解一下吧。 vb语言代码大全 1、数值型函数： abs（num）：返回绝对值 ...

vb.net 打印窗体代码求助: ![图片说明]... 声明，窗体2从不出现 form1按下打印按钮，则把form2整个窗体打印出来以前vb6.0可以直接写fomr2.printform的，现在用不了，呜呜呜大神求助

【PC】自制QQ机器人（python+VB6）: 目前网上的那些QQ机器人都需要下载什么...VB6：1.定时获取QQ消息，也就是对方说了什么。2.定时发送来自python处理好的回答（txt文件格式）。3.对获取的QQ消息分析，既不能是对方上次发的消息（已经处理完并发送）也...

VB编辑器之代码颜色修改: VB编辑器 VB文本编辑器 VB代码颜色修改 VB背景色修改

vb登录与注册的代码如何编写: vb登录与注册界面代码，不调用数据库，调用某一个文本文件中的数据，如何验证用户名密码是否对应

C#和VB代码互相转换: 在线转换

VB.net如何解压文件？: 要求： - 参数：压缩文件路径，解压后的文件输出目录 - 返回值：布尔值，是否成功解压 - 所有路径已经确保正常，都可以正常读写就求一个解压文件的代码啊啊啊啊qwq

【VB6】如何用纯VB代码写个五子棋程序？（一）: （本文适合VB初学者）打开VB——新建标准EXE项目完成这些最基本的之后点确定我是打算写一个双人五子棋软件所以界面程序需要全屏/自由大小在这里我先做一个可接受大小的窗体这样就可以安排...

vb如何连接sql数据库？用代码: 环境是server2003，sql为2008r2，VB连接数据库，用代码连接

vb基于文本框内加法计算的两种代码: 最简明的代码：Private Sub Command1_Click() Form1.Text3.Text = Val(Form1.Text1.Text + Form1.Text2.Text) End Sub利用变量代码，缺点长度太长。Private Sub Command1_Click() Dim a As Single Dim b As Single ...

VB 对数据库access的模糊查询代码: Option Explicit Dim conn As New ADODB.Connection '定义connection 对象 Dim rs As New ADODB.Recordset Private Sub Form_Load() '初始化程序 Set conn = New ADODB.Connection '分配一个connection对象 ...

VB2010连接三种数据库源代码: VB2010 微软件自身三大常用数据ADO.NET连接源代码

车牌识别系统源代码: 　本公司主要从事车牌识别算法开发，在车牌识别这行有一定知名度，有成熟的标清车牌识别源代码出售，并附源代码文档说明及VC++、BCB、VB、Delphi、C#等开发包。在市场有五年应用成功案例，代码具有极高商业价值。 ...

VB整人代码【摘】: 一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> 复制代码代码如下:On Error Resume Next Dim wsh,...

vb 二进制转十进制代码: vb 二进制转十进制代码不懂如何转换，求详细的过程。大神求带，大神求带，大神求带，大神求带，大神求带，

VB中Msgbox提示框代码“vbOKOnly”与“vbOKCancel”的区别: 当我最开始时编辑的代码是这样的 If MsgBox("是否真的要退卡？", vbOKonly, "退卡提示") = vbok Then MsgBox"退卡成功！", vbOKOnly, "提示" end if 但是...

vb初学者必看: vb

如何在VB6.0中用代码加载系统字体: 就是通过组合框能够把系统中的字体全部加载出来，不知道是要用什么代码！

在线工具--把C#代码转换成VB.NET代码: 在线工具--把C#代码转换成VB.NET代码有不少朋友在网上找资料时经常会遇到想要VB.NET的代码，但却只有C#的代码。自己改又改不大来！本人不经意发现有一个在线工具，使用方便。支持：C#---> VB.NET ...

用VB 代码读取 Excel 内容: 常规的方法可能是循环读取每一行每一个格子的内容并存入 Recordset 并保存此处使用Open Recordset 的方式，将 Excel Worksheet 作为一个数据源直接读取速度将是数理级的差别，几万笔记录的情况下，将由几十秒...

VB.NET 如何实现代码自动生成控件添加绑定事件---章鱼哥: ‘********************************************************************** ‘作者：章鱼哥 QQ：3107073263 群：309816713 ‘自定义控件三步走： ’ 1、定义一个该类型控件的实例对像 ’ 2、添加到父控件的...

vb.net如何使用代码给DataGridView…: vb.net如何使用代码给DataGridView添加按钮,以下代码将在表格最后一列添加一个“掉站管理原因”按钮 Dim btnEdit As New DataGridViewButtonColumn() btnEdit.Name = "btnEdit" btnEdit.HeaderText = "掉...

相关热词 c#请求接口数据 c#编辑模板 c# 内存存储 c# poi 生成图表 c#页面弹出页面选择框 c#从服务器加载窗体单链表代码c# c#mvc过滤器 c#调用dll 单实例 c# 异步更新ui