[tuttomax]

[code=vbnet]
Private Function GetToken() As String
Dim Token As String = String.Empty
Using Web As New WebClient
Dim source As String = Web.DownloadString(String.Format("http://ask.fm/AlessandroAfo"))
Dim Regex As New Regex("(?=var AUTH_TOKEN).*")
Token = Regex.Matches(source)(0).Value.Replace("var AUTH_TOKEN = """, "").Replace(""";", "")
End Using
Return Token
End Function

Private Function Domanda(ByVal qustion As String) As String
Dim token As String = GetToken()
If String.IsNullOrEmpty(token) Then Throw New Exception("Token vuoto")
Dim data As String = String.Format("authenticity_token={0}&question%5Bquestion_text%5D={1}%3F&question%5Bforce_anonymous%5D=&authenticity_token={0}", token, qustion)
Dim bytes() As Byte = New UTF8Encoding().GetBytes(data)

Dim Request As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://ask.fm/AlessandroAfo/questions/create"), HttpWebRequest)
Request.KeepAlive = True
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
Request.Referer = "http://ask.fm/AlessandroAfo"
Request.UserAgent = "Mozilla/5.0 (Windows NT 6.2; WOW64; rv:23.0) Gecko/20100101 Firefox/23.0"

Request.Headers.Add("Accept-Language: it-IT,it;q=0.8,en-US;q=0.5,en;q=0.3")
Request.Host = "ask.fm"

Request.ContentLength = bytes.Length

Using [Stream] As Stream = Request.GetRequestStream
[Stream].Write(bytes, 0, bytes.Length)
End Using

Using Response As HttpWebResponse = Request.GetResponse
Using Stream As Stream = Response.GetResponseStream
Using Reader As New StreamReader(Stream)
Return Reader.ReadToEnd
End Using
End Using
End Using

End Function
[/code]
this is mycode but this is the response

[Xanii]

This was posted in the wrong section and has been moved. Please be mindful of where you are posting.

---

What exactly are you trying to do, and what is the problem you are experiencing?

[tuttomax]

thanks
i'm trying to send a question to ask with httpwebrequest but the response must be a html with a text Question sent or similar thing

p.s.: sorry for bad english

[Xanii]

I'm sorry, I can't really understand your question. Can you send me an example response you are trying to receive?

[tuttomax]

this:

[Shebang]

Why is this in PHP discussion? His code is VB.Net.

[-Correct]

I'll be asking a staff member to move this thread in few seconds.

[tuttomax]

i resolve i insert allowredirect how i close?

[Xiledcore]

Since you requested a close, this thread is now closed.