FB Login vb.net

http://192.168.177.1/cgi-bin/webcm?getpage=../html/de/menus/menu2.html&login:command/password=pwd

    Public Function write(ByVal Link As String, Optional ByVal data As String = "") As String
        Dim uri As New Uri(Link)
        If (uri.Scheme = uri.UriSchemeHttp) Then
            Dim request As HttpWebRequest = CType(HttpWebRequest.Create(uri), HttpWebRequest)
            request.Method = WebRequestMethods.Http.Post
            request.Timeout = 5000
            request.AllowWriteStreamBuffering = True
            request.AllowAutoRedirect = True
            request.AuthenticationLevel = Security.AuthenticationLevel.None
            request.ContentLength = data.Length
            request.ContentType = "application/x-www-form-urlencoded"
            Dim wStream As IO.Stream = request.GetRequestStream
            Dim writer As New IO.StreamWriter(wStream)
            writer.Write(data)
            writer.Close()
            Dim response As HttpWebResponse
            response = CType(request.GetResponse(), HttpWebResponse)
            Dim reader As New IO.StreamReader(response.GetResponseStream(), System.Text.Encoding.Unicode)
            Dim tmp As String = reader.ReadToEnd()
            reader.Close()
            response.Close()
            Return tmp
        End If
    End Function

    Public Function Write(ByVal Link As String, Optional ByVal data As String = "") As String
        Dim uri As New Uri(Link)
        If (uri.Scheme = uri.UriSchemeHttp) Then
            Dim request As HttpWebRequest = CType(HttpWebRequest.Create(uri), HttpWebRequest)
            request.Method = WebRequestMethods.Http.Post
            request.Timeout = 5000
            request.ContentLength = data.Length
            request.ContentType = "application/x-www-form-urlencoded"
            'request.CachePolicy = noCache
            request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            request.UserAgent = "Mozilla/5.0 (compatible; MSIE 7.0; Windows NT 6.0; WOW64; SLCC1; .NET CLR 2.0.50727; .NET CLR 3.0.04506; Media Center PC 5.0; .NET CLR 3.5.21022; .NET CLR 1.1.4322)"
            Dim wStream As IO.Stream = request.GetRequestStream
            Dim writer As New IO.StreamWriter(wStream)
            writer.Write(data)
            writer.Close()

            Dim response As HttpWebResponse
            response = CType(request.GetResponse, HttpWebResponse)
            Dim reader As New IO.StreamReader(response.GetResponseStream(), System.Text.Encoding.Default)
            Dim tmp As String = reader.ReadToEnd()
            reader.Close()
            response.Close()
            Return tmp
        End If
        Return vbNullString
    End Function