用webbrowser代替在页面上登录

yue 2002-07-23 08:06:31
我想通过程序代替在页面上登录的过程,它发送的地址和内容我都跟踪服装下来,但就是无法成功,这是这么回事?代码如下:
Dim postdata As String
Dim vPost As Variant
Dim sURL As String
Dim sHeaders As String
Dim lFlags As Long

lFlags = 0
sHeaders = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
postdata = "login=2&mobile=abcd&passwd=11111&user=abcd&x=20&y=6"
vPost = StrConv(postdata, vbFromUnicode)
sURL = "http://sms.sina.com.cn/cgi-bin/sms/sinauserlogin.cgi"
WebBrowser1.Navigate sURL, lFlags, "", vPost, sHeaders
运行后,webbrower显示仍然停留在登录页面,没有登录成功。
...全文
43 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

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

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