|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub test()
Dim winhttp As Object
Dim token As String
Dim senddata As String
Dim json As Object
Set winhttp = CreateObject("winhttp.winhttprequest.5.1")
With winhttp
.Open "GET", "http://www.lspipe.cn:8888/erp/login_now/?next=/", False
.setrequestheader "Host", "www.lspipe.cn:8888"
.send
If .Status = 200 Then
token = Split(Split(.getallresponseheaders, "Set-Cookie: csrftoken=")(1), ";")(0)
senddata = "csrfmiddlewaretoken=" & token & "&username=%E6%B5%8F%E8%A7%88%E8%B4%A6%E5%8F%B7&password=123456"
.Open "POST", "http://www.lspipe.cn:8888/erp/login_now/?next=/erp/index/", False
.setrequestheader "Host", "www.lspipe.cn:8888"
.setrequestheader "Content-Type", "application/x-www-form-urlencoded"
.setrequestheader "Referer", "http://www.lspipe.cn:8888/erp/login_now/?next=/erp/index/"
.send senddata
.Open "POST", "http://www.lspipe.cn:8888/erp/inners/list/", False
.setrequestheader "Host", "www.lspipe.cn:8888"
.setrequestheader "Content-Type", "application/x-www-form-urlencoded"
.setrequestheader "Referer", "http://www.lspipe.cn:8888/erp/page/inners/"
.send
With CreateObject("msscriptcontrol.scriptcontrol")
.Language = "jscript"
.addcode "var mydata=" & winhttp.responsetext
Set json = .codeobject.mydata.inners
End With
End If
End With
End Sub
取了json
接下來懂了嗎 |
评分
-
1
查看全部评分
-
|