Private Sub OkButton_Click(sender As Object, e As EventArgs) Handles _
  OkButton.Click
Dim Name As String
Dim Username As String
Dim PasW As String
Dim PasWB As String
Dim email As String
Dim emailB As String
 
Name = NameTextBox.Text
Username = UsernameTextBox.Text
PasW = PasswordTextBox.Text
PasWB = PasswordBTextBox.Text
email = EmailTextBox.Text
emailB = EmailBTextBox.Text
 
WebBrowser1.Document.GetElementById("jform_name").InnerText = Name
WebBrowser1.Document.GetElementById("jform_username").InnerText = Username
WebBrowser1.Document.GetElementById("jform_password2").InnerText = PasW
WebBrowser1.Document.GetElementById("jform_password1").InnerText = PasWB
WebBrowser1.Document.GetElementById("jform_email1").InnerText = email
WebBrowser1.Document.GetElementById("jform_email2").InnerText = emailB
WebBrowser1.Document.Forms(0).InvokeMember("submit")
'HIER SOLL ER WARTEN BIS DIE SEITE KOMPLETT GELADEN IST (wenn das formular 
' abgeschickt wurde ändert sich die url in 
' :http://127.0.0.1/index.php/component/users/?view=registration&layout=complet
' e)
 
Dim wc As New WebClient
Dim uri As New Uri("http://localhost/php/id.php?uid=" & UsernameTextBox.Text)
Dim resultstring As String = wc.DownloadString(uri)
MessageBox.Show(resultstring)
 
End Sub