|
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
j = 0
For i = 1 To 200
.Open "GET", "http://www.lspipe.cn:8888/erp/login_now/?next=/", False
.setrequestheader "Host", "www.lspipe.cn:8888"
.send
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 "start=" & j & "&length=100"
With CreateObject("msscriptcontrol.scriptcontrol")
.Language = "jscript"
.addcode "var mydata=" & winhttp.responsetext
Set json = .codeobject.mydata.inners
End With
j = i * 100
Next i
End With
End Sub
|
评分
-
2
查看全部评分
-
|