vb6.0中做过这个项目,但是vb.net中也遇到这个问题,看看能否交流一下,刚刚转vb.net。vb6.0中部分代码如下:
Dim HttpReq As Object
Dim request As String
HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
HttpReq.open("GET", uri, False)
HttpReq.send()
'解析返回值
request = HttpReq.responseBody
request = Split(Split(StrConv(request,vbUnicode,H804),"=")(1),";")(0)