• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Trouble finding solution while dealing with POST request

shahin

shahin

Active Member
Seems to me that what I have done here with this post request is right but the vba editor shows error while receiving the "postdata". It's too big to fit to the console. Wanted to parse the name of the clubs from all region.
Code: 
Sub ClubData()
Dim http As New MSXML2.xmlhttp60, html As New HTMLDocument
Dim items As Object, item As Object, elem As Object, postdata As String

postdata =
"ctl00%24scm=ctl00%24MainContent%24pnlFilters%7Cctl00%24MainContent%24btnSearch&__EVENTTARGET=&__EVENTARGUMENT=&__LASTFOCUS=&__VIEWSTATE=ZytmUI1JmCu8ZuaZSMD%2B30ZyUu6W0w3Esuqx9WXaebiaGJ9YDE2UlDnE%2FE2cWquECPq%2BiSgdQtKAdAOmLBfnZI7xpZ3tO7wsu0XzMYVCmLdF2bj23oGPdl3nViLdBbGmWu%2BfxTZQ08Z%2BgdshaTtJdo6yyIel0xNb3TSbyacaKSAxiljSISX0N1QlK7IKpsNZu1wVFwTKh6NWktNOTp%2F5T68lNfzMaEBAOAjWfnc%2FYOIIBh%2BPR3NZx4v5f1TMIygR6MelfcdgD%2B8rH%2BsF%2BDRLlFFfrRNNatvZuwh87oRBtfShyZIox%2Bg6caFOZfLrYZ7CQglRYiSVN2EwvrIG2L5V84oGWDFSR9JiH5sW2JMZOaH0S99p61E4TBj0HWTqbDD%2FzHX4dTSyT%2FqsIebx0yomXdDNdRIJihp3gm393zzmpOifnEisoWTaJ2dmronoXQL9GbiiuWFbo%2BM0umWYxX0Ts78tIX5o61t4Gxw1f2nj9LDc5VT%2BzwfCUERFUf%2Fi7rvINvrG4NXbvz5ygqQWUE0Er%2FOhTL5Ot5bMZEFIfGMy2WT8F9fAMNJw%2BtIH91UGz1NX2fxjrtwtaiLwbkbnpqUhTe04ptfBbHoFhImtYQgHhUDu3BB%2FdzcqAcZTvueK%2B2be5YxQv2gpaa5GwpdruYKerfd64d0n0H4lxOjmD2ftLijE7vMwh8yYdPlK84uE1HhJHQPW6rQMgzJu4MszYIjL7KbU09C3cQYMham%2FMCR0U8Js2OSrndQU%2Fj4sLGVpRCpAQ%2B%2FgkMfCxsvZG%2FE1PnlpVqJpRC3ms4TtdcdtYKUFGiRen%2BHfwStqOhsT%2BWCN8k
kYcqSlNVyql8in7k2u5wEFwsXKtfhT43sgj8ZQEP4pXy%2BtIVJ1bScPzNfHG8VfqNDOGN3pX3stKUc7FcfPBSrtx5GDTTi0DnUglFSvuo8PAZJpNQNu2Q3JicPHuiMBk7XSn%2FeA8XqBRP1RtV1At4sKON924n0DifOfp3zZTqZ10zMiQcGwgPqCuGeMkyNvUG4UvJDVW2g4s%2FxoxB2Lqvq%2BDK6MvO1nIcYkVyQRgh41dJgnF%2FD1DGN4BXDKN%2FjRSeSat6YndN7PW0%2FzkW6YMh%2FGnA0038Y5eFQVkhFB2QBcerwZEX41%2FDSZg1ghhe63rygaBCILMi3SmhOxFTfM5dj8A9dMYLeAFdAddDFcLL402vDqGJeHtbvkGCyYocpZjyyMpjVE689nfIul3kjfR7bieRTItbLf00qEm2b0CnukceQFGOrn965QzONtGyhyGNoYdYKcCMB0iNrQn1Rt%2FUoFkNjh1fPQDpJlTqLFhD8qXuM1TiCKNVJprXHWN8W85iolNPa8fk1LkKNB6E%2FzRysOCv2vLZBtlaOx0OyFI7c9F%2FOYASBNJ93BFW%2FlC7zLAYxqPUY4OaHVp%2BSciibi6xhjQXYBX3ajLhoAHAgOkDfx%2Bd2sIY0Jsdn1iXaLbZ9fV5id0b9g1YBZHLQLdZElDh%2Bhgu3UIPVHQRCetGYthL0tIPoTAU1pSRQnNOrAcoec%2BsvI3YIE2Hf7IqQJvTvBBEpbM5kk31S%2F3%2BDdbrPDBoRqANPZ35TjZJPy%2B1AFzdhvVtunhIuyUcXoQu%2BTSeItfaTO%2F3fHBUysjcInsDGWwq2SSZNpdQ%2BuegSiux0frJmGx7STASMFXSPx18IKRgYmFoiv86Fb3lbsc4I8ZZtMMW85uv7OGWxEABUcjvkoIk92SUDF7x5yu2Pj%2BPXFggwbKNM4L%2B3dG3en3jaJqpaTduwa9b03EoiyA0vaS2%2BJtwsgrK6bGp4u9%2Fh
YEaqMIK4iYUhLzOBrc6klxbrp4LEdELkVmldVhotd%2BX723%2BqbaX9SSA3tSdazWu%2FmKiVxmsoyipwKrklD%2B85fzDiLIq6s8CCEGxoXHA%2Ffhpb%2FKp3ZZUjEetozu8iJULnsL2hXL91b7mBWKtwg97805rDLlBFHnjXiQBmLMfxpnwXXY1hlQYMUyoTapy4ymL9%2B28Lf7ftXGZV1XYOAPh5C55yhwfDBL8bGqUuVJSmaWcdbjus1jHOM8vQqhrVjlrt2zF3YP2%2FVQdj1mpCCuPq8DhbK2aPzw53zypOMbYNq40e7LR74q8KmCivwgWqh6cJDx%2BWGdRYOWwj%2BNqwjs4s%2Bpdsz0efnBKaiL1aKGsLwUF4%2BZNVPO%2BTAzXylPPKSmramtwv6mG9X5w%2Bwqji1oTqBuTkEf1qJeaIH59M%2FIgUeDpKHnGNtTWmQpj%2FALivLBv%2FyvqxR6082jNU7YxN0I8aYvU3FZmWBj3U4o6gCyqgmf8DIW%2FJtwEbbX%2FgM%2BKRiERkAs1jqIhcccxHxhUVyw9Mp9I3ANx0KNeYHMw5Y%2Fb8ov3sVscOfweKLRqLp3HfsEkcMtRAG0tUOsvD6U801Lp6FETNgC6hanRolraqX8Xb%2F6WIXZtRzFTRqeQDPDLqw4tsW9jgtztSUeB%2FA%2BTFyYRgZWPb9bCOH6j3pWEKugU8%2BSmCUFbey6rwhpSHJNLxdLFPreLIXLBTCQyAW73dXT5FoR5Z9TTS648z6Krdvx34FfDvzBSHelvLLf0hrQLWIpECjZldKrhcMdRXNg3r8p4ZOlUnXMbqd4o7gH2YSranOGmj2OQtIWs5%2BLqv9fEVXJizlU2yCqXblqtZMW2QI3er%2BsidjCWLnp11BjevkKjEScwIP1hOvdpMlWWatzD%2FoLHIPWZQw6g70E6DUf%2B5AlnqtXh6nZoduNZ74sZ6v0rCbEFAPGUmXD9Z48lpzfBT1N%2Fum6G
YIy3bdLXtKzJX9ZuIA8p2pfSQge0R9yOfESiTYZr%2BtOoKlSTUBC9RoOgsu%2BxM0W9yj4fpSsm0hmCdlaA2ZVmcOR46WXlEQNAKD8VtlK4qLAVJ%2FE0mUca74wriQAn4Q6EPKcP3IRGfPZJnhrAO0%2FvXWi1F4HKbuN%2FDrBuYqLv4R6PSihiEaaFlJ%2BaLoHBpx%2F4Dp8nbVfS2dvcU42%2FSeob7YKJo3vthONZp5tbPk6UYbdZYzE78hq0MjQn2aYedIpjcT90Ql7%2FFnDQozgjCgoMJ14Ijcc5cZF%2BrQIvRmIT9DYPEjoXVXzqbJOjOAa%2F9p8%2FgrpVBQtzbLKYPWRdMl%2BJLCFB8otZM4EsbI6Na6XpJxFeU1%2FaT5N0F4vrUnKg8J2Ia%2FCNNi0ZiWaxAJbeoGgTRe6lqA0BOjPGF7ak0mYX10YldYE%2BY%2F1vRiNaGidrCzj%2FyEHS4O7jOVWhwKhyYUV6jghwc5ws6HcSX5reSIW33OQRJRFoJN04XOBd0scofpd2pKqlPyRaPp0XqUcD8JKttAZJQskPXwWB%2BdKrLFkor33DeaAn1YMEPhu3YHd8NfqEz1XSiJQTXudq662SUwk5TLF%2FnBM04HfEl3e7piNAwOa2M21lBrAoQm4qcklhxQrZ1gd3%2BvR3OHydRiO357JBK5JauZpjsZtniIdLebtdGnP8NTTPQafNKueQ2IwQ3aj2HyKIBZS3OyuFbTeouABCfcocvM%2FMdv1eqjgTChRs%2FF4x4Sa06NKazlCcqeao5TLUzzfNhSw9ZXyRZ3Fz3IJZiPtTiK0CRDxaYNqkkuPzZ3rhGXpLUqoQPPvyEITCxX5P0pTHHZvilu%2BI9cQGfueqyfpZMM3TqKlZvae6aTV%2BBGK8dMuPSytjniln1vJ08p9tXekte%2B9kiyThctTQpipG4KoF0xcGBS7zSAUuLX0%2F6vOLC17manFg779IWfLzZ81MCdFpKqVKM
mOBVrU2Ix8myBwyvrjKu7rJxzuRdZ2ldMncNIaOQ3SmN5j9%2BAijtoZCNDoPrSuUQ72UkwRP9cPdQkNuONbPXcISlplArAVv4T52Bg9hBCEF4NM8yBtaMolBo8Rk%2BOESwUfHG9VjHUqpYqaNphk6OrG0dBiYW0%2B0qJQJoiDbNonVLkTAVhQwEySgnKMOHiaQMiwWCudnEqpxIGK9ADpIOt8pFcRdgrpMQ9N1Sx%2BIBrkJ4W4bUwbicMeo1TZ13K99Yv4kgs2XD8omSq6nJCH7nXFlvVd4rWDSYFwT5TMZYV%2F6l2%2FGJQM25HKvtDzOG%2F%2FOC8%2FslYTzjDhbm7cfMOp44eyD7ZRsSchS3Q%2B4J8LMhpWungAzs2nduXUPBx%2B%2F8IVXk4rc6%2BTUKSgQyg7%2BmW5z%2BFR1M5FPZ8c%2Fm6gkMLEG5vHGK1TyflHztXrXZuhnjNmyjwDYbKFNiTPmU2V9PvdhTGe%2BJTqlyaUfn2N7%2FbkABSXynT3zMmZUAXpdwVHkaIohLM9DvlayRrMf%2B7vsE%2BAVrbtAwnmn8zQoKMHRPx%2BFJsliU4X4QwVhUEqvTalUOEYUnK3sJtQMAjJVNAQR2gVM0KKCDCHbIaauhqQx%2BbA0iwpcZLg1ZlwRHf7w4NVSD6RAxXrCNQRQoj9%2FnUzRPcnNuaUIJzEPMiBJ3dZPw02mE9LGllttHqRfUV3VrATa7Xa%2BHsjPRRTHEz8kLrsWivh3snKsmGc28egIakAwMtz1Wq6rgKm8PpFNjRPEhBGfruzPwjlRoec961ydkNc8k7BRgsW8d%2Fk5XJ0x9%2Fjo6SPPJJxuWZ7ynueyaFGbu14dx6yqLF4vNYYPhTgD5XsLge5t5iM8r7PvntL%2BA2UhzZKiu02hZJ2NvZIMCeKKGLqu6imMjslYxWU9aVGXBlJ3dswxIe%2BOG4MVPdKlVlbGII%2Bn8GcJKNxXZkzNCkuQm1pblDLn%2Fsds
yg4xfff8S7jA55Wg0c6FCJo%2FvoMNVU4bMIGbkuPOBf2FpW3rxC4v25zQ02uBn4%2F3Batub4%2BkbKNdwbByxSzh9MCPvAXqGPWZU0oD%2BJePpBJdpWkkHAJe2PmAPxT5B%2F%2FVIbDsrVyqaB5TVzy1qRs8nCmvF0zFUlKYBmaAY7HU62WUKFZfRH382KHiz7PWH%2BnW1zQlpffyKCv5KIqUqbAubXmSsmKey56JHvf8Wd7%2BjNrUc1LINmxa6FJFISBJ5djQVGfcP6qCVqIl43xpCF9tyYA%2F0mHZAvDal3RLZ%2FD9oW6O5uYaxbAPbckiO747cE8XqwV8FliNg6snhP3kqENhtdnXxS9anoYKssC296NIgsz%2B0%2FRYtTs38mu0ip3arY0H6TeFuGfNmRF3jhFVzWA5zjc0pn2JOSa5Rzh4Pc8F6itO7QCzcqdPa9RJC%2FTMCcmlLSopJpchiZkHLPo96eCT8lwqxmeXorfTG14DLwdPUrKdpkFje1jiikIUMcz%2B9TBQi4ejjrm8%2FXmvUBko13jY4YxoeQ4WSZuJWPDCi3Iez9VLLF%2F%2BtyXMMh5d6LakNwzuWsMwLZAsdPpzjaPOnjoHl%2BEL8WxJdEmwnyFpvrpDWklka4sCf%2Bb%2BGExhJHsCb%2BoCH9jKy9bwRmV1f0cdLFGBjkeqZW6ka246PadGCplxM9zvthklZY6SS72K0bqxOoh7ZunjkfOV6lNXDx0o3NvBADVelfsWSpx0pE27E%2Bx5G%2F6mpuYx%2F7NCcTGuCsOSy5wBQaQXIcL%2FXBKm0k5hTiPGLdH3LQXu6QqFEta%2FGK4YRXBHH1SATEngHC1rYwBIAc4n7ADNDA%2FdBxZwqzGzu6yIBzGK0RyWfv8iUgsmky5iRrLJsdu3nHkiqD39EQH8KKn5d6zMUNFil4LM90qjFZo8aaOcfq3JNhkxl67w2g78nexXGI8YJdDZlbXTPtjFgZ2ZsA89z%2BL
Civ0eByJ7kkq%2BqrwiH%2B64g%2BXS9SbJd2rk%2Fm8DF5j4jacY%2Bd5bxWj26PT6WWtRMbiMISWz6XAipkHEj7hT0OPsHeBDgLIlA1yCSYoGIcGV7sGrpSxr7MRYImccHbvKjoaBY0tO8VY12FwWmssJfdIpQr3yBnhtA6ra71PVVcQHnKgwIfToW7Qx5nV0aTuDFJ1VS2NQF297GvP80AvaJ5ajw3VzimILhoTpM64OscS16usXPV429x8zgsQzK6WT2ZvsYBcEWLnyKhXZNQLi5fcMkWFhdzT%2BxWcE9g2YEX9heC9a7hYhxYtWHMZCX7SmmjQNCZYHvMCIUnoEalzUaJj5XP7FyFkTrvWLtj2wiKgXhPytA%2BMx%2FBHt%2BYtX1Xqo72dBxh7ajlRLni8Rra%2Fe7bmWCVfylfSM3sGhIZy9kofzPSTk79M%2BTVeBtploSR0uPLktrjH2fWzaV2H0m4mB4x9M49KlI2GPJl7HNKLVNyuZhSYSnj1OzMMTuNrhlqjMVsPosQc66mkN1IYj4%3D&__VIEWSTATEGENERATOR=FD74C8C4&__EVENTVALIDATION=%2FfCMe4Kh7FlqrDvDtqgSsbd2fzwrUan%2FItAH8tkZbE4E1HaftxKn5cEpngjt1hi7Oil504fdjLkOoUy%2F8SCEyE58w4nylc41oyOaTq15POC6CfNbQAcWTdJYO4uEtH6plnO7Q4YFHP9mBi4HyEQKtJshUrCVkiSsfGbf4G3Q%2BVFk0JquilLLZ2f7K6L714Vn7PHwyHlo%2BQ%2B6u6naycYbmgYdS4Nkk6KEdAMLO6V5K6leRQfV%2FhfeVfj1M1nYsyhVndw7Xq6SsOivXh%2BAzYtcmUTFg3pDTwX1uptom6%2F0uscthgv9QQMXR0nOPb59ixDBc6N%2BllAvhdpe%2FY66j0SfDhDEwGc%2Fj3nfYAzAVLvkdDvbSSlEyihsN01Rw6xohDVFAHH5CZ4OCErmSqg
ZpDIRMirLzdjpiscvvtF0zWT3KXywiOVoEYQGzTwcVV3ZPI0WyjwJMiponJKzvzK2oKAaYoekAO3W3g%2FIzwzEXUMOw2Mxb9YGfEzn1mzpMvq%2FJHpf6wkMi8chB4OixKceOmmbaT9XdfKyUSLh1CxY4pOiQCw%2FUj71cFW%2FcClQoEc2tIGogi7YW9trhySJ00oJlyUNYT85TH%2BchELsJKBozF3vgXQsXRlNsiAYK0eaddvy0FB%2FzB4yAEZj1rUPyUH0X%2FY3s42RAGhqtOFctXRBOxPiFFz37cDNLatuvRSxrbIVvlDGCoP2nkEWZZYJSlBwjsQxOrLr0hTP%2FvmZULDAfZS8nOaJvAWy3PbErDwRqw36C%2B%2FI&ctl00%24txtSearchField=SEARCH&ctl00%24MyGolfLoginSummary%24tbMyGolfLogin_Username=&ctl00%24MyGolfLoginSummary%24tbMyGolfLogin_Password=&ctl00%24MainContent%24cbRegion=0&ctl00%24MainContent%24cbHoleOpt=0&ctl00%24MainContent%24tbSearch=SEARCH&__ASYNCPOST=true&ctl00%24MainContent%24btnSearch=GO"

