网抓请求无响应

13107981237

请教网抓大神，网抓请求无响应
代码如下

Sub Main33()
    Dim strText As String
    Dim strCookie As String
   
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Option(6) = False ' 禁止重定向，以获取原网页信息
        .Open "GET", "http://budw.fleetsystem.cn/wv/", False
        .Send
        .SetProxy 2, "127.0.0.1:8888"
        strText = .getAllResponseHeaders  '获取所有的回应头信息
       ' Debug.Print strText: Stop '在立即窗口里查看头信息
        strCookie = Split(Split(strText, "Set-Cookie:")(1), ";")(0) '取出Cookie值
                 '在同一个winhttp对象里能保留cookie，为了体现设置cookie的作用，启用一个新的winhttp对象
          .Open "post", "http://budw.fleetsystem.cn/wv/signin?-1.IFormSubmitListener-signInPanel-signInForm", False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .setRequestHeader "Referer", "http://budw.fleetsystem.cn/wv/signin;jsessionid=5B71299D139BF6A27A3A8C432D71DF8F"
        .setRequestHeader "Cookie", strCookie '模拟Cookie
        .SetProxy 2, "127.0.0.1:8888"
        .Send "id1_hf_0=&username=put-admin&password=put123456&languageContainer%3Aoption=&rememberMeContainer%3ArememberMe=on"
        strText = .getAllResponseHeaders
         Debug.Print strText
      sx0 = Split(Split(strText, "Set-Cookie:")(1), ";")(0) '取出Cookie值
       sx1 = Split(Split(strText, "Set-Cookie:")(2), ";")(0) '取出Cookie值
        sx2 = sx1 & ";" & strCookie
      
      End With

    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "get", "http://budw.fleetsystem.cn/wv/entity?3", False
         .SetProxy 2, "127.0.0.1:8888"
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .setRequestHeader "Referer", "http://budw.fleetsystem.cn/"
        .setRequestHeader "Cookie", sx2  '模拟Cookie
        .Send
        End With
   
'--------------------------------------   以下fiddler 响应就不正常了，而且有一个参数无法模拟出来（红色部分)-----------------------------------------------------------------------------------------------------------
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "get", "http://budw.fleetsystem.cn/wv/entity?3-1.IBehaviorListener.0-theme-header-primaryMenuBar-menuItems-2-topMenu-subMenuItems-5-content-menuLink&_=1561034268990", False
         .SetProxy 2, "127.0.0.1:8888"
         .Option(6) = False ' 禁止重定向，以获取原网页信息
         .setRequestHeader "Wicket-Ajax", "true"
          .setRequestHeader "Wicket-Ajax-BaseUR", "entity?3"
         .setRequestHeader "Wicket-FocusedElementId", "id1e"
         .setRequestHeader "X-Requested-With", "XMLHttpRequest"
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .setRequestHeader "Referer", "http://budw.fleetsystem.cn/wv/entity?3"
        .setRequestHeader "Cookie", sx2  '模拟Cookie
        .Send
        End With
  
  With CreateObject("WinHttp.WinHttpRequest.5.1")
           .Open "post", "http://budw.fleetsystem.cn/wv/entity?3-1.IBehaviorListener.1-theme-actionPromptModalWindow-content-parameters-inputForm-okButton", False
            .SetProxy 2, "127.0.0.1:8888"
           .setRequestHeader "Referer", "http://budw.fleetsystem.cn/wv/entity?3"
           .setRequestHeader "Cookie", sx2
           .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
           .Send "id6e_hf_0=¶meters%3A1%3AscalarNameAndValue%3AscalarTypeContainer%3AscalarIfRegular%3AentityLink%3AautoComplete=security.AppTenancy%3As_%2Fbudw%2FPUT_New%5E6%3Aput-admin%3A¶meters%3A2%3AscalarNameAndValue%3AscalarTypeContainer%3AscalarIfRegular%3AscalarValueContainer%3AscalarValue=2019-06-15¶meters%3A3%3AscalarNameAndValue%3AscalarTypeContainer%3AscalarIfRegular%3AscalarValueContainer%3AscalarValue=2019-06-15&okButton=1"
       End With
End Sub


请教大师指导迷津！！

http://budw.fleetsystem.cn/

zpy2

需要密码登陆。。。

YZC51

红色字体请查时间戳！

13107981237

YZC51 发表于 2019-6-21 08:37
红色字体请查时间戳！

我回去试一下时间戳。

13107981237

zpy2 发表于 2019-6-21 04:45
需要密码登陆。。。

给忘了，补上

put-admin
put123456

samsinn

13107981237 发表于 2019-6-21 12:00
给忘了，补上

put-admin

你的浏览器需要设置代理才能访问这个网站吗？
看你的代码有这一段 SetProxy 2, "127.0.0.1:8888"

13107981237

samsinn 发表于 2019-6-21 13:01
你的浏览器需要设置代理才能访问这个网站吗？
看你的代码有这一段 SetProxy 2, "127.0.0.1:8888"

不是.用winhttp5.1 在fidder 中无法抓包..要用这个代理才行.这句调试抓包用的

13107981237

samsinn 发表于 2019-6-21 13:01
你的浏览器需要设置代理才能访问这个网站吗？
看你的代码有这一段 SetProxy 2, "127.0.0.1:8888"

不是，用winhttp代理无法被fiddler 抓包，用了这句就可以了

laynet

你不应该用模拟Cookie的方法,应该直接写登录
我在工具里看到是已经登录上去了,跟着的就自己写吧.

1. Sub jkl()
   
2.     Dim http As Object
   
3. 
   
4. 
   
5. Set http = CreateObject("MSXML2.XMLHTTP.6.0") '2003可用5.0或者以下的版本,2007以上需要改成MSXML2.XMLHTTP.6.0                          |
   
6.         '                                                                                                                               |
   
7.       '                                                                                                                   |
   
8. 
   
9.     user = "put-admin"
   
10.     pass = "put123456"
    
11.    
    
12. 
    
13. 
    
14.     With http
    
15.         .Open "post", "http://budw.fleetsystem.cn/wv/signin?-1.IFormSubmitListener-signInPanel-signInForm", False
    
16. 
    
17. Data = "id1_hf_0=&username=" & user & "&password=" & pass & "&languageContainer%3Aoption=&rememberMeContainer%3ArememberMe=on"
    
18. 
    
19.         
    
20. .setRequestHeader "Accept", "application/x-shockwave-flash, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/xaml+xml, application/vnd.ms-xpsdocument, application/x-ms-xbap, application/x-ms-application, */*"
    
21. .setRequestHeader "Referer", "http://budw.fleetsystem.cn/wv/signin"
    
22. .setRequestHeader "Accept-Language", "zh-CN"
    
23. .setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)"
    
24. .setRequestHeader "Accept-Encoding", "gzip, deflate"
    
25. '.setRequestHeader "Host", ipx
    
26. .setRequestHeader "Content-Length", Len(Data)
    
27. .setRequestHeader "Connection", "Keep-Alive"
    
28. .setRequestHeader "Cache-Control", "no-cache"
    
29. .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
30.      
    
31.         .Send (Data)
    
32.         
    
33. 
    
34. 
    
35. 
    
36.     End With
    
37.    
    
38. '登录完成,以下开始提取操作--------------------------------------
    
39. 
    
40. 
    
41. End Sub

复制代码

屌爆了z

laynet 发表于 2019-6-21 17:49
你不应该用模拟Cookie的方法,应该直接写登录
我在工具里看到是已经登录上去了,跟着的就自己写吧.

照顾一下伸手党呗，写个完整的，我试一试