Dim User As String
        Dim pass As String
        User = Me.Textuser.Text
        pass = Me.Textpass.Text
        If User = "" Then
            MessageBox.Show("请填写用户", "填写用户名")
        ElseIf pass = "" Then
            MessageBox.Show("请填写密码", "填写密码")
        End If
        Dim web As New System.Net.WebClient
        web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
        Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes("myname= & user & mypass= & pass & ")
        Dim url As Byte() = web.UploadData("http://127.0.0.1/login.asp", "POST", d)
        Dim p = New Process
        Dim c = ("http://127.0.0.1/login.asp")
        p.StartInfo.FileName = "iexplore.exe"
        p.StartInfo.Arguments = c
        p.start()功能就是直接在本机winFrom窗体提交用户和密码登陆网站