With http
    .Open "POST", "http://www.golf.co.nz/PlayGolf/ClubDirectory.aspx", False
    .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    .send postdata
    html.body.innerHTML = .responseText
End With
Set items = html.getElementsByClassName("align-left")
    For Each item In items
    Set elem = item.getElementsByTagName("h2")
        x = x + 1
        Cells(x, 1) = elem(0).innerText
    Next item
End Sub
 
If I change the "Postdata" parameter with this [postdata = "ctl00$MainContent$cbRegion=All Regions&ctl00$MainContent$cbHoleOpt=Any number of Holes"], doesn't it achieve the same purpose?
 
Test by adding more headers (from developer tool). In most cases, POST request requires more header parameters to be set, than GET request.
 
Thanks sir CHIHIRO, for your response. Did you mean that I should test adding more headers along with formdata aka postdata from my second post? As you know if i continue using "postdata" from my first post it will definitely throw errors.
 
Last edited:
I mean this section. I suspect you need more than just "Content-type" header.

Code: 
With http
    .Open "POST", "http://www.golf.co.nz/PlayGolf/ClubDirectory.aspx", False
    .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    .send postdata
    html.body.innerHTML = .responseText
End With
 
Tried sir. Never worked with this "requestheader" things other than copy paste. So, if anything is wrong or the way i tried to input request headers are incorrect then do point me into the right direction. Thanks again.
Code: 
Sub ClubData()
Dim http As New MSXML2.XMLHTTP60, html As New HTMLDocument
Dim items As Object, item As Object, elem As Object, postdata As String

