VBA selecting radio button and search text and getting data

[vikas0903]

Hi All,
Thanks in advance for reading and giving your time.

I am trying to access this page and automate search of lot#:
"https://www.smarteda.qld.gov.au/pools/properties/propertySearch.action"

I am using MSXML to do this:

Sub Getlot()
 
Dim xml As Object ' MSXML2.XMLHTTP
Dim html As Object ' MSHTML.HTMLDocument
Dim imgLinks As Object ' MSHTML.IHTMLElementCollection
Dim imgLink As Object ' MSHTML.IHTMLElement
Dim result As String
 
  Set xml = CreateObject("MSXML2.XMLHTTP.6.0")
 zipCode = "2RP219592"
  With xml
    .Open "GET", "https://www.smarteda.qld.gov.au/pools/properties/propertySearch.action?lot_rad=""TRUE""&lotplan_number=" & zipCode, False
    .Send
  End With
 
  result = xml.responseText
 
 Cells(1, 1).Value = result
  
End Sub

But this code is not able to click on radio button (to select lot#) and then enter lot# in input box. So basically I am NOT getting searched result in "result" string.

[Above code is not mine, and I have mainly used codes from "http://www.jpsoftwaretech.com/an-exploration-of-ie-browser-methods-part-ii/" and few other sources to write it.]

Regards!
Vikas

 

[vikas0903]

Hi all,
After researching for more, I have improved the code. I am able to send the lot# but still I am NOT able to select radio button, submit form and get results. [It appears that I needed to use POST instead of GET]

Sub Getlot()
 
Dim xml As Object ' MSXML2.XMLHTTP
Dim html As Object ' MSHTML.HTMLDocument
Dim imgLinks As Object ' MSHTML.IHTMLElementCollection
Dim imgLink As Object ' MSHTML.IHTMLElement
Dim result As String
Dim params As String
params = "lot_rad=1&lotplan_number=2RP219592"
 
  Set xml = CreateObject("MSXML2.XMLHTTP.6.0")
 zipCode = "2RP219592"
  With xml
    .Open "Post", "https://www.smarteda.qld.gov.au/pools/properties/propertySearch.action", False
     .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send "lot_rad=true&lotnumber=40SP139152"




 ' End With
     i = 0 'wait until data has been downloaded
    Do While i = 0
        If .readyState = 4 Then
            If .Status = 200 Then Exit Do
        End If
        DoEvents
    Loop
    Sleep 2000


 End With




  result = xml.responseText
 
 Cells(1, 1).Value = result 
End Sub

Please help.

 

[vikas0903]

Some more update. I am able to select radio button and send input. BUT STILL NOT GETTING RESPONSE FROM SERVER.
Please help. [New code is below].

Sub Getlot()
 
Dim xml As Object ' MSXML2.XMLHTTP
Dim html As Object ' MSHTML.HTMLDocument
Dim imgLinks As Object ' MSHTML.IHTMLElementCollection
Dim imgLink As Object ' MSHTML.IHTMLElement
Dim result As String
Dim params As String


 
  Set xml = CreateObject("MSXML2.XMLHTTP.6.0")


  With xml
    .Open "POST", "https://www.smarteda.qld.gov.au/pools/properties/propertySearch.action", False
     .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

.send "method=lotplan&lotnumber=40SP139152"
    While .readyState <> 4
      .waitForResponse 200
    Wend


  Sleep 10000
 End With
  result = xml.responseText
 
 Cells(1, 1).Value = result
  
End Sub