用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