postdata = "ctl00$MainContent$cbRegion=All Regions&ctl00$MainContent$cbHoleOpt=Any number of Holes"
With http
    .Open "POST", "http://www.golf.co.nz/PlayGolf/ClubDirectory.aspx", False
    .setRequestHeader "Content-type", "application/x-www-form-urlencoded; charset=UTF-8"
    .setRequestHeader "Content-Type", "text/plain; charset=utf-8"
    .setRequestHeader "Accept-Language", "en-US,en;q=0.8"
    .send postdata
    html.body.innerHTML = .responseText
End With
Set items = html.getElementsByClassName("align-left")
    For Each item In items
    Set elem = item.getElementsByTagName("h2")
        x = x + 1
        Cells(x, 1) = elem(0).innerText
    Next item
MsgBox http.responseText
End Sub
 
Took a quick look at the site. You'll need something like below. Or use IE automation. You can validate the responseText by printing to text file and looking at the info (using Notepad++ or some other editor).

Code: 
Sub ClubData()
Dim http As New MSXML2.xmlhttp60, html As New HTMLDocument
Dim items As Object, item As Object, elem As Object, postdata As String

postdata = "ctl00%24scm=ctl00%24MainContent%24pnlFilters%7Cctl00%24MainContent%24btnSearch&__EVENTTARGET=&__" & _
"EVENTARGUMENT=&__LASTFOCUS=&__VIEWSTATE=ApnlGzl%2F0%2FXPx7EO%2FpjgXF9n%2BTCWNnZNcrFJ8DUOGlyg3RJ0f" & _
"ewvovvUmRr2MzUXbF%2Bk01ge4%2B4YG2%2BPEgUD7RtJ%2FEJNk4hIl7QYyH8%2F7%2BSxyXZxG6k6ZDmqrFgPV1lya6Z%2FU" & _
"Ujr1RkbgFTMk%2BJ1g0ZG%2BmMv6HMRHspF%2BEJrkWuzQjSzKWq83lQnBJs4p5FTCB58aoxtVTPR0zOCMr78JVWDTY9LbYZ%2" & _
"BsdJHERXE6TvgkJ2AUg%2FxQDkrMJZFiNPQJOUVklW1iZQwTa9eh7t25XROS%2Bs2rywNvSwt13fsSyDxpro612Uc5X891Nmn5" & _
"uIM5RjZ4pQHYY8qv6yVjQsozu05JpzsjBDjQu2fabe8Lg1aXgGoYa%2Frl6eCp0UuT31ZSUvs1VfzsQb8P%2B0gDd8z2NvNGx%2" & _
"BRR%2FYK9v1E6n09igUrJF%2FbtNeDxo1GEvnV3QSQC2LvCLesegZHoswoxLywUgHylqNp2HT4zhvyD%2BipKTqGKKWN6GNRNow" & _
"oI6NoBbR4Uc0e1SvONfIJ78IYxUHVSCm1W1ymRafh1Zqq4z7H6f5BAJ%2BbRwFH%2F8bi67p2xlts0oolwUakcydl9J9DPCN2qv" & _
"7GiU%2FOYFZCJJzAO5nKQmG5Uj8oylEU6QgSZyfjF5cXCMznLS5Zwcx%2FGH9kIR2xTV%2FOF4Th64GHyWBk9sdM0bsFXhf3wbH" & _
"JLSWDlQziDOodlk61sFolTgXEksufIPddJRA8LQYCcvMQh6K%2FJtTJr5okRQqLOp7IOPiACrYPv6jDxx%2Fjv0ubocq3XmJhwu" & _
"moWbgEwnUKF863N7vL90C0WY2VXJ%2BGqxbGMFBRewfI%2B5z0Tm9orNuCf8MX0tbF2AV3iuKyn01kFS4nOMtkbqiveuYvDQPWS" & _
"tH0Xa786zDJLZFnypK03sYi4Bmb%2FJiLIMugue2ckotuBE%2FCjtSJs04wl6vVwmKyyDjk2T99%2FK%2BAbJ77LFVgpm9u9Knx" & _
"P8OzUoYViZiLGlSW0GU%2FcVqTOHG4vvRWWG361%2Fb1A2BO4dLxwzrT9F7G%2BxT9bKPVdvHCiFd0hI5kMrA36gWvHBqI7tq5S" & _
"g0LwtxNZ7SAG0ypbUmnbera5M9jgc6HOFGz%2BoDpZrHI5I1earpLy4C8IVHw%2Fpcx%2F6UiLpNWzgvcCJd3H1FkfAVKEDemSv" & _
"M2AHuOFxG0nfxrhAwD1A%2FQe9q4fkCWVNrPOeEdlNNIOALi%2Fdrf2ooKl8K8AC26yViWodZavgkyL1Du7FpbubDII21izitCI" & _
"nwaosXWgCYdcyQkNwMrr6B%2Fr4BpulbvsF1THK%2BgkmWxYJ4dBqLZyMnPb2QYz9dsL%2B3bxd0%2FrA9MSaxl3TEUeuK%2ByX" & _
"JYi8BNZpA5vbWBoUNdyngyDb2l622ZCT1SM6XxnCMJ%2FiMx%2FFzQEw8LE0ztOjH1fvw1UepcLpwzb1BqbEZEefAjSLG2vaN1O" & _
"86BBVker0O83ZyPs8AYjVJkJMmX2o9b8ciWdaP79AtWGmE0xi30reQ1wzxvQosRD3vIHJncdGECmViziBpyXapxEuiaoazuay9c" & _
"6sBJcryKJAPXC%2FS7gZSrdl9VRmOFZ1rA%2BawoInV7WjzM6a4PxaW66nYP4nZLNmLgbrBjugRpQm9RZ%2BzGA5bxcVcWDpF%2" & _
"BTNlIglU2lYhKKOk0NfcdApchhG5fp8xTyACLGc4AXYGRCUcOUAJuFRYrnYqEezOEEsrPk9jCShvuRPrCwkwmOsFO7nIQTqrT9i" & _
"omMyGelC%2BmGOttr%2BAt909bRrYHvZLSg4HSOtyEQoY1xWcmv4%2FKdyXw%2FkJDkjWXJu4miByyRJRZETux7TFkaTVEJ182p" & _
"kMRkKd8pfj7RW%2F4px6%2BBvtkDOx5QOSaonN%2BQ22O2lHQzXAgumKgDJyX2aPTGiBrY38BeOKVR4gbEYRQg8X2JqDeDzZ8aI" & _
"qLRT6qSVhhnStwL6WxQDhMjKwSd5EUh3NB8Kd7GlHFlaKIEHCJuE3n4d4z%2BaUUKQvpYagbf93xvdQ7dPqf0x%2FZAA%2BXvhr"
postdata = postdata & _
            "uf%2Fj9p%2FBC4g3SQTw0HN%2Fhdek%2Bzv%2FwJkX5hnDRjGESaYTsC8o4fOpxdoa89G6Bm%2FvDaNq9X9z0nH9sJYbhfGPUL9" & _
