628 lines
25 KiB
VB.net
628 lines
25 KiB
VB.net
Imports System.IO
|
|
Imports System.Net
|
|
|
|
Public Class Form195
|
|
Private Sub Form195_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim lines1a() As String = File.ReadAllLines(théme)
|
|
|
|
If lines1a(0) = 2 Then
|
|
Me.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.ForeColor = Color.White
|
|
Button1.ForeColor = Color.White
|
|
ElseIf lines1a(0) = 3 Then
|
|
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
End If
|
|
|
|
ComboBox1.Items.Clear()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(cozip & str)
|
|
ComboBox1.Items.Add(str)
|
|
ComboBox1.Items.Remove("utilisateur.txt")
|
|
ComboBox1.Items.Remove("index.php")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
ComboBox1.SelectedIndex = 0
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
ComboBox1.Items.Remove(tchat.utilisateurnom)
|
|
If ComboBox1.Items.Count = 0 Then
|
|
Timer1.Start()
|
|
Else
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Timer1.Stop()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(cozip & str)
|
|
ComboBox1.Items.Add(str)
|
|
ComboBox1.Items.Remove("utilisateur.txt")
|
|
ComboBox1.Items.Remove("index.php")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
ComboBox1.SelectedIndex = 0
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
ComboBox1.Items.Remove(tchat.utilisateurnom)
|
|
If ComboBox1.Items.Count = 0 Then
|
|
Timer1.Start()
|
|
Else
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
|
|
Button1.Text = "Ajouter: " & ComboBox1.SelectedItem
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & ComboBox1.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(cozip & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If Directory.Exists(cozip & "amis") = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
vérifi()
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
creados()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
Sub addamis()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/amis/demandes d'amis/" & tchat.utilisateurnom), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
addamis2()
|
|
Catch ex As Exception
|
|
Timer7.Start()
|
|
End Try
|
|
End Sub
|
|
Sub creados()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/amis"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
creados2
|
|
Catch ex As Exception
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
Sub creados2()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/amis/mes amis"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
creados3()
|
|
Catch ex As Exception
|
|
Timer4.Start()
|
|
End Try
|
|
End Sub
|
|
Sub creados3()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/amis/demandes d'amis"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
creados4()
|
|
Catch ex As Exception
|
|
Timer5.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
Timer2.Stop()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & ComboBox1.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(cozip & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If Directory.Exists(cozip & "amis") = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
vérifi()
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
creados()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
|
Timer3.Stop()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/amis"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
creados3()
|
|
Catch ex As Exception
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
|
|
Timer4.Stop()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/amis/mes amis"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
creados2()
|
|
Catch ex As Exception
|
|
Timer4.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
|
|
Timer5.Stop()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/amis/demandes d'amis"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
creados4()
|
|
Catch ex As Exception
|
|
Timer5.Start()
|
|
End Try
|
|
End Sub
|
|
Sub creados4()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/amis/demandes d'amis en attentes"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
vérifi()
|
|
Catch ex As Exception
|
|
Timer6.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
|
|
Timer6.Stop()
|
|
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/amis/demandes d'amis en attentes"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
vérifi()
|
|
Catch ex As Exception
|
|
Timer6.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
|
|
Timer7.Stop()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/amis/demandes d'amis/" & tchat.utilisateurnom), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
addamis2()
|
|
Catch ex As Exception
|
|
Timer7.Start()
|
|
End Try
|
|
End Sub
|
|
Sub addamis2()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & tchat.utilisateurnom & "/amis/demandes d'amis en attentes/" & ComboBox1.SelectedItem), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
MsgBox("Une demande d'amis a bien été envoyer a: " & ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
ComboBox1.Items.Clear()
|
|
tchat.ftp()
|
|
Close()
|
|
Catch ex As Exception
|
|
Timer8.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
|
|
Timer8.Stop()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & tchat.utilisateurnom & "/amis/demandes d'amis en attentes/" & ComboBox1.SelectedItem), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
MsgBox("Une demande d'amis a bien été envoyer a: " & ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
ComboBox1.Items.Clear()
|
|
tchat.ftp()
|
|
Close()
|
|
Catch ex As Exception
|
|
Timer8.Start()
|
|
End Try
|
|
End Sub
|
|
Sub vérifi()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & ComboBox1.SelectedItem & "/amis/mes amis/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(cozip & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
If Directory.Exists(cozip & tchat.utilisateurnom) = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
MsgBox("Vous être déjà amis avec: " & ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
vérifi2()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer9.Start()
|
|
End Try
|
|
End Sub
|
|
Sub vérifi2()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & ComboBox1.SelectedItem & "/amis/demandes d'amis/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(cozip & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
If Directory.Exists(cozip & tchat.utilisateurnom) = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
MsgBox("Vous avez déjà envoyé une demande d'amis a: " & ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
vérifi3
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Timer10.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
|
|
Timer9.Stop()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & ComboBox1.SelectedItem & "/amis/mes amis/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(cozip & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
If Directory.Exists(cozip & tchat.utilisateurnom) = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
MsgBox("Vous être déjà amis avec: " & ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
vérifi2()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Timer9.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
|
|
Timer10.Stop()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & ComboBox1.SelectedItem & "/amis/demandes d'amis/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(cozip & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
If Directory.Exists(cozip & tchat.utilisateurnom) = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
MsgBox("Vous avez déjà envoyé une demande d'amis a: " & ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
vérifi3()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Timer10.Start()
|
|
End Try
|
|
End Sub
|
|
Sub vérifi3()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & tchat.utilisateurnom & "/amis/demandes d'amis/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(cozip & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
If Directory.Exists(cozip & ComboBox1.SelectedItem) = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
MsgBox(ComboBox1.SelectedItem & " Vous a déjà envoyé une demande d'amis", MsgBoxStyle.Information)
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
addamis()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Timer11.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
|
|
Timer11.Stop()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & tchat.utilisateurnom & "/amis/demandes d'amis/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(cozip & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
If Directory.Exists(cozip & ComboBox1.SelectedItem) = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
MsgBox(ComboBox1.SelectedItem & " Vous a déjà envoyé une demande d'amis", MsgBoxStyle.Information)
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
addamis()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Timer11.Start()
|
|
End Try
|
|
End Sub
|
|
End Class |