Sub Test()
Dim HTTP As New ServerXMLHTTP60, HTML As New HTMLDocument
Dim posts As Object, elems As Variant, elem As Object
Dim F As Boolean
Dim c As Long
Dim r As Long
Dim postdata As String
Dim strCookie As String
Dim ArgumentStr As String
ArgumentStr = "ScriptManager1=SearchFormEx1%24UpdatePanel%7CSearchFormEx1%24btnSearch&ScriptManager1_HiddenField=%3B%3BAjaxControlToolkit%2C%20Version%3D" & _
"3.5.40412.0%2C%20Culture%3Dneutral%2C%20PublicKeyToken%3D28f01b0e84b6d53e%3Aen-US%3A1547e793-5b7e-48fe-8490-03a375b13a33%3Aeffe2a26%3B%3BAjax" & _
"ControlToolkit%2C%20Version%3D3.5.40412.0%2C%20Culture%3Dneutral%2C%20PublicKeyToken%3D28f01b0e84b6d53e%3Aen-US%3A1547e793-5b7e-48fe-8490-03a375b" & _
"13a33%3A475a4ef5%3A5546a2b%3A497ef277%3Aa43b07eb%3Ad2e10b12%3A37e2e5c9%3A5a682656%3A1d3ed089%3Af9029856%3Ad1a1d569%3B&__VIEWSTATE=&Navigator" & _
"1%24SearchOptions1%24DocImagesCheck=on&SearchFormEx1%24PINTextBox0=31&SearchFormEx1%24PINTextBox1=01&SearchFormEx1%24PINTextBox2=209&SearchForm" & _
"Ex1%24PINTextBox3=005&SearchFormEx1%24PINTextBox4=0000&SearchFormEx1%24ACSTextBox_Subdivision=&SearchFormEx1%24ACSTextBox_BlockNo=&SearchForm" & _
"Ex1%24ACSTextBox_LotNo=&SearchFormEx1%24ACSTextBox_PartOfLotNo=&SearchFormEx1%24ACSTextBox_DeclarationCondoNo=&SearchFormEx1%24ACS" & _
"TextBox_BuildingNo=&SearchFormEx1%24ACSTextBox_UnitNo=&SearchFormEx1%24ACSTextBox_AcresNo=&SearchFormEx1%24ACS" & _
"TextBox_Quarter3=&SearchFormEx1%24ACSTextBox_Quarter2=&SearchFormEx1%24ACSTextBox_Quarter1=&SearchFormEx1%24ACSTextBox_Part1Code=&SearchForm" & _
"Ex1%24ACSTextBox_Part2Code=&SearchFormEx1%24ACSTextBox_OneHalfCode=&ImageViewer1%24ScrollPos=&ImageViewer1%24ScrollPosChange=&ImageViewer" & _
"1%24_imgContainerWidth=0&ImageViewer1%24_imgContainerHeight=0&ImageViewer1%24isImageViewerVisible=true&ImageViewer1%24hdnWidgetSize=&ImageViewer" & _
"1%24DragResizeExtender_ClientState=&CertificateViewer1%24ScrollPos=&CertificateViewer1%24ScrollPosChange=&CertificateViewer1%24_imgContainer" & _
"Width=0&CertificateViewer1%24_imgContainerHeight=0&CertificateViewer1%24isImageViewerVisible=true&CertificateViewer1%24hdnWidgetSize=&Certificate" & _
"Viewer1%24DragResizeExtender_ClientState=&PTAXViewer1%24ScrollPos=&PTAXViewer1%24ScrollPosChange=&PTAXViewer1%24_imgContainerWidth=0&PTAXViewer" & _
"1%24_imgContainerHeight=0&PTAXViewer1%24isImageViewerVisible=true&PTAXViewer1%24hdnWidgetSize=&PTAXViewer1%24DragResizeExtender_ClientState=&DocList" & _
"1%24ctl09=&DocList1%24ctl11=&NameList1%24ScrollPos=&NameList1%24ScrollPosChange=&NameList1%24_SortExpression=&NameList1%24ctl03=&NameList" & _
"1%24ctl05=&DocDetails1%24PageSize=&DocDetails1%24PageIndex=&DocDetails1%24SortExpression=&BasketCtrl1%24ctl01=&BasketCtrl1%24ctl03=&OrderList" & _
"1%24ctl01=&OrderList1%24ctl03=&__EVENTTARGET=&__EVENTARGUMENT=&__LASTFOCUS=&__ASYNCPOST=true&SearchFormEx1%24btnSearch=Search"
'strCookie = "ASP.NET_SessionId=sgh24ey5hdnhmg454gk4fsjb; BIGipServerpool_rod_public_website=1376261292.20480.0000; PageSize=100"
'strCookie = "ASP.NET_SessionId=kruwfk55iwzte355mpxl2u45"
strCookie = "ASP.NET_SessionId=ybhhpwekdbxyzkad3zmvez45; BIGipServerpool_rod_public_website=1376261292.20480.0000; PageSize=100"
With HTTP
.Open "GET", "http://162.217.184.82/i2/default.aspx?AspxAutoDetectCookieSupport=1", False
.setRequestHeader "User-Agent", "Mozilla/5.0"
.setRequestHeader "Cookie", GetCookie("http://162.217.184.82/i2/default.aspx")
.send ArgumentStr
HTML.body.innerHTML = .responseText
End With
For Each elems In [{"DataGridRow","DataGridAlternatingRow"}]
For Each posts In HTML.getElementsByClassName(elems)
F = False
For Each elem In posts.getElementsByTagName("a")
F = True: c = c + 1: Cells(r + 1, c) = elem.innerText
Next elem
If F Then c = 0: r = r + 1
Next posts
Next elems
' With Range("A1").CurrentRegion
' .Sort Range("A1"), xlDescending
' End With
End Sub
Function GetCookie(strUrl)
Dim strCookie
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", strUrl, False
.setRequestHeader "REFERER", strUrl
.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
.setRequestHeader "Accept", "text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"
.setRequestHeader "Accept-Language", "en-us,en;q=0.5"
.setRequestHeader "Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7"
.send
strCookie = .getResponseHeader("Set-Cookie")
strCookie = Split(strCookie, ";")(0)
GetCookie = strCookie
End With
End Function
Sub Demo()
Debug.Print GetCookie("http://162.217.184.82/i2/default.aspx")
End Sub