"l6kps%2F2R9NcrYqASOweYE5qghKalKNfwYk%2Fs0Eynlbz2hW2sOEpybvhRT38EAOTsUqNVXPsDP6%2Bp3WiuPPm3YynszirEN" & _
"agrSIJUfVaBPUpN58%2F%2FWUiI2N87r%2FiYoyIuBla%2BLhgi2ZiWqnoaZXzjwWxA0%2FjaZCYPMgU73502oePmdf2X%2BI3c" & _
"IqGdtLPjdbxrVuT0czLuSPRMrIkVbxzH8r1RX1o6DCO0bfYEW52JeZzqbC8pW5AYY%2FJmp%2BKXZmenmGwTWCqoPKbTqASSOel" & _
"N7p%2BBq5C7uWPX24tPniDMksvs%2F31wc8ecr8oAxb973lvtNHMP26oSm4KYEi%2BA4JMVdoNFt82smJqMeXfgv9J4lz8qk1%2" & _
"BTl1s0yjAJRgi4fR6gXOrs5pjVKRl%2FB2rOt%2BNujbajQjs6dArTEu9jtNesoQf%2BrRli5Jx4XkARRUL2fKFvb8Mtmleuc6O" & _
"jP4%2FqmfZZc3ZO%2FyJYODaUYP8Lv7mSQSmAql%2BRnopEiZ8vcfCkbXcsMQCTZKzh4guEHQnnBRP2DCVjeWsDMldw9NVZYuUI" & _
"I%2BxrqzTNWJXH85TT8jyBOWK5hvYeDlMe5valwX2SNjJAa%2FULgufvX4Dn4jlkF2ouxcS635EU3I5zHSiKcWE%2FGI0%2BWWd" & _
"EtsEttoldLy9XeTQijTaS0VOD4mBpE7lGWDOSzOfxeNMKH5UGONHF5lKL7qPEBmK290mrRXwSjFSPlahFixVhm8H1Fhb5U9m4VP" & _
"Ry2DXcyMbbbgjgsagQ%2FuDt%2Fzh5YPMsQRRY5r76t3iMQu2fAlAHhGo2vTuei5UAW0TIppR7w%2FpKNeMoHrKY6yDYKw2gLLZ" & _
"OGM5XoTluAmlRdQjS56sVg3PLQAIb8%2BIdCneZMaRD7mi2%2BmqpzwdmspnQXV9S7nI%2BrlbewHARNDNTpbz8%2B0ll%2BOO8" & _
"%2FUKTiiUChHdI4V8Dh%2Bi2dh9620mEsh7Ywz0Cfb6fCGNSrv7hqPaKd72TIT3wBYviEVqaH3hTpypadntTSJRuSy4X9D8AMTb" & _
"t6o1Ammo3y51Dk%2F5TtlqW0mPHsANI81TKzHzj9VMQ0S0F8zkLSKaNSOwJSaGCvuM2pakfFaCw3%2B1039fDzyd8hKCaPBxL9b" & _
"02h%2FYDSMytcuTC651MKe7suSIx08otMwBwWXOhUABpGZNlexb8AntxI%2F7Ks%2BK5M8p2YjhZdplUY7OZXdlNtaS4dsnRdW2" & _
"7LUvwc%2BqU00paPCHN1bGcHI%2B00M0fyraxsLfFsGjlfC7wOQ7%2FcGIFTF9eJUftoRHHbVCnuO87%2B1FzWWLoay2bxVhOaH" & _
"SrxhJQFsW2ely9k87UKWfdwRDmc0rswlvlXBMAYikvC%2F0VWZHhtUNH%2FOGlEeZEmNB1UmnkdVE2cPxqUQ68ReZIa7YsjGPjD" & _
"OE5LX9pMdi3GtDfH%2Fe7VSWEEtU1QKKKI38sl9w2BI9KPJMt0lUvLQ3ThoaDkfVMo6HWWkkbdVN3iTIdkcSDnZf8MycRxr1k%2" & _
"Fkgn26D311D39EZpWY%2BMPk6JLGRu3YwEH8T3kbTVe1AOR3rG4aXL6f8QgMDdQqcBiMst7PQReNUREBLXSyBXwfLUBi4WgiuxP" & _
"uJHe9SXUrg%2FtVXDDDSdHPwMX%2B7zKTl0KyvOAhIcQ8jx7%2BhJX0Whim5%2Fpnecvg8MNvCRETTs7shbOErsdXEH%2Fibp3U" & _
"1F9rvdQ0JGNOgF2HK5c9Avh8%2Fmw23i8EdCCfEWt87YU%2BmMWhr5ehIIO8UXbX%2FHYYxA6lP%2FyJnmfe%2BtBGKnHT496jz" & _
"BASYlDkZSUkmZM37wGGvs7mA4PlukY3jlUQdEQGe1YkiwJQdjJAJ6UvjXG0o3%2FMA%2BfZbg%2FwmvBRrAUf13O8NzYLiYt%2B"
postdata = postdata & _
            "CyTtCH26XSVzGcTHQXoeM%2Brz6JQX6N0tjcYeZW%2FtHEsT5%2F1ZMdxGacPmMwg66gNo1G2Bj4rdWXpm04l%2B4RQXjGazNIW" & _
