求助！求助 vba从网页中提取数据

谢礼军

你好亲爱的大神们，公司需要从http://fdm.yyjzt.com/search/merchandise.htm?keyword&category&page=1中抓取下面的药品名称、规格、厂家、销售价格（红色的）、件装（**盒/件）、库存  这些数据，  这个网站需要密码登录   用户名  cqgytyy   密码 123456 。我是个菜鸟，vba只懂一丢丢。请好心的大师们帮忙写个代码。    跪谢了

duquancai

抓包      。。。     

duquancai

1. Sub main()
   
2.     Dim winHttp As Object, myPage&, username$, password$, Host$, strText$
   
3.     username = "cqgytyy"
   
4.     password = "123456"
   
5.     Host = "http://fdm.yyjzt.com/"
   
6.     Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
   
7.     winHttp.Open "POST", Host & "user/topLogin.json", False
   
8.     winHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   
9.     winHttp.send "jzt_username=" & username & "+&jzt_password=" & password
   
10.     For myPage = 1 To 1 '设置页码
    
11.         winHttp.Open "GET", Host & "search/merchandise.htm?page=" & myPage, False
    
12.         winHttp.send
    
13.         strText = winHttp.responseText
    
14.         Debug.Print strText
    
15.         Stop
    
16.     Next
    
17. End Sub

复制代码

谢礼军

Sub main()
    Dim winHttp As Object, myPage&, username$, password$, Host$, strText$
    username = "cqgytyy"
    password = "123456"
    Host = "http://fdm.yyjzt.com/"
    Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    winHttp.Open "POST", Host & "user/topLogin.json", False
    winHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    winHttp.send "jzt_username=" & username & "+&jzt_password=" & password
    For myPage = 1 To 1 '设置页码
        winHttp.Open "GET", Host & "search/merchandise.htm?page=" & myPage, False
        winHttp.send
        strText = winHttp.responseText
        Debug.Print strText
      Stop    这里黄标，语句没有报错，但是顶部显示  中断   
Next   
End Sub

求大神再看看 哪里出了啥问题，拜托了。

fxl447098457

人家的stop只是拿来断点测试的。我也是醉了。你这是小白中的小白的。

ammyc

毛利率高得吓人，健康最重要！

chis3

duquancai 发表于 2018-8-7 00:10

請教一下
我在fiddler並沒有找到 http://fdm.yyjzt.com/user/topLogin.json 這個登入面啊
請問是怎麼判斷的?
還有
winHttp.send "jzt_username=" & username & "+&jzt_password=" & password
jzt_uername=  和 +&jzt_password=
是在哪知道這寫法的?


    Sub main()
        Dim winHttp As Object, myPage&, username$, password$, Host$, strText$
        username = "cqgytyy"
        password = "123456"
        Host = "http://fdm.yyjzt.com/"
        Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
        winHttp.Open "POST", Host & "user/topLogin.json", False
        winHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        winHttp.send "jzt_username=" & username & "+&jzt_password=" & password
        For myPage = 1 To 1 '设置页码
            winHttp.Open "GET", Host & "search/merchandise.htm?page=" & myPage, False
            winHttp.send
            strText = winHttp.responseText
            Debug.Print strText
            Stop
        Next
    End Sub

谢礼军

chis3 发表于 2018-8-7 21:45
請教一下
我在fiddler並沒有找到 http://fdm.yyjzt.com/user/topLogin.json 這個登入面啊
請問是怎麼判 ...

大师，你能帮我解决一下吗？谢谢你，。。好人一生平安。

mxf21cn

chis3 发表于 2018-8-7 21:45
請教一下
我在fiddler並沒有找到 http://fdm.yyjzt.com/user/topLogin.json 這個登入面啊
請問是怎麼判 ...

Ctrl+F    搜索用户名cqgytyy或者密码123456会有黄色标记的会话，点开RAW就是下面的内容

POST http://fdm.yyjzt.com/user/topLogin.json HTTP/1.1
Accept: application/json, text/javascript, */*; q=0.01
Content-Type: application/x-www-form-urlencoded; charset=UTF-8
X-Requested-With: XMLHttpRequest
Referer: http://fdm.yyjzt.com/search/merc ... category&page=1
Accept-Language: zh-CN
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko
Host: fdm.yyjzt.com
Content-Length: 40
DNT: 1
Connection: Keep-Alive
Pragma: no-cache
Cookie: UM_distinctid=16514d466e83-068e26c2e24744-1d317173-1fa400-16514d466ea3; Hm_lvt_11000000000000000000000000000001=1533652789; Hm_lpvt_11000000000000000000000000000001=1533652789; CNZZDATA1262725509=1660002444-1533652202-%7C1533652202

jzt_username=cqgytyy&jzt_password=123456

xyxcc177

学习了！！！