|
作为一个小白,能稍微看懂一些,不过有些看不懂,如果我需要替换里面的东西如何替换
rowa2 = [a65536].End(3).Row
For i = 3 To rowa2
t = Timer
Do While Timer - 0.00001 < t '防止服务器堵塞
Debug.Print
Loop
url1 = "http://erp.ql.jd.com/transport/intoStation"
url2 = "waybillCode"
url4 = Cells(i, 1)
url3 = "%22%2C%22reason%22%3A%22%E8%BD%AC%E5%85%B6%E4%BB%96%E6%96%B9%E5%BC%8F%E9%85%8D%E9%80%81%22%2C%22reasonId%22%3A%2230%22%2C%22" 'packageBarCode%22%3A%22"
' url5 = Cells(i, 2)
' url6 = "%22%7D%5D"
URL = url1 & url2 & url4 '& url3 '& url5 & url6
.Open "post", URL, 0
.setRequestHeader "Content-Length", Len(sdata)
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
'.setRequestHeader "set-cookie", "sso.jd.com=d785b6a3edab4d2e86cb07680a815c85; path=/"
.Send
yan = .ResponseText
' Debug.Print .responseText
If Mid(yan, 3, 4) = "data" Then
Cells(i, 2) = "验货成功"
Else
Cells(i, 2) = "验货失败"
Cells(i, 2).Font.Color = -16776961
End If
Next i
|
|