Func Login($Server,$User,$Pwd)
    Local $recv, $strrecv, $recvarray, $url,$sKey

    $sKey = _StringToMD5($Server & $User & $Pwd)

;~  ConsoleWrite($sKey & @crlf)

    $packet = "GET /bot/?user=" & $User & "&pass=" & $Pwd & "&chfr=" &$sKey & " HTTP/1.1" & @CRLF & _
        "Host: " & $Server & @CRLF & _
        "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3" & @CRLF & _
        "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
        "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
        "Accept-Encoding: gzip,deflate" & @CRLF & _
        "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
        "Keep-Alive: 115" & @CRLF & _
        "Proxy-Connection: keep-alive" & @CRLF & @CRLF

    TCPStartup()
        $ip = TCPNameToIP($Server)
        $socket = TCPConnect($ip, 80)

        TCPSend($socket, $packet)

        Do
            $recv &= StringTrimLeft(TCPRecv($socket, 1024, 1), 2)
;~          ConsoleWrite(HexToString($recv))
        Until StringInStr($recv, "0d0a0d0a")

        TCPCloseSocket($socket)
    TCPShutdown()

    $strrecv = HexToString($recv)
    $recvarray = StringSplit($strrecv, @CRLF, 1)

    If StringInStr($recvarray[UBound($recvarray,1) -1], "successful") Then
        $login = True
    Else
        $login = False
    EndIf

    Return $login
EndFunc