VB用Post方式登录学校网站能成功,但记笔记总是失败,急求大神帮忙看下!

qq_26995939 2017-11-15 05:59:35
vb用post方式登录学校网站,刚开始用的webbrowser模拟点击,可以登录,记笔记,但由于加载内容过多总假死,用了DoEvents也没用。只能换Post方式,因为要获取Cookie登录用的是Inet控件,
学校的登录网址如下:
http://www.hust-snde.com/center/left_hydl.jsp?url=www.hust-snde.com:80/sso/login_centerLogin.action
登录部分代码如下:
Dim myurl As String, send_data As String, my_head As String
myurl = "http://cas.hust-snde.com/whatyVerify"
send_data = "username=W201700958&password=" & MD5("321324198705175425") & "&service=http%3A%2F%2Fsns.hust-snde.com%2Flearning%2Fsso%2Flogin_webTrnLogin.action%3FssoUser.loginId%3DW201700958%26siteCode%3Dcode62"
my_head = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Inet1.Execute myurl, "POST", send_data, my_head
While Inet1.StillExecuting
DoEvents
Wend
Dim Buff() As Byte
Buff = Inet1.GetChunk(0, icByteArray)
If InStr(1, Utf8ToUnicode(Buff), "主机没有反应,连接尝试失败") Then
MsgBox "登录失败,对方网站没有响应!"
Else
’WebBrowser1.Navigate "http://sns.hust-snde.com/learning/entity/student/student_studentCourseList.action"
End If

以下部分是记笔记的代码:
myurl = "http://sns.hust-snde.com/learning/studyLog/studyLog_saveStudyLog.action"
send_data ="studyLog.isPub=0&studyLog.studyNote=%E7%AB%8B%E6%B3%95%E6%9D%83&studyLog.tagId=ff8080815bafb5c4015bc6b91d282781_03005760&studyLog.coursewareId=&studyLog.coursewareName="
my_head = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
my_head = my_head & "Accept: application/x-ms-application, image/jpeg, application/xaml+xml, image/gif, image/pjpeg, application/x-ms-xbap, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*" & vbCrLf
my_head = my_head & "Referer: http://sns.hust-snde.com/learning/studyLog/studyLog_myStudylog.action" & vbCrLf
my_head = my_head & "Accept-Language: zh-CN" & vbCrLf
my_head = my_head & "Accept-Encoding: gzip, deflate" & vbCrLf
my_head = my_head & "Connection: Keep-Alive" & vbCrLf
Inet1.Execute myurl, "POST", send_data, my_head

While Inet1.StillExecuting
DoEvents
Wend

登录能成功,包括之前用webbrowser识别验证码然后再登录的,只是发帖一直没效果,用Winhttp带Cookie也一样,只有点击了webbrowser1窗口中“开始学习”按钮并等课件在webbrowser2中加载完再用代码Post方式记笔记的话就能成功(然后通过抓包工具抓取数据包再post"开始学习"按钮对应跳转的网页的话也没用)。
之前没怎么接触过Webbrowser、Inet控件、xmlhttp、Winhttp那种,希望大神帮忙,万分感谢!
...全文
813 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
赵4老师 2017-11-24
  • 打赏
  • 举报
回复
精神上支持也是一种支持。
qq_26995939 2017-11-23
  • 打赏
  • 举报
回复
引用 3 楼 zhao4zhong1 的回复:
百度搜“VB6 Inet控件 Cookie”?
还是把分都给你了
qq_26995939 2017-11-23
  • 打赏
  • 举报
回复
引用 3 楼 zhao4zhong1 的回复:
百度搜“VB6 Inet控件 Cookie”?
自己搞定了,谢谢赵4老师
赵4老师 2017-11-16
  • 打赏
  • 举报
回复
学会使用抓包软件比如wireshark
赵4老师 2017-11-16
  • 打赏
  • 举报
回复
百度搜“VB6 Inet控件 Cookie”?
qq_26995939 2017-11-16
  • 打赏
  • 举报
