vb點虐 進行文件壓縮

如果機器安裝有winRar軟件，就可以通過shell來借用他的功能達到壓縮文件的效果；

10年積累的成都網(wǎng)站建設、網(wǎng)站建設經(jīng)驗，可以快速應對客戶對網(wǎng)站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡服務。我雖然不認識你，你也不認識我。但先網(wǎng)站設計后付款的網(wǎng)站建設流程，更有新絳免費網(wǎng)站建設讓你可以放心的選擇與我們合作。

參考代碼如下：

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創(chuàng)建壓縮文件()

Dim winRarexe As String = "C:\Program Files\WinRAR\Rar" 'winzip 執(zhí)行文件的位置

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)

VB點虐 環(huán)境下 不接壓直接讀取GZ壓縮文件內容?能實現(xiàn)嗎？

直接讀取 一個gz壓縮文件：

我直接創(chuàng)建了一個內容："asdfasdfasfd" 的 1.txt文件并用gzip 壓縮。

讀取：

$ zcat 1.txt.gz

asdfasdfasfd

如果內容過長可以接 less 查看：

$ zcat 1.txt.gz | less

vb點虐 如何使用HttpWebRequest模擬登陸帶驗證碼的網(wǎng)站

一般登陸網(wǎng)站時候首先要打開一個網(wǎng)頁對吧？

那首先要 GET 一個網(wǎng)址。GetResponse后，得到的流就是這個頁面的源碼。

源碼里肯定會包含這個驗證碼的提問段（可能是個圖片的網(wǎng)址，也可能是個 5+5=？ 之類的字符串之類的），可以分析一下這段代碼出現(xiàn)的位置，讓程序自動尋找。找到這個圖片的網(wǎng)址，把這個圖片 GET 下來，然后，就是orc識別或你人工識別咯。。。

VB如何用Inet1控件POST數(shù)據(jù)并得到返回值

'首先看一下。確定了。他是post方式。那么參數(shù)都要寫上就搞定了

對于底層的winsock需要你抓包的這些。格式都需要少一個就會出現(xiàn)error。然對于inet1只需要知道是post還是get方式。。字節(jié)大小那些都不用管

需要這個 cgi-bin/rosary0908_get_plant_info_self?gprand=0.8599048447795212

因為是post需要selforfriend=0benew0908=1 提交的參數(shù)

還有一個都要的host后邊的地址

我大概寫一下。在外邊

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