用xmlhttp登录7k7k，并用动态WebBrowser验证登录结果，直接上代码：
Dim web1 As Object
Private Sub Form_Load()
Set web1 = Me.Controls.Add("SHELL.EXPLORER.2", "web1", Me)
web1.Visible = True
web1.Move 0, 0, 1020, 744
web1.object.Silent = True
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "POST", "http://zc., False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "Connection", "Keep-Alive"
xmlhttp.send ("username=tst7k01&password=tst7k01")
web1.object.Navigate "http://www., 0
Set xmlhttp = Nothing
End Sub
源码文件：

没去验证，对你这个代码保留意见

XMLHTTP 验证，这步应该能过，但 COOKIE 呢？
然后你转 WebBrowser 里，前面 XMLHTTP 里取的和COOKIE 怎么解决的？
不把这个COOKIE移到 WebBrowser 里，服务器怎么知道你登录了？
除非这个网站在本地保存了 Cookie ，并且能被 WebBrowser  读取，也被承认。