程序代码：

Private Sub Form_Load()
If Text1.Text = Empty Or Text2.Text = Empty Then
MsgBox "用户名和密码皆不能为空!", vbCritical, "提示！"


Else

Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate "http://www."
End If
End Sub

ie.navigate "http://www." & text1.text & "&vpassword=" & text2.text

程序代码：

Private Sub Form_Load()
If Text1.Text = Empty Or Text2.Text = Empty Then
MsgBox "用户名和密码皆不能为空!", vbCritical, "提示！"


Else

Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate "http://www." & text1.text & "vpassword=" & text2.text
End If
End Sub

程序代码：

修正代码如下：


Private Sub Command1_Click()

If Text1.Text = Empty Or Text2.Text = Empty Then
MsgBox "用户名和密码皆不能为空!", vbCritical, "提示！"


Else

Set ie = CreateObject("internetexplorer.application")
ie.Visible = True

ie.navigate "http://www." & Text1.Text & "vpassword=" & Text2.Text




End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Text2.PasswordChar = "*"
End Sub
可惜的是服务器上不知道搞了什么名堂只能成功登陆一次，再登陆就跳转到指定页