本帖最后由 hnfeng 于 2019-6-4 16:51 编辑
想下载网页文本内容,但是总不成功
使用 _INetGetSource 没成功
#include <Inet.au3>
#include <String.au3>
Local $hf = BinaryToString(_INetGetSource("http://kaijiang.500.com", False)) ; 加不加BinaryToString都不成功
MsgBox(0,0,$hf)
先保存为文件,仍然不成功#include <Array.au3>
#include <Inet.au3>
#include <String.au3>
Local $HtmlFile = @ScriptDir & "\~_CPKJ_temp.txt"
Local $hf = InetGet("http://kaijiang.500.com", $HtmlFile, 1, 1)
Do
Sleep(250)
Until InetGetInfo($hf, 2)
If InetGetInfo($hf, 3) Then
Local $gg = FileOpen($HtmlFile)
Local $RF = FileRead($gg)
$RF=BinaryToString($RF) ; 加或不加该行,都不成功
MsgBox(0, 0, $RF)
Else
MsgBox(0, "", "获取失败")
EndIf
InetClose($hf)
使用 InetRead 也没成功#include <Array.au3>
#include <Inet.au3>
#include <String.au3>
$str = BinaryToString(InetRead("http://kaijiang.500.com", 1))
msgbox(0,"",$str)
请教怎么弄呢?先谢谢了
|