显示验证码的InputBox

liucqa

ysq227 发表于 2012-10-19 17:36
我用你的那个实例做的实验，debug.print getAllResponseHeaders()，结果里面没有Cookie，要不你试试？

你先抓包看看http头有没有Cookie

hyy514

ysq227 发表于 2012-10-19 17:36
我用你的那个实例做的实验，debug.print getAllResponseHeaders()，结果里面没有Cookie，要不你试试？

这个会话有COOKIE不代表那个会话也会有COOKIE,没有SET -COOKIE返回说明这个会话网站不需要设置任何COOKIE.
有的域需要一检查大串COOKIE，有的却一点也不需要。这是人家网站方根据自已的需要的设置。
你应该先去弄懂COOKIE是什么？网站为什么要用COOKIE，作用是什么？
这个例子中有4个会话，只有前2处有COOKIE要求，不要问为什么，因为这问题只能问网站
Sub try()
    Dim Xml As New WinHttpRequest
    Dim picAry() As Byte
    Dim vf As String
    Dim sCk$
    Xml.Open "GET", "http://www.zhima.cc/member/inc/getcode.asp", False
    Xml.Send
    picAry = Xml.responseBody
    Debug.Print Xml.GetAllResponseHeaders
    vf = mInputBox(picAry)
    Xml.Open "POST", "http://www.zhima.cc/member/login.asp", False
    Xml.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    Xml.Send "user_id=9375204@163.com&user_password=369852&GetCode=" + vf + "&tourl=&Submit.x=69&Submit.y=20"
    Debug.Print Xml.GetAllResponseHeaders
    Xml.Open "GET", "http://www.zhima.cc/home.asp", False
    Xml.Send
    Debug.Print Xml.GetAllResponseHeaders
    pt Xml.ResponseText, 1
    Xml.Open "GET", "http://www.zhima.cc/game/luckynums/", False
    Xml.Send
    Debug.Print Xml.GetAllResponseHeaders
    pt Xml.ResponseText, 2
    MsgBox "ok"
End Sub

ysq227

hyy514 发表于 2012-10-19 18:19
这个会话有COOKIE不代表那个会话也会有COOKIE,没有SET -COOKIE返回说明这个会话网站不需要设置任何COOKIE ...

问题是我用Httpfox抓包，会有Cookie返回。因为我的工作中会经常上传数据到网站，我采用的是Xmlhttp这种方式上传，就需要提供Cookie，我是首先通过IE对象法登录网站，再返回需要的Cookie的。所以我就想能不能直接通过Xmlhttp的方式获取Cookie。

The_sky

hyy514 发表于 2012-10-19 18:19
这个会话有COOKIE不代表那个会话也会有COOKIE,没有SET -COOKIE返回说明这个会话网站不需要设置任何COOKIE ...

大师请问下,我学习了下你的作品,做了个登陆163邮箱的示例,可是不行,望能得到你的指导

1. Sub 登陆()
   
2. Dim Xml As New WinHttpRequest
   
3. Xml.Open "POST", "http://mail.163.com/", False
   
4.     Xml.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   
5.     Xml.Send "savelogin=0&url2=http://mail.163.com/errorpage/err_163.htm&username=abcabc12345123&password=a12345"
   
6.     Debug.Print Xml.GetAllResponseHeaders
   
7. End Sub

复制代码

这段代码Debug.Print 出来如下信息:
Date: Sun, 21 Oct 2012 09:42:53 GMT
Server: nginx
Content-Type: text/html
Content-Length: 166
X-Via: 1.1 pt4:88 (Cdn Cache Server V2.0)
Connection: close

liucqa

ysq227 发表于 2012-10-19 21:28
问题是我用Httpfox抓包，会有Cookie返回。因为我的工作中会经常上传数据到网站，我采用的是Xmlhttp这种方 ...

你的先学会使用抓包软件                                                                                               

The_sky

liucqa 发表于 2012-10-21 17:53
你的先学会使用抓包软件                                                                             ...

我学了哈,HTTPFOX

longatdream

这个功能目前用不着

goldowl2011

Thanks a lot.Good idea.

liucqa

goldowl2011 发表于 2012-12-19 14:56
Thanks a lot.Good idea.

你早晚得被监察盯上

shenghua8

hyy514 老师：
我套用您的程序成功显示验证码。
然后想请您帮我解决这个帖子的问题：
(网页采集)如何在网上批量查询信息并提取到Excel（网页有图片验证码）
拜托了！