1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Dim AccesPage As New System.Net.WebClient
Try
LeMessage = "username=" & lavaleurusername
LeMessage &= "&password=" & lavaleurpassword
LeMessage &= "<=" & lavaleurlt
LeMessage &= "&_eventId=submit"
Dim PostArray As Byte() = System.Text.Encoding.Default.GetBytes(LeMessage)
Dim PostStream As System.IO.Stream = AccesPage.OpenWrite(leliendusitesanslesdonnees, "POST")
PostStream.Write(PostArray, 0, PostArray.Length)
PostStream.Close()
AccesPage.Dispose()
Catch ex As Exception
AccesPage.Dispose()
End Try |
Partager