Imports System.ComponentModel Imports System.IO Imports System.Net Imports System.Net.Mail Public Class tchat Public utilisateurnom As String = "" Dim coderecup As String = "" Dim delcoderecup As String = "" Dim start As Integer = 0 Dim amislist As Integer = 0 Private Sub tchat_Load(sender As Object, e As EventArgs) Handles MyBase.Load opentchat = 1 Dim lines1a() As String = File.ReadAllLines(théme) If lines1a(0) = 2 Then Me.BackColor = Color.FromArgb(64, 64, 64) TabPage1.BackColor = Color.FromArgb(64, 64, 64) TabPage2.BackColor = Color.FromArgb(64, 64, 64) TabPage3.BackColor = Color.FromArgb(64, 64, 64) TabPage4.BackColor = Color.FromArgb(64, 64, 64) TextBox1.BackColor = Color.FromArgb(64, 64, 64) TextBox2.BackColor = Color.FromArgb(64, 64, 64) TextBox3.BackColor = Color.FromArgb(64, 64, 64) PictureBox1.BackColor = Color.FromArgb(64, 64, 64) ListBox1.BackColor = Color.FromArgb(64, 64, 64) ListBox2.BackColor = Color.FromArgb(64, 64, 64) ListBox3.BackColor = Color.FromArgb(64, 64, 64) ListBox4.BackColor = Color.FromArgb(64, 64, 64) Label1.BackColor = Color.FromArgb(64, 64, 64) Label2.BackColor = Color.FromArgb(64, 64, 64) Label3.BackColor = Color.FromArgb(64, 64, 64) Label4.BackColor = Color.FromArgb(64, 64, 64) Label5.BackColor = Color.FromArgb(64, 64, 64) Label5.BackColor = Color.FromArgb(64, 64, 64) Label6.BackColor = Color.FromArgb(64, 64, 64) MenuStrip1.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem2.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem3.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem4.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem5.BackColor = Color.FromArgb(64, 64, 64) MenuStrip1.ForeColor = Color.White Label1.ForeColor = Color.White Label2.ForeColor = Color.White Label3.ForeColor = Color.White Label4.ForeColor = Color.White Label5.ForeColor = Color.White Label6.ForeColor = Color.White TextBox1.ForeColor = Color.White TextBox2.ForeColor = Color.White TextBox3.ForeColor = Color.White ListBox1.ForeColor = Color.White ListBox2.ForeColor = Color.White ListBox3.ForeColor = Color.White ListBox4.ForeColor = Color.White ToolStripMenuItem1.ForeColor = Color.White ToolStripMenuItem2.ForeColor = Color.White ToolStripMenuItem3.ForeColor = Color.White ToolStripMenuItem4.ForeColor = Color.White ToolStripMenuItem5.ForeColor = Color.White ToolTip1.BackColor = Color.FromArgb(64, 64, 64) ToolTip1.ForeColor = Color.White ElseIf lines1a(0) = 3 Then Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) TabPage1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) TabPage2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) TabPage3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) TabPage4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) TextBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) TextBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ListBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ListBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ListBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ListBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MenuStrip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MenuStrip1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Label5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Label6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) TextBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) TextBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ListBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ListBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ListBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ListBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolTip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolTip1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) End If Dim lines1() As String = File.ReadAllLines(compteco) utilisateurnom = lines1(0) Try Dim fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/") 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 ftp() If ListBox3.Items.Count > 0 And start = 0 Then Form1.NotifyIcon1.BalloonTipTitle = "Tchat en ligne" Form1.NotifyIcon1.BalloonTipText = "Vous avez: " & ListBox3.Items.Count & " Nouvelle demande d'amis" Form1.NotifyIcon1.ShowBalloonTip(1) start = 1 amislist = ListBox3.Items.Count ElseIf ListBox3.Items.Count > amislist Then Form1.NotifyIcon1.BalloonTipTitle = "Tchat en ligne" Form1.NotifyIcon1.BalloonTipText = "Vous avez: " & ListBox3.Items.Count & " Nouvelle demande d'amis" Form1.NotifyIcon1.ShowBalloonTip(1) amislist = ListBox3.Items.Count End If 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 Timer1.Start() End Try End Sub Sub addamis() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/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() addamis2() Catch ex As Exception Timer2.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/" & utilisateurnom & "/") 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 ftp() If ListBox3.Items.Count > 0 And start = 0 Then Form1.NotifyIcon1.BalloonTipTitle = "Tchat en ligne" Form1.NotifyIcon1.BalloonTipText = "Vous avez: " & ListBox3.Items.Count & " Nouvelle demande d'amis" Form1.NotifyIcon1.ShowBalloonTip(1) start = 1 amislist = ListBox3.Items.Count ElseIf ListBox3.Items.Count > amislist Then Form1.NotifyIcon1.BalloonTipTitle = "Tchat en ligne" Form1.NotifyIcon1.BalloonTipText = "Vous avez: " & ListBox3.Items.Count & " Nouvelle demande d'amis" Form1.NotifyIcon1.ShowBalloonTip(1) amislist = ListBox3.Items.Count End If 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 Timer1.Start() End Try End Sub Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick Timer2.Stop() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/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() addamis2() Catch ex As Exception Timer2.Start() End Try End Sub Sub addamis2() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/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() addamis3() Catch ex As Exception Timer3.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/" & utilisateurnom & "/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() addamis3() Catch ex As Exception Timer3.Start() End Try End Sub Sub addamis3() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/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() addamis4() Catch ex As Exception Timer4.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/" & utilisateurnom & "/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() addamis4() Catch ex As Exception Timer4.Start() End Try End Sub Sub addamis4() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/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() ftp() Catch ex As Exception Timer5.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/" & utilisateurnom & "/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() ftp() Catch ex As Exception Timer4.Start() End Try End Sub Sub ftp() ListBox1.Items.Clear() ListBox2.Items.Clear() ListBox3.Items.Clear() ListBox4.Items.Clear() Try Dim fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/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 ListBox1.Items.Add(str) ListBox2.Items.Add(str) str = sr.ReadLine() End While sr.Close() If ListBox1.Items.Count = 0 Then Label1.Show() Label2.Show() Else Label1.Hide() Label2.Hide() ListBox1.SetSelected(0, True) End If ftp2() 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 fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/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 ListBox1.Items.Add(str) ListBox2.Items.Add(str) str = sr.ReadLine() End While sr.Close() If ListBox1.Items.Count = 0 Then Label1.Show() Label2.Show() Else Label1.Hide() Label2.Hide() ListBox1.SetSelected(0, True) End If ftp2() Catch ex As Exception Timer6.Start() End Try End Sub Sub ftp2() Try Dim fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & 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 ListBox3.Items.Add(str) str = sr.ReadLine() End While sr.Close() If ListBox3.Items.Count = 0 Then Label3.Show() Else Label3.Hide() End If ftp3() Catch ex As Exception Timer7.Start() End Try End Sub Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick Timer7.Stop() Try Dim fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & 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 ListBox3.Items.Add(str) str = sr.ReadLine() End While sr.Close() If ListBox3.Items.Count = 0 Then Label3.Show() Else Label3.Hide() End If ftp3() Catch ex As Exception Timer7.Start() End Try End Sub Sub ftp3() Try Dim fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/amis/demandes d'amis en attentes/") 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 ListBox4.Items.Add(str) str = sr.ReadLine() End While sr.Close() If ListBox4.Items.Count = 0 Then Label4.Show() Else Label4.Hide() End If 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 fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/amis/demandes d'amis en attentes/") 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 ListBox4.Items.Add(str) str = sr.ReadLine() End While sr.Close() If ListBox4.Items.Count = 0 Then Label4.Show() Else Label4.Hide() End If Catch ex As Exception Timer8.Start() End Try End Sub Private Sub ActualiserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem.Click ftp() If ListBox3.Items.Count > 0 And start = 0 Then Form1.NotifyIcon1.BalloonTipTitle = "Tchat en ligne" Form1.NotifyIcon1.BalloonTipText = "Vous avez: " & ListBox3.Items.Count & " Nouvelle demande d'amis" Form1.NotifyIcon1.ShowBalloonTip(1) start = 1 amislist = ListBox3.Items.Count ElseIf ListBox3.Items.Count > amislist Then Form1.NotifyIcon1.BalloonTipTitle = "Tchat en ligne" Form1.NotifyIcon1.BalloonTipText = "Vous avez: " & ListBox3.Items.Count & " Nouvelle demande d'amis" Form1.NotifyIcon1.ShowBalloonTip(1) amislist = ListBox3.Items.Count End If End Sub Private Sub AjjouterUnAmisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjjouterUnAmisToolStripMenuItem.Click Form195.ShowDialog() End Sub Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click If ListBox3.SelectedItem = "" Then MsgBox("Merci de sélectionnez une demande d'amis", MsgBoxStyle.Exclamation) Else refuse() End If End Sub Sub refuse() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & ListBox3.SelectedItem & "/amis/demandes d'amis en attentes/" & utilisateurnom & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse refuse2() Catch ex As Exception Timer9.Start() End Try End Sub Sub refuse2() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/amis/demandes d'amis/" & ListBox3.SelectedItem & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse MsgBox("La demande d'amis de: " & ListBox3.SelectedItem & " a bien été refusez", MsgBoxStyle.Information) ftp() amislist = ListBox3.Items.Count 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 ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & ListBox3.SelectedItem & "/amis/demandes d'amis en attentes/" & utilisateurnom & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse refuse2() 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 ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/amis/demandes d'amis/" & ListBox3.SelectedItem & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse MsgBox("La demande d'amis de: " & ListBox3.SelectedItem & " a bien été refusez", MsgBoxStyle.Information) ftp() amislist = ListBox3.Items.Count Catch ex As Exception Timer10.Start() End Try End Sub Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click If ListBox4.SelectedItem = "" Then MsgBox("Merci de sélectionnez une demande d'amis", MsgBoxStyle.Exclamation) Else annuler() End If End Sub Sub annuler() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/amis/demandes d'amis en attentes/" & ListBox4.SelectedItem & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse annuler2() Catch ex As Exception Timer11.Start() End Try End Sub Sub annuler2() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & ListBox4.SelectedItem & "/amis/demandes d'amis/" & utilisateurnom & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse MsgBox("La demande d'amis a: " & ListBox4.SelectedItem & " a bien été annulez", MsgBoxStyle.Information) ftp() Catch ex As Exception Timer12.Start() End Try End Sub Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick Timer11.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/amis/demandes d'amis en attentes/" & ListBox4.SelectedItem & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse annuler2() Catch ex As Exception Timer11.Start() End Try End Sub Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick Timer12.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & ListBox4.SelectedItem & "/amis/demandes d'amis/" & utilisateurnom & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse MsgBox("La demande d'amis a: " & ListBox4.SelectedItem & " a bien été annulez", MsgBoxStyle.Information) ftp() Catch ex As Exception Timer12.Start() End Try End Sub Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click If ListBox3.SelectedItem = "" Then MsgBox("Merci de sélectionnez une demande d'amis", MsgBoxStyle.Exclamation) Else Gencode() End If End Sub Function Gencode() As Integer Dim NumRandom As Integer Dim Rand As Random = New Random Dim NumStr As String Try NumRandom = (Rand.Next(1, 999999)) NumStr = Strings.Right("" & NumRandom.ToString(), 6) Label5.Text = "LM-" & NumStr & "-" & ListBox3.SelectedItem.ToString & "-" & utilisateurnom addmessage() Catch ex As Exception End Try End Function Sub addmessage() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/message/" & Label5.Text), 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() addmessage2() Catch ex As Exception Timer13.Start() End Try End Sub Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick Timer13.Stop() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/message/" & Label5.Text), 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() addmessage2() Catch ex As Exception Timer13.Start() End Try End Sub Sub addmessage2() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/message/" & Label5.Text & "/" & 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() addmessage3() Catch ex As Exception Timer14.Start() End Try End Sub Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick Timer14.Stop() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/message/" & Label5.Text & "/" & 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() addmessage3() Catch ex As Exception Timer14.Start() End Try End Sub Sub addmessage3() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/message/" & Label5.Text & "/" & ListBox3.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() addmessage4() Catch ex As Exception Timer15.Start() End Try End Sub Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick Timer15.Stop() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/message/" & Label5.Text & "/" & ListBox3.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() addmessage4() Catch ex As Exception Timer15.Start() End Try End Sub Sub addmessage4() Dim sw1 As New StreamWriter(cozip & utilisateurnom & ".txt") sw1.WriteLine(0) sw1.Close() Dim sw2 As New StreamWriter(cozip & ListBox3.SelectedItem.ToString & ".txt") sw2.WriteLine(0) sw2.Close() Dim sw3 As New StreamWriter(cozip & "message.txt") sw3.WriteLine("") sw3.Close() Dim sw4 As New StreamWriter(cozip & "code.txt") sw4.WriteLine(Label5.Text) sw4.Close() addmessage5() End Sub Sub addmessage5() Try My.Computer.Network.UploadFile(cozip & utilisateurnom & ".txt", ipserver & "/message/" & Label5.Text & "/" & utilisateurnom & "/" & utilisateurnom & ".txt") File.Delete(cozip & utilisateurnom & ".txt") addmessage6() Catch ex As Exception Timer16.Start() End Try End Sub Sub addmessage6() Try My.Computer.Network.UploadFile(cozip & ListBox3.SelectedItem & ".txt", ipserver & "/message/" & Label5.Text & "/" & ListBox3.SelectedItem & "/" & ListBox3.SelectedItem & ".txt") File.Delete(cozip & ListBox3.SelectedItem & ".txt") addmessage7() Catch ex As Exception Timer17.Start() End Try End Sub Sub addmessage7() Try My.Computer.Network.UploadFile(cozip & "message.txt", ipserver & "/message/" & Label5.Text & "/message.txt") File.Delete(cozip & "message.txt") addmessage8() Catch ex As Exception Timer18.Start() End Try End Sub Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick Timer16.Stop() Try My.Computer.Network.UploadFile(cozip & utilisateurnom & ".txt", ipserver & "/message/" & Label5.Text & "/" & utilisateurnom & "/" & utilisateurnom & ".txt") File.Delete(cozip & utilisateurnom & ".txt") addmessage6() Catch ex As Exception Timer16.Start() End Try End Sub Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick Timer17.Stop() Try My.Computer.Network.UploadFile(cozip & ListBox3.SelectedItem & ".txt", ipserver & "/message/" & Label5.Text & "/" & ListBox3.SelectedItem & "/" & ListBox3.SelectedItem & ".txt") File.Delete(cozip & ListBox3.SelectedItem & ".txt") addmessage7() Catch ex As Exception Timer17.Start() End Try End Sub Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick Timer18.Stop() Try My.Computer.Network.UploadFile(cozip & "message.txt", ipserver & "/message/" & Label5.Text & "/message.txt") File.Delete(cozip & "message.txt") addmessage8() Catch ex As Exception Timer18.Start() End Try End Sub Sub addmessage8() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & ListBox3.SelectedItem & "/amis/demandes d'amis en attentes/" & utilisateurnom & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse addmessage9() Catch ex As Exception Timer19.Start() End Try End Sub Sub addmessage9() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/amis/demandes d'amis/" & ListBox3.SelectedItem & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse addmessage10() Catch ex As Exception Timer20.Start() End Try End Sub Sub addmessage10() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/utilisateur/" & ListBox3.SelectedItem & "/amis/mes amis/" & 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() addmessage11() Catch ex As Exception Timer21.Start() End Try End Sub Sub addmessage11() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox3.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() addmessage12() Catch ex As Exception Timer22.Start() End Try End Sub Sub addmessage12() Try My.Computer.Network.UploadFile(cozip & "code.txt", ipserver & "/utilisateur/" & ListBox3.SelectedItem & "/amis/mes amis/" & utilisateurnom & "/code.txt") addmessage13() Catch ex As Exception Timer23.Start() End Try End Sub Sub addmessage13() Try My.Computer.Network.UploadFile(cozip & "code.txt", ipserver & "/utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox3.SelectedItem & "/code.txt") addmessage14() Catch ex As Exception Timer24.Start() End Try End Sub Sub addmessage14() File.Delete(cozip & "code.txt") Label5.Text = "" MsgBox(ListBox3.SelectedItem & " est maintenant vôtre amis", MsgBoxStyle.Information) ftp() amislist = ListBox3.Items.Count End Sub Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick Timer19.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & ListBox3.SelectedItem & "/amis/demandes d'amis en attentes/" & utilisateurnom & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse addmessage9() Catch ex As Exception Timer19.Start() End Try End Sub Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick Timer20.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/amis/demandes d'amis/" & ListBox3.SelectedItem & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse addmessage10() Catch ex As Exception Timer20.Start() End Try End Sub Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick Timer21.Stop() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/utilisateur/" & ListBox3.SelectedItem & "/amis/mes amis/" & 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() addmessage11() Catch ex As Exception Timer21.Start() End Try End Sub Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick Timer22.Stop() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox3.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() addmessage12() Catch ex As Exception Timer22.Start() End Try End Sub Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick Timer23.Stop() Try My.Computer.Network.UploadFile(cozip & "code.txt", ipserver & "/utilisateur/" & ListBox3.SelectedItem & "/amis/mes amis/" & utilisateurnom & "/code.txt") addmessage13() Catch ex As Exception Timer23.Start() End Try End Sub Private Sub Timer24_Tick(sender As Object, e As EventArgs) Handles Timer24.Tick Timer24.Stop() Try My.Computer.Network.UploadFile(cozip & "code.txt", ipserver & "/utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox3.SelectedItem & "/code.txt") addmessage14() Catch ex As Exception Timer24.Start() End Try End Sub Private Sub ListBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedValueChanged If ListBox1.SelectedItem = "" Then MsgBox("Merci de sélectionnez une discussion", MsgBoxStyle.Exclamation) Else recupcode() End If End Sub Sub recupcode() Try My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox1.SelectedItem & "/code.txt", cozip & "code.txt") Dim lines1() As String = File.ReadAllLines(cozip & "code.txt") coderecup = lines1(0).ToString File.Delete(cozip & "code.txt") recupcode2() Catch ex As Exception Timer25.Start() End Try End Sub Private Sub Timer25_Tick(sender As Object, e As EventArgs) Handles Timer25.Tick Timer25.Stop() Try My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox1.SelectedItem & "/code.txt", cozip & "code.txt") Dim lines1() As String = File.ReadAllLines(cozip & "code.txt") coderecup = lines1(0).ToString File.Delete(cozip & "code.txt") recupcode2() Catch ex As Exception Timer25.Start() End Try End Sub Sub recupcode2() Timer26.Start() End Sub Private Sub Timer26_Tick(sender As Object, e As EventArgs) Handles Timer26.Tick Timer26.Stop() If ListBox1.SelectedItem = "" Then Else Try Label5.Text = coderecup Dim maj3 As New WebClient Dim vri3 As String = maj3.DownloadString(ipsite & "message/" & coderecup & "/message.txt") TextBox1.Text = vri3.ToString Timer26.Start() Catch ex As Exception Timer26.Start() End Try End If End Sub Private Sub Timer27_Tick(sender As Object, e As EventArgs) Handles Timer27.Tick Timer27.Stop() Try Dim maj3 As New WebClient Dim vri3 As String = maj3.DownloadString(ipsite & "message/" & coderecup & "/" & ListBox1.SelectedItem & "/" & ListBox1.SelectedItem & ".txt") If vri3 = 1 Then Label6.Text = ListBox1.SelectedItem & " est en train d'écrire..." Else Label6.Text = "" End If Timer27.Start() Catch ex As Exception Timer27.Start() End Try End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) If ListBox1.SelectedItem = "" Then Else If TextBox2.Text = "" Or TextBox2.Text = " " Then Dim sw1 As New StreamWriter(cozip & utilisateurnom & ".txt") sw1.WriteLine(0) sw1.Close() Try My.Computer.Network.UploadFile(cozip & utilisateurnom & ".txt", ipserver & "message/" & coderecup & "/" & utilisateurnom & "/" & utilisateurnom & ".txt") File.Delete(cozip & utilisateurnom & ".txt") Catch ex As Exception Timer28.Start() End Try Else Dim sw1 As New StreamWriter(cozip & utilisateurnom & ".txt") sw1.WriteLine(1) sw1.Close() Try My.Computer.Network.UploadFile(cozip & utilisateurnom & ".txt", ipserver & "message/" & coderecup & "/" & utilisateurnom & "/" & utilisateurnom & ".txt") File.Delete(cozip & ListBox1.SelectedItem & ".txt") Catch ex As Exception Timer28.Start() End Try End If End If End Sub Private Sub Timer28_Tick(sender As Object, e As EventArgs) Handles Timer28.Tick Timer28.Stop() Try My.Computer.Network.UploadFile(cozip & utilisateurnom & ".txt", ipserver & "message/" & coderecup & "/" & utilisateurnom & "/" & utilisateurnom & ".txt") File.Delete(cozip & utilisateurnom & ".txt") Catch ex As Exception Timer28.Start() End Try End Sub Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click If TextBox2.Text = "" Then TextBox3.Clear() MsgBox("Vous ne pouvez pas rien envoyer", MsgBoxStyle.Exclamation) Else TextBox3.Clear() TextBox3.AppendText(TextBox1.Text & vbNewLine) TextBox3.AppendText(utilisateurnom & ": " & TextBox2.Text) IO.File.WriteAllText(cozip & "message.txt", TextBox3.Text) Try My.Computer.Network.UploadFile(cozip & "message.txt", ipserver & "message/" & coderecup & "/message.txt") File.Delete(cozip & "message.txt") TextBox3.Clear() TextBox2.Clear() Catch ex As Exception Timer29.Start() End Try End If End Sub Private Sub Timer29_Tick(sender As Object, e As EventArgs) Handles Timer29.Tick Timer29.Stop() Try My.Computer.Network.UploadFile(cozip & "message.txt", ipserver & "message/" & coderecup & "/message.txt") File.Delete(cozip & "message.txt") TextBox3.Clear() TextBox2.Clear() Catch ex As Exception Timer29.Start() End Try End Sub Private Sub tchat_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing opentchat = 0 TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() End Sub Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click If ListBox1.SelectedItem = "" Then MsgBox("Merci de sélectionnez une discussion") Else Dim msg = MsgBox("Voulez-vous vraiment reset les messages avec: " & ListBox1.SelectedItem, MsgBoxStyle.YesNo) If msg = MsgBoxResult.Yes Then Dim sw1 As New StreamWriter(cozip & "message.txt") sw1.WriteLine("") sw1.Close() Try My.Computer.Network.UploadFile(cozip & "message.txt", ipserver & "message/" & coderecup & "/message.txt") File.Delete(cozip & "message.txt") MsgBox("Les messages avec: " & ListBox1.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information) Catch ex As Exception Timer30.Start() End Try Else MsgBox("Action annulez", MsgBoxStyle.Information) End If End If End Sub Private Sub Timer30_Tick(sender As Object, e As EventArgs) Handles Timer30.Tick Timer30.Stop() Try My.Computer.Network.UploadFile(cozip & "message.txt", ipserver & "message/" & coderecup & "/message.txt") File.Delete(cozip & "message.txt") MsgBox("Les messages avec: " & ListBox1.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information) Catch ex As Exception Timer30.Start() End Try End Sub Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox2.KeyDown If e.KeyData = Keys.Enter Then If TextBox2.Text = "" Then TextBox3.Clear() MsgBox("Vous ne pouvez pas rien envoyer", MsgBoxStyle.Exclamation) Else TextBox3.Clear() TextBox3.AppendText(TextBox1.Text & vbNewLine) TextBox3.AppendText(utilisateurnom & ": " & TextBox2.Text) IO.File.WriteAllText(cozip & "message.txt", TextBox3.Text) Try My.Computer.Network.UploadFile(cozip & "message.txt", ipserver & "message/" & coderecup & "/message.txt") File.Delete(cozip & "message.txt") TextBox3.Clear() TextBox2.Clear() Catch ex As Exception Timer29.Start() End Try End If End If End Sub Private Sub TextBox2_TextChanged_1(sender As Object, e As EventArgs) Handles TextBox2.TextChanged If ListBox1.SelectedItem = "" Then Else If TextBox2.Text = "" Or TextBox2.Text = " " Then Dim sw1 As New StreamWriter(cozip & utilisateurnom & ".txt") sw1.WriteLine(0) sw1.Close() Try My.Computer.Network.UploadFile(cozip & utilisateurnom & ".txt", ipserver & "message/" & coderecup & "/" & utilisateurnom & "/" & utilisateurnom & ".txt") File.Delete(cozip & utilisateurnom & ".txt") Catch ex As Exception Timer28.Start() End Try Else Dim sw1 As New StreamWriter(cozip & utilisateurnom & ".txt") sw1.WriteLine(1) sw1.Close() Try My.Computer.Network.UploadFile(cozip & utilisateurnom & ".txt", ipserver & "message/" & coderecup & "/" & utilisateurnom & "/" & utilisateurnom & ".txt") File.Delete(cozip & ListBox1.SelectedItem & ".txt") Catch ex As Exception Timer28.Start() End Try End If End If End Sub Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click If ListBox2.SelectedItem = "" Then MsgBox("Merci de sélectionnez un ami", MsgBoxStyle.Exclamation) Else Try My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox2.SelectedItem & "/code.txt", cozip & "/code.txt") Dim lines1() As String = File.ReadAllLines(cozip & "code.txt") delcoderecup = lines1(0).ToString delamis() Catch ex As Exception Timer31.Start() End Try End If End Sub Private Sub Timer31_Tick(sender As Object, e As EventArgs) Handles Timer31.Tick Timer31.Stop() Try My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & utilisateurnom & "amis/mes amis/" & ListBox2.SelectedItem & "/code.txt", cozip & "/code.txt") Dim lines1() As String = File.ReadAllLines(cozip & "code.txt") delcoderecup = lines1(0).ToString delamis() Catch ex As Exception Timer31.Start() End Try End Sub Sub delamis() Dim msg = MsgBox("Voulez-vous vraiment supprimer " & ListBox2.SelectedItem & " de vos amis", MsgBoxStyle.YesNo) If msg = MsgBoxResult.Yes Then delamis8() Else MsgBox("Action annuler", MsgBoxStyle.Information) End If End Sub Sub delamis2() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/message.txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis3() Catch ex As Exception Timer32.Start() End Try End Sub Private Sub Timer32_Tick(sender As Object, e As EventArgs) Handles Timer32.Tick Timer32.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/message.txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis3() Catch ex As Exception Timer32.Start() End Try End Sub Sub delamis3() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/" & ListBox2.SelectedItem & "/" & ListBox2.SelectedItem & ".txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis4() Catch ex As Exception Timer33.Start() End Try End Sub Private Sub Timer33_Tick(sender As Object, e As EventArgs) Handles Timer33.Tick Timer33.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/" & ListBox2.SelectedItem & "/" & ListBox2.SelectedItem & ".txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis4() Catch ex As Exception Timer33.Start() End Try End Sub Sub delamis4() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/" & utilisateurnom & "/" & utilisateurnom & ".txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis5() Catch ex As Exception Timer34.Start() End Try End Sub Private Sub Timer34_Tick(sender As Object, e As EventArgs) Handles Timer34.Tick Timer34.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/" & utilisateurnom & "/" & utilisateurnom & ".txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis5() Catch ex As Exception Timer34.Start() End Try End Sub Sub delamis5() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/" & ListBox2.SelectedItem & "/" & ListBox2.SelectedItem & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis6() Catch ex As Exception Timer35.Start() End Try End Sub Private Sub Timer35_Tick(sender As Object, e As EventArgs) Handles Timer35.Tick Timer35.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/" & ListBox2.SelectedItem & "/" & ListBox2.SelectedItem & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis6() Catch ex As Exception Timer35.Start() End Try End Sub Sub delamis6() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/" & utilisateurnom & "/" & utilisateurnom & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis7() Catch ex As Exception Timer36.Start() End Try End Sub Private Sub Timer36_Tick(sender As Object, e As EventArgs) Handles Timer36.Tick Timer36.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/" & utilisateurnom & "/" & utilisateurnom & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis7() Catch ex As Exception Timer36.Start() End Try End Sub Sub delamis7() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis8() Catch ex As Exception Timer37.Start() End Try End Sub Private Sub Timer37_Tick(sender As Object, e As EventArgs) Handles Timer37.Tick Timer37.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "message/" & delcoderecup & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis8() Catch ex As Exception Timer37.Start() End Try End Sub Sub delamis8() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "utilisateur/" & ListBox2.SelectedItem & "/amis/mes amis/" & utilisateurnom & "/code.txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis9() Catch ex As Exception Timer38.Start() End Try End Sub Private Sub Timer38_Tick(sender As Object, e As EventArgs) Handles Timer38.Tick Timer38.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "utilisateur/" & ListBox2.SelectedItem & "/amis/mes amis/" & utilisateurnom & "/code.txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis9() Catch ex As Exception Timer38.Start() End Try End Sub Sub delamis9() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "utilisateur/" & ListBox2.SelectedItem & "/amis/mes amis/" & utilisateurnom & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis10() Catch ex As Exception Timer39.Start() End Try End Sub Private Sub Timer39_Tick(sender As Object, e As EventArgs) Handles Timer39.Tick Timer39.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "utilisateur/" & ListBox2.SelectedItem & "/amis/mes amis/" & utilisateurnom & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis10() Catch ex As Exception Timer39.Start() End Try End Sub Sub delamis10() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox2.SelectedItem & "/code.txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis11() Catch ex As Exception Timer40.Start() End Try End Sub Private Sub Timer40_Tick(sender As Object, e As EventArgs) Handles Timer40.Tick Timer40.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox2.SelectedItem & "/code.txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis11() Catch ex As Exception Timer40.Start() End Try End Sub Sub delamis11() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox2.SelectedItem & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis12() Catch ex As Exception Timer41.Start() End Try End Sub Private Sub Timer41_Tick(sender As Object, e As EventArgs) Handles Timer41.Tick Timer41.Stop() Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "utilisateur/" & utilisateurnom & "/amis/mes amis/" & ListBox2.SelectedItem & "/") ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse delamis12() Catch ex As Exception Timer41.Start() End Try End Sub Sub delamis12() Try Dim MyMailMessage As New MailMessage() Dim SMTPServer As New SmtpClient("mail48.lwspanel.com") Dim message = "nouvelle conversaton a supprimer: " & delcoderecup MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr") MyMailMessage.To.Add("contact@lecteur-media.fr") MyMailMessage.Subject = ("conversaton a supprimer") MyMailMessage.Body = (message) SMTPServer.Port = ("587") 'Port SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT") SMTPServer.EnableSsl = True SMTPServer.Send(MyMailMessage) 'Envoi delamis13() Catch ex As Exception Timer42.Start() End Try End Sub Sub delamis13() delcoderecup = "" MsgBox("L’utilisateur: " & ListBox2.SelectedItem & " n'est plus votre ami", MsgBoxStyle.Information) MsgBox("Vos message von être supprimer", MsgBoxStyle.Information) ftp() End Sub Private Sub Timer42_Tick(sender As Object, e As EventArgs) Handles Timer42.Tick Timer42.Stop() Try Dim MyMailMessage As New MailMessage() Dim SMTPServer As New SmtpClient("mail48.lwspanel.com") Dim message = "nouvelle conversaton a supprimer: " & delcoderecup MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr") MyMailMessage.To.Add("contact@lecteur-media.fr") MyMailMessage.Subject = ("conversaton a supprimer") MyMailMessage.Body = (message) SMTPServer.Port = ("587") 'Port SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT") SMTPServer.EnableSsl = True SMTPServer.Send(MyMailMessage) 'Envoi delamis13() Catch ex As Exception Timer42.Start() End Try End Sub Private Sub Timer43_Tick(sender As Object, e As EventArgs) Handles Timer43.Tick Timer43.Stop() If ListBox1.SelectedItem = "" Then PictureBox1.Enabled = False TextBox2.Clear() TextBox2.Enabled = False TextBox1.Clear() TextBox3.Clear() Label5.Text = "" Else PictureBox1.Enabled = True TextBox2.Enabled = True End If Timer43.Start() End Sub Private Sub Timer44_Tick(sender As Object, e As EventArgs) Handles Timer44.Tick Timer44.Stop() ftp() If ListBox3.Items.Count > 0 And start = 0 Then Form1.NotifyIcon1.BalloonTipTitle = "Tchat en ligne" Form1.NotifyIcon1.BalloonTipText = "Vous avez: " & ListBox3.Items.Count & " nouvelle demande d'amis" Form1.NotifyIcon1.ShowBalloonTip(1) start = 1 amislist = ListBox3.Items.Count ElseIf ListBox3.Items.Count > amislist Then Form1.NotifyIcon1.BalloonTipTitle = "Tchat en ligne" Form1.NotifyIcon1.BalloonTipText = "Vous avez: " & ListBox3.Items.Count & " nouvelle demande d'amis" Form1.NotifyIcon1.ShowBalloonTip(1) amislist = ListBox3.Items.Count End If Timer44.Start() End Sub End Class