網抓接收信息超出預期或格式不正確,怎麼解決?

chis3 · 发表于 2018-8-23 14:44

https://app.washie.com.hk/adcms/wb_index.php
我想抓這個網頁,我有login名和密碼
但 send的步驟出現接收信息超出預期或格式不正確 -2146893018
是什麼事情?

chis3 · 发表于 2018-8-23 20:27

求救,有方法嗎

onlycxb · 发表于 2018-8-23 21:12

没登陆注册信息,没法试.登陆一般来讲会相当麻烦

duquancai · 发表于 2018-8-23 21:18

本帖最后由 duquancai 于 2018-8-23 21:20 编辑

chis3 发表于 2018-8-23 20:27
求救,有方法嗎

没有 login名和密码没法搞！你有 login名和密码只有你自己搞！

chis3 · 发表于 2018-8-23 21:32

duquancai 发表于 2018-8-23 21:18
没有 login名和密码没法搞！你有 login名和密码只有你自己搞！

loginname 是 josephlaw
password 是 washie2017
謝謝大家

duquancai · 发表于 2018-8-23 22:38

chis3 发表于 2018-8-23 21:32
loginname 是 josephlaw
password 是 washie2017
謝謝大家

Sub main()
Dim token$, winHttp As Object, p&, strText$
Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
With winHttp
.Open "GET", "https://app.washie.com.hk/adcms/wb_index.php", False
.send
strText = .responseText
token = Split(Split(strText, "<input name=""token"" type=""hidden"" value=""")(1), """")(0)
.Open "POST", "https://app.washie.com.hk/adcms/wb_index.php", False
.setRequestHeader "Referer", "https://app.washie.com.hk/adcms/wb_index.php"
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "login=josephlaw&password=washie2017&button=Sumbit&token=" & token
End With
For p = 0 To 1 '设置翻页
winHttp.Open "GET", "https://app.washie.com.hk/diymodule/Order_Detail_List.php?pageNum_Order_L=" & p & "&totalRows_Order_L=3856", False
winHttp.send: strText = winHttp.responseText
Debug.Print strText
Stop
Next
End Sub

复制代码

chis3 · 发表于 2018-8-23 23:35

duquancai 发表于 2018-8-23 22:38

謝謝,研究研究,在網上找到都說要IE登入,原來不用?

chis3 · 发表于 2018-8-24 00:01

duquancai 发表于 2018-8-23 22:38

運行第一次通常失敗,要第二次才成功
可以調較一下嗎?

duquancai · 发表于 2018-8-24 08:42

chis3 发表于 2018-8-24 00:01
運行第一次通常失敗,要第二次才成功
可以調較一下嗎?

这种问题就不要问我了！

chis3 · 发表于 2018-8-24 12:55

duquancai 发表于 2018-8-24 08:42
这种问题就不要问我了！

謝謝
用on error 和 err.numer>0 解決了

		自动登录	找回密码
密码			免费注册

[求助] 網抓接收信息超出預期或格式不正確,怎麼解決?