"RlIL5vR8Tx5dJ8fn0U%2Bj%2FjisBpA3mtY7C19a6Jqx4oIHFCBZx59GkCZ9G25XxV84UShpjGYubbY48pBbjJ1lfCxilJ5BIEX" & _
"kDa5LEebcLym4Bh5XFELZVRGbas6wBVyG4Wl1FvSBbLfcJB598B2cCvz12OcHJVwhmolxr%2BBQS59v2u%2F2pZHCv0EVQpcHXh" & _
"evfnRF4T%2FbRI5I6dI3RZemLIkLFQ4aBANVXDCprK52jVTL3ydcXBStErDHgcT%2Fv7yK7zjSQjrVG7mQw2vZQeLzs9OXBtwIz" & _
"4GuH1g95rWEZyOQSEr%2FS%2BE8jix6e%2F9BS%2Fw0iQcQStqKJShQHhCpV%2BlvXVZG%2B5upmcTXxxwEUXN3bhigYSuc3r73" & _
"xwDhTNkoFPC6mrsddM4syoKnYeyk4MkE3fXmEU5a9EkTQ6cAtFtGkvQX%2Bw1q0Kx6EXrLmapFsVpfUgH8CddQ1I%2BWMofns8Q" & _
"zEHOriT9cGIaSkoZ4vcfyIUSR6AHRLITJNb47waX0qnebTTNGx9bgCqJg81vRSNdeMBGrXrix7GLum5K9Vr8RqsElpaisevRc1o" & _
"CNjS60TssSh%2FLuVfGCuBME%2FB5s21LSLMbeue%2Ft5BWEikRifL8k9h8BL10EyKzIpSbfCkdklZO9hosNbd4NPNDId1DjBkD" & _
"orTqBGEOL9Y3bg77kYX8zfRYxjqVLLiVgduHmoja5WS2YW5faq%2FvKt3MnyDbZR8AicP875RPOn4OLfm7WQ1Rc%2FbvcmPZpU2" & _
"uyEhGFL11vZSQQxcGctk681bV250cTFqTIlbRqOYg9GRL8G4%2B5YaprVRhlJIGCkDevOvuIrfd0%2BWqWHxNp2Zoe2T6icT9qk" & _
"S2L%2FeUv8a5CO6%2BEawMW81x8%2FmAd9d2uhWpkGyjYKH6f2gQ6BFppLYk%2FVx8mjsLjlii54nbO%2FT5gdCEFeH4LUtNsRl" & _
"tQu1YseYkUnmsSFldhLj6ZRuTKlUtgIzA3lB0vzHorbdbKNmVZwYG4RGgDfmqnDHrTfsacrEqrvxmnM05L9GS8mLqlO6%2Bp7U5" & _
"uvSS8HlCY5AZsNT34lRbx2c1B%2FuzIRWDPNQ2AFt3RR%2BjAf3vMRBtiy38CYq%2BuODS%2B8dYyqNL7z4Mleadr1TgfQPHAGE" & _
"HbN2Ap2Yd1m7g8NJVSkx2ct9BU5iyshMUuYa86XFvnbMM%2FZOlRQrxDrjvvKx%2BBom8m0U7p2wv6jL1Hnln0KH4k00xbC7GxH" & _
"apPjkiaTCxR6qIjuwj19AIWqcSyKoFOrMqbkOYeTLk2AhPGbvrjdxpwf2RLML63AC%2BdlmGn%2Bb5lDzoCBM4miI7BUVEnhmCo" & _
"vvwKeyAuYHkUizUe2nQwmfnbM91bso0M7PLVzjcQFEzL1mo1WguDJ9y16uclBIoRBw5usosik%2BpdRCooO7Prz4%2B3wYLXBZI" & _
"inJ4HHf2rAfvAFqBIxuG8kDM31qJXlMmWLAplcPx1LizJ2owlUZyLMd8%2BACbDz%2F%2Fb9fxf4%2BYsz11KHvIlwAuYxORX%2" & _
"F0NbmKf%2FNflOgx4%2BdLW7AlDGq%2FDJjWP%2FIqT1TPWWq5tuI97FxiLtrv0Z92il5sJJgknP2%2FZAytzl%2FKfu5mXsrBY" & _
"dGZPLtlWHOu%2BSjlos7pht8pfr1o%2BfYRG5%2BOO1qNrzr3gCwyJrgo8NuWYmpfYadawTut06wcH0rJriZ1OSOaNRuR49PU5h" & _
"NntfksoZzTLeQKeQ08OF4mmaFWk0NJiP7MS06%2FcT93EJVmid6i9cw50nv4Gaf24NZpQ9KCx6xbiLkYkuE7u8S1%2Bv%2FMl66" & _
"%2BOCGyJLKabqJoV2urRa68%2FgWPhs4K9RAKqoSyv98e3k9jD8wPD6PlTf1wJYXS8RN36dommuv%2FmJB8tfiyGAqRMgwfWcVH" & _
"DyT%2FJJPL58sqINc7tl76UC5Or4wNuCEh12IZOkbzTiIp4aDremudc1T%2BD3RSj179OKxuGekUNBf%2Fit%2BlYk71UDQR15L" & _
"3doCoNbj%2FBSuVoizveCC1yHUAFR1mqMdaJZW8d6RDG028NDJefo8oLHFPIvQ2u4k0oXA5rmnKqV%2BDeQqUHsF6DUxaWtYpxU" & _
"e1Jcb0XsIqykPpzMWPvPOyf49n8%2B2IAvgSj6W6kaA4AjaR2Q8LkpGPYoy7kgz5eCbjkV5JFN0Idd2eQhYQ9aZvh1haigh%2Fq"
postdata = postdata & _
            "k7Dvc%3D&__VIEWSTATEGENERATOR=FD74C8C4&__EVENTVALIDATION=EONOlIkrasAPeB%2BPIyylRrF%2BmMl1Ynrk9OnJ%2" & _
