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那种,希望大神帮忙,万分感谢!
...全文
806 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
兄弟,能帮我看下吗?万分感谢!我用的是火狐浏览器抓的包,上面那个问题纠结了好几天了。
内容概要:本文系统研究了基于豪猪优化算法(CPO)的多无人机协同集群在三维空间中的避障路径规划问题,聚焦于实现以最低成本为目标的航迹优化,综合考虑路径长度、飞行高度、威胁规避及转弯角度等多个关键因素。通过构建精细化的三维环境模型与多无人机协同机制,采用Matlab平台实现CPO算法的仿真与验证,充分展示了该算法在复杂动态障碍环境下的高效搜索能力与全局优化性能。研究不仅涵盖了路径规划的数学建模与目标函数设计,还深入探讨了算法的收敛特性与鲁棒性,为智能群体系统在实际场景中的应用提供了理论依据与技术支撑。; 适合人群:具备一定编程基础和优化算法背景,从事无人机系统控制、智能路径规划、群体协同、人工智能与自动化等相关领域的科研人员、高校研究生及工程技术人员。; 使用场景及目标:①应用于多无人机协同执行侦察、灾害监测、应急救援、区域巡检等复杂任务中的自主路径规划;②为智能优化算法在三维动态环境下的路径决策问题提供可复现的技术范例;③支持研究人员对CPO算法与其他主流群智能算法(如PSO、GWO、WOA等)进行性能对比与改进研究,推动路径规划技术的发展。; 阅读建议:建议结合提供的Matlab代码进行实践操作,重点理解目标函数的多维度建模方式与CPO算法的迭代优化流程,可通过调整环境参数与约束条件进行仿真实验,对比不同算法在相同场景下的路径质量与收敛速度,从而深入掌握其优势与适用边界。
内容概要:本文围绕电动汽车参与电力系统运行备用的能力评估展开深入研究,利用Matlab代码实现对电动汽车集群提供运行备用服务的建模与仿真分析。研究重点在于量化电动汽车作为分布式灵活资源参与电网辅助服务的潜力,通过构建精细化的数学模型,分析其可调功率容量、响应速度、时空分布特性及聚合能力,并采用多面体聚合、内近似模型与闵可夫斯基和等先进方法精确刻画其可调度能力边界。研究进一步结合大规模电动汽车接入场景,探讨其在多时间尺度调度框架下参与调峰、调频等辅助服务的优化策略,评估其对提升高比例可再生能源电网灵活性与稳定性的贡献,最终通过仿真验证所提模型与方法的有效性与实用性。; 适合人群:具备电力系统分析、智能电网、新能源汽车或优化调度等相关专业背景,熟悉Matlab/Simulink仿真工具,从事科研、工程应用的高校研究生、科研人员及电力行业工程师。; 使用场景及目标:①精确评估大规模电动汽车集群在不同约束条件下可提供的运行备用容量;②研究电动汽车在日前、日内及实时调度中的动态响应能力与优化调度策略;③为高渗透率新能源电力系统提供基于移动储能的灵活性资源解决方案,支撑电网安全经济运行。; 阅读建议:建议结合Matlab代码与技术文档同步学习,重点关注多面体聚合建模、能力边界计算及优化调度算法的设计与实现,可进一步拓展至V2G(车辆到电网)、需求响应等互动场景进行二次开发与应用验证。

1,502

社区成员

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

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