sex123 发表于 2012-2-27 22:11:22

是否有可能读取一个网页时,只读取这个网页的前100k字节即停止

网页比较大,我想只读取前100k字节就停止,因为前100k的字节中,已经包含我想要的元素了。

afan 发表于 2012-2-27 22:13:56

帮助文档
Local $hDownload = InetGet("http://www.autoitscript.com/autoit3/files/beta/update.dat", @TempDir & "\update.dat", 1, 1)
Do
    Sleep(250)
Until InetGetInfo($hDownload, 2)    ; 检查下载是否完成.
Local $nBytes = InetGetInfo($hDownload, 0)
InetClose($hDownload)   ; 关闭句柄,释放资源.
MsgBox(0, "", "读取字节数: " & $nBytes)

lanfengc 发表于 2012-2-28 11:00:51

你这个是完成后才监测接收文件的大小,他要的是接收中检测,获取的数据长度到100字节,就结束会话。

应该是这样的
Local $hDownload = InetGet("http://dl_dir.qq.com/qqfile/qq/QQ2011/QQ2011.exe", @TempDir & "\qq.exe", 1, 1)
Local $nBytes = 0
Do
        $nBytes = InetGetInfo($hDownload, 0)
Until $nBytes>100    ; 检查下载的数据是否大于100字节
InetClose($hDownload)   ; 关闭句柄,释放资源.
MsgBox(0, "", "读取字节数: " & $nBytes)

afan 发表于 2012-2-28 13:25:58

回复 3# lanfengc


    我是在楼主发完贴两分钟之内回的贴,直接复制的帮助文档例子,估计楼主会变通运用,但无下文…

sex123 发表于 2012-2-28 17:18:23

不会变通。一会我把我的程序的一部分拿出来,你看看怎么改吧,应该是一个自定义函数。

sex123 发表于 2012-2-28 17:20:39

Do

                $cookie = IniRead("config.ini", "settings", "cookie", "")

                $url1 = "www.baidu.com"

                $html1 = _send($url1, $cookie, "")

                $url2 = "www.sina.com.cn"

                $html2 = _send($url2, $cookie, "")

                $html = $html1 & @CRLF & $html2

sex123 发表于 2012-2-28 17:21:22

_send
这个自定义能自动停止在100K吗?

pcmi 发表于 2012-2-28 17:31:33

各有各精彩啊

sex123 发表于 2012-2-28 19:35:27

_send的自定义是这么写的,但是写到了程序的尾部。
Func _send($url, $cookie = "", $moreheader = "")

        Local $MyOpen, $rContext
        $MyOpen = _WinHttpOpen()

        $moreheader = "User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:5.0) Gecko/20100101 Firefox/5.0"

        $rContext = _WinHTTP_GetRespond($MyOpen, $url, 0 + 2 + 4, "", "", $cookie, $moreheader)

;~         _ArrayDisplay($rContext)
        If IsArray($rContext) Then
                Return BinaryToString($rContext)
        Else
                Return ""
        EndIf
        _WinHttpCloseHandle($MyOpen)
EndFunc   ;==>_send

甲壳虫 发表于 2012-2-28 21:43:12

这个简单,你不是用WinHttp吗?
WinHttp中接收数据的UDF:_WinHttpReadData($hRequest [, $iMode = Default [, $iNumberOfBytesToRead = Default ]])
$iNumberOfBytesToRead 随便设成多少就接收多少

ybb03 发表于 2012-2-29 06:51:20

同学习,正想找这方面的内容,同谢谢了

xz00311 发表于 2012-2-29 09:31:45

学习中这方面知识值得学习

zxxputian4 发表于 2012-2-29 12:24:11

多谢共享,支持楼主

sex123 发表于 2012-2-29 12:49:54

是这么写吗?,但是,出错了。Func _send($url, $cookie = "", $moreheader = "")

        Local $MyOpen, $rContext
        $MyOpen = _WinHttpOpen()

        $moreheader = "User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:5.0) Gecko/20100101 Firefox/5.0"

        $rContext = _WinHTTP_GetRespond($MyOpen, $url, 0 + 2 + 4, "", "", $cookie, $moreheader)
       
        $rContext2 = _WinHttpReadData($MyOpen, ,,100)
    Local $nBytes = 0
Do
      $nBytes = InetGetInfo($rContext2, 0)
Until $nBytes>100    ; 检查下载的数据是否大于100字节
InetClose($rContext2)   ; 关闭句柄,释放资源.
MsgBox(0, "", "读取字节数: " & $nBytes)

