HttpWebRequest 采集网站数据

最新推荐文章于 2021-08-04 17:41:41 发布

songhuan

最新推荐文章于 2021-08-04 17:41:41 发布

阅读量1.6w

点赞数 2

文章标签： string redirect search function textbox c

本文链接：https://blog.csdn.net/songhuan/article/details/2790250

版权

Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Web

Public Class Form5
    Const RedirectPatten = "^<script language=""javascript"">window.location.replace/(""(?<url>.*)""/);</script><!"
    Const NextPagePatten = "<img src=""/content/images/rightred.ico""> <a href=""(?<NextPage>.*)"">Next</a>"
    Const searchPageViewStatePatten = "id=""__VIEWSTATE"" value=""(?<searchPageViewState>.*)"" />"
    Const SearchGEOPatten = "<option value="".*"">(?<searchGEO>.*)/(.* listings/)</option>"
    Dim mySaveCookieContainer As CookieContainer = New CookieContainer()
    Dim enc As Encoding = Encoding.UTF8
    Dim firstURL As String = String.Empty
    Dim loginPost As String = String.Empty
    Dim loginCookie As String = String.Empty
    Dim searchPost As String = String.Empty
    Dim username As String = String.Empty
    Dim pwd As String = String.Empty
    Dim loginviewstate As String = String.Empty
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' ''123576   ok
        'firstURL = "https://secure2.prudentialproperties.com//welcome/start.aspx?MarketId=086&AffiliateId=MI003"
        'loginCookie = "CookieTest=true; __utmc=195446574; DEBUG=FirstName=Tad&LastName=Jackson&CurrentMarketId=086&AffiliateId=MI003&AffiliateOfficeId=001&EmailAddress=tadj0408@yahoo.com&CustomerId=c52e0c59-3286-46c2-b884-e25fb69056fd; SVOW=MarketId=086&AffiliateId=MI003"
        'loginPost = "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwULLTE0MDMwMTU4ODEPZBYCAgMPZBYMAgEPDxYCHglTaWduVXBVcmwFTi9yZWdpc3Rlci9zdGFydC5hc3B4P1dULnN2bD1ZYWhvb19TZWN1cmVWb3dfL3dlbGNvbWUvc3RhcnQuYXNweF9TaWduVXBSZWdpc3RlcmRkAgMPDxYCHgdWaXNpYmxlaGRkAgUPZBYCAiMPDxYEHgRUZXh0BQUxLDgxNh8BZ2RkAgkPZBYCZg9kFgRmD2QWAmYPZBYCZg8PFgIeCEltYWdlVXJsBVcvaW1hZ2UuYXNweD9pbWFnZWlkPWE3ZDNiMGU0LTZmYTQtNGM0MS1hNzZjLWY0MzQ4YmMyNGY5MSZNYXJrZXRJZD0wODYmQWZmaWxpYXRlSWQ9TUkwMDNkZAIBD2QWAmYPZBYCZg8PFgYeCENzc0NsYXNzBQJ0cx8CBQ1TdGV2ZSBIdWRraW5zHgRfIVNCAgJkZAILDw8WAh8CBckFPHA%2BQW55dGltZSB5b3UgbW92ZSwgdGhlcmUgYXJlIGJvdW5kIHRvIGJlIG1hbnkgcXVlc3Rpb25zLiBZb3VyIHNhbGVzIHByb2Zlc3Npb25hbCBoYXMgdGhlIGFuc3dlcnMuPC9wPgo8cD48YSBocmVmPSIvcmVnaXN0ZXIvc3RhcnQuYXNweD9XVC5zdmw9WWFob29fU2VjdXJlVm93Xy93ZWxjb21lL3N0YXJ0LmFzcHhfSG9tZVJlZ2lzdGVyIj5SZWdpc3RlcjwvYT4gdG8gc2VlIGhvdyBQcnVkZW50aWFsIFJlYWwgRXN0YXRlIHRlY2hub2xvZ3kgY2FuIG1ha2UgdGhlIGhvbWUgYnV5aW5nIHByb2Nlc3MgbW9yZSBlZmZpY2llbnQsIHN0cmVzcy1mcmVlIGFuZCBzdWNjZXNzZnVsLiBSZWdpc3RlcmVkIGN1c3RvbWVycyBjYW46PC9wPgo8dWw%2BCjxsaT5BY2Nlc3MgdGhlIGxvY2FsIE11bHRpcGxlIExpc3RpbmcgU2VydmljZSAoTUxTKSB1c2luZyBNeSBTZWFyY2ggCjwvbGk%2BPGxpPlNhdmUgaG9tZXMgaW4gTXkgUG9ydGZvbGlvIAo8L2xpPjxsaT5BZGQgYW5kIHNhdmUgY29tbWVudHMgdG8geW91ciBmYXZvcml0ZSBob21lcyB1c2luZyBNeSBOb3RlcyAKPC9saT48bGk%2BUmVxdWVzdCBhIGhvbWUgdG91ciBvbmxpbmUgPC9saT48L3VsPgo8cD5SZWdpc3RlciBub3cgdG8gYWNjZXNzIHRoZSBiZW5lZml0cyBQcnVkZW50aWFsIFJlYWwgRXN0YXRlIG9mZmVycy4gQSBuYW1lIHlvdSBjYW4gdHJ1c3QsIHByb2Zlc3Npb25hbHMgeW91IGNhbiByZWx5IG9uLjwvcD5kZAIPDw9kFgQeC29ubW91c2VvdmVyBS53aW5kb3cuc3RhdHVzID0gJ1JlYWx0b3IgU2VjdXJlJzsgcmV0dXJuIHRydWU7Hgpvbm1vdXNlb3V0BSB3aW5kb3cuc3RhdHVzID0gJyc7IHJldHVybiB0cnVlO2QYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFgEFDWNoa1JlbWVtYmVyTWVhJ7btuvXg3GhZjCBo0NcuAAAAAA%3D%3D&txtEmailAddress=tadj0408@yahoo.com&txtPassword=trckmc&chkRememberMe=on&btnLogon=Sign+In"
        'searchPost = "EVENTTARGET=&__EVENTARGUMENT=&__LASTFOCUS=&__VIEWSTATE=%2FwEPDwUKLTg4ODY4NTU3Nw8WAh4PU2VhcmNoQ29udGFpbmVyMq8NAAEAAAD%2F%2F%2F%2F%2FAQAAAAAAAAAMAgAAAGRQcmVzYy5XZWJzZXJ2aWNlcy5Db250cmFjdCwgVmVyc2lvbj0xLjAuMzExMy4yNDY3NCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj0xYzE0NTZkZjJhYWY0M2EzBQEAAAAqUHJlc2MuV2Vic2VydmljZXMuQ29udHJhY3QuU2VhcmNoQ29udGFpbmVyRAAAAAVfbW9kZRRfZGlzcGxheURldGFpbHNQYWdlcgxfYWZmaWxpYXRlSWQLX2N1c3RvbWVySWQNX2VtYWlsQWRkcmVzcxRfaXNOZXdMaXN0aW5nQWxlcnRPbhJfaXNOZXdQaG90b0FsZXJ0T24JX21hcmtldElkDF9pc1Zvd1NlYXJjaAtfdG9wUmVzdWx0cwtfc2VhcmNoTmFtZRBfaXNJbml0aWFsU2VhcmNoC19zZWFyY2hUeXBlFF9wcm9wZXJ0eVR5cGVTZXR0aW5nEl9wcm9wZXJ0eVR5cGVBcnJheQVfZ2VvMRBfZ2VvMURpc3BsYXlUZXh0EF9nZW8yRGlzcGxheVRleHQQX2dlbzNEaXNwbGF5VGV4dBBfZ2VvNERpc3BsYXlUZXh0EF9nZW81RGlzcGxheVRleHQQX2dlbzZEaXNwbGF5VGV4dBBfZ2VvN0Rpc3BsYXlUZXh0EF9nZW84RGlzcGxheVRleHQQX2dlbzlEaXNwbGF5VGV4dBFfZ2VvMTBEaXNwbGF5VGV4dAVfZ2VvMgVfZ2VvMwVfZ2VvNAVfZ2VvNQVfZ2VvNgVfZ2VvNwVfZ2VvOAVfZ2VvOQZfZ2VvMTAEX2FnZQlfYmFzZW1lbnQKX2JhdGhyb29tcwlfYmVkcm9vbXMNX2J1aWxkaW5nVHlwZQdfZ2FyYWdlD19sb3REZXNjcmlwdGlvbghfbG90U2l6ZQlfbWF4UHJpY2UJX21pblByaWNlBV9wb29sBV9zb3J0DF9pc0FzY2VuZGluZwVfc3FmdAdfc3RhdHVzBl9zdG9yeQtfd2F0ZXJmcm9udA5fdG90YWxMaXN0aW5ncxZfdG90YWxGZWF0dXJlZExpc3RpbmdzDF9taWxlc1dpdGhpbg9fY2FjaGVkU2VhcmNoSWQPX2lzUmVmaW5lU2VhcmNoEl9saXN0aW5nQ291bnRzT25seQtfcGFnZUxlbmd0aAxfZmlyc3RSZWNvcmQLX3BhZ2VOdW1iZXIMX3JlY29yZENvdW50CV9nZW9Db3VudA1fc2VhcmNoU2NoZW1hDl9wcm9wZXJ0eUNvdW50FV9uZXdIb21lTGlzdGluZ3NDb3VudBhfbmV3SG9tZUNvbW11bml0aWVzQ291bnQOX2RldGFpbHNQcm9wSWQBAAEDAQAAAQAAAQAABAcBAQEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAEAAAAAQELU3lzdGVtLkd1aWQBAQEIAQg3UHJlc2MuV2Vic2VydmljZXMuQ29udHJhY3QuU2VhcmNoQ29udGFpbmVyK1Byb3BlcnR5VHlwZQIAAAAICAgICAgICAgICAgIAQgICAgICAgLU3lzdGVtLkd1aWQBAQgICAgIJ1ByZXNjLldlYnNlcnZpY2VzLkNvbnRyYWN0LlNlYXJjaFNjaGVtYQIAAAAICAgCAAAABgMAAAAGU2VhcmNoAAYEAAAAAAT7%2F%2F%2F%2FC1N5c3RlbS5HdWlkCwAAAAJfYQJfYgJfYwJfZAJfZQJfZgJfZwJfaAJfaQJfagJfawAAAAAAAAAAAAAACAcHAgICAgICAgJZDC7FhjLCRriE4l%2B2kFb9BgYAAAASdGFkajA0MDhAeWFob28uY29tAAAGBwAAAAMwODYBZAAAAAkEAAAAAAgAAAAF9%2F%2F%2F%2FzdQcmVzYy5XZWJzZXJ2aWNlcy5Db250cmFjdC5TZWFyY2hDb250YWluZXIrUHJvcGVydHlUeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAgAAAAkKAAAACgoKCgoKCgoKCgoKCgoKCgoKCgr%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F%2F4CWmAAAAAAA%2F%2F%2F%2F%2FwUAAAAA%2F%2F%2F%2F%2FwAAAAD%2F%2F%2F%2F%2F%2F%2F%2F%2F%2FwAAAAAAAAAA%2F%2F%2F%2F%2FwH1%2F%2F%2F%2F%2B%2F%2F%2F%2FwAAAAAAAAAAAAAAAAAAAAAAAAoAAAAAAAAAAQAAAAoAAAAAAAAACgAAAAAAAAAAAAAAAAkEAAAADwoAAAACAAAACAEAAAACAAAACxYCAgMPZBYEAgMPZBYIZg8PFgIeB1Zpc2libGVoZGQCAQ8PFgIfAWhkZAICDxAPFgIfAWhkZBYAZAIHDw8WAh4HRW5hYmxlZGhkZAIFD2QWEAIDDxAPFgYeDURhdGFUZXh0RmllbGQFC0Rpc3BsYXlUZXh0Hg5EYXRhVmFsdWVGaWVsZAUMUHJvcGVydHlUeXBlHgtfIURhdGFCb3VuZGcWAh4Hb25jbGljawUMTG9va1VwQXJlYSgpEBUEDVNpbmdsZSBGYW1pbHkPVG93bmhvdXNlL0NvbmRvCExvdC9MYW5kDE11bHRpLUZhbWlseRUEATEBMgEzATQUKwMEZ2dnZ2RkAgUPZBYiAgEPEA8WBh8DBQtEaXNwbGF5VGV4dB8EBQhDcml0ZXJpYR8FZ2QQFV4BMAU1LDAwMAYxMCwwMDAGMTUsMDAwBjIwLDAwMAYyNSwwMDAGMzAsMDAwBjM1LDAwMAY0MCwwMDAGNDUsMDAwBjUwLDAwMAY1NSwwMDAGNjAsMDAwBjY1LDAwMAY3MCwwMDAGNzUsMDAwBjgwLDAwMAY4NSwwMDAGOTAsMDAwBjk1LDAwMAcxMDAsMDAwBzEwNSwwMDAHMTEwLDAwMAcxMTUsMDAwBzEyMCwwMDAHMTI1LDAwMAcxMzAsMDAwBzEzNSwwMDAHMTQwLDAwMAcxNDUsMDAwBzE1MCwwMDAHMTU1LDAwMAcxNjAsMDAwBzE2NSwwMDAHMTcwLDAwMAcxNzUsMDAwBzE4MCwwMDAHMTg1LDAwMAcxOTAsMDAwBzE5NSwwMDAHMjAwLDAwMAcyMDUsMDAwBzIxMCwwMDAHMjE1LDAwMAcyMjAsMDAwBzIyNSwwMDAHMjMwLDAwMAcyMzUsMDAwBzI0MCwwMDAHMjQ1LDAwMAcyNTAsMDAwBzI1NSwwMDAHMjYwLDAwMAcyNjUsMDAwBzI3MCwwMDAHMjc1LDAwMAcyODAsMDAwBzI4NSwwMDAHMjkwLDAwMAcyOTUsMDAwBzMwMCwwMDAHMzUwLDAwMAc0MDAsMDAwBzQ1MCwwMDAHNTAwLDAwMAc1NTAsMDAwBzYwMCwwMDAHNjUwLDAwMAc3MDAsMDAwBzc1MCwwMDAHODAwLDAwMAc4NTAsMDAwBzkwMCwwMDAHOTUwLDAwMAkxLDAwMCwwMDAJMSwyNTAsMDAwCTEsNTAwLDAwMAkxLDc1MCwwMDAJMiwwMDAsMDAwCTIsMjUwLDAwMAkyLDUwMCwwMDAJMiw3NTAsMDAwCTMsMDAwLDAwMAkzLDI1MCwwMDAJMyw1MDAsMDAwCTMsNzUwLDAwMAk0LDAwMCwwMDAJNCwyNTAsMDAwCTQsNTAwLDAwMAk0LDc1MCwwMDAJNSwwMDAsMDAwCTYsMDAwLDAwMAk4LDAwMCwwMDAJMTAgTWlsLiArFV4BMAQ1MDAwBTEwMDAwBTE1MDAwBTIwMDAwBTI1MDAwBTMwMDAwBTM1MDAwBTQwMDAwBTQ1MDAwBTUwMDAwBTU1MDAwBTYwMDAwBTY1MDAwBTcwMDAwBTc1MDAwBTgwMDAwBTg1MDAwBTkwMDAwBTk1MDAwBjEwMDAwMAYxMDUwMDAGMTEwMDAwBjExNTAwMAYxMjAwMDAGMTI1MDAwBjEzMDAwMAYxMzUwMDAGMTQwMDAwBjE0NTAwMAYxNTAwMDAGMTU1MDAwBjE2MDAwMAYxNjUwMDAGMTcwMDAwBjE3NTAwMAYxODAwMDAGMTg1MDAwBjE5MDAwMAYxOTUwMDAGMjAwMDAwBjIwNTAwMAYyMTAwMDAGMjE1MDAwBjIyMDAwMAYyMjUwMDAGMjMwMDAwBjIzNTAwMAYyNDAwMDAGMjQ1MDAwBjI1MDAwMAYyNTUwMDAGMjYwMDAwBjI2NTAwMAYyNzAwMDAGMjc1MDAwBjI4MDAwMAYyODUwMDAGMjkwMDAwBjI5NTAwMAYzMDAwMDAGMzUwMDAwBjQwMDAwMAY0NTAwMDAGNTAwMDAwBjU1MDAwMAY2MDAwMDAGNjUwMDAwBjcwMDAwMAY3NTAwMDAGODAwMDAwBjg1MDAwMAY5MDAwMDAGOTUwMDAwBzEwMDAwMDAHMTI1MDAwMAcxNTAwMDAwBzE3NTAwMDAHMjAwMDAwMAcyMjUwMDAwBzI1MDAwMDAHMjc1MDAwMAczMDAwMDAwBzMyNTAwMDAHMzUwMDAwMAczNzUwMDAwBzQwMDAwMDAHNDI1MDAwMAc0NTAwMDAwBzQ3NTAwMDAHNTAwMDAwMAc2MDAwMDAwBzgwMDAwMDAIMTAwMDAwMDAUKwNeZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2RkAgMPEA8WBh8DBQtEaXNwbGF5VGV4dB8EBQhDcml0ZXJpYR8FZ2QQFV4BMAU1LDAwMAYxMCwwMDAGMTUsMDAwBjIwLDAwMAYyNSwwMDAGMzAsMDAwBjM1LDAwMAY0MCwwMDAGNDUsMDAwBjUwLDAwMAY1NSwwMDAGNjAsMDAwBjY1LDAwMAY3MCwwMDAGNzUsMDAwBjgwLDAwMAY4NSwwMDAGOTAsMDAwBjk1LDAwMAcxMDAsMDAwBzEwNSwwMDAHMTEwLDAwMAcxMTUsMDAwBzEyMCwwMDAHMTI1LDAwMAcxMzAsMDAwBzEzNSwwMDAHMTQwLDAwMAcxNDUsMDAwBzE1MCwwMDAHMTU1LDAwMAcxNjAsMDAwBzE2NSwwMDAHMTcwLDAwMAcxNzUsMDAwBzE4MCwwMDAHMTg1LDAwMAcxOTAsMDAwBzE5NSwwMDAHMjAwLDAwMAcyMDUsMDAwBzIxMCwwMDAHMjE1LDAwMAcyMjAsMDAwBzIyNSwwMDAHMjMwLDAwMAcyMzUsMDAwBzI0MCwwMDAHMjQ1LDAwMAcyNTAsMDAwBzI1NSwwMDAHMjYwLDAwMAcyNjUsMDAwBzI3MCwwMDAHMjc1LDAwMAcyODAsMDAwBzI4NSwwMDAHMjkwLDAwMAcyOTUsMDAwBzMwMCwwMDAHMzUwLDAwMAc0MDAsMDAwBzQ1MCwwMDAHNTAwLDAwMAc1NTAsMDAwBzYwMCwwMDAHNjUwLDAwMAc3MDAsMDAwBzc1MCwwMDAHODAwLDAwMAc4NTAsMDAwBzkwMCwwMDAHOTUwLDAwMAkxLDAwMCwwMDAJMSwyNTAsMDAwCTEsNTAwLDAwMAkxLDc1MCwwMDAJMiwwMDAsMDAwCTIsMjUwLDAwMAkyLDUwMCwwMDAJMiw3NTAsMDAwCTMsMDAwLDAwMAkzLDI1MCwwMDAJMyw1MDAsMDAwCTMsNzUwLDAwMAk0LDAwMCwwMDAJNCwyNTAsMDAwCTQsNTAwLDAwMAk0LDc1MCwwMDAJNSwwMDAsMDAwCTYsMDAwLDAwMAk4LDAwMCwwMDAJMTAgTWlsLiArFV4BMAQ1MDAwBTEwMDAwBTE1MDAwBTIwMDAwBTI1MDAwBTMwMDAwBTM1MDAwBTQwMDAwBTQ1MDAwBTUwMDAwBTU1MDAwBTYwMDAwBTY1MDAwBTcwMDAwBTc1MDAwBTgwMDAwBTg1MDAwBTkwMDAwBTk1MDAwBjEwMDAwMAYxMDUwMDAGMTEwMDAwBjExNTAwMAYxMjAwMDAGMTI1MDAwBjEzMDAwMAYxMzUwMDAGMTQwMDAwBjE0NTAwMAYxNTAwMDAGMTU1MDAwBjE2MDAwMAYxNjUwMDAGMTcwMDAwBjE3NTAwMAYxODAwMDAGMTg1MDAwBjE5MDAwMAYxOTUwMDAGMjAwMDAwBjIwNTAwMAYyMTAwMDAGMjE1MDAwBjIyMDAwMAYyMjUwMDAGMjMwMDAwBjIzNTAwMAYyNDAwMDAGMjQ1MDAwBjI1MDAwMAYyNTUwMDAGMjYwMDAwBjI2NTAwMAYyNzAwMDAGMjc1MDAwBjI4MDAwMAYyODUwMDAGMjkwMDAwBjI5NTAwMAYzMDAwMDAGMzUwMDAwBjQwMDAwMAY0NTAwMDAGNTAwMDAwBjU1MDAwMAY2MDAwMDAGNjUwMDAwBjcwMDAwMAY3NTAwMDAGODAwMDAwBjg1MDAwMAY5MDAwMDAGOTUwMDAwBzEwMDAwMDAHMTI1MDAwMAcxNTAwMDAwBzE3NTAwMDAHMjAwMDAwMAcyMjUwMDAwBzI1MDAwMDAHMjc1MDAwMAczMDAwMDAwBzMyNTAwMDAHMzUwMDAwMAczNzUwMDAwBzQwMDAwMDAHNDI1MDAwMAc0NTAwMDAwBzQ3NTAwMDAHNTAwMDAwMAc2MDAwMDAwBzgwMDAwMDAIMTAwMDAwMDAUKwNeZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2RkAgUPEA8WBh8DBQtEaXNwbGF5VGV4dB8EBQhDcml0ZXJpYR8FZ2QQFQYNTm8gUHJlZmVyZW5jZQsxKyBCZWRyb29tcwsyKyBCZWRyb29tcwszKyBCZWRyb29tcws0KyBCZWRyb29tcws1KyBCZWRyb29tcxUGAi0xATEBMgEzATQBNRQrAwZnZ2dnZ2dkZAIHDxAPFgYfAwULRGlzcGxheVRleHQfBAUIQ3JpdGVyaWEfBWdkEBUFDU5vIFByZWZlcmVuY2UMMSsgQmF0aHJvb21zDDIrIEJhdGhyb29tcwwzKyBCYXRocm9vbXMMNCsgQmF0aHJvb21zFQUCLTEBMQEyATMBNBQrAwVnZ2dnZ2RkAgkPEA8WBh8DBQtEaXNwbGF5VGV4dB8EBQhDcml0ZXJpYR8FZ2QQFQMNTm8gUHJlZmVyZW5jZQhGb3IgU2FsZQdQZW5kaW5nFQMCLTEBMAExFCsDA2dnZ2RkAg0PEA8WBh8DBQtEaXNwbGF5VGV4dB8EBQhDcml0ZXJpYR8FZ2QQFQQJQmF0aHJvb21zCEJlZHJvb21zCkxpc3QgUHJpY2UJTGl2ZSBEYXRlFQQBMgEzATUBOBQrAwRnZ2dnZGQCDw8WAh4Fc3R5bGUFI3Zpc2liaWxpdHk6dmlzaWJsZTtwb3NpdGlvbjpzdGF0aWM7ZAIRDw9kFgIfBwUkdmlzaWJpbGl0eTpoaWRkZW47cG9zaXRpb246YWJzb2x1dGU7ZAITDw9kFgIfBwUkdmlzaWJpbGl0eTpoaWRkZW47cG9zaXRpb246YWJzb2x1dGU7ZAIVDw9kFgIfBwUjdmlzaWJpbGl0eTp2aXNpYmxlO3Bvc2l0aW9uOnN0YXRpYzsWAgIBDxAPFgYfAwULRGlzcGxheVRleHQfBAUIQ3JpdGVyaWEfBWdkEBUFDU5vIFByZWZlcmVuY2UIMSsgQ2Fycy4IMisgQ2Fycy4IMysgQ2Fycy4INCsgQ2Fycy4VBQItMQExATIBMwE0FCsDBWdnZ2dnZGQCFw8PZBYCHwcFI3Zpc2liaWxpdHk6dmlzaWJsZTtwb3NpdGlvbjpzdGF0aWM7FgICAQ8QDxYGHwMFC0Rpc3BsYXlUZXh0HwQFCENyaXRlcmlhHwVnZBAVCA1ObyBQcmVmZXJlbmNlEzIgWWVhcnMgT2xkIG9yIExlc3MTNSBZZWFycyBPbGQgb3IgTGVzcxQxMCBZZWFycyBPbGQgb3IgTGVzcxQxNSBZZWFycyBPbGQgb3IgTGVzcxQyMCBZZWFycyBPbGQgb3IgTGVzcxQ1MCBZZWFycyBPbGQgb3IgTGVzcxUxMDAgWWVhcnMgT2xkIG9yIExlc3MVCAItMQEyATUCMTACMTUCMjACNTADMTAwFCsDCGdnZ2dnZ2dnZGQCGQ8PZBYCHwcFJHZpc2liaWxpdHk6aGlkZGVuO3Bvc2l0aW9uOmFic29sdXRlOxYCAgEPEA9kFgIeCG9uY2hhbmdlBRhsb3RTaXplVG9TZXJ2ZXIoIHRoaXMgKTtkZGQCGw8PZBYCHwcFI3Zpc2liaWxpdHk6dmlzaWJsZTtwb3NpdGlvbjpzdGF0aWM7FgICAQ8QDxYGHwMFC0Rpc3BsYXlUZXh0HwQFCENyaXRlcmlhHwVnFgIfCAUfbG90RGVzY3JpcHRpb25Ub1NlcnZlciggdGhpcyApOxAVFQ1ObyBQcmVmZXJlbmNlBkNvcm5lcgVDcmVlawpDdWwgRGUgU2FjB0RlYWRlbmQIRXh0LiBMb3QERmFybQRHb2xmCUlycmVndWxhcgpMYWtlIEZyb250BU90aGVyBFBvbmQMUHJpdmF0ZSBSb2FkBlJhdmluZQdSZWd1bGFyC1JpdmVyIEZyb250BVJ1cmFsB1VucGF2ZWQMV2F0ZXIgQWNjZXNzCldhdGVyIFZpZXcGV29vZGVkFRUBMAExATIBNAE4AjE2AjMyAjY0AzEyOAMyNTYDNTEyBDEwMjQEMjA0OAQ0MDk2BDgxOTIFMTYzODQFMzI3NjgFNjU1MzYGMTMxMDcyBjI2MjE0NAY1MjQyODgUKwMVZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZGQCHQ8PZBYCHwcFI3Zpc2liaWxpdHk6dmlzaWJsZTtwb3NpdGlvbjpzdGF0aWM7FgICAQ8QDxYGHwMFC0Rpc3BsYXlUZXh0HwQFCENyaXRlcmlhHwVnZBAVCA1ObyBQcmVmZXJlbmNlDTEwMDArIFNxLiBGdC4NMTUwMCsgU3EuIEZ0Lg0yMDAwKyBTcS4gRnQuDTI1MDArIFNxLiBGdC4NMzAwMCsgU3EuIEZ0Lg0zNTAwKyBTcS4gRnQuDTQwMDArIFNxLiBGdC4VCAItMQQxMDAwBDE1MDAEMjAwMAQyNTAwBDMwMDAEMzUwMAQ0MDAwFCsDCGdnZ2dnZ2dnZGQCHw8PZBYCHwcFJHZpc2liaWxpdHk6aGlkZGVuO3Bvc2l0aW9uOmFic29sdXRlO2QCIQ8PZBYCHwcFJHZpc2liaWxpdHk6aGlkZGVuO3Bvc2l0aW9uOmFic29sdXRlO2QCIw8PZBYCHwcFJHZpc2liaWxpdHk6aGlkZGVuO3Bvc2l0aW9uOmFic29sdXRlOxYCAgEPEA9kFgIfCAUdYnVpbGRpbmdUeXBlVG9TZXJ2ZXIoIHRoaXMgKTtkZGQCCQ8QDxYGHwMFC0Rpc3BsYXlUZXh0HwQFDFNlYXJjaFR5cGVJZB8FZ2QQFQUHQWRkcmVzcwRDaXR5BkNvdW50eQpNTFMgTnVtYmVyCFpJUCBDb2RlFQUBMAEyATMBNAE4FCsDBWdnZ2dnFgECBGQCCw8PFgIeC05hdmlnYXRlVXJsBZIBamF2YXNjcmlwdDpPcGVuV2luZG93KCAnL3NlYXJjaC9zZWFyY2htYXAuYXNweD90eXBlPTgnLCA0MTAsIDM0MCwgJ3Njcm9sbGJhcnM9bm8sbWVudWJhcj1ubyx0b29sYmFyPW5vLGxvY2F0aW9uPW5vLHN0YXR1cz1ubyxyZXNpemFibGU9eWVzJywgJycgKTtkZAIND2QWCgIBDxAPFgYfAwUPRGlzcGxheUNyaXRlcmlhHwQFDlNlYXJjaENyaXRlcmlhHwVnFgIeCm9uZGJsY2xpY2sFGHJldHVybiBkYmxDbGljayggdGhpcyApOxAVJCA0ODExNyBDYXJsZXRvbiwgTUkgKDQwIGxpc3RpbmdzKRw0ODExNyBFeGV0ZXIsIE1JICgxIGxpc3RpbmcpHjQ4MTMxIER1bmRlZSwgTUkgKDg4IGxpc3RpbmdzKR40ODEzMSBMYXNhbGxlLCBNSSAoMCBsaXN0aW5ncykcNDgxMzMgRXJpZSwgTUkgKDM5IGxpc3RpbmdzKR00ODEzMyBMYXNhbGxlLCBNSSAoMSBsaXN0aW5nKRw0ODEzMyBNb25yb2UsIE1JICgxIGxpc3RpbmcpHTQ4MTQwIER1bmRlZSwgTUkgKDIgbGlzdGluZ3MpGzQ4MTQwIElkYSwgTUkgKDI1IGxpc3RpbmdzKSU0ODE0NCBMYW1iZXJ0dmlsbGUsIE1JICgxMDQgbGlzdGluZ3MpIDQ4MTQ0IFRlbXBlcmFuY2UsIE1JICgxIGxpc3RpbmcpHzQ4MTQ1IExhc2FsbGUsIE1JICgzNSBsaXN0aW5ncykdNDgxNDUgTW9ucm9lLCBNSSAoNiBsaXN0aW5ncykhNDgxNTcgTHVuYSBQaWVyLCBNSSAoMjcgbGlzdGluZ3MpHTQ4MTU3IE1heWJlZSwgTUkgKDAgbGlzdGluZ3MpHzQ4MTU5IENhcmxldG9uLCBNSSAoMCBsaXN0aW5ncykeNDgxNTkgTWF5YmVlLCBNSSAoMTMgbGlzdGluZ3MpHTQ4MTYxIExhc2FsbGUsIE1JICgxIGxpc3RpbmcpHzQ4MTYxIE1vbnJvZSwgTUkgKDI3NiBsaXN0aW5ncykhNDgxNjEgUmFpc2ludmlsbGUsIE1JICgxIGxpc3RpbmcpHzQ4MTYyIE1vbnJvZSwgTUkgKDI1OCBsaXN0aW5ncykdNDgxNjIgTmV3cG9ydCwgTUkgKDEgbGlzdGluZykiNDgxNjIgUmFpc2ludmlsbGUsIE1JICgyIGxpc3RpbmdzKSA0ODE2MiBUZW1wZXJhbmNlLCBNSSAoMSBsaXN0aW5nKR00ODE2NiBNb25yb2UsIE1JICgyIGxpc3RpbmdzKR80ODE2NiBOZXdwb3J0LCBNSSAoODQgbGlzdGluZ3MpHjQ4MTc3IFNhbWFyaWEsIE1JICgzIGxpc3RpbmdzKRo0ODE4MiBJZGEsIE1JICgwIGxpc3RpbmdzKSI0ODE4MiBMYW1iZXJ0dmlsbGUsIE1JICgxIGxpc3RpbmcpITQ4MTgyIE90dGF3YSBMYWtlLCBNSSAoMSBsaXN0aW5nKSM0ODE4MiBUZW1wZXJhbmNlLCBNSSAoMTk0IGxpc3RpbmdzKSM0OTI2NyBPdHRhd2EgTGFrZSwgTUkgKDI4IGxpc3RpbmdzKR00OTI2NyBQYWxteXJhLCBNSSAoMSBsaXN0aW5nKRs0OTI2NyBSaWdhLCBNSSAoMCBsaXN0aW5ncykgNDkyNjcgVGVtcGVyYW5jZSwgTUkgKDEgbGlzdGluZykiNDkyNzAgUGV0ZXJzYnVyZywgTUkgKDQwIGxpc3RpbmdzKRUkEjQ4MTE3IENhcmxldG9uLCBNSRA0ODExNyBFeGV0ZXIsIE1JEDQ4MTMxIER1bmRlZSwgTUkRNDgxMzEgTGFzYWxsZSwgTUkONDgxMzMgRXJpZSwgTUkRNDgxMzMgTGFzYWxsZSwgTUkQNDgxMzMgTW9ucm9lLCBNSRA0ODE0MCBEdW5kZWUsIE1JDTQ4MTQwIElkYSwgTUkWNDgxNDQgTGFtYmVydHZpbGxlLCBNSRQ0ODE0NCBUZW1wZXJhbmNlLCBNSRE0ODE0NSBMYXNhbGxlLCBNSRA0ODE0NSBNb25yb2UsIE1JEzQ4MTU3IEx1bmEgUGllciwgTUkQNDgxNTcgTWF5YmVlLCBNSRI0ODE1OSBDYXJsZXRvbiwgTUkQNDgxNTkgTWF5YmVlLCBNSRE0ODE2MSBMYXNhbGxlLCBNSRA0ODE2MSBNb25yb2UsIE1JFTQ4MTYxIFJhaXNpbnZpbGxlLCBNSRA0ODE2MiBNb25yb2UsIE1JETQ4MTYyIE5ld3BvcnQsIE1JFTQ4MTYyIFJhaXNpbnZpbGxlLCBNSRQ0ODE2MiBUZW1wZXJhbmNlLCBNSRA0ODE2NiBNb25yb2UsIE1JETQ4MTY2IE5ld3BvcnQsIE1JETQ4MTc3IFNhbWFyaWEsIE1JDTQ4MTgyIElkYSwgTUkWNDgxODIgTGFtYmVydHZpbGxlLCBNSRU0ODE4MiBPdHRhd2EgTGFrZSwgTUkUNDgxODIgVGVtcGVyYW5jZSwgTUkVNDkyNjcgT3R0YXdhIExha2UsIE1JETQ5MjY3IFBhbG15cmEsIE1JDjQ5MjY3IFJpZ2EsIE1JFDQ5MjY3IFRlbXBlcmFuY2UsIE1JFDQ5MjcwIFBldGVyc2J1cmcsIE1JFCsDJGdnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2RkAgMPD2QWAh8GBRByZXR1cm4gZ2VvQWRkKCk7ZAIFDxBkEBUAFQAUKwMAZGQCBw8PZBYCHwYFG3JldHVybiBnZW9SZW1vdmVTZWxlY3RlZCgpO2QCCQ8PZBYCHwYFFnJldHVybiBnZW9SZW1vdmVBbGwoKTtkAhcPDxYCHwFoZGQCGQ9kFgICCQ8PZBYCHgdvbkNsaWNrBRtyZXR1cm4gVmFsaWRhdGVOZXdTZWFyY2goKTtkAiEPZBYCAgEPDxYCHwllZGQYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFgsFEmNoa2xQcm9wZXJ0eVR5cGU6MAUSY2hrbFByb3BlcnR5VHlwZToxBRJjaGtsUHJvcGVydHlUeXBlOjIFEmNoa2xQcm9wZXJ0eVR5cGU6MwUSY2hrbFByb3BlcnR5VHlwZTozBQpsc3RMb3RTaXplBRFsc3RMb3REZXNjcmlwdGlvbgUWbHN0QXZhaWxhYmxlU2VhcmNoQXJlYQUVbHN0U2VsZWN0ZWRTZWFyY2hBcmVhBRduZXdTYXZlZFNlYXJjaGVzOmNoa05MQQUXbmV3U2F2ZWRTZWFyY2hlczpjaGtOUEHxmoftpDGUYNxWToQDyc0aAAAAAA%3D%3D&chklPropertyType%3A0=on&chklPropertyType%3A1=on&ddlMinPrice=0&ddlMaxPrice=10000000&ddlBedrooms=-1&ddlBathrooms=-1&ddlStatus=0&rblAscending=0&ddlSort=5&ddlGarage=-1&ddlAge=-1&ddlSqFt=-1&ddlSearchType=8&txtGeo=%3CROOT%3E%3CID%3E48117+Carleton%2C+MI%3C%2FID%3E%3C%2FROOT%3E&txtLotSize=&txtLotDescription=&txtBuildingType=&newSavedSearches%3AtxtSearchName=&btnSearch=Search+Real+Estate+Listings"

        ' ''id=123577 no
        ''firstURL = "https://secure.prudentialproperties.com//welcome/start.aspx?MarketId=092&AffiliateId=RI007"
        ''loginCookie = "CookieTest=true; __utmc=195446574; DEBUG=FirstName=windy&LastName=johnston&CurrentMarketId=092&AffiliateId=RI007&AffiliateOfficeId=999&EmailAddress=windy_jhnstn@yahoo.com&CustomerId=076fc1d7-5222-4bce-bf6e-76426e73acc0; SVOW=MarketId=092&AffiliateId=RI007"
        ''loginPost = "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwULLTE0MDMwMTU4ODEPZBYCAgMPZBYMAgEPDxYCHglTaWduVXBVcmwFTi9yZWdpc3Rlci9zdGFydC5hc3B4P1dULnN2bD1ZYWhvb19TZWN1cmVWb3dfL3dlbGNvbWUvc3RhcnQuYXNweF9TaWduVXBSZWdpc3RlcmRkAgMPDxYCHgdWaXNpYmxlaGRkAgUPZBYCAiMPDxYEHgRUZXh0BQYxMSwwNDQfAWdkZAIJD2QWAmYPZBYEZg9kFgJmD2QWAmYPDxYCHghJbWFnZVVybAVXL2ltYWdlLmFzcHg%2FaW1hZ2VpZD1hN2QzYjBlNC02ZmE0LTRjNDEtYTc2Yy1mNDM0OGJjMjRmOTEmTWFya2V0SWQ9MDkyJkFmZmlsaWF0ZUlkPVJJMDA3ZGQCAQ9kFgJmD2QWAmYPDxYGHghDc3NDbGFzcwUCdHMfAgUYUmhvZGUgSXNsYW5kIEhvbWUgQ2VudGVyHgRfIVNCAgJkZAILDw8WAh8CBckFPHA%2BQW55dGltZSB5b3UgbW92ZSwgdGhlcmUgYXJlIGJvdW5kIHRvIGJlIG1hbnkgcXVlc3Rpb25zLiBZb3VyIHNhbGVzIHByb2Zlc3Npb25hbCBoYXMgdGhlIGFuc3dlcnMuPC9wPgo8cD48YSBocmVmPSIvcmVnaXN0ZXIvc3RhcnQuYXNweD9XVC5zdmw9WWFob29fU2VjdXJlVm93Xy93ZWxjb21lL3N0YXJ0LmFzcHhfSG9tZVJlZ2lzdGVyIj5SZWdpc3RlcjwvYT4gdG8gc2VlIGhvdyBQcnVkZW50aWFsIFJlYWwgRXN0YXRlIHRlY2hub2xvZ3kgY2FuIG1ha2UgdGhlIGhvbWUgYnV5aW5nIHByb2Nlc3MgbW9yZSBlZmZpY2llbnQsIHN0cmVzcy1mcmVlIGFuZCBzdWNjZXNzZnVsLiBSZWdpc3RlcmVkIGN1c3RvbWVycyBjYW46PC9wPgo8dWw%2BCjxsaT5BY2Nlc3MgdGhlIGxvY2FsIE11bHRpcGxlIExpc3RpbmcgU2VydmljZSAoTUxTKSB1c2luZyBNeSBTZWFyY2ggCjwvbGk%2BPGxpPlNhdmUgaG9tZXMgaW4gTXkgUG9ydGZvbGlvIAo8L2xpPjxsaT5BZGQgYW5kIHNhdmUgY29tbWVudHMgdG8geW91ciBmYXZvcml0ZSBob21lcyB1c2luZyBNeSBOb3RlcyAKPC9saT48bGk%2BUmVxdWVzdCBhIGhvbWUgdG91ciBvbmxpbmUgPC9saT48L3VsPgo8cD5SZWdpc3RlciBub3cgdG8gYWNjZXNzIHRoZSBiZW5lZml0cyBQcnVkZW50aWFsIFJlYWwgRXN0YXRlIG9mZmVycy4gQSBuYW1lIHlvdSBjYW4gdHJ1c3QsIHByb2Zlc3Npb25hbHMgeW91IGNhbiByZWx5IG9uLjwvcD5kZAIPDw9kFgQeC29ubW91c2VvdmVyBS53aW5kb3cuc3RhdHVzID0gJ1JlYWx0b3IgU2VjdXJlJzsgcmV0dXJuIHRydWU7Hgpvbm1vdXNlb3V0BSB3aW5kb3cuc3RhdHVzID0gJyc7IHJldHVybiB0cnVlO2QYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFgEFDWNoa1JlbWVtYmVyTWVViAj9jLlTkBoa0YCB6OLpAAAAAA%3D%3D&txtEmailAddress=windy_jhnstn@yahoo.com&txtPassword=trckmc&chkRememberMe=on&btnLogon=Sign+In"

        ' ''id=3278 ok
        'firstURL = "https://secure.prudentialproperties.com/welcome/start.aspx?MarketId=076&AffiliateId=OR004"
        'loginCookie = "CookieTest=true; __utmc=58601384; DEBUG=FirstName=Fred&LastName=Fa&CurrentMarketId=076&AffiliateId=OR004&AffiliateOfficeId=999&EmailAddress=fred_fu_2006@yahoo.com&CustomerId=12fee162-affb-4cf7-a037-5430c25a73d5; VIP=Type=Yahoo&Source=Yahoo! IDX&Media=Internet Ad&MarketId=076&AffiliateId=OR004; __utma=58601384.214083209557629150.1218704137.1218704137.1218704137.1; __utmb=58601384.2.10.1218704137; __utmz=58601384.1218704137.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); WT_FPC=id=2e7620ea8dad953d2581218653738343:lv=1218653774032:ss=1218653738343"
        'loginPost = "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwULLTE0MDMwMTU4ODEPZBYCAgMPZBYMAgEPDxYCHglTaWduVXBVcmwFYS9yZWdpc3Rlci9zdGFydC5hc3B4P1dULnN2bD1QcnVkZW50aWFsUHJvcGVydGllcy5jb21fU2VjdXJlVm93Xy93ZWxjb21lL3N0YXJ0LmFzcHhfU2lnblVwUmVnaXN0ZXJkZAIDDw8WAh4HVmlzaWJsZWhkZAIFD2QWAgIjDw8WBB4EVGV4dAUFNiw1MzcfAWdkZAIJD2QWAmYPZBYEZg9kFgJmD2QWAmYPDxYCHghJbWFnZVVybAVXL2ltYWdlLmFzcHg%2FaW1hZ2VpZD1hN2QzYjBlNC02ZmE0LTRjNDEtYTc2Yy1mNDM0OGJjMjRmOTEmTWFya2V0SWQ9MDc2JkFmZmlsaWF0ZUlkPU9SMDA0ZGQCAQ9kFgJmD2QWAmYPDxYGHghDc3NDbGFzcwUCdHMfAgUaQ3VzdG9tZXIgQWNjb3VudCBNYW5hZ2VyICoeBF8hU0ICAmRkAgsPDxYCHwIF3AU8cD5Bbnl0aW1lIHlvdSBtb3ZlLCB0aGVyZSBhcmUgYm91bmQgdG8gYmUgbWFueSBxdWVzdGlvbnMuIFlvdXIgc2FsZXMgcHJvZmVzc2lvbmFsIGhhcyB0aGUgYW5zd2Vycy48L3A%2BCjxwPjxhIGhyZWY9Ii9yZWdpc3Rlci9zdGFydC5hc3B4P1dULnN2bD1QcnVkZW50aWFsUHJvcGVydGllcy5jb21fU2VjdXJlVm93Xy93ZWxjb21lL3N0YXJ0LmFzcHhfSG9tZVJlZ2lzdGVyIj5SZWdpc3RlcjwvYT4gdG8gc2VlIGhvdyBQcnVkZW50aWFsIFJlYWwgRXN0YXRlIHRlY2hub2xvZ3kgY2FuIG1ha2UgdGhlIGhvbWUgYnV5aW5nIHByb2Nlc3MgbW9yZSBlZmZpY2llbnQsIHN0cmVzcy1mcmVlIGFuZCBzdWNjZXNzZnVsLiBSZWdpc3RlcmVkIGN1c3RvbWVycyBjYW46PC9wPgo8dWw%2BCjxsaT5BY2Nlc3MgdGhlIGxvY2FsIE11bHRpcGxlIExpc3RpbmcgU2VydmljZSAoTUxTKSB1c2luZyBNeSBTZWFyY2ggCjwvbGk%2BPGxpPlNhdmUgaG9tZXMgaW4gTXkgUG9ydGZvbGlvIAo8L2xpPjxsaT5BZGQgYW5kIHNhdmUgY29tbWVudHMgdG8geW91ciBmYXZvcml0ZSBob21lcyB1c2luZyBNeSBOb3RlcyAKPC9saT48bGk%2BUmVxdWVzdCBhIGhvbWUgdG91ciBvbmxpbmUgPC9saT48L3VsPgo8cD5SZWdpc3RlciBub3cgdG8gYWNjZXNzIHRoZSBiZW5lZml0cyBQcnVkZW50aWFsIFJlYWwgRXN0YXRlIG9mZmVycy4gQSBuYW1lIHlvdSBjYW4gdHJ1c3QsIHByb2Zlc3Npb25hbHMgeW91IGNhbiByZWx5IG9uLjwvcD5kZAIPDw9kFgQeC29ubW91c2VvdmVyBS53aW5kb3cuc3RhdHVzID0gJ1JlYWx0b3IgU2VjdXJlJzsgcmV0dXJuIHRydWU7Hgpvbm1vdXNlb3V0BSB3aW5kb3cuc3RhdHVzID0gJyc7IHJldHVybiB0cnVlO2QYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFgEFDWNoa1JlbWVtYmVyTWWoVSksgvj83HnwvGDb8xaDAAAAAA%3D%3D&txtEmailAddress=fred_fu_2006@yahoo.com&txtPassword=lee789&chkRememberMe=on&btnLogon=Sign+In"

        ' ''id=3291
        firstURL = "https://secure.prudentialproperties.com/welcome/start.aspx?MarketId=097&AffiliateId=CA106"
        loginCookie = "CookieTest=true; __utmc=58601384; DEBUG=FirstName=Remy&LastName=Tum&CurrentMarketId=097&AffiliateId=CA106&AffiliateOfficeId=999&EmailAddress=remytun@yahoo.com&CustomerId=ae0f46f2-8e91-4705-a464-a3530f785650; VIP=Type=Yahoo&Source=Yahoo! IDX&Media=Other&MarketId=097&AffiliateId=; __utma=58601384.214083209557629150.1218704137.1218704137.1218704137.1; __utmb=58601384.5.10.1218704137; __utmz=58601384.1218704137.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); WT_FPC=id=2e7620ea8dad953d2581218653738343:lv=1218654069069:ss=1218653738343"
        loginPost = "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwULLTE0MDMwMTU4ODEPZBYCAgMPZBYMAgEPDxYCHglTaWduVXBVcmwFTi9yZWdpc3Rlci9zdGFydC5hc3B4P1dULnN2bD1ZYWhvb19TZWN1cmVWb3dfL3dlbGNvbWUvc3RhcnQuYXNweF9TaWduVXBSZWdpc3RlcmRkAgMPDxYCHgdWaXNpYmxlaGRkAgUPZBYCAiMPDxYEHgRUZXh0BQU5LDY1MB8BZ2RkAgkPZBYCZg9kFgRmD2QWAmYPZBYCZg8PFgIeCEltYWdlVXJsBVcvaW1hZ2UuYXNweD9pbWFnZWlkPWIwYjllZWE1LWVmMmYtNDhhOS04Mzg4LTM2ZGEzOWVkZWVlNyZNYXJrZXRJZD0wOTcmQWZmaWxpYXRlSWQ9Q0ExMDZkZAIBD2QWAmYPZBYCZg8PFgYeCENzc0NsYXNzBQJ0cx8CBRhQcnVkZW50aWFsIE5ldmFkYSBSZWFsdHkeBF8hU0ICAmRkAgsPDxYCHwIFyQU8cD5Bbnl0aW1lIHlvdSBtb3ZlLCB0aGVyZSBhcmUgYm91bmQgdG8gYmUgbWFueSBxdWVzdGlvbnMuIFlvdXIgc2FsZXMgcHJvZmVzc2lvbmFsIGhhcyB0aGUgYW5zd2Vycy48L3A%2BCjxwPjxhIGhyZWY9Ii9yZWdpc3Rlci9zdGFydC5hc3B4P1dULnN2bD1ZYWhvb19TZWN1cmVWb3dfL3dlbGNvbWUvc3RhcnQuYXNweF9Ib21lUmVnaXN0ZXIiPlJlZ2lzdGVyPC9hPiB0byBzZWUgaG93IFBydWRlbnRpYWwgUmVhbCBFc3RhdGUgdGVjaG5vbG9neSBjYW4gbWFrZSB0aGUgaG9tZSBidXlpbmcgcHJvY2VzcyBtb3JlIGVmZmljaWVudCwgc3RyZXNzLWZyZWUgYW5kIHN1Y2Nlc3NmdWwuIFJlZ2lzdGVyZWQgY3VzdG9tZXJzIGNhbjo8L3A%2BCjx1bD4KPGxpPkFjY2VzcyB0aGUgbG9jYWwgTXVsdGlwbGUgTGlzdGluZyBTZXJ2aWNlIChNTFMpIHVzaW5nIE15IFNlYXJjaCAKPC9saT48bGk%2BU2F2ZSBob21lcyBpbiBNeSBQb3J0Zm9saW8gCjwvbGk%2BPGxpPkFkZCBhbmQgc2F2ZSBjb21tZW50cyB0byB5b3VyIGZhdm9yaXRlIGhvbWVzIHVzaW5nIE15IE5vdGVzIAo8L2xpPjxsaT5SZXF1ZXN0IGEgaG9tZSB0b3VyIG9ubGluZSA8L2xpPjwvdWw%2BCjxwPlJlZ2lzdGVyIG5vdyB0byBhY2Nlc3MgdGhlIGJlbmVmaXRzIFBydWRlbnRpYWwgUmVhbCBFc3RhdGUgb2ZmZXJzLiBBIG5hbWUgeW91IGNhbiB0cnVzdCwgcHJvZmVzc2lvbmFscyB5b3UgY2FuIHJlbHkgb24uPC9wPmRkAg8PD2QWBB4Lb25tb3VzZW92ZXIFLndpbmRvdy5zdGF0dXMgPSAnUmVhbHRvciBTZWN1cmUnOyByZXR1cm4gdHJ1ZTseCm9ubW91c2VvdXQFIHdpbmRvdy5zdGF0dXMgPSAnJzsgcmV0dXJuIHRydWU7ZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WAQUNY2hrUmVtZW1iZXJNZUWsCFWKwiSFOY1gBt3WLv4AAAAA&txtEmailAddress=remytun@yahoo.com&txtPassword=trckmc&chkRememberMe=on&btnLogon=Sign+In"

