香港新浪網 MySinaBlog
« 上一篇 | 下一篇 »
Emily | 21st Feb 2006, 10:51 AM | Network / Media, Office Application | (1432 Reads)

列出 HTML 部份原始碼

 WinHttpRequest

 

' Set reference to Microsoft WinHTTP  service , version 5.1

Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
Sub ListSubs()
    Dim MyRequest As New WinHttpRequest
    MyRequest.Open "GET", _
    "http://mysinamail.sina.com.hk/"
     'Set credentials
    MyRequest.SetCredentials "yourname", "yourpassword", _
    HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
     ' Send Request.
    MyRequest.Send
     
    MsgBox MyRequest.ResponseText
    
End Sub

 

Reference: WinHTTP 5.1