tunnyx 发表于 2014-7-19 22:30:38

想用WINHTTP获取指定网页上的字符串

在使用WINHTTP获取指定网页上的字符串,摸索了很久都没找对办法,特来请教

#include <ie.au3>
#include <winhttp.au3>
#include <WinHttpConstants.au3>
Local $userAgent='Mozilla/5.0 (Windows NT 5.1; rv:20.0) Gecko/20100101'
Local $url="http://www.369859.com/renwu.asp"
$aURL_Split = _WinHttpCrackUrl($url)
$hOpen = _WinHttpOpen($userAgent)
$hConnect = _WinHttpConnect($hOpen, $aURL_Split)
$hRequest = _WinHttpOpenRequest($hConnect, "GET", $aURL_Split)
$txt=_WinHttpReadData($hRequest)
MsgBox(0,"",$txt)

kevinch 发表于 2014-7-20 08:44:54

$url="http://www.369859.com/renwu.asp"
$xmlhttp=ObjCreate("msxml2.xmlhttp")
With $xmlhttp
        .open("GET",$url,True)
        .send
        While .readystate<>4
                Sleep(100)
        WEnd
        $str=.responsetext
        MsgBox(0,"",$str)
EndWith
$html=ObjCreate("htmlfile")
With $html
        .open
        .writeln($str)
        MsgBox(0,"",.body.innertext)
EndWith这样试下

tunnyx 发表于 2014-7-20 13:40:01

感谢kevinch,学习了

lxwlxwayy 发表于 2014-7-20 13:47:02

路过顶个{:face (239):}

ak47gglllk 发表于 2014-7-21 09:01:28

感谢，感谢，学习下

shqf 发表于 2014-7-21 12:08:49

本帖最后由 shqf 于 2014-7-21 12:10 编辑

再简单，但基本的结构不能没有吧。楼主，你请求都没发送出去，怎么能收到消息呢？_WinHttpOpenRequest()语句后加上这二句：_WinHttpSendRequest($hRequest)
_WinHttpReceiveResponse($hRequest)

phantomblue 发表于 2014-7-21 22:01:03

可以参照http://www.autoitscript.com/forum/topic/84133-winhttp-functions/

user3000 发表于 2014-7-21 22:20:05

2楼kevinch兄的代码令人高山仰止矣!
但不适合新手学习啊.如果套用UDF,他们应该会更容易理解.#include <ie.au3>
Local $url="http://www.369859.com/renwu.asp"
Local $oIe = _IECreate($url, 0, 0, 1)
If Not IsObj($oIe) Then Exit -1
MsgBox(0,"",_IEBodyReadText($oIe))

tunnyx 发表于 2014-7-24 20:25:52

本帖最后由 tunnyx 于 2014-7-24 20:27 编辑

感谢各位的帮助,我仔细的看了2楼Kevinch老兄的例子,这个例子是可以直接运行的.但我也遇到的新的困难,这个链接对象我重载总不成功,代码如下
For $i=1 to 500
        $url="http://www.369859.com/renwu.asp"
        $xmlhttp=ObjCreate("msxml2.xmlhttp")
        With $xmlhttp
      .open("GET",$url,True)
      .send
      While .readystate<>4
                Sleep(100)
      WEnd
      $str=.responsetext
      ;MsgBox(0,"",$str)
        EndWith
        $html=ObjCreate("htmlfile")
        With $html
               .open
               .writeln($str)
               $txt=Number(.body.innertext)
               if $txt>0 Then
                           MsgBox(0,"提醒",.body.innertext,15)
               EndIf
        EndWith
        $xmlhttp.abort();申明一次重载
        Sleep(600000)
next

kevinch 发表于 2014-7-24 20:35:12

你都执行完成了，还abort什么呢，取消掉那句试下

tunnyx 发表于 2014-7-25 05:57:57

回复 10# kevinch
我是为了一下次循环做准备呀,我给换个位置试试,给放到前面去

xz00311 发表于 2014-7-25 08:51:03

来学习一下

tunnyx 发表于 2014-8-8 06:30:33

最终的结果,我还是换回了winhttp.au3把shqf大神的那两句加上去就正常了,但kevinch大神的处理方法,也十分有参考意义,我在处理别的问题使用了,效果不错.感谢各位的帮助
页: [1]
查看完整版本: 想用WINHTTP获取指定网页上的字符串