回复
引用 1 楼 zhao4zhong1 的回复:
学会使用抓包软件比如wireshark
兄弟,能帮我看下吗?万分感谢!我用的是火狐浏览器抓的包,上面那个问题纠结了好几天了。
内容概要:本文聚焦风电出力的不确定性问题,采用拉丁超立方抽样(Latin Hypercube Sampling, LHS)方法生成具有统计代表性的风电出力初始场景集,有效克服传统蒙特卡洛抽样存在的样本冗余与收敛速度慢的缺陷。为进一步降低场景数量以提升电力系统优化调度的计算效率,研究结合K-means聚类、快速前向选择等场景缩减技术,对生成的高维场景进行聚合与概率修正,保留最具代表性的典型场景及其对应概率分布。整个建模流程在Matlab平台上编程实现,形成一套完整的“抽样—生成—缩减—验证”的不确定性建模框架,为含高比例风电的电力系统提供高质量、低冗余的输入场景集,显著增强随机优化、鲁棒优化等模型的求解效率与工程实用性。; 适合人群:具备电力系统分析、概率统计基础及Matlab编程能力,从事新能源并网、电力系统优化调度、不确定性建模与风险评估等方向的科研人员、工程技术人员及研究生。; 使用场景及目标:①应用于风电主导的电力系统随机优化调度、机会约束规划、鲁棒经济调度等场景,提升模型对不确定性的刻画能力;②帮助研究者深入掌握拉丁超立方抽样与场景缩减的核心原理与实现方法,构建高精度的不确定性输入模型;③为复杂电力系统仿真提供经过科学约简的典型场景集,平衡计算精度与效率,支撑实际工程决策。; 阅读建议:建议读者结合提供的Matlab代码逐模块调试与运行,重点理解LHS在多维空间中的分层抽样机制、场景距离度量方式及聚类缩减过程中的概率守恒原则,关注缩减前后场景集的分布保真性与计算效率提升效果,以全面掌握风电不确定性建模的关键技术路径。
代码下载链接: https://pan.quark.cn/s/a4b39357ea24 全国范围内的飞思卡尔智能车竞赛是一项专注于在校大学生的科技创新项目,其目的在于通过设计并制造一辆能够执行特定任务的智能车辆,以增强学生的创新思维和工程实践技能。在此过程中,参赛团队需要开发相应的控制程序代码,用以确保智能车的平稳运作以及高级功能,例如路径选择、障碍物躲避等。本文将详细分析飞思卡尔智能车竞赛程序代码中常见的几个核心信息技术范畴:PID控制方法、智能控制方法、图像识别方法以及超声波测距技术。 PID控制方法作为智能车控制系统的核心组成部分,通过模仿人类的驾驶行为,并融合传感器提供的实时数据,对车辆的运动进行精确调控。在智能车竞赛中,PID控制通常被应用于处理车速、方向和加速度等多个控制方面。一个标准的PID控制系统主要由三个关键部分构成:比例部分(P)、积分部分(I)和微分部分(D)。比例部分负责减少误差,积分部分旨在消除稳态误差,而微分部分则预测误差的发展趋势,从而实现快速响应变化。通过调整PID参数,可以使智能车在赛道上保持稳定,并能迅速适应赛道条件的变化。 智能控制方法的实现是智能车在复杂环境中有效运行的关键。智能控制往往需要整合机器学习和人工智能技术,例如模糊逻辑、神经网络或遗传算法等。在智能车竞赛场景下,车辆需要依据传感器收集的环境数据,完成对路线的识别、障碍物的规避等任务。路径规划方法能够协助车辆挑选最优的行驶路线,而避障策略则保障车辆能够安全地绕开前方的障碍物。此外,智能车还应具备一定的学习功能,能够适应环境的变化,并作出相应的调整。 图像识别方法对于智能车对赛道的感知能力具有决定性作用。车辆通常配备摄像头或其他视觉传感器来采集图像信息。借助图像处理...

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