sUrl="http://www.aastocks.com/chi/Login/Login.asp" Function streamtochar(StrStream) set stream=CreateObject("ADODB.Stream") stream.type=1 stream.Mode=3 stream.Open stream.Write Strstream stream.Position= 0 stream.Type= 2 stream.Charset="BIG5" streamtochar= stream.ReadText stream.Close set stream=nothing End Function
'Function bytes2BSTR(vIn) ' strReturn = "" ' For i = 1 To LenB(vIn) ' ThisCharCode = AscB(MidB(vIn,i,1)) ' If ThisCharCode < &H80 Then ' strReturn = strReturn & Chr(ThisCharCode) ' Else ' NextCharCode = AscB(MidB(vIn,i+1,1)) ' strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 ' End If ' Next ' bytes2BSTR = strReturn 'End Function
'函数，得到内容 function getContentByUrl(url)
'建立对象 set oXmlHttp = CreateObject("MSXML2.XMLHTTP")
