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