Se loguer a site en vb prob sur un bouton

Bonjour,
je me permet de me tourner vers vous pour un petit problème en visual basic (2010)

voila j'ai trouver sur le net un petit code pour se loguer sur des site et je l'ai un peu adapter mais il ne marche pas et je ne comprend pas pourquoi
pensez vous que l'un d entre vous peut m'aider ?

Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'text box 1 = login textbox2 = password tapé
Dim ie1 As WebBrowser
Dim ie2 As WebBrowser
Dim ie3 As WebBrowser

' se souvenir des identifiants
If CheckBox4.Checked Then
My.Settings.Save()

End If

'connexion à MOODLE
If CheckBox1.Checked Then
ie1 = New WebBrowser
ie1.Visible = False
ie1.Navigate("https://www.montpellier-bs.com")

' attente de fin de chargement
Do Until ie1.ReadyState = 4
Application.DoEvents()
Loop
WebBrowser1.Document.GetElementById("username").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("password").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.All("submit").InvokeMember("click")
'ici je n'arrive pas à trouver le nom du bouton
End If



'Connexion à OPENPORTAL
If CheckBox2.Checked Then
ie2 = New WebBrowser
ie2.Visible = False
ie2.Navigate("http://gscm.openportal.fr/OpDotNet/Noyau/Login.aspx?idcom=2&&url=L09wRG90TmV0L05veWF1L0RlZmF1bHQuYXNweD9pZGNvbT0yJg%3d%3d")


' attente de fin de chargement
Do Until ie2.ReadyState = 4
Application.DoEvents()
Loop
WebBrowser2.Document.GetElementById("UcAuthentification1_UcLogin1_txtLogin").SetAttribute("value", TextBox1.Text)
WebBrowser2.Document.GetElementById("UcAuthentification1_UcLogin1_txtPassword").SetAttribute("value", TextBox2.Text)
WebBrowser2.Document.GetElementById("UcAuthentification1$UcLogin1$btnEntrer").InvokeMember("click")
End If

'connexion à mail
If CheckBox3.Checked Then
ie3 = New WebBrowser
ie3.Visible = False
ie3.Navigate("https://www.google.com/a/ei-montpellier.com/ServiceLogin")


' attente de fin de chargement
Do Until ie3.ReadyState = 4
Application.DoEvents()
Loop
WebBrowser3.Document.GetElementById("Email").SetAttribute("value", TextBox1.Text)
WebBrowser3.Document.GetElementById("Passwd").SetAttribute("value", TextBox2.Text)
WebBrowser3.Document.GetElementById("signIn").InvokeMember("click")
End If
End Sub


End Class


je précise que les deux webbrowser ne sont visible que pour moi , pour vérifier que ça se connecte bien, a terme je mettrais une barre de progression ou système d'icône
merci d avance
par contre la partie google ne marche pas
je précise aussi que je fait cet application dans un but personnel pour pouvoir me logger de mon téléphone à tous les site de mon école (wp7 acceptant le vb)