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

博客大巴,自动登录,并发布信息开发小计。工具准备:Fiddler相关网页:登录页面:http://passport.blogbus.com/login信息发布信息:http://www.blogbus.com/user/?blogid=49

大家好,又见面了,我是你们的朋友全栈君。

工具准备:Fiddler

相关网页:

登录页面:http://passport.blogbus.com/login

信息发布信息:http://www.blogbus.com/user/?blogid=49xxx944&mm=Post&aa=SaveAdd&page=&outputmode=1

 

登录页面,比较简单,使用Post提交username,password即可!判断是否成功,采用判断CookieContainer的Count属性是否大于0

 

相关代码如下:

 

<span role="heading" aria-level="2">博客大巴,自动登录,并发布信息开发小计。
<span role="heading" aria-level="2">博客大巴,自动登录,并发布信息开发小计。
代码

   
   
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属性,一直不能提交成功。

相关代码如下:

 

 

<span role="heading" aria-level="2">博客大巴,自动登录,并发布信息开发小计。
<span role="heading" aria-level="2">博客大巴,自动登录,并发布信息开发小计。
代码

   
   
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

 

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

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

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/154320.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • 粒子群优化算法(PSO)

    粒子群优化算法(PSO)%%最近写的粒子群的论文,再重新巩固一下推荐一个优化算法代码网址:http://www.Hvass-Labs.org/1研究背景粒子群算法的发展过程。粒子群优化算法(ParticalSwarmOptimizationPSO),粒子群中的每一个粒子都代表一个问题的可能解,通过粒子个体的简单行为,群体内的信息交互实现问题求解的智能性。由于PSO操作简单、收敛速度快,…

  • QUOTENAME函数的用法

    QUOTENAME函数的用法quotename函数的语法为:quotename('expression1','expression2')expression1:指的是需要被特殊处理的字符expre

  • scipy安装失败

    scipy安装失败pipinstallscipy安装失败可以从uci网站下载wheel安装包然后执行pipinstallxx.whl进行安装http://www.lfd.uci.edu/~gohlke/pythonlibs/#scipy转载于:https://www.cnblogs.com/timlong/p/6068370.html…

  • 数据结构之循环队列

    数据结构之循环队列数据结构之循环队列前言:关于循环队列需明白以下几点:1、循环队列是队列的顺序存储结构2、循环队列用判断是否为空利用Q.front=Q.rear3、循环队列头指针始终指向队列头元素,而尾指针始终指向队列尾元素的下一个位置4、按照队列的定义,队头删除,队尾插入,在这里插入图片描述会导致队头之前可能有空余的内存空间(如下图J1,J2出队后,空间被浪费),为了解决该问题,提出循环队列的解决方…

  • 编写测试用例方法—-因果图&判定表

    编写测试用例方法—-因果图&判定表因果图:一、应用场合       在一个界面中,有多个控件,测试的时候要考虑控件的组合关系,不同的控件组合会产生不同的输出结果的组合,为了弄清什么样的输入组合会产生什么样的输出组合,使用因果图法。 二、因果图核心1、因—-原因,输入条件2、果—-结果,输出结果使用图形的方式,分析软件输入和输出的对应关系。 三、图形符号1、基本图形    表示输入和输出的对应关系(1)恒等(-)Ⓐ(输入、因…

  • ubuntu 源仓库说明

    ubuntu 源仓库说明ubuntu网易源:debhttp://mirrors.163.com/ubuntu/xenialmainrestricteduniversemultiversedebhttp://mirrors.163.com/ubuntu/xenial-securitymainrestricteduniversemultiversedebhttp://mirrors.163.co

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号