输入框没有name属性,如何用xmlhttp提交数据包
输入框没有name属性,如何用xmlhttp提交数据包呢此网站http://www.soqi.cn --------------------编程问答-------------------- 分太少, --------------------编程问答--------------------
--------------------编程问答-------------------- 在send的时候将参数人为添加进去,比如额外添加p1和p2
Function encodeURI(becoded As String) As String 'url编码
Set JS = CreateObject("msscriptcontrol.scriptcontrol")
JS.Language = "JavaScript"
encodeURI = JS.Eval("encodeURIComponent('" & becoded & "');")
End Function
Sub TEST1()
On Error Resume Next
Set oDoc = CreateObject("htmlfile")
st = encodeURI("中石油东北炼化工程有限公司吉林制造分公司")
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://www.soqi.cn/search?keywords=" & st & "&city=100000&sort=1&search_type=3", False
.send
tt = Split(Split(.responsetext, "无搜索到结果时显示 --> ")(1), "<!--")(0)
oDoc.body.innerHTML = tt
Debug.Print oDoc.all.tags("div")(0).innerText
End With
End Sub
xmlHttp.send("p1=abc&p2=123")
补充:.NET技术 , C#