Question

VB中的inet控件返回的网页代码中文乱码，并且解析时提示‘91’错误，

VB中的inet控件返回的xml网页代码中文乱码，并且解析时提示：实时错误‘91 ’，对象变量或‘With’变量块未设置。求教求教
现帖代码如下：

Private Sub Command1_Click()

'定义一个XML的文档对象，将手写的或者接受的XML内容转换成XML对象
Dim x As MSXML2.DOMDocument40

'inet
Dim ReString As String

ReString = Inet1.OpenURL("https://cebbank.pay.jinanwater.cn/websvr/yhds/yl_yd.asmx/get_hbwsh?gs=H008761&id=123556&lxdh=00001")
Text3.Text = ReString

MsgBox "inet"

'将返回的XML信息解析并且显示返回值
Set x = New MSXML2.DOMDocument40

x.LoadXml ReString

ReString = x.childNodes(1).Text
Text2.Text = ReString
End Sub

Answer 1

nonono