«

»

ธ.ค. 19

VB6 โหลดไฟล์ HTML จาก Website

เอาไว้สำหรับเขียน bot เพื่อสกัดข้อมูลจาก web site

Function GetHTMLCode(Optional strURL As String) As String

Dim objHttp As Object

Dim Str_list 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)”
On Error Resume Next
objHttp.Send (“”)
strtext = objHttp.responseText
Set objHttp = Nothing
GetHTMLCode = strtext
End Function

 

 



  • %d bloggers like this: