1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Dim ID As String = "str_login=XXXX", MDP As String = "str_password=XXXX"
Dim Source As String = "http://extranet-xxxxx.com/app/Effectifs/adherent.php?isw=2400&ish=1263&sid=tM6HGmRvZPFaSK4jx3dr"
Dim RequeteWeb As Net.WebRequest = Net.WebRequest.Create(Source)
Dim Donnees As String = ID & MDP
Dim ByteArray As Byte() = Text.Encoding.UTF8.GetBytes(Donnees)
RequeteWeb.Method = "POST"
RequeteWeb.ContentLength = ByteArray.Length
RequeteWeb.ContentType = "application/x-www-form-urlencoded"
Dim DataStream As Stream = RequeteWeb.GetRequestStream
DataStream.Write(ByteArray, 0, ByteArray.Length)
DataStream.Close()
Dim ResponseWeb As Net.WebResponse = RequeteWeb.GetResponse
MsgBox(CType(ResponseWeb, Net.HttpWebResponse).StatusDescription)
DataStream = ResponseWeb.GetResponseStream
Dim Reader As New StreamReader(DataStream)
Dim ResponseString As String = Reader.ReadToEnd
Reader.Close()
DataStream.Close()
ResponseWeb.Close() |
Partager