请教 用 xmlhttp 和 winsock 登录网站的例子？不使用webbrowser

Question

请教 用 xmlhttp  和 winsock 登录网站的例子？不使用webbrowser以登录百度为例~  http://passport.baidu.com/?login
用户名：ceshiyixia001 密码：111aaa也即是说 用 xmlhttp  和 winsock 发送数据后，打开ie，就可以看到ceshiyixia001已经登录了

Answer 1

看看
http://www.vicmiao.com/html/y2009/3803.html

Answer 2

'连接代码
    If Winsock1.State = sckClosing Or Winsock1.State = sckOpen Then Winsock1.Close
        
    Winsock1.RemoteHost = "127.0.0.1"
    Winsock1.RemotePort = 80
    Winsock1.Connect'连接服务器
Private Sub Winsock1_Connect()
On Error Resume Next
    Dim strCommand As String
    Dim strWebPage As String
    
    j = 0
    strWebPage = "/connect.php?user=" + Form1.user.Text + "&pass=" + Form1.pass.Text
    strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
    strCommand = strCommand + "Host: www.j2soft.com:80" + vbCrLf
    strCommand = strCommand + "Accept: text/html, */*" + vbCrLf
    strCommand = strCommand + vbCrLf
    
    Winsock1.SendData strCommand
End Sub