【魔幻小鱉】的部落格

怎麼獲得網頁的源代碼

資料來源：兄弟論壇
作者：兄弟工程師01

VBSBegin
    Function zhuanghuan(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
    zhuanghuan = strReturn
    End Function
VBSEnd
set http=createobject("Microsoft.XMLHTTP")
url="http://www.jdyou.com/"
http.open "get",url,false
http.send
zhi=zhuanghuan(Http.responsebody)
msgbox (zhi)