程序代码：

Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" Then
LoginMessage = Inet1.OpenURL("这段为登录页面地址&username=" & Trim(Text1.Text) & "&password=" & Trim(Text2.Text))
If InStr(LoginMessage, "登录成功") <> 0 Then
MsgBox "登录成功,点击确定进入论坛!!!"
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & "http://www.k-miss.in", vbNormalFocus
Else
MsgBox "未能成功登录,请检查你输入的用户名及密码是否正确!!!"
End If

Else
MsgBox "请输入帐号密码"
End If
End Sub
Private Sub Form_Load()
Me.Caption = ""
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "登录"
End Sub

http://www.k-miss.in/member.php?mod=logging&action=login

LoginMessage = Inet1.OpenURL("这段为登录页面地址&username=" & Trim(Text1.Text) & "&password=" & Trim(Text2.Text))