"FZCEuweRB7noJpkB2qei4L7gRxZYCqNvfRIvte%2BjneUxJRDDRVq8vdPfh3R9Q1PwKBpKJdEEmbgJwm%2FeMsmNuckZc0QR4h5" & _
"bwalvzawTkWqr1n5mmTAl2iMkbx0fC0M4xcatSQ6KFEwTkWuyiD5PnYmf%2F%2FVCrxYQ%2BlDEYJGFF39vNhMW2M8mDAr0Cpso" & _
"NG4iagDYYJafEFArqjjspJs%2B2OjlMb%2Fjp25sX2a2%2BLOnUWEKpHdL%2BjGXJwq2SPoUTzDOL223j3OywZPjIVoT%2FqA31" & _
"OkfwUI2qiFf6bLp%2Bx7YBBvgdCp%2FXLip8lARkrL%2BDv3vTwCXQhNUmF9A74wKJw7VyDHu9XYW5Z6MDqQpfQ63j63Ti3dOxE" & _
"kNyjX%2B8sSnW2VKgyM38%2FBVT9w5Nk0QrUNRqvS9vzLpP%2FwPtJ2N33xeQYugUDu8LRIJ7X8U3xf5foVbkSxNMGG2L1lMz54" & _
"i0TnB7f8fHRYjwr7UNyvDbw3oDaeoXucfs0fD4ppIV5Vz0jDcdVkb1DgvBEn4vuXHYV0RTjDV61J0%2FPruN4y6bqMiMau0o98T" & _
"2EOodTmjfYpZkm704BSiP4hT0XQh4EWbvI%2FfAB8ezh4hDoegCFUBQig212UhkvKRQeyvv9cexyDYk6ncYs1MHT9LX%2Bu0ANN" & _
"5FfPI8oNpE7HQ7ftlM%2Bs8l8sL%2BuZOx5nwaxfaS9Cz%2B1Qqg30QoItuSjXyzZMuLmQxfZ1p6hZW%2FpA1&ctl00%24txtSe" & _
"archField=SEARCH&ctl00%24MyGolfLoginSummary%24tbMyGolfLogin_Username=&ctl00%24MyGolfLoginSummary%24" & _
"tbMyGolfLogin_Password=&ctl00%24MainContent%24cbRegion=0&ctl00%24MainContent%24cbHoleOpt=0&ctl00%24" & _
"MainContent%24tbSearch=SEARCH&__ASYNCPOST=true&ctl00%24MainContent%24btnSearch=GO"

'postdata = "ctl00%24MainContent%24cbHoleOpt=0&ctl00%24MainContent%24tbSearch=SEARCH&__ASYNCPOST=False&ctl00%24MainContent%24btnSearch=GO"
With http
    .Open "POST", "http://www.golf.co.nz/PlayGolf/ClubDirectory.aspx", False
    .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    .send postdata
    html.body.innerHTML = .responseText
    Dim intFF As Integer: intFF = FreeFile()
    Dim oPath As String: oPath = "C:\Test\Golf.txt"
    Open oPath For Output As #intFF
    Print #intFF, .responseText
    Close #intFF
End With
 
Found the solution. Turn out to be the easiest one. The code from my first post along with sir CHIHIRO's rectified "Postdata" parameter did the trick. Here is the working code for Name and Address.

Code: 
Sub ClubData()
Dim http As New MSXML2.XMLHTTP60, html As New HTMLDocument
Dim items As Object, item As Object, elem As Object, postdata As String

postdata = "ctl00%24scm=ctl00%24MainContent%24pnlFilters%7Cctl00%24MainContent%24btnSearch&__EVENTTARGET=&__" & _
"EVENTARGUMENT=&__LASTFOCUS=&__VIEWSTATE=ApnlGzl%2F0%2FXPx7EO%2FpjgXF9n%2BTCWNnZNcrFJ8DUOGlyg3RJ0f" & _
"ewvovvUmRr2MzUXbF%2Bk01ge4%2B4YG2%2BPEgUD7RtJ%2FEJNk4hIl7QYyH8%2F7%2BSxyXZxG6k6ZDmqrFgPV1lya6Z%2FU" & _
"Ujr1RkbgFTMk%2BJ1g0ZG%2BmMv6HMRHspF%2BEJrkWuzQjSzKWq83lQnBJs4p5FTCB58aoxtVTPR0zOCMr78JVWDTY9LbYZ%2" & _
"BsdJHERXE6TvgkJ2AUg%2FxQDkrMJZFiNPQJOUVklW1iZQwTa9eh7t25XROS%2Bs2rywNvSwt13fsSyDxpro612Uc5X891Nmn5" & _
"uIM5RjZ4pQHYY8qv6yVjQsozu05JpzsjBDjQu2fabe8Lg1aXgGoYa%2Frl6eCp0UuT31ZSUvs1VfzsQb8P%2B0gDd8z2NvNGx%2" & _
"BRR%2FYK9v1E6n09igUrJF%2FbtNeDxo1GEvnV3QSQC2LvCLesegZHoswoxLywUgHylqNp2HT4zhvyD%2BipKTqGKKWN6GNRNow" & _
"oI6NoBbR4Uc0e1SvONfIJ78IYxUHVSCm1W1ymRafh1Zqq4z7H6f5BAJ%2BbRwFH%2F8bi67p2xlts0oolwUakcydl9J9DPCN2qv" & _
"7GiU%2FOYFZCJJzAO5nKQmG5Uj8oylEU6QgSZyfjF5cXCMznLS5Zwcx%2FGH9kIR2xTV%2FOF4Th64GHyWBk9sdM0bsFXhf3wbH" & _
"JLSWDlQziDOodlk61sFolTgXEksufIPddJRA8LQYCcvMQh6K%2FJtTJr5okRQqLOp7IOPiACrYPv6jDxx%2Fjv0ubocq3XmJhwu" & _
"moWbgEwnUKF863N7vL90C0WY2VXJ%2BGqxbGMFBRewfI%2B5z0Tm9orNuCf8MX0tbF2AV3iuKyn01kFS4nOMtkbqiveuYvDQPWS" & _
"tH0Xa786zDJLZFnypK03sYi4Bmb%2FJiLIMugue2ckotuBE%2FCjtSJs04wl6vVwmKyyDjk2T99%2FK%2BAbJ77LFVgpm9u9Knx" & _
"P8OzUoYViZiLGlSW0GU%2FcVqTOHG4vvRWWG361%2Fb1A2BO4dLxwzrT9F7G%2BxT9bKPVdvHCiFd0hI5kMrA36gWvHBqI7tq5S" & _
"g0LwtxNZ7SAG0ypbUmnbera5M9jgc6HOFGz%2BoDpZrHI5I1earpLy4C8IVHw%2Fpcx%2F6UiLpNWzgvcCJd3H1FkfAVKEDemSv" & _
"M2AHuOFxG0nfxrhAwD1A%2FQe9q4fkCWVNrPOeEdlNNIOALi%2Fdrf2ooKl8K8AC26yViWodZavgkyL1Du7FpbubDII21izitCI" & _
"nwaosXWgCYdcyQkNwMrr6B%2Fr4BpulbvsF1THK%2BgkmWxYJ4dBqLZyMnPb2QYz9dsL%2B3bxd0%2FrA9MSaxl3TEUeuK%2ByX" & _
"JYi8BNZpA5vbWBoUNdyngyDb2l622ZCT1SM6XxnCMJ%2FiMx%2FFzQEw8LE0ztOjH1fvw1UepcLpwzb1BqbEZEefAjSLG2vaN1O" & _
"86BBVker0O83ZyPs8AYjVJkJMmX2o9b8ciWdaP79AtWGmE0xi30reQ1wzxvQosRD3vIHJncdGECmViziBpyXapxEuiaoazuay9c" & _
"6sBJcryKJAPXC%2FS7gZSrdl9VRmOFZ1rA%2BawoInV7WjzM6a4PxaW66nYP4nZLNmLgbrBjugRpQm9RZ%2BzGA5bxcVcWDpF%2" & _
"BTNlIglU2lYhKKOk0NfcdApchhG5fp8xTyACLGc4AXYGRCUcOUAJuFRYrnYqEezOEEsrPk9jCShvuRPrCwkwmOsFO7nIQTqrT9i" & _
"omMyGelC%2BmGOttr%2BAt909bRrYHvZLSg4HSOtyEQoY1xWcmv4%2FKdyXw%2FkJDkjWXJu4miByyRJRZETux7TFkaTVEJ182p" & _
"kMRkKd8pfj7RW%2F4px6%2BBvtkDOx5QOSaonN%2BQ22O2lHQzXAgumKgDJyX2aPTGiBrY38BeOKVR4gbEYRQg8X2JqDeDzZ8aI" & _
"qLRT6qSVhhnStwL6WxQDhMjKwSd5EUh3NB8Kd7GlHFlaKIEHCJuE3n4d4z%2BaUUKQvpYagbf93xvdQ7dPqf0x%2FZAA%2BXvhr"
postdata = postdata & _
            "uf%2Fj9p%2FBC4g3SQTw0HN%2Fhdek%2Bzv%2FwJkX5hnDRjGESaYTsC8o4fOpxdoa89G6Bm%2FvDaNq9X9z0nH9sJYbhfGPUL9" & _
