1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Dim HttpWRequest As HttpWebRequest = CType(WebRequest.Create(page), HttpWebRequest)
HttpWResponse = CType(HttpWRequest.GetResponse, HttpWebResponse)
sr = New StreamReader(HttpWResponse.GetResponseStream,System.Text.Encoding.Default)
contenu = sr.ReadToEnd
sr.Close()
sr = Nothing
SWFichier = File.AppendText(My.Application.Info.DirectoryPath "\rep_membres_info_nom\Membres_" & NomMembreTorrent & ".txt") ' crée ou si existe ajoute
SWFichier.WriteLine(contenu)
SWFichier.Close()
SWFichier = Nothing
contenu = ""
HttpWRequest = Nothing
HttpWResponse = Nothing
ListePage(NumMembreEnCours + 1) |
Partager