HttpWebRequest 登入.text博客系统但是发帖就登出的疑惑

最新推荐文章于 2021-05-28 20:05:59 发布

jaye

最新推荐文章于 2021-05-28 20:05:59 发布

阅读量2.8k

点赞数

文章标签： string textbox stream encoding session byte

本文链接：https://blog.csdn.net/biojaye/article/details/1486930

版权

用webquest登入了text博客系统的博客园，但是就是一发帖就登出，原因实在找不到，自己装下text吧。但是text安装是很烦的事。

分析发泄ftb.body就是无法传递出去。

'设置统一的session
        Dim cookieCon As CookieContainer = New CookieContainer()
        Dim myRequest As HttpWebRequest
        Dim strId As String = TextBox1.Text '用户名
        Dim strPassword As String = TextBox2.Text '密码
        Dim httpstr As String
        Dim strcookie As String
        Dim encoding As New UTF8Encoding 'lbs不是ASCIIEncoding()
        Dim myResponse As HttpWebResponse
        httpstr = " http://www.cnblogs.com/" '博客地址
        '访问首页以启动session初始

        myRequest = CType(WebRequest.Create(httpstr & "login.aspx"), HttpWebRequest)
        myRequest.CookieContainer = cookieCon
        myResponse = CType(myRequest.GetResponse(), HttpWebResponse)
        '登陆页post
        strcookie = cookieCon.GetCookies(New Uri(httpstr & "login.aspx"))("Areyouhuman").Value

        myRequest = CType(WebRequest.Create(httpstr & "login.aspx"), HttpWebRequest)
        myRequest.CookieContainer = cookieCon 'myrequest赋值后必须重新设置cookie
        myRequest.Method = "POST"
        myRequest.ContentType = "application/x-www-form-urlencoded"
        myRequest.AllowAutoRedirect = False
        Dim postData As String = ""
        postData = "__EVENTTARGET=lblLogin&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUJLTQ4MjY2NzAyZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WAQULY2hrUmVtZW1iZXKN77H0bJppUD4atWFTG9NqZOflkw%3D%3D&tbUserName="
        postData += strId & "&tbPassword="
        postData += strPassword & "&CodeNumberTextBox = " & strcookie

        Dim data As Byte() = encoding.GetBytes(postData)
        myRequest.ContentLength = data.Length
        ' Send the data.
        Dim newStream As Stream = myRequest.GetRequestStream()
        newStream.Write(data, 0, data.Length)
        newStream.Close()
        ' Get response

        myResponse = CType(myRequest.GetResponse(), HttpWebResponse)
        '增加类型
        myRequest = CType(WebRequest.Create(httpstr & "jaye.net/admin/EditPosts.aspx?opt=1"), HttpWebRequest)
        myRequest.CookieContainer = cookieCon
        myRequest.Method = "POST"
        myRequest.ContentType = "application/x-www-form-urlencoded"
        myRequest.AllowAutoRedirect = False
        postData = ""

        Dim dataw As Byte() = encoding.GetBytes(postData)
        myRequest.ContentLength = dataw.Length
        '' Send the data.
        Dim newStreamw As Stream = myRequest.GetRequestStream()
        newStreamw.Write(dataw, 0, dataw.Length)
        newStreamw.Close()
        '' Get response
        myResponse = CType(myRequest.GetResponse(), HttpWebResponse)
        Dim readerw As New StreamReader(myResponse.GetResponseStream(), System.Text.Encoding.UTF8)
        Dim contentw As String = readerw.ReadToEnd()
        ContentHtml.Text = contentw

        ''进入发帖页面
        'myRequest = CType(WebRequest.Create(httpstr & "jaye.net/admin/EditPosts.aspx?opt=1"), HttpWebRequest)
        'myRequest.CookieContainer = cookieCon
        'myRequest.Method = "POST"
        'myRequest.ContentType = "application/x-www-form-urlencoded"
        'myRequest.AllowAutoRedirect = False
        ''postData = "__EVENTTARGET=Editor%24Edit%24lkbPost&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwULLTE3NjgxMzM0MDIPZBYCZg9kFgICBg9kFgICAQ9kFhACAQ8PFgQeC05hdmlnYXRlVXJsBRdodHRwOi8vd3d3LmNuYmxvZ3MuY29tLx4EVGV4dAUJ5Y2a5a6i5ZutZGQCAw8PFgIfAAUcaHR0cDovL2pheWUubmV0LmNuYmxvZ3MuY29tL2RkAgcPDxYGHgZUYXJnZXRlHwAFIGh0dHA6Ly93d3cuY25ibG9ncy5jb20vamF5ZS5uZXQvHwEFFeW%2BrueskeeahOWtpuS5oOaXpeW%2Fl2RkAgkPDxYEHwAFF2h0dHA6Ly93d3cuY25ibG9ncy5jb20vHghJbWFnZVVybAUWfi9JbWFnZXMvYWRtaW5sb2dvLmdpZmRkAg0PFgIeB1Zpc2libGVnZAIfD2QWAgIBDw8WAh4GUG9zdElEAv%2F%2F%2F%2F8PZBYEAgIPDxYEHglDb2xsYXBzZWRnHgtDb2xsYXBzaWJsZWdkFgICAQ9kFgQCAQ8WAh4LXyFJdGVtQ291bnQCChYUAgEPZBYMAgEPDxYEHwAFPmh0dHA6Ly93d3cuY25ibG9ncy5jb20vamF5ZS5uZXQvYXJjaGl2ZS8yMDA3LzAxLzAxLzYwOTY3NS5odG1sHwEFIFvlr7zlhaVd5Y2a5a6i5Zut55qE5LiA5Lqb5paH56ugZGQCAw8WAh8BBQkxLTEgMTI6MjdkAgUPFgIfBGhkAgYPFQQEVHJ1ZQEyATAGNjA5Njc1ZAIHDw8WAh4PQ29tbWFuZEFyZ3VtZW50BQY2MDk2NzVkZAIJDw8WAh8JBQY2MDk2NzVkZAICD2QWCgIBDw8WBB8ABT5odHRwOi8vd3d3LmNuYmxvZ3MuY29tL2pheWUubmV0L2FyY2hpdmUvMjAwNy8wMS8wMS82MDk2NzYuaHRtbB8BBSBb5a%2B85YWlXeWNmuWuouWbreeahOS4gOS6m%2BaWh%2BeroGRkAgMPFgIfAQUJMS0xIDEyOjI1ZAIEDxUEBFRydWUBMAEwBjYwOTY3NmQCBQ8PFgIfCQUGNjA5Njc2ZGQCBw8PFgIfCQUGNjA5Njc2ZGQCAw9kFgwCAQ8PFgQfAAU%2BaHR0cDovL3d3dy5jbmJsb2dzLmNvbS9qYXllLm5ldC9hcmNoaXZlLzIwMDYvMDgvMjEvNjA5Njc3Lmh0bWwfAQUVW%2BWvvOWFpV0uTkVU5YWo5o6n5Lu2ZGQCAw8WAh8BBQo4LTIxIDA3OjE1ZAIFDxYCHwRoZAIGDxUEBFRydWUBMAExBjYwOTY3N2QCBw8PFgIfCQUGNjA5Njc3ZGQCCQ8PFgIfCQUGNjA5Njc3ZGQCBA9kFgoCAQ8PFgQfAAU%2BaHR0cDovL3d3dy5jbmJsb2dzLmNvbS9qYXllLm5ldC9hcmNoaXZlLzIwMDYvMDMvMTQvNjA5Njc4Lmh0bWwfAQUqW%2BWvvOWFpV3mt7HlhaXmjqLorqguTkVU5Lit55qE6ZKp5a2Q5oqA5pyvZGQCAw8WAh8BBQozLTE0IDIxOjIyZAIEDxUEBFRydWUBMAEwBjYwOTY3OGQCBQ8PFgIfCQUGNjA5Njc4ZGQCBw8PFgIfCQUGNjA5Njc4ZGQCBQ9kFgwCAQ8PFgQfAAU%2BaHR0cDovL3d3dy5jbmJsb2dzLmNvbS9qYXllLm5ldC9hcmNoaXZlLzIwMDYvMDMvMDEvNjA5Njc5Lmh0bWwfAQUhW%2BWvvOWFpV3oh6rlrprkuYnpmo%2FmnLrljJbnsbsubmV0ZGQCAw8WAh8BBQkzLTEgMTM6NTdkAgUPFgIfBGhkAgYPFQQEVHJ1ZQEwATAGNjA5Njc5ZAIHDw8WAh8JBQY2MDk2NzlkZAIJDw8WAh8JBQY2MDk2NzlkZAIGD2QWCgIBDw8WBB8ABT5odHRwOi8vd3d3LmNuYmxvZ3MuY29tL2pheWUubmV0L2FyY2hpdmUvMjAwNi8wMi8xMy82MDk2ODAuaHRtbB8BBRxb5a%2B85YWlXeWSjFBvc3RiYWNr6K%2B05YaN6KeBZGQCAw8WAh8BBQoyLTEzIDE1OjAxZAIEDxUEBFRydWUBMAEwBjYwOTY4MGQCBQ8PFgIfCQUGNjA5NjgwZGQCBw8PFgIfCQUGNjA5NjgwZGQCBw9kFgwCAQ8PFgQfAAU%2BaHR0cDovL3d3dy5jbmJsb2dzLmNvbS9qYXllLm5ldC9hcmNoaXZlLzIwMDYvMDIvMTMvNjA5NjgxLmh0bWwfAQUvW%2BWvvOWFpV3or6bop6PooajljZXpqozor4FDdXN0b21WYWxpZGF0b3Lmjqfku7ZkZAIDDxYCHwEFCjItMTMgMTQ6NDVkAgUPFgIfBGhkAgYPFQQEVHJ1ZQEwATAGNjA5NjgxZAIHDw8WAh8JBQY2MDk2ODFkZAIJDw8WAh8JBQY2MDk2ODFkZAIID2QWCgIBDw8WBB8ABT5odHRwOi8vd3d3LmNuYmxvZ3MuY29tL2pheWUubmV0L2FyY2hpdmUvMjAwNi8wMS8yMS82MDk2ODIuaHRtbB8BBUBb5a%2B85YWlXUN1c3RvbVZhbGlkYXRvci5DbGllbnRWYWxpZGF0aW9uRnVuY3Rpb24g5Y%2BC5pWw5pyq5a6a5LmJZGQCAw8WAh8BBQoxLTIxIDEwOjI5ZAIEDxUEBFRydWUBMAEwBjYwOTY4MmQCBQ8PFgIfCQUGNjA5NjgyZGQCBw8PFgIfCQUGNjA5NjgyZGQCCQ9kFgwCAQ8PFgQfAAU%2BaHR0cDovL3d3dy5jbmJsb2dzLmNvbS9qYXllLm5ldC9hcmNoaXZlLzIwMDYvMDEvMjAvNjA5NjgzLmh0bWwfAQVJW%2BWvvOWFpV1hc3AubmV0Mi4w5LitUGFnZV9Mb2Fk44CBQnV0dG9uMV9DbGlja%2BS7o%2BeggeaJp%2BihjOeahOWFiOWQjumhuuW6j2RkAgMPFgIfAQUKMS0yMCAxNzowMWQCBQ8WAh8EaGQCBg8VBARUcnVlATABMAY2MDk2ODNkAgcPDxYCHwkFBjYwOTY4M2RkAgkPDxYCHwkFBjYwOTY4M2RkAgoPZBYKAgEPDxYEHwAFPmh0dHA6Ly93d3cuY25ibG9ncy5jb20vamF5ZS5uZXQvYXJjaGl2ZS8yMDA2LzAxLzIwLzYwOTY4NC5odG1sHwEFN1vlr7zlhaVdR3JpZFZpZXdfUm93VXBkYXRpbmfkuK3lj5bmtojnvJbovpHnirbmgIHpl67pophkZAIDDxYCHwEFCjEtMjAgMTA6MzJkAgQPFQQEVHJ1ZQEwATAGNjA5Njg0ZAIFDw8WAh8JBQY2MDk2ODRkZAIHDw8WAh8JBQY2MDk2ODRkZAIFDxYGHglJdGVtQ291bnQCEh4JUGFnZUluZGV4AgEeCFBhZ2VTaXplAgpkAgMPDxYCHwRnZBYCAgEPZBYSAgEPDxYEHwBlHwRoZGQCBw8PFgIeEUNvbnRyb2xUb1ZhbGlkYXRlBQpFZGl0b3JCb2R5ZGQCCQ9kFgJmDxBkZRYOHglGaWxlc1BhdGgFGy9DdXRlU29mdF9DbGllbnQvQ3V0ZUVkaXRvch4NQXV0b0NvbmZpZ3VyZQULRnVsbF9ub2Zvcm0eElJlbmRlclJpY2hEcm9wRG93bgUEVHJ1ZR4SU2VjdXJpdHlQb2xpY3lGaWxlBT8vQ3V0ZVNvZnRfQ2xpZW50L0N1dGVFZGl0b3IvQ29uZmlndXJhdGlvbi9TZWN1cml0eS9BZG1pbi5jb25maWceB0N1bHR1cmUFBXpoLUNOHglUaGVtZVR5cGUFBkN1c3RvbR4RQ29uZmlndXJhdGlvblBhdGhlZAILD2QWAgIBD2QWCAIBD2QWAgIBD2QWAgIBDxAPFgYeDkRhdGFWYWx1ZUZpZWxkBQpDYXRlZ29yeUlEHg1EYXRhVGV4dEZpZWxkBQVUaXRsZR4LXyFEYXRhQm91bmRnZBAVAggubmV0IDIuMA1j6K%2Bt6KiA5a2m5LmgFQIFMjg1NTAFMjkxMjcUKwMCZ2dkZAIDD2QWAgIBD2QWAgIBDxAPFgYfFQUKQ2F0ZWdvcnlJRB8WBQVUaXRsZR8XZ2QQFRKPATEu6aaW6aG15Y6f5Yib57K%2B5Y2OLk5FVOWMuijljIXlkKvmnrbmnoTorr7orqHjgIHorr7orqHmqKHlvI8pKOWvuemmlumhteaWh%2BeroOeahOimgeaxgjrljp%2FliJvjgIHpq5jotKjph4%2FjgIHnu4%2Fov4forqTnnJ%2FmgJ3ogIPlubbnsr7lv4PlhpnkvZwpZDIuLk5FVOaWsOaJi%2BWMuijnlKjkuo7lj5HooajkuI3lkIjpgILlj5HooajlnKjpppbpobXnmoQuTkVU5oqA5pyv5paH56ugLOWMheaLrOWwj%2Be7j%2BmqjOOAgeWwj%2BaKgOW3pylHMy7pnZ7mioDmnK%2FljLoo5oqA5pyv5LmL5aSW55qE5paH56ugLOS9huS4jeimgea2ieWPiuS7u%2BS9leaUv%2Bayu%2BWGheWuuSkRNC7lhbbku5bmioDmnK%2FljLoRNS7kvIHkuJrkv6Hmga%2FljJY6Ni7or7vkuablv4PlvpfljLoo5oqA5pyv5Lmm57GN6ZiF6K%2B75b%2BD5b6X44CB5Lmm57GN5o6o6I2QKSY3LuaPkOmXruWMuiguTkVU5oqA5pyv5pa56Z2i55qE5o%2BQ6ZeuKUA4LuaKgOacr%2Bi9rOi9veWMuiguTkVU5oqA5pyv5paH56ug6L2s6L29LCDor7fms6jmmI7ljp%2Fmloflh7rlpIQpLjku5rGC6IGM5oub6IGY5Yy6KOS4quS6uuaxguiBjOOAgeS8geS4muaLm%2BiBmCkKRG90dGV4dOWMuglHSVPmioDmnK8eSVToi7HmiY3kuJPljLooSVTogYzlnLrkuqTmtYEpClNoYXJlUG9pbnQ%2F5Y2a5a6i5ZutLk5FVOS%2FseS5kOmDqCjkv7HkuZDpg6jnu4Tnu4fkuI7mtLvliqjmlrnpnaLnmoTmlofnq6ApNei9r%2BS7tuWPkeW4g%2BWMuijlj5HluIPoh6rlt7HlvIDlj5HnmoTku6PnoIHjgIHova%2Fku7YpVee9keermeeuoeeQhuWMuijnvZHnq5nnrqHnkIbmlrnpnaLnmoTnlpHpl67jgIHlu7rorq7jgIHmhI%2Fop4EsIOWvu%2BaxgueuoeeQhuWRmOW4ruWKqSkM5Lia55WM5paw6Ze7DOWPlua2iOmAieaLqRUSAzgwOAUxODE1NgM4MDcENzczNAUxODA3NgQ1MDc5BDM5NjkENDM0NwQ2MTUxBDkwODIFNTAzNDkFNzAwNjUFNzgxMTEFMzEzMDgFMzM5MDkENzUwOQUzNTEzMQAUKwMSZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZGQCCQ9kFgICAQ9kFgICAQ8QDxYGHxUFCkNhdGVnb3J5SUQfFgUFVGl0bGUfF2dkEBUHBlZCLk5FVAtBRE8uTkVUIDIuMBJWaXN1YWwgU3R1ZGlvIDIwMDULQVNQLk5FVCAyLjACQyMSLk5FVCBGcmFtZXdvcmsgMi4wDOWPlua2iOmAieaLqRUHBTMzMDIyBTMzMTI0BTMzMDIxBTMzMDE5BTMzMDIwBTMzMDIzABQrAwdnZ2dnZ2dnZGQCCw8PFgIfBGhkFgICAQ9kFgICAQ8QZGQWAGQCDQ8PFgIfBmhkFgICAQ9kFgYCDQ8QDxYCHgdDaGVja2VkaGRkZGQCDw8QDxYCHxhoZGRkZAIRDxAPFgIfGGhkZGRkAg8PDxYCHwEFBuWPkeW4gxYCHgdPbkNsaWNrBQ1ieXBhc3NDaGVjaygpZAIRDw9kFgIfGQUNYnlwYXNzQ2hlY2soKWQCEw8PZBYCHxkFDWJ5cGFzc0NoZWNrKClkAhUPD2QWAh8ZBQ1ieXBhc3NDaGVjaygpZAIhDxYCHwEFBDIwMDdkAiMPDxYEHwAFF2h0dHA6Ly93d3cuY25ibG9ncy5jb20vHwEFCeWNmuWuouWbrWRkGAEFHl9fQ29udHJvbHNSZXF1aXJlUG9zdEJhY2tLZXlfXxYNBTRFZGl0b3IkRWRpdCRBUE9wdGlvbnMkQWR2YW5jZWRwYW5lbDEkY2tsQ2F0ZWdvcmllcyQwBTRFZGl0b3IkRWRpdCRBUE9wdGlvbnMkQWR2YW5jZWRwYW5lbDEkY2tsQ2F0ZWdvcmllcyQxBTRFZGl0b3IkRWRpdCRBUE9wdGlvbnMkQWR2YW5jZWRwYW5lbDEkY2tsQ2F0ZWdvcmllcyQxBSVFZGl0b3IkRWRpdCRBUE9wdGlvbnMkY2hrSXNBZ2dyZWdhdGVkBSRFZGl0b3IkRWRpdCRBUE9wdGlvbnMkY2hrVG9BbHBoYUF0b20FIUVkaXRvciRFZGl0JEFkdmFuY2VkJGNrYlB1Ymxpc2hlZAUgRWRpdG9yJEVkaXQkQWR2YW5jZWQkY2hrQ29tbWVudHMFMEVkaXRvciRFZGl0JEFkdmFuY2VkJGNoa0Rpc2FibGVBbm9ueW1vdXNDb21tZW50cwUnRWRpdG9yJEVkaXQkQWR2YW5jZWQkY2hrRGlzcGxheUhvbWVQYWdlBSdFZGl0b3IkRWRpdCRBZHZhbmNlZCRjaGtNYWluU3luZGljYXRpb24FHkVkaXRvciRFZGl0JEFkdmFuY2VkJGNoa1Bpbm5lZAUwRWRpdG9yJEVkaXQkQWR2YW5jZWQkY2hrU3luZGljYXRlRGVzY3JpcHRpb25Pbmx5BR9FZGl0b3IkRWRpdCRBZHZhbmNlZCRja2JDU0ROVGFn%2BetX1YqlCwauuaBASh7Mcvl0aYM%3D&Editor%24Edit%24txbTitle="
        ''postData += HttpUtility.UrlEncode("标题") & "&Editor%24Edit%24EditorBody%24ClientState=FullPage%3Db%3Afalse&Editor%24Edit%24EditorBody%24PostBackHandler=&Editor%24Edit%24EditorBody=okokokokok&Editor%24Edit%24APOptions%24Advancedpanel1%24cklCategories%240=on&Editor%24Edit%24APOptions%24APSiteCategory%24cklGroups="

        ''postData = "__EVENTTARGET=Editor%24Edit%24lkbPost&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwULLTE3NjgxMzM0MDIPZBYCZg9kFgICBg9kFgICAQ9kFhACAQ8PFgQeC05hdmlnYXRlVXJsBRdodHRwOi8vd3d3LmNuYmxvZ3MuY29tLx4EVGV4dAUJ5Y2a5a6i5ZutZGQCAw8PFgIfAAUcaHR0cDovL2pheWUubmV0LmNuYmxvZ3MuY29tL2RkAgcPDxYGHgZUYXJnZXRlHwAFIGh0dHA6Ly93d3cuY25ibG9ncy5jb20vamF5ZS5uZXQvHwEFFeW%2BrueskeeahOWtpuS5oOaXpeW%2Fl2RkAgkPDxYEHwAFF2h0dHA6Ly93d3cuY25ibG9ncy5jb20vHghJbWFnZVVybAUWfi9JbWFnZXMvYWRtaW5sb2dvLmdpZmRkAg0PFgIeB1Zpc2libGVnZAIfD2QWAgIBDw8WAh4GUG9zdElEAv%2F%2F%2F%2F8PZBYEAgIPDxYEHglDb2xsYXBzZWRnHgtDb2xsYXBzaWJsZWdkFgICAQ9kFgQCAQ8WAh4LXyFJdGVtQ291bnQCChYUAgEPZBYMAgEPDxYEHwAFPmh0dHA6Ly93d3cuY25ibG9ncy5jb20vamF5ZS5uZXQvYXJjaGl2ZS8yMDA3LzAxLzAxLzYwOTY3NS5odG1sHwEFIFvlr7zlhaVd5Y2a5a6i5Zut55qE5LiA5Lqb5paH56ugZGQCAw8WAh8BBQkxLTEgMTI6MjdkAgUPFgIfBGhkAgYPFQQEVHJ1ZQEyATAGNjA5Njc1ZAIHDw8WAh4PQ29tbWFuZEFyZ3VtZW50BQY2MDk2NzVkZAIJDw8WAh8JBQY2MDk2NzVkZAICD2QWCgIBDw8WBB8ABT5odHRwOi8vd3d3LmNuYmxvZ3MuY29tL2pheWUubmV0L2FyY2hpdmUvMjAwNy8wMS8wMS82MDk2NzYuaHRtbB8BBSBb5a%2B85YWlXeWNmuWuouWbreeahOS4gOS6m%2BaWh%2BeroGRkAgMPFgIfAQUJMS0xIDEyOjI1ZAIEDxUEBFRydWUBMAEwBjYwOTY3NmQCBQ8PFgIfCQUGNjA5Njc2ZGQCBw8PFgIfCQUGNjA5Njc2ZGQCAw9kFgwCAQ8PFgQfAAU%2BaHR0cDovL3d3dy5jbmJsb2dzLmNvbS9qYXllLm5ldC9hcmNoaXZlLzIwMDYvMDgvMjEvNjA5Njc3Lmh0bWwfAQUVW%2BWvvOWFpV0uTkVU5YWo5o6n5Lu2ZGQCAw8WAh8BBQo4LTIxIDA3OjE1ZAIFDxYCHwRoZAIGDxUEBFRydWUBMAExBjYwOTY3N2QCBw8PFgIfCQUGNjA5Njc3ZGQCCQ8PFgIfCQUGNjA5Njc3ZGQCBA9kFgoCAQ8PFgQfAAU%2BaHR0cDovL3d3dy5jbmJsb2dzLmNvbS9qYXllLm5ldC9hcmNoaXZlLzIwMDYvMDMvMTQvNjA5Njc4Lmh0bWwfAQUqW%2BWvvOWFpV3mt7HlhaXmjqLorqguTkVU5Lit55qE6ZKp5a2Q5oqA5pyvZGQCAw8WAh8BBQozLTE0IDIxOjIyZAIEDxUEBFRydWUBMAEwBjYwOTY3OGQCBQ8PFgIfCQUGNjA5Njc4ZGQCBw8PFgIfCQUGNjA5Njc4ZGQCBQ9kFgwCAQ8PFgQfAAU%2BaHR0cDovL3d3dy5jbmJsb2dzLmNvbS9qYXllLm5ldC9hcmNoaXZlLzIwMDYvMDMvMDEvNjA5Njc5Lmh0bWwfAQUhW%2BWvvOWFpV3oh6rlrprkuYnpmo%2FmnLrljJbnsbsubmV0ZGQCAw8WAh8BBQkzLTEgMTM6NTdkAgUPFgIfBGhkAgYPFQQEVHJ1ZQEwATAGNjA5Njc5ZAIHDw8WAh8JBQY2MDk2NzlkZAIJDw8WAh8JBQY2MDk2NzlkZAIGD2QWCgIBDw8WBB8ABT5odHRwOi8vd3d3LmNuYmxvZ3MuY29tL2pheWUubmV0L2FyY2hpdmUvMjAwNi8wMi8xMy82MDk2ODAuaHRtbB8BBRxb5a%2B85YWlXeWSjFBvc3RiYWNr6K%2B05YaN6KeBZGQCAw8WAh8BBQoyLTEzIDE1OjAxZAIEDxUEBFRydWUBMAEwBjYwOTY4MGQCBQ8PFgIfCQUGNjA5NjgwZGQCBw8PFgIfCQUGNjA5NjgwZGQCBw9kFgwCAQ8PFgQfAAU%2BaHR0cDovL3d3dy5jbmJsb2dzLmNvbS9qYXllLm5ldC9hcmNoaXZlLzIwMDYvMDIvMTMvNjA5NjgxLmh0bWwfAQUvW%2BWvvOWFpV3or6bop6PooajljZXpqozor4FDdXN0b21WYWxpZGF0b3Lmjqfku7ZkZAIDDxYCHwEFCjItMTMgMTQ6NDVkAgUPFgIfBGhkAgYPFQQEVHJ1ZQEwATAGNjA5NjgxZAIHDw8WAh8JBQY2MDk2ODFkZAIJDw8WAh8JBQY2MDk2ODFkZAIID2QWCgIBDw8WBB8ABT5odHRwOi8vd3d3LmNuYmxvZ3MuY29tL2pheWUubmV0L2FyY2hpdmUvMjAwNi8wMS8yMS82MDk2ODIuaHRtbB8BBUBb5a%2B85YWlXUN1c3RvbVZhbGlkYXRvci5DbGllbnRWYWxpZGF0aW9uRnVuY3Rpb24g5Y%2BC5pWw5pyq5a6a5LmJZGQCAw8WAh8BBQoxLTIxIDEwOjI5ZAIEDxUEBFRydWUBMAEwBjYwOTY4MmQCBQ8PFgIfCQUGNjA5NjgyZGQCBw8PFgIfCQUGNjA5NjgyZGQCCQ9kFgwCAQ8PFgQfAAU%2BaHR0cDovL3d3dy5jbmJsb2dzLmNvbS9qYXllLm5ldC9hcmNoaXZlLzIwMDYvMDEvMjAvNjA5NjgzLmh0bWwfAQVJW%2BWvvOWFpV1hc3AubmV0Mi4w5LitUGFnZV9Mb2Fk44CBQnV0dG9uMV9DbGlja%2BS7o%2BeggeaJp%2BihjOeahOWFiOWQjumhuuW6j2RkAgMPFgIfAQUKMS0yMCAxNzowMWQCBQ8WAh8EaGQCBg8VBARUcnVlATABMAY2MDk2ODNkAgcPDxYCHwkFBjYwOTY4M2RkAgkPDxYCHwkFBjYwOTY4M2RkAgoPZBYKAgEPDxYEHwAFPmh0dHA6Ly93d3cuY25ibG9ncy5jb20vamF5ZS5uZXQvYXJjaGl2ZS8yMDA2LzAxLzIwLzYwOTY4NC5odG1sHwEFN1vlr7zlhaVdR3JpZFZpZXdfUm93VXBkYXRpbmfkuK3lj5bmtojnvJbovpHnirbmgIHpl67pophkZAIDDxYCHwEFCjEtMjAgMTA6MzJkAgQPFQQEVHJ1ZQEwATAGNjA5Njg0ZAIFDw8WAh8JBQY2MDk2ODRkZAIHDw8WAh8JBQY2MDk2ODRkZAIFDxYGHglJdGVtQ291bnQCEh4JUGFnZUluZGV4AgEeCFBhZ2VTaXplAgpkAgMPDxYCHwRnZBYCAgEPZBYSAgEPDxYEHwBlHwRoZGQCBw8PFgIeEUNvbnRyb2xUb1ZhbGlkYXRlBQpFZGl0b3JCb2R5ZGQCCQ9kFgJmDxBkZRYOHglGaWxlc1BhdGgFGy9DdXRlU29mdF9DbGllbnQvQ3V0ZUVkaXRvch4NQXV0b0NvbmZpZ3VyZQULRnVsbF9ub2Zvcm0eElJlbmRlclJpY2hEcm9wRG93bgUEVHJ1ZR4SU2VjdXJpdHlQb2xpY3lGaWxlBT8vQ3V0ZVNvZnRfQ2xpZW50L0N1dGVFZGl0b3IvQ29uZmlndXJhdGlvbi9TZWN1cml0eS9BZG1pbi5jb25maWceB0N1bHR1cmUFBXpoLUNOHglUaGVtZVR5cGUFBkN1c3RvbR4RQ29uZmlndXJhdGlvblBhdGhlZAILD2QWAgIBD2QWCAIBD2QWAgIBD2QWAgIBDxAPFgYeDkRhdGFWYWx1ZUZpZWxkBQpDYXRlZ29yeUlEHg1EYXRhVGV4dEZpZWxkBQVUaXRsZR4LXyFEYXRhQm91bmRnZBAVAggubmV0IDIuMA1j6K%2Bt6KiA5a2m5LmgFQIFMjg1NTAFMjkxMjcUKwMCZ2dkZAIDD2QWAgIBD2QWAgIBDxAPFgYfFQUKQ2F0ZWdvcnlJRB8WBQVUaXRsZR8XZ2QQFRKPATEu6aaW6aG15Y6f5Yib57K%2B5Y2OLk5FVOWMuijljIXlkKvmnrbmnoTorr7orqHjgIHorr7orqHmqKHlvI8pKOWvuemmlumhteaWh%2BeroOeahOimgeaxgjrljp%2FliJvjgIHpq5jotKjph4%2FjgIHnu4%2Fov4forqTnnJ%2FmgJ3ogIPlubbnsr7lv4PlhpnkvZwpZDIuLk5FVOaWsOaJi%2BWMuijnlKjkuo7lj5HooajkuI3lkIjpgILlj5HooajlnKjpppbpobXnmoQuTkVU5oqA5pyv5paH56ugLOWMheaLrOWwj%2Be7j%2BmqjOOAgeWwj%2BaKgOW3pylHMy7pnZ7mioDmnK%2FljLoo5oqA5pyv5LmL5aSW55qE5paH56ugLOS9huS4jeimgea2ieWPiuS7u%2BS9leaUv%2Bayu%2BWGheWuuSkRNC7lhbbku5bmioDmnK%2FljLoRNS7kvIHkuJrkv6Hmga%2FljJY6Ni7or7vkuablv4PlvpfljLoo5oqA5pyv5Lmm57GN6ZiF6K%2B75b%2BD5b6X44CB5Lmm57GN5o6o6I2QKSY3LuaPkOmXruWMuiguTkVU5oqA5pyv5pa56Z2i55qE5o%2BQ6ZeuKUA4LuaKgOacr%2Bi9rOi9veWMuiguTkVU5oqA5pyv5paH56ug6L2s6L29LCDor7fms6jmmI7ljp%2Fmloflh7rlpIQpLjku5rGC6IGM5oub6IGY5Yy6KOS4quS6uuaxguiBjOOAgeS8geS4muaLm%2BiBmCkKRG90dGV4dOWMuglHSVPmioDmnK8eSVToi7HmiY3kuJPljLooSVTogYzlnLrkuqTmtYEpClNoYXJlUG9pbnQ%2F5Y2a5a6i5ZutLk5FVOS%2FseS5kOmDqCjkv7HkuZDpg6jnu4Tnu4fkuI7mtLvliqjmlrnpnaLnmoTmlofnq6ApNei9r%2BS7tuWPkeW4g%2BWMuijlj5HluIPoh6rlt7HlvIDlj5HnmoTku6PnoIHjgIHova%2Fku7YpVee9keermeeuoeeQhuWMuijnvZHnq5nnrqHnkIbmlrnpnaLnmoTnlpHpl67jgIHlu7rorq7jgIHmhI%2Fop4EsIOWvu%2BaxgueuoeeQhuWRmOW4ruWKqSkM5Lia55WM5paw6Ze7DOWPlua2iOmAieaLqRUSAzgwOAUxODE1NgM4MDcENzczNAUxODA3NgQ1MDc5BDM5NjkENDM0NwQ2MTUxBDkwODIFNTAzNDkFNzAwNjUFNzgxMTEFMzEzMDgFMzM5MDkENzUwOQUzNTEzMQAUKwMSZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZGQCCQ9kFgICAQ9kFgICAQ8QDxYGHxUFCkNhdGVnb3J5SUQfFgUFVGl0bGUfF2dkEBUHBlZCLk5FVAtBRE8uTkVUIDIuMBJWaXN1YWwgU3R1ZGlvIDIwMDULQVNQLk5FVCAyLjACQyMSLk5FVCBGcmFtZXdvcmsgMi4wDOWPlua2iOmAieaLqRUHBTMzMDIyBTMzMTI0BTMzMDIxBTMzMDE5BTMzMDIwBTMzMDIzABQrAwdnZ2dnZ2dnZGQCCw8PFgIfBGhkFgICAQ9kFgICAQ8QZGQWAGQCDQ8PFgIfBmhkFgICAQ9kFgYCDQ8QDxYCHgdDaGVja2VkaGRkZGQCDw8QDxYCHxhoZGRkZAIRDxAPFgIfGGhkZGRkAg8PDxYCHwEFBuWPkeW4gxYCHgdPbkNsaWNrBQ1ieXBhc3NDaGVjaygpZAIRDw9kFgIfGQUNYnlwYXNzQ2hlY2soKWQCEw8PZBYCHxkFDWJ5cGFzc0NoZWNrKClkAhUPD2QWAh8ZBQ1ieXBhc3NDaGVjaygpZAIhDxYCHwEFBDIwMDdkAiMPDxYEHwAFF2h0dHA6Ly93d3cuY25ibG9ncy5jb20vHwEFCeWNmuWuouWbrWRkGAEFHl9fQ29udHJvbHNSZXF1aXJlUG9zdEJhY2tLZXlfXxYNBTRFZGl0b3IkRWRpdCRBUE9wdGlvbnMkQWR2YW5jZWRwYW5lbDEkY2tsQ2F0ZWdvcmllcyQwBTRFZGl0b3IkRWRpdCRBUE9wdGlvbnMkQWR2YW5jZWRwYW5lbDEkY2tsQ2F0ZWdvcmllcyQxBTRFZGl0b3IkRWRpdCRBUE9wdGlvbnMkQWR2YW5jZWRwYW5lbDEkY2tsQ2F0ZWdvcmllcyQxBSVFZGl0b3IkRWRpdCRBUE9wdGlvbnMkY2hrSXNBZ2dyZWdhdGVkBSRFZGl0b3IkRWRpdCRBUE9wdGlvbnMkY2hrVG9BbHBoYUF0b20FIUVkaXRvciRFZGl0JEFkdmFuY2VkJGNrYlB1Ymxpc2hlZAUgRWRpdG9yJEVkaXQkQWR2YW5jZWQkY2hrQ29tbWVudHMFMEVkaXRvciRFZGl0JEFkdmFuY2VkJGNoa0Rpc2FibGVBbm9ueW1vdXNDb21tZW50cwUnRWRpdG9yJEVkaXQkQWR2YW5jZWQkY2hrRGlzcGxheUhvbWVQYWdlBSdFZGl0b3IkRWRpdCRBZHZhbmNlZCRjaGtNYWluU3luZGljYXRpb24FHkVkaXRvciRFZGl0JEFkdmFuY2VkJGNoa1Bpbm5lZAUwRWRpdG9yJEVkaXQkQWR2YW5jZWQkY2hrU3luZGljYXRlRGVzY3JpcHRpb25Pbmx5BR9FZGl0b3IkRWRpdCRBZHZhbmNlZCRja2JDU0ROVGFn%2BetX1YqlCwauuaBASh7Mcvl0aYM%3D&Editor%24Edit%24txbTitle="
        ''postData += HttpUtility.UrlEncode("标题") & "&Editor%24Edit%24EditorBody%24ClientState=FullPage%3Db%3Afalse&Editor%24Edit%24EditorBody%24PostBackHandler=&Editor%24Edit%24EditorBody=n%239ir%235ng%0D%0A&Editor%24Edit%24APOptions%24Advancedpanel1%24cklCategories%240=on&Editor%24Edit%24APOptions%24APSiteCategory%24cklGroups="
        'postData = "__EVENTTARGET=Editor%24Edit%24lkbPost&Editor%24Edit%24txbTitle="
        'postData += HttpUtility.UrlEncode("标题") & "&Editor%24Edit%24EditorBody%24ClientState=FullPage%3Db%3Afalse&Editor%24Edit%24EditorBody%24PostBackHandler=&Editor%24Edit%24EditorBody=okokokokok&Editor%24Edit%24APOptions%24Advancedpanel1%24cklCategories%240=on&Editor%24Edit%24APOptions%24APSiteCategory%24cklGroups="

        'Dim dataw As Byte() = encoding.GetBytes(postData)
        'myRequest.ContentLength = dataw.Length
        ' '' Send the data.
        'Dim newStreamw As Stream = myRequest.GetRequestStream()
        'newStreamw.Write(dataw, 0, dataw.Length)
        'newStreamw.Close()
        ' '' Get response
        'myResponse = CType(myRequest.GetResponse(), HttpWebResponse)
        'Dim readerw As New StreamReader(myResponse.GetResponseStream(), System.Text.Encoding.UTF8)
        'Dim contentw As String = readerw.ReadToEnd()
        'ContentHtml.Text = contentw