用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显示仍然停留在登录页面,没有登录成功。