2011-04-06 74 views

回答

0

您也可以使用網頁瀏覽器VB6這control.Using您可以根據HTML標記,輸入ID等

1

得到當然html頁面,並試試這個:

Function GetHTMLCode(Optional strURL As String) As String 
    Dim objHttp As Object, strText As String 
    Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") 
    objHttp.Open "GET", strURL, False 
    objHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" 
    objHttp.Send ("") 
    strText = objHttp.responseText 
    Set objHttp = Nothing 
    GetHTMLCode = strText 
End Function 

OK)

相關問題