是指的网站的登录用户名和密码？---------这个不可能吧？

Private Sub cmdOK_Click()
    Dim id, psw, exe, url As String
    id = txtUserName.Text
    psw = txtPassword.Text
    url = "[url=https://reg.]https://reg.[/url]=" & id & "&password=" & psw & "&submit=%B5%C7%A1%A1%C2%BC"
    exe = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
    Shell exe + Space(1) + url, 1
End Sub

这样就可以了.

163Login.rar (1.99 KB)

[url]http://jwgl.ynau.[/url]学号&pswd=密码

Option Explicit

Private Sub Command1_Click()
  Dim WebOBJ As Object, I As Long, vTag As Object, STR1 As String
  Set WebOBJ = Web1.Document.All("FrontPage_Form1").Document
  If WebOBJ Is Nothing Then Exit Sub
  On Error Resume Next
  For I = 0 To WebOBJ.All.Length - 1
    Set vTag = WebOBJ.All(I)
    STR1 = LCase(vTag.Type)
    If STR1 = "text" Or STR1 = "password" Then
      If vTag.Name = "name" Then vTag.Value = "用户名"      '此处输入你的用户名
      If vTag.Name = "pswd" Then vTag.Value = "password"    '此处输入你的密码
    End If
  Next
  Web1.Document.All("FrontPage_Form1").Document.All("Submit").Click
End Sub


Private Sub Form_Load()
  Web1.Navigate "http://jwgl.ynau.
End Sub

用上面的方法需要自己分析网页，以上代码只适合那个什么云南农业大学的网页。其它的网站的话要自己再按具体情况修改代码。