Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'PROCESSA PAGINA
- Dim postData As String = "codCarrinho=&" & IDPrincial & ":btProsseguir=Continuar&" & LoginFormName(X) & "=&" & IDPrincial & ":password=" & Lista.Items(0).SubItems(1).Text & "&" & IDPrincial & ":username=" & Lista.Items(0).Text & "&flow=¶mIngresso=&subviagens=&suggestAddressUpdate="
- Dim encoding As New UTF8Encoding
- Dim byteData As Byte() = encoding.GetBytes(postData)
- Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://carrinho.americanas.com.br/CustomerWeb" & LoginFormAction(X)), HttpWebRequest)
- postReq.Method = "POST"
- postReq.KeepAlive = True
- postReq.CookieContainer = Cookies
- postReq.Referer = "https://minhaconta.americanas.com.br/#/customer/home"
- postReq.ContentType = "application/x-www-form-urlencoded"
- postReq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.116 Safari/537.36"
- postReq.ContentLength = byteData.Length
- Dim postreqstream As Stream = postReq.GetRequestStream()
- postreqstream.Write(byteData, 0, byteData.Length)
- postreqstream.Close()
- Dim postresponse As HttpWebResponse
- postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
- Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
- Dim XX As String = postreqreader.ReadToEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement