Cara Mengambil Data Dari Internet
Cara mengambil data dari internet yang akan blogger sragen berikan adalah sebuah cara untuk mengambil source code data suatu halaman blog atau website dari internet. Cara mengambil data dari internet ini sangat mudah di gunakan yang harus anda masukan dalam project ini adalah reference Microsoft XML, version 2
- Public Function GetHtmlCode(StrUrl)
- On Error GoTo Error
- Set objXMLHTTP = New MSXML.XMLHTTPRequest
- objXMLHTTP.open "get", StrUrl, False
- objXMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-GB; rv:1.8.1.4) Gecko/20070515 Firefox/2.0.0.4"
- objXMLHTTP.setRequestHeader "Content-Type", "text/xml"
- objXMLHTTP.setRequestHeader "Accept-Language", "en"
- objXMLHTTP.send objInputXMLDoc
- Set objOutputXMLDoc = New MSXML.DOMDocument
- GetHtmlCode = objXMLHTTP.responseText
- Set objInputXMLDoc = Nothing
- Set objXMLHTTP = Nothing
- Error:
- End Function