1672 lines
71 KiB
VB.net
1672 lines
71 KiB
VB.net
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 |