GetRequest()
End Sub

    Private Sub GetRequest()
        mySaveCookieContainer = Nothing
        mySaveCookieContainer = New CookieContainer()

        TextBox1.Text = String.Empty
        Application.DoEvents()
        Dim byteArray As Byte() = enc.GetBytes(loginPost)
        Dim request2 As HttpWebRequest = CType(WebRequest.Create(firstURL), HttpWebRequest)
        request2.CookieContainer = GetCookie()
        request2.Method = "POST"
        request2.ContentType = "application/x-www-form-urlencoded"
        request2.ContentLength = byteArray.Length

        'post
        Dim newStream As Stream = request2.GetRequestStream()
        newStream.Write(byteArray, 0, byteArray.Length)
        newStream.Flush()
        newStream.Close()
        'get response
        Dim pageHtml As String = New StreamReader(request2.GetResponse().GetResponseStream(), enc).ReadToEnd()

        Dim url6 As String = ""
        Redirect(pageHtml, url6, GetCookie())
        TextBox1.Text = pageHtml
        SearchMutiGeo(pageHtml, url6)
    End Sub
    Private Function Redirect(ByRef context As String, ByRef oururl As String, ByVal myCookieContainer As CookieContainer) As Boolean
        Dim reg As Regex = New Regex(RedirectPatten)
        Dim mathlist As MatchCollection = reg.Matches(context)
        If mathlist.Count = 1 Then
            oururl = mathlist(0).Groups("url").Value
            Dim request As HttpWebRequest = CType(WebRequest.Create(oururl), HttpWebRequest)
            request.CookieContainer = myCookieContainer 'myCookieContainer
            Dim res As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            'mySaveCookieContainer.Add(res.Cookies)
            context = New StreamReader(res.GetResponseStream(), enc).ReadToEnd()
            Return Redirect(context, oururl, myCookieContainer)
        End If
        Return True
    End Function
    Private Sub SearchMutiGeo(ByVal searchPageHtml As String, ByVal searchPageUrl As String)
        Dim results As String() = GetValuesByPatten(searchPageViewStatePatten, searchPageHtml, "searchPageViewState")
        If (searchPageUrl = "" Or results.Length <> 1) Then
            Return
        End If
        Dim searchPageViewState As String = results(0)
        results = GetValuesByPatten(SearchGEOPatten, searchPageHtml, "searchGEO")
        For Each GEO As String In results
            SearchOneGeo("<ROOT><ID>" & GEO.Trim() & "</ID></ROOT>", searchPageUrl, searchPageViewState)
        Next
    End Sub

    Private Function SearchOneGeo(ByVal searchGEO As String, ByVal searchURL As String, ByVal searchPageViewState As String) As String
        Dim pageHtml As String = String.Empty
        searchPost = "__EVENTTARGET=&__EVENTARGUMENT=&__LASTFOCUS=&__VIEWSTATE=" & HttpUtility.UrlEncode(searchPageViewState) & "&chklPropertyType%3A0=on&chklPropertyType%3A1=on&ddlMinPrice=0&ddlMaxPrice=10000000&ddlBedrooms=-1&ddlBathrooms=-1&ddlStatus=0&rblAscending=0&ddlSort=5&ddlGarage=-1&ddlAge=-1&ddlSqFt=-1&ddlSearchType=8&txtGeo=" & HttpUtility.UrlEncode(searchGEO) & "&txtLotSize=&txtLotDescription=&txtBuildingType=&newSavedSearches%3AtxtSearchName=&btnSearch=Search+Real+Estate+Listings"
        Dim request As HttpWebRequest = CType(WebRequest.Create(searchURL), HttpWebRequest)
        request.CookieContainer = GetCookie()
        Dim byteArray As Byte() = enc.GetBytes(searchPost)
        request.Method = "POST"
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = byteArray.Length
        'post
        Dim newStream As Stream = request.GetRequestStream()
        newStream.Write(byteArray, 0, byteArray.Length)
        newStream.Flush()
        newStream.Close()
        Dim res As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
        'mySaveCookieContainer.Add(res.Cookies)
        Process(New StreamReader(res.GetResponseStream(), enc).ReadToEnd())
        Return pageHtml
    End Function

    Private Sub setSearchCookie()
        mySaveCookieContainer.MaxCookieSize = 4096 * 100
        'mySaveCookieContainer.Add(New Cookie(".Agsg3_5xYb7t_ANjnyZv.qpEIkx3fij1QVER0m1bdyslxjPKOlFycjC48Kqt9KOSaZpaxIETZDcd333u3sd3lj6ds3sd--", HttpUtility.UrlEncode("B9293A48AD6EF464D03867BD2B0BFD3021451451E9AACD181D336ACA896A5794811AB7A92D3F4BC4A791FFDF9CD210D2AE566B7225C6382963A041BE0E8EBC904921705C199DFA33719796580F65578316AE6118E75C58116F431528F876231133628F9BE0CEE95303DA1D7EDD7871C9C9F559E1994350153D3B2D2187E5CE95D4FA51B2BC1B9517C8C9D0300F64F3041C7BD266E01F1E13B9505638E912A637DD2CB6316FFBB27080D8C3D997347F06"), "/", "reno.yahoo.prudentialnevada.com"))
        mySaveCookieContainer.Add(New Cookie("DEBUG", HttpUtility.UrlEncode("FirstName=Remy&LastName=Tum&CurrentMarketId=097&AffiliateId=CA106&AffiliateOfficeId=999&EmailAddress=remytun@yahoo.com&CustomerId=ae0f46f2-8e91-4705-a464-a3530f785650"), "/", "reno.yahoo.prudentialnevada.com"))
        mySaveCookieContainer.Add(New Cookie("LoginLogged", "", "/", "reno.yahoo.prudentialnevada.com"))
        mySaveCookieContainer.Add(New Cookie("LogonCookie", HttpUtility.UrlEncode("MarketId=097&AffiliateId=CA106"), "/", "reno.yahoo.prudentialnevada.com"))
        mySaveCookieContainer.Add(New Cookie("RecentSearch", HttpUtility.UrlEncode("0=Mode=Search~NewHomeCount=0~CommunitiesCount=0~TotalGeoCount=0~PropIdCount=0~NLA=False~NPA=False~SearchName=~SearchType=8~PropertyType=1,2~GEO1=89403+Dayton%2c+NV~GEO1DisplayText=Dayton%2c+NV+89403~Age=-1~Bathrooms=-1~Bedrooms=-1~Garage=-1~Basement=-1~BuildingType=-1~LotDescription=-1~LotSize=-1~MaxPrice=10000000~MinPrice=0~Pool=-1~Sort=5~Ascending=False~SqFt=-1~Status=0~Story=-1~Waterfront=-1~PageLength=10~AffiliateId=CA106~DisplayDetailsPager=True~TotalFeaturedListings=0~TotalListings=0~miles=-1"), "/", "reno.yahoo.prudentialnevada.com"))
        mySaveCookieContainer.Add(New Cookie("Search", HttpUtility.UrlEncode("Mode=Search&NewHomeCount=0&CommunitiesCount=0&TotalGeoCount=0&PropIdCount=0&NLA=False&NPA=False&SearchName=&SearchType=8&PropertyType=1,2&GEO1=89403 Dayton, NV&GEO1DisplayText=Dayton, NV 89403&Age=-1&Bathrooms=-1&Bedrooms=-1&Garage=-1&Basement=-1&BuildingType=-1&LotDescription=-1&LotSize=-1&MaxPrice=10000000&MinPrice=0&Pool=-1&Sort=5&Ascending=False&SqFt=-1&Status=0&Story=-1&Waterfront=-1&PageLength=10&AffiliateId=&DisplayDetailsPager=True&TotalFeaturedListings=0&TotalListings=0&miles=-1"), "/", "reno.yahoo.prudentialnevada.com"))
        mySaveCookieContainer.Add(New Cookie("VIP", HttpUtility.UrlEncode("Type=Yahoo&Source=Yahoo! IDX&Media=Other&MarketId=097&AffiliateId="), "/", "reno.yahoo.prudentialnevada.com"))
        mySaveCookieContainer.Add(New Cookie("WT_FPC", HttpUtility.UrlEncode("id=297b78200b195c260f61218971726032:lv=1218972413101:ss=1218971726032"), "/", "reno.yahoo.prudentialnevada.com"))
    End Sub

    Private Sub Process(ByVal context As String)
        save(context)
        Dim NextPageURLs As String() = GetValuesByPatten(NextPagePatten, context, "NextPage")
        If NextPageURLs.Length > 0 Then
            Dim NextURL As String = "http://reno.yahoo.prudentialnevada.com/search/" & NextPageURLs(0)
            'NextURL = "http://reno.yahoo.prudentialnevada.com/search/results.aspx?page=2&MarketId=097&AffiliateId=CA106"
            Dim request As HttpWebRequest = CType(WebRequest.Create(NextURL), HttpWebRequest)
            setSearchCookie()
            request.CookieContainer = mySaveCookieContainer
            request.CookieContainer.SetCookies(New Uri(NextURL), "DEBUG=FirstName=Remy&LastName=Tum&CurrentMarketId=097&AffiliateId=CA106&AffiliateOfficeId=999&EmailAddress=remytun@yahoo.com&CustomerId=ae0f46f2-8e91-4705-a464-a3530f785650; LoginLogged=; LogonCookie=MarketId=097&AffiliateId=CA106; Search=Mode=Search&NewHomeCount=0&CommunitiesCount=0&TotalGeoCount=0&PropIdCount=0&NLA=False&NPA=False&SearchName=&SearchType=8&PropertyType=1,2&GEO1=89403+Dayton%2c+NV&GEO1DisplayText=Dayton%2c+NV+89403&Age=-1&Bathrooms=-1&Bedrooms=-1&Garage=-1&Basement=-1&BuildingType=-1&LotDescription=-1&LotSize=-1&MaxPrice=10000000&MinPrice=0&Pool=-1&Sort=5&Ascending=False&SqFt=-1&Status=0&Story=-1&Waterfront=-1&PageLength=10&AffiliateId=&DisplayDetailsPager=True&TotalFeaturedListings=0&TotalListings=0&miles=-1; .Agsg3_5xYb7t_ANjnyZv.qpEIkx3fij1QVER0m1bdyslxjPKOlFycjC48Kqt9KOSaZpaxIETZDcd333u3sd3lj6ds3sd--=B9293A48AD6EF464D03867BD2B0BFD3021451451E9AACD181D336ACA896A5794811AB7A92D3F4BC4A791FFDF9CD210D2AE566B7225C6382963A041BE0E8EBC904921705C199DFA33719796580F65578316AE6118E75C58116F431528F876231133628F9BE0CEE95303DA1D7EDD7871C9C9F559E1994350153D3B2D2187E5CE95D4FA51B2BC1B9517C8C9D0300F64F3041C7BD266E01F1E13B9505638E912A637DD2CB6316FFBB27080D8C3D997347F06; VIP=Type=Yahoo&Source=Yahoo! IDX&Media=Other&MarketId=097&AffiliateId=; RecentSearch=0=Mode=Search~NewHomeCount=0~CommunitiesCount=0~TotalGeoCount=0~PropIdCount=0~NLA=False~NPA=False~SearchName=~SearchType=8~PropertyType=1%2c2~GEO1=89403%2bDayton%252c%2bNV~GEO1DisplayText=Dayton%252c%2bNV%2b89403~Age=-1~Bathrooms=-1~Bedrooms=-1~Garage=-1~Basement=-1~BuildingType=-1~LotDescription=-1~LotSize=-1~MaxPrice=10000000~MinPrice=0~Pool=-1~Sort=5~Ascending=False~SqFt=-1~Status=0~Story=-1~Waterfront=-1~PageLength=10~AffiliateId=CA106~DisplayDetailsPager=True~TotalFeaturedListings=0~TotalListings=0~miles=-1&1=Mode=Search~NewHomeCount=0~CommunitiesCount=0~TotalGeoCount=0~PropIdCount=0~NLA=False~NPA=False~SearchName=~SearchType=8~PropertyType=1%2c2~GEO1=89403%2bDayton%252c%2bNV~GEO1DisplayText=Dayton%252c%2bNV%2b89403~Age=-1~Bathrooms=-1~Bedrooms=-1~Garage=-1~Basement=-1~BuildingType=-1~LotDescription=-1~LotSize=-1~MaxPrice=10000000~MinPrice=0~Pool=-1~Sort=5~Ascending=False~SqFt=-1~Status=0~Story=-1~Waterfront=-1~PageLength=10~AffiliateId=CA106~DisplayDetailsPager=True~TotalFeaturedListings=0~TotalListings=0~miles=-1&2=Mode=Search~NewHomeCount=0~CommunitiesCount=0~TotalGeoCount=0~PropIdCount=0~NLA=False~NPA=False~SearchName=~SearchType=8~PropertyType=1%2c2~GEO1=89403%2bDayton%252c%2bNV~GEO1DisplayText=Dayton%252c%2bNV%2b89403~Age=-1~Bathrooms=-1~Bedrooms=-1~Garage=-1~Basement=-1~BuildingType=-1~LotDescription=-1~LotSize=-1~MaxPrice=10000000~MinPrice=0~Pool=-1~Sort=5~Ascending=False~SqFt=-1~Status=0~Story=-1~Waterfront=-1~PageLength=10~AffiliateId=CA106~DisplayDetailsPager=True~TotalFeaturedListings=0~TotalListings=0~miles=-1; WT_FPC=id=297b78200b195c260f61218971726032:lv=1218994052219:ss=1218994052219")
            Dim res As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            context = New StreamReader(res.GetResponseStream(), enc).ReadToEnd()