甲壳虫 发表于 2012-2-29 20:26:12

本帖最后由 甲壳虫 于 2012-2-29 21:01 编辑

回复 14# sex123

1. 如果只是单纯下载(GET方式),用3楼的思路就可以了。

2. 如果要POST发数据,下面这个是我在 MyChrome v2.6.1 中用的方法,稍改了一下。这个UDF使用AutoIt原生的命令,输出的是Binary,需根据不同编码用BinaryToString转成字符。另外没考虑Chunked Transfer,未将表示块大小的字去掉。网页内容中可能会包括一些不应有的字符,仅供参考。

; 例子:只读取网页前100字节内容
$var = TCPGetPost("http://paper.pubmed.cn", "GET", 100)
$var = BinaryToString($var, 4)
ConsoleWrite("网页内容:" & @crlf & $var & @crlf)

; #FUNCTION# ;===============================================================================
; Name...........: TCPGetPost
; Description ...: TCP Post / Get
; Syntax.........: TCPGetPost($url, $method, $bytes = 0, $data = "", $Proxy = "", $ProxyPort = 8080)
; Parameters ....: $url - 如:"http://hi.baidu.com/jdchenjian/blog/item/23114bf153aba5c47831aa60.html"
;                  $method - GET / POST
;                  $bytes - 要接收的字节数, 0 表示全部接收
;                  $data - 要发送的数据
;                  $Proxy - 代理服务器,如 google.cn,203.208.46.178, 127.0.0.1, localhost
;                  $ProxyPort - 代理服务器端口,如 80, 8080
; Return values .: Success - 网页内容(二进制)
;                  Failure - 空
; Author ........: 甲壳虫
;============================================================================================
Func TCPGetPost($url, $method, $bytes = 0, $data = "", $proxy = "", $ProxyPort = 8080)
        Local $array = HttpParseUrl($url) ; $Array - host, $Array - page, $Array - port
        If @error Or $method <> "GET" And $method <> "POST" Then Return SetError(1, "", "")
        Local $host = $array
        Local $page = $array
        Local $port = $array
        Local $socket = -1, $command
        TCPStartup()
        If $proxy <> "" Then
                $socket = TCPConnect(TCPNameToIP($proxy), $ProxyPort)
;~ When a client uses a proxy, it typically sends all requests to that proxy,
;~ instead of to the servers in the URLs.Requests to a proxy differ from normal requests in one way:
;~ in the first line, they use the complete URL of the resource being requested,
;~ instead of just the path. For example: GET http://www.somehost.com/path/file.html HTTP/1.0
;~ That way, the proxy knows which server to forward the request to (though the proxy itself may use another proxy).
                $command = $method & " " & $url & " HTTP/1.1" & @CRLF
        Else
                $socket = TCPConnect(TCPNameToIP($host), $port)
                $command = $method & " " & $page & " HTTP/1.1" & @CRLF
        EndIf
        If $socket = -1 Then
                TCPShutdown()
                Return SetError(1, "", "")
        EndIf

        If $method = "POST" Then $command &= "Content-Length: " & StringLen($data) & @CRLF
        $command &= "Host: " & $host & @CRLF
        $command &= "Connection: close" & @CRLF
        $command &= "" & @CRLF
        If $method = "POST" Then $command &= $data & @CRLF
        TCPSend($socket, $command)

        Local $recv, $sdata, $b = 1024, $ReceivedSize = 0
        Do
                $recv &= TCPRecv($socket, 1)
        Until @error Or StringInStr($recv, @CRLF & @CRLF)
        ; 去掉 response header (response header 以空行结尾)

        If $bytes <> 0 Then $b = $bytes
        While 1
                $recv = TCPRecv($socket, $b, 1) ; 接收
                If @error Then ExitLoop
                $sdata = _WinHttpBinaryConcat($sdata, $recv)
                $ReceivedSize = BinaryLen($sdata)
                If $bytes <> 0 Then
                        If $ReceivedSize >= $bytes Then ExitLoop
                        $b = $bytes - $ReceivedSize
                EndIf
        WEnd

        TCPCloseSocket($socket)
        TCPShutdown()
        Return SetError(0, "",$sdata)
EndFunc   ;==>TCPGetPost

