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 
[email protected] 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>