"l6kps%2F2R9NcrYqASOweYE5qghKalKNfwYk%2Fs0Eynlbz2hW2sOEpybvhRT38EAOTsUqNVXPsDP6%2Bp3WiuPPm3YynszirEN" & _
"agrSIJUfVaBPUpN58%2F%2FWUiI2N87r%2FiYoyIuBla%2BLhgi2ZiWqnoaZXzjwWxA0%2FjaZCYPMgU73502oePmdf2X%2BI3c" & _
"IqGdtLPjdbxrVuT0czLuSPRMrIkVbxzH8r1RX1o6DCO0bfYEW52JeZzqbC8pW5AYY%2FJmp%2BKXZmenmGwTWCqoPKbTqASSOel" & _
"N7p%2BBq5C7uWPX24tPniDMksvs%2F31wc8ecr8oAxb973lvtNHMP26oSm4KYEi%2BA4JMVdoNFt82smJqMeXfgv9J4lz8qk1%2" & _
"BTl1s0yjAJRgi4fR6gXOrs5pjVKRl%2FB2rOt%2BNujbajQjs6dArTEu9jtNesoQf%2BrRli5Jx4XkARRUL2fKFvb8Mtmleuc6O" & _
"jP4%2FqmfZZc3ZO%2FyJYODaUYP8Lv7mSQSmAql%2BRnopEiZ8vcfCkbXcsMQCTZKzh4guEHQnnBRP2DCVjeWsDMldw9NVZYuUI" & _
"I%2BxrqzTNWJXH85TT8jyBOWK5hvYeDlMe5valwX2SNjJAa%2FULgufvX4Dn4jlkF2ouxcS635EU3I5zHSiKcWE%2FGI0%2BWWd" & _
"EtsEttoldLy9XeTQijTaS0VOD4mBpE7lGWDOSzOfxeNMKH5UGONHF5lKL7qPEBmK290mrRXwSjFSPlahFixVhm8H1Fhb5U9m4VP" & _
"Ry2DXcyMbbbgjgsagQ%2FuDt%2Fzh5YPMsQRRY5r76t3iMQu2fAlAHhGo2vTuei5UAW0TIppR7w%2FpKNeMoHrKY6yDYKw2gLLZ" & _
"OGM5XoTluAmlRdQjS56sVg3PLQAIb8%2BIdCneZMaRD7mi2%2BmqpzwdmspnQXV9S7nI%2BrlbewHARNDNTpbz8%2B0ll%2BOO8" & _
"%2FUKTiiUChHdI4V8Dh%2Bi2dh9620mEsh7Ywz0Cfb6fCGNSrv7hqPaKd72TIT3wBYviEVqaH3hTpypadntTSJRuSy4X9D8AMTb" & _
"t6o1Ammo3y51Dk%2F5TtlqW0mPHsANI81TKzHzj9VMQ0S0F8zkLSKaNSOwJSaGCvuM2pakfFaCw3%2B1039fDzyd8hKCaPBxL9b" & _
"02h%2FYDSMytcuTC651MKe7suSIx08otMwBwWXOhUABpGZNlexb8AntxI%2F7Ks%2BK5M8p2YjhZdplUY7OZXdlNtaS4dsnRdW2" & _
"7LUvwc%2BqU00paPCHN1bGcHI%2B00M0fyraxsLfFsGjlfC7wOQ7%2FcGIFTF9eJUftoRHHbVCnuO87%2B1FzWWLoay2bxVhOaH" & _
"SrxhJQFsW2ely9k87UKWfdwRDmc0rswlvlXBMAYikvC%2F0VWZHhtUNH%2FOGlEeZEmNB1UmnkdVE2cPxqUQ68ReZIa7YsjGPjD" & _
"OE5LX9pMdi3GtDfH%2Fe7VSWEEtU1QKKKI38sl9w2BI9KPJMt0lUvLQ3ThoaDkfVMo6HWWkkbdVN3iTIdkcSDnZf8MycRxr1k%2" & _
"Fkgn26D311D39EZpWY%2BMPk6JLGRu3YwEH8T3kbTVe1AOR3rG4aXL6f8QgMDdQqcBiMst7PQReNUREBLXSyBXwfLUBi4WgiuxP" & _
"uJHe9SXUrg%2FtVXDDDSdHPwMX%2B7zKTl0KyvOAhIcQ8jx7%2BhJX0Whim5%2Fpnecvg8MNvCRETTs7shbOErsdXEH%2Fibp3U" & _
"1F9rvdQ0JGNOgF2HK5c9Avh8%2Fmw23i8EdCCfEWt87YU%2BmMWhr5ehIIO8UXbX%2FHYYxA6lP%2FyJnmfe%2BtBGKnHT496jz" & _
"BASYlDkZSUkmZM37wGGvs7mA4PlukY3jlUQdEQGe1YkiwJQdjJAJ6UvjXG0o3%2FMA%2BfZbg%2FwmvBRrAUf13O8NzYLiYt%2B"
postdata = postdata & _
            "CyTtCH26XSVzGcTHQXoeM%2Brz6JQX6N0tjcYeZW%2FtHEsT5%2F1ZMdxGacPmMwg66gNo1G2Bj4rdWXpm04l%2B4RQXjGazNIW" & _
