Dim texx as string
                Dim web As Net.HttpWebRequest = Net.WebRequest.Create( _
                  "http://www.meinlogin.de/eingeloggt.php")
                web.CookieContainer = coc
                texx = ""
                Dim response As Net.HttpWebResponse = web.GetResponse()
                Dim reader As IO.StreamReader = New IO.StreamReader( _
                  response.GetResponseStream())
                Dim str As String = reader.ReadLine()
                Do Until str = "</html>"
                    texx &= str & Chr(13) & Chr(10)
                    str = reader.ReadLine()
                Loop
                dra = True
                If texx.Contains("login.gif") Or texx = "" Then
                    MsgBox("nicht angemeldet!")
                    dra = False
                    setter() 'Webbrowser sichtbar + button3.sichtab
                    WebBrowser1.Navigate( _
                      "http://www.meinlogin.de/eingeloggt.php")
                    Do Until WebBrowser1.ReadyState = _
                    WebBrowserReadyState.Complete
                        Application.DoEvents()
                    Loop
                    Do Until dra 'dra=true bei button3_click
                        Application.DoEvents()
                    Loop
 
                    coc.SetCookies(WebBrowser1.Url, WebBrowser1.Document.Cookie)
                    MsgBox(coc.GetCookies(New Uri( _
                      "http://welt1.travian.de/dorf1.php"))(0))
                End If

__________________________________
irgendwas wird schon rauskommen^^