Shoutbox

code:

---

Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL
As Variant)
     If (pDisp Is Web1.object) Then
         While Web1.Busy
             DoEvents
         Wend
         If URL = "https://gmail.google.com/" Then
             If InStr(Web1.Document.documentElement.outerHTML, "A
Google approach to email.") <> 0 Then
                 Web1.Document.frames(0).Document.All("Email").Value =
"<Your Email>"
                 Web1.Document.frames(0).Document.All("Passwd").Value
= "<Your Pasword>"
                 Web1.Document.frames(0).Document.All("null").Click
             End If
     End If
     Exit Sub
End Sub

---

Here is how to log-in at the gmail page for example.