[VB] VB6 - Auto Login Zing Me

With WebBrowser1
.Navigate "http://login.me.zing.vn/"
Do While .Busy
DoEvents
Loop
.Document.GetElementById("u").InnerText = "Ten Dang Nhap"
.Document.GetElementById("pp").InnerText = "Mat Khau"

For Each ww In .Document.All
If ww.GetAttribute("name") = "bntlogin" Then ww.Click
Next
End With