vb inet 提交表单登录
Private Sub Command1_Click()
Dim strr As String
strr = "email=**********&password=******&domain=登录"
Inet1.Execute "http://www.renren.com", "POST", strr, "Content-Type: application/x-www-form-urlencoded"
End Sub
为什么登录不上去？
源码如下：
<P class="top clearfix"><LABEL for=email>帐号:</LABEL><INPUT
style="COLOR: #333; BEHAVIOR: none" id=email class=input-text tabIndex=1
value=panrongtao89@163.com name=email> </P>
<P class=clearfix><LABEL for=password>密码:</LABEL> <INPUT style="BEHAVIOR: none"
id=password class=input-text tabIndex=2 value="" type=password name=password
error="请输入密码"> </P>
<DIV style="DISPLAY: none" id=capsLockMessage class=caps-lock-tips></DIV>
<P class=savepassword><LABEL class=labelCheckbox
title=为了确保您的信息安全，请不要在网吧或者公共机房勾选此项！ for=autoLogin><INPUT id=autoLogin tabIndex=3
value=true type=checkbox name=autoLogin>下次自动登录 </LABEL></P>
<P class=bottom><INPUT value=http://www.renren.com/Home.do type=hidden
name=origURL> <INPUT value=renren.com type=hidden name=domain> <INPUT style="BEHAVIOR: " id=login class=input-submit tabIndex=4 value=登录 type=submit>
</P>
[解决办法]
人人需要传session cookie。