Dim url6 As String = ""
Redirect(context, url6, mySaveCookieContainer)

            'request = CType(WebRequest.Create(url6), HttpWebRequest)
            'request.CookieContainer = mySaveCookieContainer
            'res = CType(request.GetResponse(), HttpWebResponse)
            'context = New StreamReader(res.GetResponseStream(), enc).ReadToEnd()
            'Process(context)
            '    MessageBox.Show("There has many pages!")
            'Else
            '    MessageBox.Show("Just has 1 page!")
        End If
    End Sub
    Private Sub save(ByVal context As String)
        TextBox1.Text = context
    End Sub

    Private Function GetCookie() As CookieContainer
        Dim myCookieContainer As CookieContainer = mySaveCookieContainer
        myCookieContainer.SetCookies(New Uri(firstURL), loginCookie)
        Return myCookieContainer
    End Function
    Private Function GetValuesByPatten(ByVal Patten As String, ByVal target As String, ByVal Group As String) As String()
        Dim MatchList As MatchCollection = New Regex(Patten).Matches(target)
        Dim result(MatchList.Count - 1) As String
        For i As Integer = 0 To MatchList.Count - 1
            result(i) = MatchList(i).Groups(Group).Value
        Next
        Return result
    End Function

End Class

songhuan

关注

2
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
HttpWebRequest 采集网站数据

Imports System.NetImports System.IOImports System.TextImports System.Text.RegularExpressionsImports System.WebPublic Class Form5 Const RedirectPatten = "^window.location.replace/(""(?.*)""/);
复制链接

扫一扫