博客大巴，自动登录，并发布信息开发小计。

工具准备：Fiddler

相关代码如下：

代码

Dim
cc
As

New
System.Net.CookieContainer

Dim
postData
As

String

=

String
.Format(
“
username={0}&password={1}
“
,
“xxx
“
,
“xxxx
“
)

Dim
postByte()
As

Byte

=
System.Text.Encoding.UTF8.GetBytes(postData)

Dim
wr
As
System.Net.HttpWebRequest
=

CType
(System.Net.WebRequest.Create(
“
http://passport.blogbus.com/login
“
), Net.HttpWebRequest)
wr.CookieContainer
=
cc
wr.Method
=

“
POST
“

wr.ContentType
=

“
application/x-www-form-urlencoded
“

wr.ContentLength
=
postByte.Length

Dim
sr
=
wr.GetRequestStream
sr.Write(postByte,
0
, postByte.Length)
sr.Close()

Dim
rs
As
System.Net.HttpWebResponse
=

CType
(wr.GetResponse, Net.HttpWebResponse)

Dim
sr2
As

New
System.IO.StreamReader(rs.GetResponseStream, System.Text.Encoding.UTF8)

Dim
result
As

String

=
sr2.ReadLine
Console.WriteLine(result)

登录成功后，需要进行信息发布：

这里走了一点弯路，最开始一直没有设置WebRequest的Referer属性，一直不能提交成功。

相关代码如下：

代码

postData
=

“
Title=ddd&PostTime=2009-12-25+17%3A45%3A14&SortID=0&tContent=%3Cp%3Edddd%3C%2Fp%3E&Tags=ddd&Excerpt=&Trackback=%E6%AF%8F%E8%A1%8C%E8%BE%93%E5%85%A5%E4%B8%80%E6%9D%A1%E5%BC%95%E7%94%A8%E5%9C%B0%E5%9D%80&ID=&DraftId=0&force=0
“

postByte
=
System.Text.Encoding.UTF8.GetBytes(postData)
wr
=

CType
(System.Net.WebRequest.Create(

http://www.blogbus.com/user/?blogid=4xxx4&mm=Post&aa=SaveAdd&page=&outputmode=1

), Net.HttpWebRequest)
wr.CookieContainer
=
cc
wr.Referer
=

“
http://www.blogbus.com/user/?mm=Post&aa=Add
“

wr.ContentType
=

“
application/x-www-form-urlencoded
“

wr.ContentLength
=
postByte.Length
wr.UserAgent
=

“
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; Trident/4.0; GTB6.3; .NET CLR 1.1.4322; .NET CLR 2.0.50727; InfoPath.2; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
“

wr.KeepAlive
=

True

wr.Accept
=

“
image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, application/xaml+xml, application/vnd.ms-xpsdocument, application/x-ms-xbap, application/x-ms-application, */*
“

wr.Method
=

“
POST
“

sr
=
wr.GetRequestStream
sr.Write(postByte,
0
, postByte.Length)

sr.Close()

rs
=

CType
(wr.GetResponse, Net.HttpWebResponse)
sr2
=

New
System.IO.StreamReader(rs.GetResponseStream, System.Text.Encoding.UTF8)
result
=
sr2.ReadToEnd

If
result.IndexOf(
“
提交成功
“
)
<>

–
1

Then

Console.WriteLine(
“
提交成功
“
)

Else

Console

之前没有写过，类于这样的代码。写了之后发现，验证码，才是最难搞的！

转载于:https://www.cnblogs.com/zqonline/archive/2009/12/25/1632303.html

今天的文章博客大巴，自动登录，并发布信息开发小计。分享到此就结束了，感谢您的阅读。

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至举报，一经查实，本站将立刻删除。
如需转载请保留出处：https://bianchenghao.cn/6809.html

博客大巴，自动登录，并发布信息开发小计。

相关推荐

发表回复