苏飞论坛

 找回密码
 马上注册

QQ登录

只需一步,快速开始

分布式系统框架(V2.0) 轻松承载百亿数据,千万流量!讨论专区 - 源码下载 - 官方教程

HttpHelper爬虫框架(V2.7-含.netcore) HttpHelper官方出品,爬虫框架讨论区 - 源码下载 - 在线测试和代码生成

HttpHelper爬虫类(V2.0) 开源的爬虫类,支持多种模式和属性 源码 - 代码生成器 - 讨论区 - 教程- 例子

查看: 5728|回复: 3

[HttpHelper] vb.net 使用 httphelper post with cookie的问题

[复制链接]
发表于 2017-2-7 15:30:11 | 显示全部楼层 |阅读模式
  Dim Httphelp As New CsharpHttpHelper.HttpHelper
        Dim Item As New CsharpHttpHelper.HttpItem
        Dim Result As New CsharpHttpHelper.HttpResult

        If Button1.Text = "Button1" Then
          ''''''''''''''''''''''''''''''''''''''''''''''''''''''获取验证码及cookie
     With Item
                .URL = "https://ecp.sgcc.com.cn/BidUpgrade/validateColorServlet?validateType=login"
                .Method = "GET"
                .KeepAlive = True

            End With
            Item.ResultCookieType = CsharpHttpHelper.Enum.ResultCookieType.String
            Item.ResultType = CsharpHttpHelper.Enum.ResultType.Byte
            Result = Httphelp.GetHtml(Item)
            Cookie = Result.Cookie
            TextBox1.Text = TextBox1.Text & Cookie & vbCrLf
            PictureBox1.Image = Image.FromStream(New IO.MemoryStream(Result.ResultByte))
            Button1.Text = "Button2"
            Exit Sub

        Else

''''''''''''''''''''''''''''''''''''''''''''''''''''''登陆''''''''''''''''''''''''''''''''''''''''''''''''''''''
            With Item
                .URL = “https://ecp.sgcc.com.cn/BidUpgra ... undefined&CODE=” & TextBox2.Text
                .Postdata = "stype=&j_username=w1600282&=%C3%DC%C2%EB&j_password=%7Bsgcc%7D57399c45a5b6fa0f4aa02e874546a8c0&checkCodeText=" & TextBox2.Text
                .Method = "post"
                .Cookie = cookie
                .ContentType = "application/x-www-form-urlencoded"
                .Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
                .KeepAlive = True
                .UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/56.0.2924.87 Safari/537.36"
                '.IsUpdateCookie = True
                .Allowautoredirect = True
            End With
            Item.ResultCookieType = CsharpHttpHelper.Enum.ResultCookieType.String
            Item.ResultType = CsharpHttpHelper.Enum.ResultType.String
            Result = Httphelp.GetHtml(Item)

            TextBox1.Text = TextBox1.Text & Result.Cookie & vbCrLf
            TextBox1.Text = TextBox1.Text & Result.Html & vbCrLf
            Button1.Text = "Button1"
            Exit Sub
        End If
以上原来用易语言写过,cookie获取,postdata内容完全一致

if - else 之间是获取验证码及cookie,else-endif 之间是post信息
现在用vb.net重写就登陆不上了....
麻烦各位给看看,谢了
因为是公司内部网站不方便提供账号测试,不好意思





1. 开通SVIP会员,免费下载本站所有源码,不限次数据,不限时间
2. 加官方QQ群,加官方微信群获取更多资源和帮助
3. 找站长苏飞做网站、商城、CRM、小程序、App、爬虫相关、项目外包等点这里
发表于 2017-2-7 16:44:03 | 显示全部楼层
监控一下看看数据是怎么样的。也许根据数据能看出点什么
 楼主| 发表于 2017-2-7 16:53:56 | 显示全部楼层
不知道为什么用了httphelper以后fiddler就抓不到包了.....
在程序里面监控了
获取的cookie,postdata等信息,以及result.html等
除了返回的内容有问题,剩下的和易语言发送的内容好像都是一样的.....
发表于 2017-2-7 17:29:01 | 显示全部楼层
http://www.sufeinet.com/thread-7870-1-1.html 你看看这个应该就明白为什么抓不到了
您需要登录后才可以回帖 登录 | 马上注册

本版积分规则

QQ|手机版|小黑屋|手机版|联系我们|关于我们|广告合作|苏飞论坛 ( 豫ICP备18043678号-2)

GMT+8, 2024-12-28 11:13

© 2014-2021

快速回复 返回顶部 返回列表