; #FUNCTION# ;===============================================================================
; Name...........: HttpParseUrl
; Description ...: 解析 http 网址
; Syntax.........: HttpParseUrl($url)
; Parameters ....: $url - 网址,如:http://dl.google.com/chrome/install/912.12/chrome_installer.exe
; Return values .: Success - $Array - host, 如:dl.google.com
;                            $Array - page, 如:/chrome/install/912.12/chrome_installer.exe
;                            $Array - port, 如:80
;                  Failure - Returns empty sets @error
; Author ........: 甲壳虫
;============================================================================================
Func HttpParseUrl($url)
        Local $host, $page, $port, $aResults
        Local $match = StringRegExp($url, '(?i)^https?://([^/]+)(/?.*)', 1)
        If @error Then Return SetError(1, "", $aResults)
        $aResults = $match ; host
        $aResults = $match ; page
        If $aResults = "" Then $aResults = "/"
        If StringLeft($url, 5) = "https" Then
                $aResults = 443
        Else
                $aResults = 80
        EndIf
        Return SetError(0, "", $aResults)
EndFunc   ;==>HttpParseUrl


; #FUNCTION# ;===============================================================================
; Name...........: _WinHttpBinaryConcat
; Description ...: Concatenates two binary data returned by _WinHttpReadData() in binary mode.
; Syntax.........: _WinHttpBinaryConcat(ByRef $bBinary1, ByRef $bBinary2)
; Parameters ....: $bBinary1 - Binary data that is to be concatenated.
;                  $bBinary2 - Binary data to concatenate.
; Return values .: Success - Returns concatenated binary data.
;                  Failure - Returns empty binary and sets @error:
;                  |1 - Invalid input.
; Author ........: ProgAndy
; Modified.......: trancexx
; Remarks .......:
; Related .......: _WinHttpReadData
; Link ..........:
; Example .......:
;============================================================================================
Func _WinHttpBinaryConcat(ByRef $bBinary1, ByRef $bBinary2)
        Switch IsBinary($bBinary1) + 2 * IsBinary($bBinary2)
                Case 0
                        Return SetError(1, 0, Binary(''))
                Case 1
                        Return $bBinary1
                Case 2
                        Return $bBinary2
        EndSwitch
        Local $tAuxiliary = DllStructCreate("byte[" & BinaryLen($bBinary1) & "];byte[" & BinaryLen($bBinary2) & "]")
        DllStructSetData($tAuxiliary, 1, $bBinary1)
        DllStructSetData($tAuxiliary, 2, $bBinary2)
        Local $tOutput = DllStructCreate("byte[" & DllStructGetSize($tAuxiliary) & "]", DllStructGetPtr($tAuxiliary))
        Return DllStructGetData($tOutput, 1)
EndFunc   ;==>_WinHttpBinaryConcat

3. 如果你用WinHTTP,用我10楼的思路,具体看下WinHTTP的帮助文档。用这个就简单多了:
#include "WinHttp.au3"

;~ 例:只读取网页前100字节内容
$var = TCPGetPost("paper.pubmed.cn", "/", "GET", 100)
$var = BinaryToString($var, 4)
ConsoleWrite("网页内容:" & @crlf & $var & @crlf)


; #FUNCTION# ;===============================================================================
; Name...........: TCPGetPost
; Description ...: TCP Post / Get
; Syntax.........: TCPGetPost($host, $page, $method, $bytes = 0, $sdata = Default, $sHeader = Default)
; Parameters ....: $host - hi.baidu.com
;                  $page - 如:"/jdchenjian/blog/item/23114bf153aba5c47831aa60.html"
;                  $method - GET / POST
;                  $bytes - 要接收的字节数, 0 表示全部接收
;                  $sdata - 要发送的数据
;                  $sHeader - 额外的 header
; Return values .: Success - 网页内容(字符)
;                  Failure - 空
;============================================================================================
Func TCPGetPost($host, $page, $method, $bytes = 0, $sdata = Default, $sHeader = Default)
        Local $hOpen = _WinHttpOpen(Default, $WINHTTP_ACCESS_TYPE_NO_PROXY) ; 不用代理
        Local $hConnect = _WinHttpConnect($hOpen, $host, 80)
        Local $hRequest = _WinHttpSimpleSendRequest($hConnect, $method, $page, Default, $sdata, $sHeader)
        _WinHttpReceiveResponse($hRequest)
        Local $data = _WinHttpReadData($hRequest, 2, $bytes)
        _WinHttpCloseHandle($hRequest)
        _WinHttpCloseHandle($hConnect)
        _WinHttpCloseHandle($hOpen)
        Return $data
EndFunc
页: [1]
查看完整版本: 是否有可能读取一个网页时,只读取这个网页的前100k字节即停止