VB 获取网页中所传输的值!

来源:百度知道 编辑:UC知道 时间:2024/06/06 07:55:42
VB 如何获取一个网页中代码为:

retCode=0&agentId=1008&agentBillId=633603238932129500&cardType=100101&cardPrice=10&chargeBillNo=C081023000001821&chargeAccount=account2®ionValue=regionValue2®ionName=区2&serverValue=regionValue2&serverName=regionValue2&extValue1=ext1&extValue2=ext2&extValue3=ext3&extValue4=&retMsg=获取成功&sign=2b933d8e86591cc7498171fa3652a425

的值?
如:我要知道:sign的值,有什么好办法直接获取以上代码的值吗?
除了这个办法还有没有别的办法呢?

'如果你用WebBrowser1浏览网页,则下面代码可以在网页载入完毕后,立即获取到你想要的东西。

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim S As String, i As Integer
S = WebBrowser1.Document.body.innerHTML
i = InStr(1, S, "&serverName=", vbTextCompare)
i = InStr(i, S, "&sign=", vbTextCompare)
If i = 0 Then Exit Sub
S = Mid(S, i + 6)
MsgBox S
End Sub