เอาไว้สำหรับเขียน 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