Code:
Dim postmessage As String = TextBox4.Text
Dim url As String = "http://www.facebook.com/ajax/updatestatus.php?__a=1"
Dim post As String = "action=PROFILE_UPDATE&profile_id=1563964051&status=z" & postmessage & "&target_id=560692823&app_id=&& composer_id=c4cf9ecf8826c75127813708&hey_kid_im_a_composer=true& display_context=profile&post_form_id=ab9062ba2d05c3f1c7877384e4cf5a79&fb_dtsg=lWSzz&lsd&_log_display_context=profile&ajax_log=1&post_form_id_source=AsyncRequest"
Dim encoding As New UTF8Encoding
Dim postbytes As Byte() = encoding.GetBytes(post)
Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
request.ContentType = "application/x-www-form-urlencoded"
request.CookieContainer = logincookie
request.ContentLength = postbytes.Length
request.Method = "POST"
request.AllowAutoRedirect = False
Dim requeststream As Stream = request.GetRequestStream
requeststream.Write(postbytes, 0, postbytes.Length)
requeststream.Close()
Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
Dim reader As New StreamReader(response.GetResponseStream())
Dim theusercp As String = reader.ReadToEnd
RichTextBox3.Text = theusercp
TextBox3.Text = "560692823"
ovako?
ne nece da radi, a izgleda da ne radi ni logovanje, kada povezem sa webbrowser kontrolom logovanje - na:
Code:
Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd
RichTextBox1.Text = thepage
u username inputu se pojavi username, u passwordu ostane prazno a stranica da poruku vas browser ne podrzava cookies.
Da li neko zna gde gresim?