"RlIL5vR8Tx5dJ8fn0U%2Bj%2FjisBpA3mtY7C19a6Jqx4oIHFCBZx59GkCZ9G25XxV84UShpjGYubbY48pBbjJ1lfCxilJ5BIEX" & _
"kDa5LEebcLym4Bh5XFELZVRGbas6wBVyG4Wl1FvSBbLfcJB598B2cCvz12OcHJVwhmolxr%2BBQS59v2u%2F2pZHCv0EVQpcHXh" & _
"evfnRF4T%2FbRI5I6dI3RZemLIkLFQ4aBANVXDCprK52jVTL3ydcXBStErDHgcT%2Fv7yK7zjSQjrVG7mQw2vZQeLzs9OXBtwIz" & _
"4GuH1g95rWEZyOQSEr%2FS%2BE8jix6e%2F9BS%2Fw0iQcQStqKJShQHhCpV%2BlvXVZG%2B5upmcTXxxwEUXN3bhigYSuc3r73" & _
"xwDhTNkoFPC6mrsddM4syoKnYeyk4MkE3fXmEU5a9EkTQ6cAtFtGkvQX%2Bw1q0Kx6EXrLmapFsVpfUgH8CddQ1I%2BWMofns8Q" & _
"zEHOriT9cGIaSkoZ4vcfyIUSR6AHRLITJNb47waX0qnebTTNGx9bgCqJg81vRSNdeMBGrXrix7GLum5K9Vr8RqsElpaisevRc1o" & _
"CNjS60TssSh%2FLuVfGCuBME%2FB5s21LSLMbeue%2Ft5BWEikRifL8k9h8BL10EyKzIpSbfCkdklZO9hosNbd4NPNDId1DjBkD" & _
"orTqBGEOL9Y3bg77kYX8zfRYxjqVLLiVgduHmoja5WS2YW5faq%2FvKt3MnyDbZR8AicP875RPOn4OLfm7WQ1Rc%2FbvcmPZpU2" & _
"uyEhGFL11vZSQQxcGctk681bV250cTFqTIlbRqOYg9GRL8G4%2B5YaprVRhlJIGCkDevOvuIrfd0%2BWqWHxNp2Zoe2T6icT9qk" & _
"S2L%2FeUv8a5CO6%2BEawMW81x8%2FmAd9d2uhWpkGyjYKH6f2gQ6BFppLYk%2FVx8mjsLjlii54nbO%2FT5gdCEFeH4LUtNsRl" & _
"tQu1YseYkUnmsSFldhLj6ZRuTKlUtgIzA3lB0vzHorbdbKNmVZwYG4RGgDfmqnDHrTfsacrEqrvxmnM05L9GS8mLqlO6%2Bp7U5" & _
"uvSS8HlCY5AZsNT34lRbx2c1B%2FuzIRWDPNQ2AFt3RR%2BjAf3vMRBtiy38CYq%2BuODS%2B8dYyqNL7z4Mleadr1TgfQPHAGE" & _
"HbN2Ap2Yd1m7g8NJVSkx2ct9BU5iyshMUuYa86XFvnbMM%2FZOlRQrxDrjvvKx%2BBom8m0U7p2wv6jL1Hnln0KH4k00xbC7GxH" & _
"apPjkiaTCxR6qIjuwj19AIWqcSyKoFOrMqbkOYeTLk2AhPGbvrjdxpwf2RLML63AC%2BdlmGn%2Bb5lDzoCBM4miI7BUVEnhmCo" & _
"vvwKeyAuYHkUizUe2nQwmfnbM91bso0M7PLVzjcQFEzL1mo1WguDJ9y16uclBIoRBw5usosik%2BpdRCooO7Prz4%2B3wYLXBZI" & _
"inJ4HHf2rAfvAFqBIxuG8kDM31qJXlMmWLAplcPx1LizJ2owlUZyLMd8%2BACbDz%2F%2Fb9fxf4%2BYsz11KHvIlwAuYxORX%2" & _
"F0NbmKf%2FNflOgx4%2BdLW7AlDGq%2FDJjWP%2FIqT1TPWWq5tuI97FxiLtrv0Z92il5sJJgknP2%2FZAytzl%2FKfu5mXsrBY" & _
"dGZPLtlWHOu%2BSjlos7pht8pfr1o%2BfYRG5%2BOO1qNrzr3gCwyJrgo8NuWYmpfYadawTut06wcH0rJriZ1OSOaNRuR49PU5h" & _
"NntfksoZzTLeQKeQ08OF4mmaFWk0NJiP7MS06%2FcT93EJVmid6i9cw50nv4Gaf24NZpQ9KCx6xbiLkYkuE7u8S1%2Bv%2FMl66" & _
"%2BOCGyJLKabqJoV2urRa68%2FgWPhs4K9RAKqoSyv98e3k9jD8wPD6PlTf1wJYXS8RN36dommuv%2FmJB8tfiyGAqRMgwfWcVH" & _
"DyT%2FJJPL58sqINc7tl76UC5Or4wNuCEh12IZOkbzTiIp4aDremudc1T%2BD3RSj179OKxuGekUNBf%2Fit%2BlYk71UDQR15L" & _
"3doCoNbj%2FBSuVoizveCC1yHUAFR1mqMdaJZW8d6RDG028NDJefo8oLHFPIvQ2u4k0oXA5rmnKqV%2BDeQqUHsF6DUxaWtYpxU" & _
"e1Jcb0XsIqykPpzMWPvPOyf49n8%2B2IAvgSj6W6kaA4AjaR2Q8LkpGPYoy7kgz5eCbjkV5JFN0Idd2eQhYQ9aZvh1haigh%2Fq"
postdata = postdata & _
            "k7Dvc%3D&__VIEWSTATEGENERATOR=FD74C8C4&__EVENTVALIDATION=EONOlIkrasAPeB%2BPIyylRrF%2BmMl1Ynrk9OnJ%2" & _
"FZCEuweRB7noJpkB2qei4L7gRxZYCqNvfRIvte%2BjneUxJRDDRVq8vdPfh3R9Q1PwKBpKJdEEmbgJwm%2FeMsmNuckZc0QR4h5" & _
"bwalvzawTkWqr1n5mmTAl2iMkbx0fC0M4xcatSQ6KFEwTkWuyiD5PnYmf%2F%2FVCrxYQ%2BlDEYJGFF39vNhMW2M8mDAr0Cpso" & _
"NG4iagDYYJafEFArqjjspJs%2B2OjlMb%2Fjp25sX2a2%2BLOnUWEKpHdL%2BjGXJwq2SPoUTzDOL223j3OywZPjIVoT%2FqA31" & _
"OkfwUI2qiFf6bLp%2Bx7YBBvgdCp%2FXLip8lARkrL%2BDv3vTwCXQhNUmF9A74wKJw7VyDHu9XYW5Z6MDqQpfQ63j63Ti3dOxE" & _
"kNyjX%2B8sSnW2VKgyM38%2FBVT9w5Nk0QrUNRqvS9vzLpP%2FwPtJ2N33xeQYugUDu8LRIJ7X8U3xf5foVbkSxNMGG2L1lMz54" & _
"i0TnB7f8fHRYjwr7UNyvDbw3oDaeoXucfs0fD4ppIV5Vz0jDcdVkb1DgvBEn4vuXHYV0RTjDV61J0%2FPruN4y6bqMiMau0o98T" & _
"2EOodTmjfYpZkm704BSiP4hT0XQh4EWbvI%2FfAB8ezh4hDoegCFUBQig212UhkvKRQeyvv9cexyDYk6ncYs1MHT9LX%2Bu0ANN" & _
"5FfPI8oNpE7HQ7ftlM%2Bs8l8sL%2BuZOx5nwaxfaS9Cz%2B1Qqg30QoItuSjXyzZMuLmQxfZ1p6hZW%2FpA1&ctl00%24txtSe" & _
"archField=SEARCH&ctl00%24MyGolfLoginSummary%24tbMyGolfLogin_Username=&ctl00%24MyGolfLoginSummary%24" & _
"tbMyGolfLogin_Password=&ctl00%24MainContent%24cbRegion=0&ctl00%24MainContent%24cbHoleOpt=0&ctl00%24" & _
"MainContent%24tbSearch=SEARCH&__ASYNCPOST=true&ctl00%24MainContent%24btnSearch=GO"


With http
    .Open "POST", "http://www.golf.co.nz/PlayGolf/ClubDirectory.aspx", False
    .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    .send postdata
    html.body.innerHTML = .responseText
End With
Set items = html.getElementsByClassName("align-left")
    For Each item In items
    Set elem = item.getElementsByTagName("h2")
    Set parm = item.getElementsByTagName("p")
        x = x + 1
        If elem.Length Then Cells(x, 1) = elem(0).innerText
        If parm.Length Then Cells(x - 1, 2) = parm(0).innerText
    Next item
End Sub
 
Dear sir Chihiro, I would like to know something from you. The other day you validated the postdata parameter in the above post. I got a site with almost the same feature. What i wanna know is how you validated the longest line in the postdata above, i meant within double quotation mark. Thanks in advance.
 
As always, by using Developer tool.
Edit: Below assumes Google Chrome.
First make sure you have "Network" monitored. Then hit "Go" on the site.

I usually check "XHR" section first. As I have previously posted in one of your thread, this is XMLHttpRequest section.

There's 4 items that show up in that section. You should immediately notice "ClubDirectory.aspx" in the list.

From there, you are always interested in the "Headers" section for parameters sent. In this case, since it's of type "application/x-www-form-urlencoded", you will want to look at "Form Data" section for parameters sent.

You will see the info needed there. However, do note you need to view it in "source" format, without parsing.
 
Sorry sir, it's my mistake that i could not make you understand what i meant. I have collected the form data elements but I can't fit that within "" double quotation because it is too big. I encountered the same problem with the above pasted longest line as well. However, you did that for me then.
 
Copy and paste into Notepad++ or other suitable editor.

Then use " & _" line continuation to break it into manageable chanks. Note that there is limit to number of line continuation that you can use (20 something I believe). Hence, why it's broken into several stages in my example.

Google "vba break very long string" and you should find plenty of examples.
 
You must log in or register to reply here.
Back
Top