Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
    With WebBrowser1
        .Visible = True
        .Navigate("http://cl.ikariam.com/index.php?")
        'Do While .Busy = True : DoEvents() : Loop
        .Document.loginform.login.Value = "tudireccion"
        .Document.loginform.pwd.Value = "tupassword"
        .Document.loginform.submit.Click()
    End With

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With WebBrowser1
            .Visible = True
            .Navigate("http://cl.ikariam.com/index.php?")
            .Document.GetElementById("login").InnerText = "user"
            .Document.GetElementById("pwd").InnerText = "pass"
            .Document.GetElementById("submit").InvokeMember("click")

        End With

    End Sub

<script type="text/‭‬‭‬javascript">
        function changeAction(type) {    
           if (type != "register" && document.loginForm.universe.value == '') {
              alert('Kein Uni ausgewählt');
           } else {
              if(type == "login") {
                 var url = "http://" + document.loginForm.universe.value + "/index.php?action=loginAvatar&function=login";
                 document.getElementById('loginForm').action = url;                    } else if (type=="getpw") {
                 var url = "http://" + document.loginForm.universe.value + "/game/reg/mail.php";
                 document.loginForm.action = url;
                  document.loginForm.submit();
              } else if(type == "register") {
                 var url = "http://" + document.registerForm.universe.value + "/index.php?action=newPlayer";
                 document.registerForm.action = url;
              }

<td><input id="login" name="name" type="text" class="login" /></td>
                    <td><input id="pwd"  name="password" type="password" class="pass" /></td>
                    <td><input type="submit" class="button" value="Conéctate" /></td>

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With WebBrowser1
            .Visible = True
            WindowState = FormWindowState.Maximized
            .Navigate("http://cl.ikariam.com/index.php")
        
        End With

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        With WebBrowser1
            .Document.GetElementById("login").InnerText = "user"
            .Document.GetElementById("pwd").InnerText = "pass"
            .Document.GetElementById("submit").InvokeMember("Click")
            
        End With
     End Sub
End Class