关于vb点虐 gzip的信息

vb点虐进行文件压缩

如果机器安装有winRar软件，就可以通过shell来借用他的功能达到压缩文件的效果；

10年积累的成都网站建设、网站建设经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有新绛免费网站建设让你可以放心的选择与我们合作。

参考代码如下：

Dim DeliveryF As String = Server.MapPath("..\Temp\DeliveryFactors.xls") '原始文件 (压缩前)

Dim TruckInfo As String = Server.MapPath("..\Temp\TruckInformation.xls")

Dim QDetail As String = Server.MapPath("..\Temp\QuotationDetail.xls")

'用shell命令调用winrar.exe创建压缩文件()

Dim winRarexe As String = "C:\Program Files\WinRAR\Rar" 'winzip 执行文件的位置

Dim wtarget As String = "C:\temp\QuotationVAComparsion.zip" '目地文件 (压缩后)

Dim command As String = winRarexe " a " wtarget " " DeliveryF " " TruckInfo " " QDetail

'这个命令你可以查看winrar的命令集

Dim retval As Double 'Shell 指令传回值

retval = Shell(command, AppWinStyle.MinimizedFocus)

直接读取一个gz压缩文件：

我直接创建了一个内容："asdfasdfasfd" 的 1.txt文件并用gzip 压缩。

读取：

$ zcat 1.txt.gz

asdfasdfasfd

如果内容过长可以接 less 查看：

$ zcat 1.txt.gz | less

一般登陆网站时候首先要打开一个网页对吧？

那首先要 GET 一个网址。GetResponse后，得到的流就是这个页面的源码。

源码里肯定会包含这个验证码的提问段（可能是个图片的网址，也可能是个 5+5=？之类的字符串之类的），可以分析一下这段代码出现的位置，让程序自动寻找。找到这个图片的网址，把这个图片 GET 下来，然后，就是orc识别或你人工识别咯。。。

'首先看一下。确定了。他是post方式。那么参数都要写上就搞定了

对于底层的winsock需要你抓包的这些。格式都需要少一个就会出现error。然对于inet1只需要知道是post还是get方式。。字节大小那些都不用管

需要这个 cgi-bin/rosary0908_get_plant_info_self?gprand=0.8599048447795212

因为是post需要selforfriend=0benew0908=1 提交的参数

还有一个都要的host后边的地址

我大概写一下。在外边

inet1.excute "host地址","POST",,"selforfriend=0benew0908=1"

文章名称：关于vb点虐 gzip的信息
本文网址：http://myzitong.com/article/ddepocs.html