The client's XMLHTTP is obtained data
Get source code
xmlhttpSUB B3_ONCLICK DIM OBJXMLHTTP, XML SET XML = CreateObject ("Microsoft.xmlhttp") XML.Open "get", "http://www.eyou.com", false xml.send demo.innertext = bytes2bstr (Xml.Responsebody) SET XML = Nothingend Sub
Function bytes2BSTR (vIn) dim strReturn dim i1, ThisCharCode, NextCharCode strReturn = "" For i1 = 1 To LenB (vIn) ThisCharCode = AscB (MidB (vIn, i1,1)) If ThisCharCode <& H80 Then strReturn = strReturn & Chr ( ThisCharCode) Else NextCharCode = AscB (MidB (vIn, i1 1,1)) strReturn = strReturn & Chr (CLng (ThisCharCode) * & H100 CInt (NextCharCode)) i1 = i1 1 End If Next bytes2BSTR = strReturn End Function < / script> body>