I did this project in vb6.0, but I also encountered this problem in VB.NET. See if we can communicate. I just transferred to VB.NET. Some codes in vb6.0 are as follows:

Dim HttpReq as an object

Dim request in string form

HttpReq = CreateObject("MSXML2。 XMLHTTP.3.0”)

HttpReq.open("GET "，uri，False)

HttpReq.send()

Parse return value

request = HttpReq.responseBody

request = Split(Split(StrConv(request，vbUnicode，& ampH804)，" = "( 1)，"；" )(0)