dim arg as string = "甲苯"
Dim url As String = ""
Dim http As New Object
try
url = "https://www.chemsrc.com/searchResult/" & UrlEncode(arg) & "/"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
url = http.responseText '这里会报错，是怎么回事？
Return url
Catch exi As Exception
Return ""
End try