Imports System.ComponentModel Imports System.IO Imports System.IO.Compression Imports System.Net Imports System.Security.Cryptography Imports System.Text Public Class Form1 Dim pagesacctuel As Integer = 1 Public pagesacctuel2 As Integer = 1 Public pagesacctuel3 As Integer = 1 Dim nbimage As Integer = 0 Dim nbmiage2 As Integer = 0 Dim nbmiage3 As Integer = 0 Dim nmlogup As Integer = 0 Dim updategroup As Integer = 1 Dim updateautovar As Integer = -1 Dim select4update As String = "" Dim recherche = 0 Public siteorganisation = "" Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load SplashScreen1.Close() Dim lines1() As String = File.ReadAllLines(connecter) If lines1(0) = 1 Then start() Else Form2.Show() Visible = False Hide() ShowInTaskbar = False End If End Sub Sub start() ComboBox3.Enabled = False Label24.Enabled = False Dim lines1() As String = File.ReadAllLines(dosconnextion & "clecrypt.txt") Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0)) Dim keyBytes() As Byte = Encoding.UTF8.GetBytes(crypCLM) Dim Crypto As New DESCryptoServiceProvider() Crypto.Key = keyBytes Crypto.IV = keyBytes Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor() Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length) clescrypte = Encoding.UTF8.GetString(donné) Dim lines2() As String = File.ReadAllLines(dosconnextion & "serveur.txt") Dim Resultatbyte2() As Byte = Convert.FromBase64String(lines2(0)) Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes(clescrypte) Dim Crypto2 As New DESCryptoServiceProvider() Crypto2.Key = keyBytes2 Crypto2.IV = keyBytes2 Dim Icrypto2 As ICryptoTransform = Crypto2.CreateDecryptor() Dim donné2() As Byte = Icrypto2.TransformFinalBlock(Resultatbyte2, 0, Resultatbyte2.Length) Dim ipserveur = Encoding.UTF8.GetString(donné2) Dim Resultatbyte3() As Byte = Convert.FromBase64String(lines2(1)) Dim keyBytes3() As Byte = Encoding.UTF8.GetBytes(clescrypte) Dim Crypto3 As New DESCryptoServiceProvider() Crypto3.Key = keyBytes3 Crypto3.IV = keyBytes3 Dim Icrypto3 As ICryptoTransform = Crypto3.CreateDecryptor() Dim donné3() As Byte = Icrypto3.TransformFinalBlock(Resultatbyte3, 0, Resultatbyte3.Length) Dim ipsite = Encoding.UTF8.GetString(donné3) Dim Resultatbyte4() As Byte = Convert.FromBase64String(lines2(2)) Dim keyBytes4() As Byte = Encoding.UTF8.GetBytes(clescrypte) Dim Crypto4 As New DESCryptoServiceProvider() Crypto4.Key = keyBytes4 Crypto4.IV = keyBytes4 Dim Icrypto4 As ICryptoTransform = Crypto4.CreateDecryptor() Dim donné4() As Byte = Icrypto4.TransformFinalBlock(Resultatbyte4, 0, Resultatbyte4.Length) Dim idftp = Encoding.UTF8.GetString(donné4) Dim Resultatbyte5() As Byte = Convert.FromBase64String(lines2(3)) Dim keyBytes5() As Byte = Encoding.UTF8.GetBytes(clescrypte) Dim Crypto5 As New DESCryptoServiceProvider() Crypto5.Key = keyBytes5 Crypto5.IV = keyBytes5 Dim Icrypto5 As ICryptoTransform = Crypto5.CreateDecryptor() Dim donné5() As Byte = Icrypto5.TransformFinalBlock(Resultatbyte5, 0, Resultatbyte5.Length) Dim passftp = Encoding.UTF8.GetString(donné5) CLMipsite = ipsite CLMPipserveur = ipserveur CLMid = idftp CLMpass = passftp Try My.Computer.Network.DownloadFile(CLMipsite & "/CLM/mail/mailconfig.txt", dosrepertoire & "/mailconfig.txt") Dim mailread1() As String = File.ReadAllLines(dosrepertoire & "/mailconfig.txt") File.Delete(dosrepertoire & "/mailconfig.txt") Dim Resultatbyte6() As Byte = Convert.FromBase64String(mailread1(0)) Dim keyBytes6() As Byte = Encoding.UTF8.GetBytes(clescrypte) Dim Crypto6 As New DESCryptoServiceProvider() Crypto6.Key = keyBytes6 Crypto6.IV = keyBytes6 Dim Icrypto6 As ICryptoTransform = Crypto6.CreateDecryptor() Dim donné6() As Byte = Icrypto6.TransformFinalBlock(Resultatbyte6, 0, Resultatbyte6.Length) CLMsmtp = Encoding.UTF8.GetString(donné6) Dim Resultatbyte7() As Byte = Convert.FromBase64String(mailread1(1)) Dim keyBytes7() As Byte = Encoding.UTF8.GetBytes(clescrypte) Dim Crypto7 As New DESCryptoServiceProvider() Crypto7.Key = keyBytes7 Crypto7.IV = keyBytes7 Dim Icrypto7 As ICryptoTransform = Crypto7.CreateDecryptor() Dim donné7() As Byte = Icrypto7.TransformFinalBlock(Resultatbyte7, 0, Resultatbyte7.Length) CLMsmtpuser = Encoding.UTF8.GetString(donné7) Dim Resultatbyte8() As Byte = Convert.FromBase64String(mailread1(2)) Dim keyBytes8() As Byte = Encoding.UTF8.GetBytes(clescrypte) Dim Crypto8 As New DESCryptoServiceProvider() Crypto8.Key = keyBytes8 Crypto8.IV = keyBytes8 Dim Icrypto8 As ICryptoTransform = Crypto8.CreateDecryptor() Dim donné8() As Byte = Icrypto8.TransformFinalBlock(Resultatbyte8, 0, Resultatbyte8.Length) CLMsmtpprot = Encoding.UTF8.GetString(donné8) Dim Resultatbyte9() As Byte = Convert.FromBase64String(mailread1(3)) Dim keyBytes9() As Byte = Encoding.UTF8.GetBytes(clescrypte) Dim Crypto9 As New DESCryptoServiceProvider() Crypto9.Key = keyBytes9 Crypto9.IV = keyBytes9 Dim Icrypto9 As ICryptoTransform = Crypto9.CreateDecryptor() Dim donné9() As Byte = Icrypto9.TransformFinalBlock(Resultatbyte9, 0, Resultatbyte9.Length) CLMsmtpuserpass = Encoding.UTF8.GetString(donné9) Catch ex As Exception End Try My.Computer.Network.DownloadFile(ipsite & "/CLM/config/nom.txt", dosrepertoire & "/nom.txt") Dim nameinstance() As String = File.ReadAllLines(dosrepertoire & "/nom.txt") File.Delete(dosrepertoire & "/nom.txt") nom = nameinstance(0) If File.Exists(dosconfig & "/profils.txt") = True Then Dim eaeaedfzad() As String = File.ReadAllLines(dosconfig & "/profils.txt") CLMprofil = eaeaedfzad(0) Else Dim sw1 As New StreamWriter(dosconfig & "/profils.txt") sw1.WriteLine("default") sw1.Close() CLMprofil = "default" End If My.Computer.Network.DownloadFile(ipsite & "/CLM/logiciel/profil/" & CLMprofil & "/configuration/lock.txt", dosconfig & "/lock.txt") Dim azeefzzqezr() As String = File.ReadAllLines(dosconfig & "/lock.txt") File.Delete(dosconfig & "/lock.txt") If azeefzzqezr(0) = 1 Then Label26.Text = "Les paramètres ont êtê blocker par votre organisation" Label26.Show() GunaGoogleSwitch1.Enabled = False Label23.Enabled = False GunaGoogleSwitch2.Enabled = False Label25.Enabled = False ComboBox4.Enabled = False If File.Exists(dosconfig & "/config.txt") = True Then File.Delete(dosconfig & "/config.txt") End If My.Computer.Network.DownloadFile(ipsite & "/CLM/logiciel/profil/" & CLMprofil & "/configuration/config.txt", dosconfig & "/config.txt") Dim afujrgferfeghez() As String = File.ReadAllLines(dosconfig & "/config.txt") If afujrgferfeghez(0) = 1 Then GunaGoogleSwitch1.Checked = True Else GunaGoogleSwitch1.Checked = False End If Dim registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser Dim mer As Integer = 0 Dim key As Microsoft.Win32.RegistryKey = registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) Dim vreg = Nothing If key.GetValue(Application.ProductName) Is Nothing Then vreg = 0 Else vreg = 1 End If If afujrgferfeghez(0) = 1 Then If vreg = 0 Then key.SetValue(Application.ProductName, Application.ExecutablePath, Microsoft.Win32.RegistryValueKind.String) End If Else If vreg = 1 Then key.DeleteValue(Application.ProductName) End If End If If afujrgferfeghez(1) = 1 Then GunaGoogleSwitch2.Checked = True If afujrgferfeghez(2) = 5 Then ComboBox4.SelectedItem = "5 Minutes" Timer1.Interval = 300000 Timer1.Start() ElseIf afujrgferfeghez(2) = 10 Then ComboBox4.SelectedItem = "10 Minutes" Timer1.Interval = 600000 Timer1.Start() ElseIf afujrgferfeghez(2) = 15 Then ComboBox4.SelectedItem = "15 Minutes" Timer1.Interval = 900000 Timer1.Start() ElseIf afujrgferfeghez(2) = 20 Then ComboBox4.SelectedItem = "20 Minutes" Timer1.Interval = 1200000 Timer1.Start() ElseIf afujrgferfeghez(2) = 25 Then ComboBox4.SelectedItem = "25 Minutes" Timer1.Interval = 1500000 Timer1.Start() ElseIf afujrgferfeghez(2) = 30 Then ComboBox4.SelectedItem = "30 Minutes" Timer1.Interval = 1800000 Timer1.Start() ElseIf afujrgferfeghez(2) = 35 Then ComboBox4.SelectedItem = "35 Minutes" Timer1.Interval = 2100000 Timer1.Start() ElseIf afujrgferfeghez(2) = 40 Then ComboBox4.SelectedItem = "40 Minutes" Timer1.Interval = 2400000 Timer1.Start() ElseIf afujrgferfeghez(2) = 45 Then ComboBox4.SelectedItem = "45 Minutes" Timer1.Interval = 2700000 Timer1.Start() ElseIf afujrgferfeghez(2) = 50 Then ComboBox4.SelectedItem = "50 Minutes" Timer1.Interval = 3000000 Timer1.Start() ElseIf afujrgferfeghez(2) = 55 Then ComboBox4.SelectedItem = "55 Minutes" Timer1.Interval = 3300000 Timer1.Start() ElseIf afujrgferfeghez(2) = 60 Then ComboBox4.SelectedItem = "60 Minutes" Timer1.Interval = 3600000 Timer1.Start() End If Else GunaGoogleSwitch2.Checked = False ComboBox4.Hide() End If Else Label26.Hide() If File.Exists(dosconfig & "/config.txt") = True Then Dim afujrgferfeghez() As String = File.ReadAllLines(dosconfig & "/config.txt") If afujrgferfeghez(0) = 1 Then GunaGoogleSwitch1.Checked = True Else GunaGoogleSwitch1.Checked = False End If Dim registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser Dim mer As Integer = 0 Dim key As Microsoft.Win32.RegistryKey = registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) Dim vreg = Nothing If key.GetValue(Application.ProductName) Is Nothing Then vreg = 0 Else vreg = 1 End If If afujrgferfeghez(0) = 1 Then If vreg = 0 Then key.SetValue(Application.ProductName, Application.ExecutablePath, Microsoft.Win32.RegistryValueKind.String) End If Else If vreg = 1 Then key.DeleteValue(Application.ProductName) End If End If If afujrgferfeghez(1) = 1 Then GunaGoogleSwitch2.Checked = True If afujrgferfeghez(2) = 5 Then ComboBox4.SelectedItem = "5 Minutes" Timer1.Interval = 300000 Timer1.Start() ElseIf afujrgferfeghez(2) = 10 Then ComboBox4.SelectedItem = "10 Minutes" Timer1.Interval = 600000 Timer1.Start() ElseIf afujrgferfeghez(2) = 15 Then ComboBox4.SelectedItem = "15 Minutes" Timer1.Interval = 900000 Timer1.Start() ElseIf afujrgferfeghez(2) = 20 Then ComboBox4.SelectedItem = "20 Minutes" Timer1.Interval = 1200000 Timer1.Start() ElseIf afujrgferfeghez(2) = 25 Then ComboBox4.SelectedItem = "25 Minutes" Timer1.Interval = 1500000 Timer1.Start() ElseIf afujrgferfeghez(2) = 30 Then ComboBox4.SelectedItem = "30 Minutes" Timer1.Interval = 1800000 Timer1.Start() ElseIf afujrgferfeghez(2) = 35 Then ComboBox4.SelectedItem = "35 Minutes" Timer1.Interval = 2100000 Timer1.Start() ElseIf afujrgferfeghez(2) = 40 Then ComboBox4.SelectedItem = "40 Minutes" Timer1.Interval = 2400000 Timer1.Start() ElseIf afujrgferfeghez(2) = 45 Then ComboBox4.SelectedItem = "45 Minutes" Timer1.Interval = 2700000 Timer1.Start() ElseIf afujrgferfeghez(2) = 50 Then ComboBox4.SelectedItem = "50 Minutes" Timer1.Interval = 3000000 Timer1.Start() ElseIf afujrgferfeghez(2) = 55 Then ComboBox4.SelectedItem = "55 Minutes" Timer1.Interval = 3300000 Timer1.Start() ElseIf afujrgferfeghez(2) = 60 Then ComboBox4.SelectedItem = "60 Minutes" Timer1.Interval = 3600000 Timer1.Start() End If Else GunaGoogleSwitch2.Checked = False ComboBox4.Hide() End If Else My.Computer.Network.DownloadFile(ipsite & "/CLM/logiciel/profil/" & CLMprofil & "/configuration/config.txt", dosconfig & "/config.txt") Dim afujrgferfeghez() As String = File.ReadAllLines(dosconfig & "/config.txt") If afujrgferfeghez(0) = 1 Then GunaGoogleSwitch1.Checked = True Else GunaGoogleSwitch1.Checked = False End If Dim registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser Dim mer As Integer = 0 Dim key As Microsoft.Win32.RegistryKey = registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) Dim vreg = Nothing If key.GetValue(Application.ProductName) Is Nothing Then vreg = 0 Else vreg = 1 End If If afujrgferfeghez(0) = 1 Then If vreg = 0 Then key.SetValue(Application.ProductName, Application.ExecutablePath, Microsoft.Win32.RegistryValueKind.String) End If Else If vreg = 1 Then key.DeleteValue(Application.ProductName) End If End If If afujrgferfeghez(1) = 1 Then GunaGoogleSwitch2.Checked = True If afujrgferfeghez(2) = 5 Then ComboBox4.SelectedItem = "5 Minutes" Timer1.Interval = 300000 Timer1.Start() ElseIf afujrgferfeghez(2) = 10 Then ComboBox4.SelectedItem = "10 Minutes" Timer1.Interval = 600000 Timer1.Start() ElseIf afujrgferfeghez(2) = 15 Then ComboBox4.SelectedItem = "15 Minutes" Timer1.Interval = 900000 Timer1.Start() ElseIf afujrgferfeghez(2) = 20 Then ComboBox4.SelectedItem = "20 Minutes" Timer1.Interval = 1200000 Timer1.Start() ElseIf afujrgferfeghez(2) = 25 Then ComboBox4.SelectedItem = "25 Minutes" Timer1.Interval = 1500000 Timer1.Start() ElseIf afujrgferfeghez(2) = 30 Then ComboBox4.SelectedItem = "30 Minutes" Timer1.Interval = 1800000 Timer1.Start() ElseIf afujrgferfeghez(2) = 35 Then ComboBox4.SelectedItem = "35 Minutes" Timer1.Interval = 2100000 Timer1.Start() ElseIf afujrgferfeghez(2) = 40 Then ComboBox4.SelectedItem = "40 Minutes" Timer1.Interval = 2400000 Timer1.Start() ElseIf afujrgferfeghez(2) = 45 Then ComboBox4.SelectedItem = "45 Minutes" Timer1.Interval = 2700000 Timer1.Start() ElseIf afujrgferfeghez(2) = 50 Then ComboBox4.SelectedItem = "50 Minutes" Timer1.Interval = 3000000 Timer1.Start() ElseIf afujrgferfeghez(2) = 55 Then ComboBox4.SelectedItem = "55 Minutes" Timer1.Interval = 3300000 Timer1.Start() ElseIf afujrgferfeghez(2) = 60 Then ComboBox4.SelectedItem = "60 Minutes" Timer1.Interval = 3600000 Timer1.Start() End If Else GunaGoogleSwitch2.Checked = False ComboBox4.Hide() End If End If End If Dim a256a() As String = File.ReadAllLines(théme) If a256a(0) = 0 Then ComboBox5.SelectedItem = "Claire" Else ComboBox5.SelectedItem = "Sombre" End If If File.Exists(dosconnextion & "/compte.txt") = True Then Dim dsddsa() As String = File.ReadAllLines(dosconnextion & "/compte.txt") If dsddsa(0) = "" Then Else My.Computer.Network.DownloadFile(ipsite & "/CLM/utilisateur/" & dsddsa(0) & "/mdp.txt", dosconnextion & "/mdp.txt") Dim dsddsa2() As String = File.ReadAllLines(dosconnextion & "/mdp.txt") File.Delete(dosconnextion & "/mdp.txt") If dsddsa(1) = dsddsa2(0) Then GroupBox7.Text = "Paramètres du compte: " & dsddsa(0) Label28.Text = "Nom du compte: " & dsddsa(0) My.Computer.Network.DownloadFile(ipsite & "/CLM/utilisateur/" & dsddsa(0) & "/grade.txt", dosconnextion & "/grade.txt") Dim dsddsa3() As String = File.ReadAllLines(dosconnextion & "/grade.txt") File.Delete(dosconnextion & "/grade.txt") If dsddsa3(0) = 1 Then Label29.Text = "Grade du compte: uploader" GunaAdvenceButton7.Text = "Accès panel uploader" ElseIf dsddsa3(0) = 2 Then Label29.Text = "Grade du compte: Administrateur" GunaAdvenceButton7.Text = "Accès panel Administrateur" End If If CLMsmtp = "" Then GunaAdvenceButton6.Enabled = False Else Try My.Computer.Network.DownloadFile(ipsite & "/CLM/utilisateur/" & dsddsa(0) & "/mail.txt", dosconnextion & "/mail.txt") File.Delete(dosconnextion & "/mail.txt") Catch ex As Exception GunaAdvenceButton6.Enabled = True GunaAdvenceButton6.Text = "Ajouter votre mail" End Try End If Else End If End If End If Dim fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserveur & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/") fwr.Credentials = New NetworkCredential(CLMid, CLMpass) fwr.Method = WebRequestMethods.Ftp.ListDirectory Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream()) Dim str As String = sr.ReadLine() While Not str Is Nothing ComboBox1.Items.Add(str) str = sr.ReadLine() End While sr.Close() ComboBox1.Items.Add("tout") ComboBox1.Items.Remove("index.html") ComboBox1.SelectedItem = "tout" NotifyIcon1.Text = nom Label18.Text = "Nom de l'instance: " & nom Label19.Text = "Version de l'instance: " & versionlogi Label20.Text = "Profils: " & CLMprofil My.Computer.Network.DownloadFile(ipsite & "/CLM/organisation/nom.txt", dosrepertoire & "nom.txt") My.Computer.Network.DownloadFile(ipsite & "/CLM/organisation/site.txt", dosrepertoire & "site.txt") My.Computer.Network.DownloadFile(ipsite & "/CLM/organisation/logo.jpg", dosrepertoire & "logo.jpg") Dim lines2az() As String = File.ReadAllLines(dosrepertoire & "nom.txt") Dim lines3az() As String = File.ReadAllLines(dosrepertoire & "site.txt") PictureBox29.Image = Image.FromFile(dosrepertoire & "logo.jpg") GunaAdvenceButton3.Image = PictureBox29.Image Label22.Text = "Nom de l'organisation: " & lines2az(0) siteorganisation = lines3az(0) File.Delete(dosrepertoire & "nom.txt") File.Delete(dosrepertoire & "site.txt") Label23.Text = "Démarer " & nom & " avec Windows" Dim fwr2 As FtpWebRequest fwr2 = FtpWebRequest.Create(ipserveur & "/CLM/logiciel/profil/") fwr2.Credentials = New NetworkCredential(CLMid, CLMpass) fwr2.Method = WebRequestMethods.Ftp.ListDirectory Dim sr2 As New StreamReader(fwr2.GetResponse().GetResponseStream()) Dim str2 As String = sr2.ReadLine() While Not str2 Is Nothing ComboBox3.Items.Add(str2) str2 = sr2.ReadLine() End While sr2.Close() ComboBox3.Items.Remove("index.html") ComboBox3.SelectedItem = CLMprofil Dim fichierok = 0 Dim fwr3 As FtpWebRequest fwr3 = FtpWebRequest.Create(ipserveur & "/CLM/logiciel/profil/" & CLMprofil & "/") fwr3.Credentials = New NetworkCredential(CLMid, CLMpass) fwr3.Method = WebRequestMethods.Ftp.ListDirectory Dim sr3 As New StreamReader(fwr3.GetResponse().GetResponseStream()) Dim str3 As String = sr3.ReadLine() While Not str3 Is Nothing If str3.Contains("fichier") = True Then fichierok = 1 Else End If str3 = sr3.ReadLine() End While sr3.Close() If fichierok = 1 Then Else ChromeTabcontrol1.TabPages.Remove(TabPage6) End If vérifiinstall() End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged pagesacctuel = 1 If ComboBox1.SelectedItem = "tout" Then If nbimage = 1 Then PictureBox2.Image.Dispose() ElseIf nbimage = 2 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf nbimage = 3 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf nbimage = 4 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf nbimage = 5 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf nbimage = 6 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf nbimage = 7 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() ElseIf nbimage = 8 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() ElseIf nbimage = 9 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() ElseIf nbimage = 10 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() PictureBox11.Image.Dispose() End If For Each fichier As String In IO.Directory.GetFiles(dostemp) Dim info As New IO.FileInfo(fichier) File.Delete(fichier) Next Dim maj1 As New WebClient Dim vri1 As String = maj1.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page.txt") If vri1 = 1 Then Button1.Enabled = False Button2.Enabled = False Else Button1.Enabled = False Button2.Enabled = True End If Label1.Text = pagesacctuel & "/" & vri1 Text = nom & ": " & ComboBox1.SelectedItem & " " & pagesacctuel & "/" & vri1 Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi.txt") nbimage = vri2 If vri2 = 1 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") PictureBox2.Show() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 2 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 3 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 4 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 5 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 6 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 7 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 8 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 9 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 10 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi10/image.jpg", dostemp & "/image10.jpg") PictureBox11.Image = Image.FromFile(dostemp & "/image10.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Show() Label30.Hide() Else Label30.Show() Label30.Text = "Aucun logiciel n'est disponible" End If Else If nbimage = 1 Then PictureBox2.Image.Dispose() ElseIf nbimage = 2 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf nbimage = 3 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf nbimage = 4 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf nbimage = 5 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf nbimage = 6 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf nbimage = 7 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() ElseIf nbimage = 8 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() ElseIf nbimage = 9 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() ElseIf nbimage = 10 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() PictureBox11.Image.Dispose() End If For Each fichier As String In IO.Directory.GetFiles(dostemp) Dim info As New IO.FileInfo(fichier) File.Delete(fichier) Next Dim maj1 As New WebClient Dim vri1 As String = maj1.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page.txt") If vri1 = 1 Then Button1.Enabled = False Button2.Enabled = False Else Button1.Enabled = False Button2.Enabled = True End If Label1.Text = pagesacctuel & "/" & vri1 Text = nom & ": " & ComboBox1.SelectedItem & " " & pagesacctuel & "/" & vri1 Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi.txt") nbimage = vri2 If vri2 = 1 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") PictureBox2.Show() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 2 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 3 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 4 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 5 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 6 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 7 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 8 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Hide() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 9 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Hide() Label30.Hide() ElseIf vri2 = 10 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi10/image.jpg", dostemp & "/image10.jpg") PictureBox11.Image = Image.FromFile(dostemp & "/image10.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Show() Label30.Hide() Else PictureBox2.Hide() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() Label30.Show() Label30.Text = "Aucun logiciel n'est disponible dans la catégorie: " & ComboBox1.SelectedItem End If End If End Sub Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing PictureBox29.Image.Dispose() File.Delete(dosrepertoire & "/logo.jpg") If nbimage = 1 Then PictureBox2.Image.Dispose() ElseIf nbimage = 2 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf nbimage = 3 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf nbimage = 4 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf nbimage = 5 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf nbimage = 6 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf nbimage = 7 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() ElseIf nbimage = 8 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() ElseIf nbimage = 9 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() Else PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() PictureBox11.Image.Dispose() End If If nbmiage2 = 1 Then PictureBox12.Image.Dispose() PictureBox12.Hide() End If For Each fichier As String In IO.Directory.GetFiles(dostemp) Dim info As New IO.FileInfo(fichier) File.Delete(fichier) Next Directory.Delete(dostemp) End Sub Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click If ComboBox1.SelectedItem = "tout" Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi1/nom.txt") Form6.CLMlient = "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi1/" Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image1.jpg") Form6.ShowDialog() Else My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/url.txt", dostemp & "/url.txt") Dim lines1() As String = File.ReadAllLines(dostemp & "/url.txt") File.Delete(dostemp & "/url.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & lines1(0) & "/nom.txt") Form6.CLMlient = lines1(0) Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image1.jpg") Try Form6.ShowDialog() Catch ex As Exception MsgBox(ex.ToString) End Try End If End Sub Sub vérifiinstall() ComboBox2.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosprogramefile) Dim info As New IO.FileInfo(fichier) ComboBox2.Items.Add(info.Name) Next Dim lines1() As String = File.ReadAllLines(dosinstall & "/page.txt") Label2.Text = pagesacctuel2 & "/" & lines1(0) Dim lines2() As String = File.ReadAllLines(dosinstall & "/page1/logi.txt") If lines1(0) = 1 Then Button4.Enabled = False Button3.Enabled = False Else Button4.Enabled = False Button3.Enabled = True End If If lines2(0) = 0 Then Label3.Show() updatelogi() Else Label3.Hide() vérifiinstall2() End If End Sub Sub vérifiinstall2() If nbmiage2 = 1 Then PictureBox12.Image.Dispose() ElseIf nbmiage2 = 2 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() ElseIf nbmiage2 = 3 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() ElseIf nbmiage2 = 4 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() ElseIf nbmiage2 = 5 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() ElseIf nbmiage2 = 6 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() PictureBox17.Image.Dispose() ElseIf nbmiage2 = 7 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() PictureBox17.Image.Dispose() PictureBox18.Image.Dispose() ElseIf nbmiage2 = 8 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() PictureBox17.Image.Dispose() PictureBox18.Image.Dispose() PictureBox19.Image.Dispose() ElseIf nbmiage2 = 9 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() PictureBox17.Image.Dispose() PictureBox18.Image.Dispose() PictureBox19.Image.Dispose() PictureBox20.Image.Dispose() ElseIf nbmiage2 = 10 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() PictureBox17.Image.Dispose() PictureBox18.Image.Dispose() PictureBox19.Image.Dispose() PictureBox20.Image.Dispose() PictureBox21.Image.Dispose() Else End If If Directory.Exists(dosinstall & "/page" & pagesacctuel2 & "/image/") = True Then For Each fichier As String In IO.Directory.GetFiles(dosinstall & "/page" & pagesacctuel2 & "/image/") Dim info As New IO.FileInfo(fichier) File.Delete(fichier) Next Directory.Delete(dosinstall & "/page" & pagesacctuel2 & "/image/") End If ListBox1.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosinstall & "/page" & pagesacctuel2 & "/") Dim info As New IO.FileInfo(fichier) ListBox1.Items.Add(fichier) Next Dim sw11 As New StreamWriter(dosinstall & "/page" & pagesacctuel2 & "/logi.txt") sw11.WriteLine(ListBox1.Items.Count) sw11.Close() Dim i As Integer = 1 While i <= ListBox1.Items.Count ListBox1.SelectedIndex = i - 1 My.Computer.FileSystem.CopyFile(ListBox1.SelectedItem & "/image.jpg", dosinstall & "/page" & pagesacctuel2 & "/image/image" & i & ".jpg") Dim sw1 As New StreamWriter(dosinstall & "/page" & pagesacctuel2 & "/image/lient" & i & ".txt") sw1.WriteLine(ListBox1.SelectedItem) sw1.Close() i = i + 1 End While If ListBox1.Items.Count = 1 Then PictureBox12.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image1.jpg") PictureBox12.Show() PictureBox13.Hide() PictureBox14.Hide() PictureBox15.Hide() PictureBox16.Hide() PictureBox17.Hide() PictureBox18.Hide() PictureBox19.Hide() PictureBox20.Hide() PictureBox21.Hide() ElseIf ListBox1.Items.Count = 2 Then PictureBox12.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image1.jpg") PictureBox13.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image2.jpg") PictureBox12.Show() PictureBox13.Show() PictureBox14.Hide() PictureBox15.Hide() PictureBox16.Hide() PictureBox17.Hide() PictureBox18.Hide() PictureBox19.Hide() PictureBox20.Hide() PictureBox21.Hide() ElseIf ListBox1.Items.Count = 3 Then PictureBox12.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image1.jpg") PictureBox13.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image2.jpg") PictureBox14.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image3.jpg") PictureBox12.Show() PictureBox13.Show() PictureBox14.Show() PictureBox15.Hide() PictureBox16.Hide() PictureBox17.Hide() PictureBox18.Hide() PictureBox19.Hide() PictureBox20.Hide() PictureBox21.Hide() ElseIf ListBox1.Items.Count = 4 Then PictureBox12.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image1.jpg") PictureBox13.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image2.jpg") PictureBox14.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image3.jpg") PictureBox15.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image4.jpg") PictureBox12.Show() PictureBox13.Show() PictureBox14.Show() PictureBox15.Show() PictureBox16.Hide() PictureBox17.Hide() PictureBox18.Hide() PictureBox19.Hide() PictureBox20.Hide() PictureBox21.Hide() ElseIf ListBox1.Items.Count = 5 Then PictureBox12.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image1.jpg") PictureBox13.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image2.jpg") PictureBox14.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image3.jpg") PictureBox15.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image4.jpg") PictureBox16.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image5.jpg") PictureBox12.Show() PictureBox13.Show() PictureBox14.Show() PictureBox15.Show() PictureBox16.Show() PictureBox17.Hide() PictureBox18.Hide() PictureBox19.Hide() PictureBox20.Hide() PictureBox21.Hide() ElseIf ListBox1.Items.Count = 6 Then PictureBox12.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image1.jpg") PictureBox13.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image2.jpg") PictureBox14.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image3.jpg") PictureBox15.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image4.jpg") PictureBox16.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image5.jpg") PictureBox17.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image6.jpg") PictureBox12.Show() PictureBox13.Show() PictureBox14.Show() PictureBox15.Show() PictureBox16.Show() PictureBox17.Show() PictureBox18.Hide() PictureBox19.Hide() PictureBox20.Hide() PictureBox21.Hide() ElseIf ListBox1.Items.Count = 7 Then PictureBox12.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image1.jpg") PictureBox13.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image2.jpg") PictureBox14.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image3.jpg") PictureBox15.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image4.jpg") PictureBox16.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image5.jpg") PictureBox17.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image6.jpg") PictureBox18.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image7.jpg") PictureBox12.Show() PictureBox13.Show() PictureBox14.Show() PictureBox15.Show() PictureBox16.Show() PictureBox17.Show() PictureBox18.Show() PictureBox19.Hide() PictureBox20.Hide() PictureBox21.Hide() ElseIf ListBox1.Items.Count = 8 Then PictureBox12.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image1.jpg") PictureBox13.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image2.jpg") PictureBox14.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image3.jpg") PictureBox15.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image4.jpg") PictureBox16.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image5.jpg") PictureBox17.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image6.jpg") PictureBox18.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image7.jpg") PictureBox19.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image8.jpg") PictureBox12.Show() PictureBox13.Show() PictureBox14.Show() PictureBox15.Show() PictureBox16.Show() PictureBox17.Show() PictureBox18.Show() PictureBox19.Show() PictureBox20.Hide() PictureBox21.Hide() ElseIf ListBox1.Items.Count = 9 Then PictureBox12.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image1.jpg") PictureBox13.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image2.jpg") PictureBox14.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image3.jpg") PictureBox15.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image4.jpg") PictureBox16.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image5.jpg") PictureBox17.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image6.jpg") PictureBox18.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image7.jpg") PictureBox19.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image8.jpg") PictureBox20.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image9.jpg") PictureBox12.Show() PictureBox13.Show() PictureBox14.Show() PictureBox15.Show() PictureBox16.Show() PictureBox17.Show() PictureBox18.Show() PictureBox19.Show() PictureBox20.Show() PictureBox21.Hide() ElseIf ListBox1.Items.Count = 10 Then PictureBox12.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image1.jpg") PictureBox13.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image2.jpg") PictureBox14.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image3.jpg") PictureBox15.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image4.jpg") PictureBox16.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image5.jpg") PictureBox17.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image6.jpg") PictureBox18.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image7.jpg") PictureBox19.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image8.jpg") PictureBox20.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image9.jpg") PictureBox21.Image = Image.FromFile(dosinstall & "/page" & pagesacctuel2 & "/image/image10.jpg") PictureBox12.Show() PictureBox13.Show() PictureBox14.Show() PictureBox15.Show() PictureBox16.Show() PictureBox17.Show() PictureBox18.Show() PictureBox19.Show() PictureBox20.Show() PictureBox21.Show() Else PictureBox12.Hide() PictureBox13.Hide() PictureBox14.Hide() PictureBox15.Hide() PictureBox16.Hide() PictureBox17.Hide() PictureBox18.Hide() PictureBox19.Hide() PictureBox20.Hide() End If nbmiage2 = ListBox1.Items.Count updatelogi() End Sub Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click If recherche = 1 Then Form8.Text = nom & " / " & ComboBox2.SelectedItem Form8.Label2.Text = ComboBox2.SelectedItem Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & ComboBox2.SelectedItem & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & ComboBox2.SelectedItem Form8.GunaButton2.Text = "Désinstaller: " & ComboBox2.SelectedItem Form8.PictureBox1.Image = PictureBox12.Image Form8.ShowDialog() Else Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & pagesacctuel2 & "/image/lient1.txt") Dim lines2() As String = File.ReadAllLines(lines1(0) & "/nom.txt") Form8.Text = nom & " / " & lines2(0) Form8.Label2.Text = lines2(0) Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & lines2(0) & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & lines2(0) Form8.GunaButton2.Text = "Désinstaller: " & lines2(0) Form8.PictureBox1.Image = PictureBox12.Image Form8.ShowDialog() End If End Sub Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click If ComboBox1.SelectedItem = "tout" Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi2/nom.txt") Form6.CLMlient = "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi2/" Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image2.jpg") Form6.ShowDialog() Else My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/url.txt", dostemp & "/url.txt") Dim lines1() As String = File.ReadAllLines(dostemp & "/url.txt") File.Delete(dostemp & "/url.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & lines1(0) & "/nom.txt") Form6.CLMlient = lines1(0) Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image2.jpg") Try Form6.ShowDialog() Catch ex As Exception MsgBox(ex.ToString) End Try End If End Sub Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click If ComboBox1.SelectedItem = "tout" Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi3/nom.txt") Form6.CLMlient = "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi3/" Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image3.jpg") Form6.ShowDialog() Else My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/url.txt", dostemp & "/url.txt") Dim lines1() As String = File.ReadAllLines(dostemp & "/url.txt") File.Delete(dostemp & "/url.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & lines1(0) & "/nom.txt") Form6.CLMlient = lines1(0) Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image3.jpg") Try Form6.ShowDialog() Catch ex As Exception MsgBox(ex.ToString) End Try End If End Sub Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click If ComboBox1.SelectedItem = "tout" Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi4/nom.txt") Form6.CLMlient = "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi4/" Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image4.jpg") Form6.ShowDialog() Else My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/url.txt", dostemp & "/url.txt") Dim lines1() As String = File.ReadAllLines(dostemp & "/url.txt") File.Delete(dostemp & "/url.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & lines1(0) & "/nom.txt") Form6.CLMlient = lines1(0) Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image4.jpg") Try Form6.ShowDialog() Catch ex As Exception MsgBox(ex.ToString) End Try End If End Sub Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click If ComboBox1.SelectedItem = "tout" Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi5/nom.txt") Form6.CLMlient = "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi5/" Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image5.jpg") Form6.ShowDialog() Else My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/url.txt", dostemp & "/url.txt") Dim lines1() As String = File.ReadAllLines(dostemp & "/url.txt") File.Delete(dostemp & "/url.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & lines1(0) & "/nom.txt") Form6.CLMlient = lines1(0) Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image5.jpg") Try Form6.ShowDialog() Catch ex As Exception MsgBox(ex.ToString) End Try End If End Sub Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click If ComboBox1.SelectedItem = "tout" Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi6/nom.txt") Form6.CLMlient = "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi6/" Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image6.jpg") Form6.ShowDialog() Else My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/url.txt", dostemp & "/url.txt") Dim lines1() As String = File.ReadAllLines(dostemp & "/url.txt") File.Delete(dostemp & "/url.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & lines1(0) & "/nom.txt") Form6.CLMlient = lines1(0) Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image6.jpg") Try Form6.ShowDialog() Catch ex As Exception MsgBox(ex.ToString) End Try End If End Sub Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click If ComboBox1.SelectedItem = "tout" Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi7/nom.txt") Form6.CLMlient = "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi7/" Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image7.jpg") Form6.ShowDialog() Else My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/url.txt", dostemp & "/url.txt") Dim lines1() As String = File.ReadAllLines(dostemp & "/url.txt") File.Delete(dostemp & "/url.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & lines1(0) & "/nom.txt") Form6.CLMlient = lines1(0) Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image7.jpg") Try Form6.ShowDialog() Catch ex As Exception MsgBox(ex.ToString) End Try End If End Sub Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click If ComboBox1.SelectedItem = "tout" Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi8/nom.txt") Form6.CLMlient = "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi8/" Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image8.jpg") Form6.ShowDialog() Else My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi8/url.txt", dostemp & "/url.txt") Dim lines1() As String = File.ReadAllLines(dostemp & "/url.txt") File.Delete(dostemp & "/url.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & lines1(0) & "/nom.txt") Form6.CLMlient = lines1(0) Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image8.jpg") Try Form6.ShowDialog() Catch ex As Exception MsgBox(ex.ToString) End Try End If End Sub Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click If ComboBox1.SelectedItem = "tout" Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi9/nom.txt") Form6.CLMlient = "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi9/" Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image9.jpg") Form6.ShowDialog() Else My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi9/url.txt", dostemp & "/url.txt") Dim lines1() As String = File.ReadAllLines(dostemp & "/url.txt") File.Delete(dostemp & "/url.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & lines1(0) & "/nom.txt") Form6.CLMlient = lines1(0) Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image9.jpg") Try Form6.ShowDialog() Catch ex As Exception MsgBox(ex.ToString) End Try End If End Sub Private Sub PictureBox11_Click(sender As Object, e As EventArgs) Handles PictureBox11.Click If ComboBox1.SelectedItem = "tout" Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi10/nom.txt") Form6.CLMlient = "/CLM/logiciel/profil/" & CLMprofil & "/tout/" & "/page" & pagesacctuel & "/logi10/" Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image10.jpg") Form6.ShowDialog() Else My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi10/url.txt", dostemp & "/url.txt") Dim lines1() As String = File.ReadAllLines(dostemp & "/url.txt") File.Delete(dostemp & "/url.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & lines1(0) & "/nom.txt") Form6.CLMlient = lines1(0) Form6.Text = nom & " / " & vri2 Form6.PictureBox1.Image = Image.FromFile(dostemp & "/image10.jpg") Try Form6.ShowDialog() Catch ex As Exception MsgBox(ex.ToString) End Try End If End Sub Private Sub PictureBox13_Click(sender As Object, e As EventArgs) Handles PictureBox13.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & pagesacctuel2 & "/image/lient2.txt") Dim lines2() As String = File.ReadAllLines(lines1(0) & "/nom.txt") Form8.Text = nom & " / " & lines2(0) Form8.Label2.Text = lines2(0) Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & lines2(0) & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & lines2(0) Form8.GunaButton2.Text = "Désinstaller: " & lines2(0) Form8.PictureBox1.Image = PictureBox13.Image Form8.ShowDialog() End Sub Private Sub PictureBox14_Click(sender As Object, e As EventArgs) Handles PictureBox14.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & pagesacctuel2 & "/image/lient3.txt") Dim lines2() As String = File.ReadAllLines(lines1(0) & "/nom.txt") Form8.Text = nom & " / " & lines2(0) Form8.Label2.Text = lines2(0) Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & lines2(0) & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & lines2(0) Form8.GunaButton2.Text = "Désinstaller: " & lines2(0) Form8.PictureBox1.Image = PictureBox14.Image Form8.ShowDialog() End Sub Private Sub PictureBox15_Click(sender As Object, e As EventArgs) Handles PictureBox15.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & pagesacctuel2 & "/image/lient4.txt") Dim lines2() As String = File.ReadAllLines(lines1(0) & "/nom.txt") Form8.Text = nom & " / " & lines2(0) Form8.Label2.Text = lines2(0) Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & lines2(0) & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & lines2(0) Form8.GunaButton2.Text = "Désinstaller: " & lines2(0) Form8.PictureBox1.Image = PictureBox15.Image Form8.ShowDialog() End Sub Private Sub PictureBox16_Click(sender As Object, e As EventArgs) Handles PictureBox16.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & pagesacctuel2 & "/image/lient5.txt") Dim lines2() As String = File.ReadAllLines(lines1(0) & "/nom.txt") Form8.Text = nom & " / " & lines2(0) Form8.Label2.Text = lines2(0) Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & lines2(0) & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & lines2(0) Form8.GunaButton2.Text = "Désinstaller: " & lines2(0) Form8.PictureBox1.Image = PictureBox16.Image Form8.ShowDialog() End Sub Private Sub PictureBox17_Click(sender As Object, e As EventArgs) Handles PictureBox17.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & pagesacctuel2 & "/image/lient6.txt") Dim lines2() As String = File.ReadAllLines(lines1(0) & "/nom.txt") Form8.Text = nom & " / " & lines2(0) Form8.Label2.Text = lines2(0) Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & lines2(0) & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & lines2(0) Form8.GunaButton2.Text = "Désinstaller: " & lines2(0) Form8.PictureBox1.Image = PictureBox17.Image Form8.ShowDialog() End Sub Private Sub PictureBox18_Click(sender As Object, e As EventArgs) Handles PictureBox18.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & pagesacctuel2 & "/image/lient7.txt") Dim lines2() As String = File.ReadAllLines(lines1(0) & "/nom.txt") Form8.Text = nom & " / " & lines2(0) Form8.Label2.Text = lines2(0) Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & lines2(0) & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & lines2(0) Form8.GunaButton2.Text = "Désinstaller: " & lines2(0) Form8.PictureBox1.Image = PictureBox18.Image Form8.ShowDialog() End Sub Private Sub PictureBox19_Click(sender As Object, e As EventArgs) Handles PictureBox19.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & pagesacctuel2 & "/image/lient8.txt") Dim lines2() As String = File.ReadAllLines(lines1(0) & "/nom.txt") Form8.Text = nom & " / " & lines2(0) Form8.Label2.Text = lines2(0) Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & lines2(0) & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & lines2(0) Form8.GunaButton2.Text = "Désinstaller: " & lines2(0) Form8.PictureBox1.Image = PictureBox19.Image Form8.ShowDialog() End Sub Private Sub PictureBox20_Click(sender As Object, e As EventArgs) Handles PictureBox20.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & pagesacctuel2 & "/image/lient9.txt") Dim lines2() As String = File.ReadAllLines(lines1(0) & "/nom.txt") Form8.Text = nom & " / " & lines2(0) Form8.Label2.Text = lines2(0) Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & lines2(0) & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & lines2(0) Form8.GunaButton2.Text = "Désinstaller: " & lines2(0) Form8.PictureBox1.Image = PictureBox20.Image Form8.ShowDialog() End Sub Private Sub PictureBox21_Click(sender As Object, e As EventArgs) Handles PictureBox21.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & pagesacctuel2 & "/image/lient10.txt") Dim lines2() As String = File.ReadAllLines(lines1(0) & "/nom.txt") Form8.Text = nom & " / " & lines2(0) Form8.Label2.Text = lines2(0) Dim lines3() As String = File.ReadAllLines(dosprogramefile & "/" & lines2(0) & "/version.txt") Form8.Label4.Text = lines3(0) Form8.GunaButton1.Text = "Ouvrir: " & lines2(0) Form8.GunaButton2.Text = "Désinstaller: " & lines2(0) Form8.PictureBox1.Image = PictureBox21.Image Form8.ShowDialog() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click If ComboBox1.SelectedItem = "tout" Then If nbimage = 1 Then PictureBox2.Image.Dispose() ElseIf nbimage = 2 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf nbimage = 3 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf nbimage = 4 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf nbimage = 5 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf nbimage = 6 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf nbimage = 7 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() ElseIf nbimage = 8 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() ElseIf nbimage = 9 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() ElseIf nbimage = 10 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() PictureBox11.Image.Dispose() End If For Each fichier As String In IO.Directory.GetFiles(dostemp) Dim info As New IO.FileInfo(fichier) File.Delete(fichier) Next Dim maj1 As New WebClient Dim vri1 As String = maj1.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page.txt") If pagesacctuel + 1 = vri1 Then Button2.Enabled = False Button1.Enabled = True Else Button2.Enabled = True Button1.Enabled = True End If pagesacctuel = pagesacctuel + 1 Label1.Text = pagesacctuel & "/" & vri1 Text = nom & ": " & ComboBox1.SelectedItem & " " & pagesacctuel & "/" & vri1 Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi.txt") nbimage = vri2 If vri2 = 1 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") PictureBox2.Show() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 2 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 3 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 4 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 5 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 6 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 7 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 8 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 9 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Hide() ElseIf vri2 = 10 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi10/image.jpg", dostemp & "/image10.jpg") PictureBox11.Image = Image.FromFile(dostemp & "/image10.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Show() End If Else If nbimage = 1 Then PictureBox2.Image.Dispose() ElseIf nbimage = 2 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf nbimage = 3 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf nbimage = 4 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf nbimage = 5 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf nbimage = 6 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf nbimage = 7 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() ElseIf nbimage = 8 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() ElseIf nbimage = 9 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() ElseIf nbimage = 10 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() PictureBox11.Image.Dispose() End If For Each fichier As String In IO.Directory.GetFiles(dostemp) Dim info As New IO.FileInfo(fichier) File.Delete(fichier) Next Dim maj1 As New WebClient Dim vri1 As String = maj1.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page.txt") If pagesacctuel + 1 = vri1 Then Button2.Enabled = False Button1.Enabled = True Else Button2.Enabled = True Button1.Enabled = True End If pagesacctuel = pagesacctuel + 1 Label1.Text = pagesacctuel & "/" & vri1 Text = nom & ": " & ComboBox1.SelectedItem & " " & pagesacctuel & "/" & vri1 Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi.txt") nbimage = vri2 If vri2 = 1 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") PictureBox2.Show() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 2 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 3 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 4 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 5 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 6 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 7 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 8 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 9 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Hide() ElseIf vri2 = 10 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi10/image.jpg", dostemp & "/image10.jpg") PictureBox11.Image = Image.FromFile(dostemp & "/image10.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Show() End If End If End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page.txt") pagesacctuel2 = pagesacctuel2 + 1 If pagesacctuel2 = lines1(0) Then Button4.Enabled = True Button3.Enabled = False Else Button3.Enabled = True Button4.Enabled = True End If Label2.Text = pagesacctuel2 & "/" & lines1(0) vérifiinstall2() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim lines1() As String = File.ReadAllLines(dosinstall & "/page.txt") pagesacctuel2 = pagesacctuel2 - 1 If pagesacctuel2 = 1 Then Button4.Enabled = False Button3.Enabled = True Else Button3.Enabled = True Button4.Enabled = True End If Label2.Text = pagesacctuel2 & "/" & lines1(0) vérifiinstall2() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If ComboBox1.SelectedItem = "tout" Then If nbimage = 1 Then PictureBox2.Image.Dispose() ElseIf nbimage = 2 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf nbimage = 3 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf nbimage = 4 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf nbimage = 5 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf nbimage = 6 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf nbimage = 7 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() ElseIf nbimage = 8 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() ElseIf nbimage = 9 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() ElseIf nbimage = 10 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() PictureBox11.Image.Dispose() End If For Each fichier As String In IO.Directory.GetFiles(dostemp) Dim info As New IO.FileInfo(fichier) File.Delete(fichier) Next Dim maj1 As New WebClient Dim vri1 As String = maj1.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page.txt") If pagesacctuel - 1 = 1 Then Button2.Enabled = True Button1.Enabled = False Else Button2.Enabled = True Button1.Enabled = True End If pagesacctuel = pagesacctuel - 1 Label1.Text = pagesacctuel & "/" & vri1 Text = nom & ": " & ComboBox1.SelectedItem & " " & pagesacctuel & "/" & vri1 Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi.txt") nbimage = vri2 If vri2 = 1 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") PictureBox2.Show() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 2 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 3 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 4 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 5 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 6 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 7 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 8 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 9 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Hide() ElseIf vri2 = 10 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/tout/page" & pagesacctuel & "/logi10/image.jpg", dostemp & "/image10.jpg") PictureBox11.Image = Image.FromFile(dostemp & "/image10.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Show() End If Else If nbimage = 1 Then PictureBox2.Image.Dispose() ElseIf nbimage = 2 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf nbimage = 3 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf nbimage = 4 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf nbimage = 5 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf nbimage = 6 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf nbimage = 7 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() ElseIf nbimage = 8 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() ElseIf nbimage = 9 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() ElseIf nbimage = 10 Then PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() PictureBox9.Image.Dispose() PictureBox10.Image.Dispose() PictureBox11.Image.Dispose() End If For Each fichier As String In IO.Directory.GetFiles(dostemp) Dim info As New IO.FileInfo(fichier) File.Delete(fichier) Next Dim maj1 As New WebClient Dim vri1 As String = maj1.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page.txt") If pagesacctuel + 1 = vri1 Then Button2.Enabled = False Button1.Enabled = True Else Button2.Enabled = True Button1.Enabled = True End If pagesacctuel = pagesacctuel + 1 Label1.Text = pagesacctuel & "/" & vri1 Text = nom & ": " & ComboBox1.SelectedItem & " " & pagesacctuel & "/" & vri1 Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi.txt") nbimage = vri2 If vri2 = 1 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") PictureBox2.Show() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 2 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 3 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 4 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 5 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Hide() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 6 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Hide() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 7 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Hide() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 8 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Hide() PictureBox11.Hide() ElseIf vri2 = 9 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Hide() ElseIf vri2 = 10 Then My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi1/image.jpg", dostemp & "/image1.jpg") PictureBox2.Image = Image.FromFile(dostemp & "/image1.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi2/image.jpg", dostemp & "/image2.jpg") PictureBox3.Image = Image.FromFile(dostemp & "/image2.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi3/image.jpg", dostemp & "/image3.jpg") PictureBox4.Image = Image.FromFile(dostemp & "/image3.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi4/image.jpg", dostemp & "/image4.jpg") PictureBox5.Image = Image.FromFile(dostemp & "/image4.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi5/image.jpg", dostemp & "/image5.jpg") PictureBox6.Image = Image.FromFile(dostemp & "/image5.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi6/image.jpg", dostemp & "/image6.jpg") PictureBox7.Image = Image.FromFile(dostemp & "/image6.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi7/image.jpg", dostemp & "/image7.jpg") PictureBox8.Image = Image.FromFile(dostemp & "/image7.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi8/image.jpg", dostemp & "/image8.jpg") PictureBox9.Image = Image.FromFile(dostemp & "/image8.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi9/image.jpg", dostemp & "/image9.jpg") PictureBox10.Image = Image.FromFile(dostemp & "/image9.jpg") My.Computer.Network.DownloadFile(CLMipsite & "/CLM/logiciel/profil/" & CLMprofil & "/categorie/" & ComboBox1.SelectedItem & "/page" & pagesacctuel & "/logi10/image.jpg", dostemp & "/image10.jpg") PictureBox11.Image = Image.FromFile(dostemp & "/image10.jpg") PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() PictureBox9.Show() PictureBox10.Show() PictureBox11.Show() End If End If End Sub Private Sub ChromeTabcontrol1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ChromeTabcontrol1.SelectedIndexChanged If ChromeTabcontrol1.SelectedIndex = 0 Then Text = nom & ": " & ComboBox1.SelectedItem & " " & Label1.Text ElseIf ChromeTabcontrol1.SelectedIndex = 1 Then Text = nom & ": " & TabPage2.Text & " " & Label2.Text ElseIf ChromeTabcontrol1.SelectedIndex = 2 Then Text = nom & ": " & TabPage3.Text ElseIf ChromeTabcontrol1.SelectedIndex = 3 Then Text = nom & ": " & TabPage4.Text ElseIf ChromeTabcontrol1.SelectedIndex = 4 Then Text = nom & ": " & TabPage5.Text End If End Sub Sub updatelogi() pagesacctuel3 = 1 If nbmiage3 = 1 Then PictureBox23.Image.Dispose() ElseIf nbmiage3 = 2 Then PictureBox23.Image.Dispose() PictureBox24.Image.Dispose() ElseIf nbmiage3 = 3 Then PictureBox23.Image.Dispose() PictureBox24.Image.Dispose() PictureBox25.Image.Dispose() ElseIf nbmiage3 = 4 Then PictureBox23.Image.Dispose() PictureBox24.Image.Dispose() PictureBox25.Image.Dispose() PictureBox26.Image.Dispose() Else End If If Directory.Exists(dosupdate) = True Then My.Computer.FileSystem.DeleteDirectory(dosupdate, FileIO.DeleteDirectoryOption.DeleteAllContents) Directory.CreateDirectory(dosupdate) Directory.CreateDirectory(dosupdate & "\page1\") Dim sw1 As New StreamWriter(dosupdate & "\page.txt") sw1.WriteLine(1) sw1.Close() Dim sw2 As New StreamWriter(dosupdate & "\page1\logi.txt") sw2.WriteLine(0) sw2.Close() Dim sw3 As New StreamWriter(dosupdate & "\update.txt") sw3.WriteLine(0) sw3.Close() End If ListBox2.Items.Clear() ListBox4.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosprogramefile) Dim info As New IO.FileInfo(fichier) ListBox2.Items.Add(fichier) Next If ListBox2.Items.Count = 0 Then TabPage3.Text = "Mise a jour" GroupBox1.Hide() GroupBox2.Hide() GroupBox3.Hide() GroupBox4.Hide() GunaButton5.Hide() Label17.Show() Button5.Enabled = False Button6.Enabled = False Else GunaButton5.Show() Label17.Hide() nmlogup = 0 Dim i As Integer = 0 While i <= ListBox2.Items.Count - 1 ListBox2.SelectedIndex = i Dim lines1() As String = File.ReadAllLines(ListBox2.SelectedItem & "\version.txt") Dim lines2() As String = File.ReadAllLines(ListBox2.SelectedItem & "\updatedl.txt") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(lines2(0) & "/version/versionactuel.txt") If lines1(0) = vri2 Then Else ListBox4.Items.Add(ListBox2.SelectedItem) nmlogup = nmlogup + 1 Dim CLMpronom = ListBox2.SelectedItem.ToString.Replace(dosprogramefile, "") Dim lines21() As String = File.ReadAllLines(dosupdate & "/page.txt") Dim lines3() As String = File.ReadAllLines(dosupdate & "/page" & lines21(0) & "/logi.txt") If lines3(0) = 4 Then Directory.CreateDirectory(dosupdate & "/page" & lines21(0).ToString + 1) Dim sw23 As New StreamWriter(dosupdate & "/page.txt") sw23.WriteLine(lines21(0).ToString + 1) sw23.Close() Dim lines2bis() As String = File.ReadAllLines(dosupdate & "/page.txt") Directory.CreateDirectory(dosupdate & "/page" & lines2bis(0) & "/" & CLMpronom & "/") My.Computer.Network.DownloadFile(lines2(0) & "/image.jpg", (dosupdate & "/page" & lines2bis(0) & "/" & CLMpronom & "/image.jpg")) Dim sw234 As New StreamWriter(dosupdate & "/page" & lines2bis(0) & "/" & CLMpronom & "/nom.txt") sw234.WriteLine(CLMpronom) sw234.Close() ListBox3.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosupdate & "/page" & lines2bis(0) & "/") Dim info As New IO.FileInfo(fichier) ListBox3.Items.Add(info.Name) Next Dim sw22 As New StreamWriter(dosupdate & "/page" & lines2bis(0) & "/logi.txt") sw22.WriteLine(ListBox3.Items.Count) sw22.Close() Else If Directory.Exists(dosupdate & "/page" & lines21(0) & "/" & CLMpronom & "/") = False Then Directory.CreateDirectory(dosupdate & "/page" & lines21(0) & "/" & CLMpronom & "/") My.Computer.Network.DownloadFile(lines2(0) & "/image.jpg", (dosupdate & "/page" & lines21(0) & "/" & CLMpronom & "/image.jpg")) Dim sw23 As New StreamWriter(dosupdate & "/page" & lines21(0) & "/" & CLMpronom & "/nom.txt") sw23.WriteLine(CLMpronom) sw23.Close() End If ListBox3.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosupdate & "/page" & lines21(0) & "/") Dim info As New IO.FileInfo(fichier) ListBox3.Items.Add(info.Name) Next Dim sw22 As New StreamWriter(dosupdate & "/page" & lines21(0) & "/logi.txt") sw22.WriteLine(ListBox3.Items.Count) sw22.Close() End If End If i = i + 1 End While If nmlogup = 1 Then TabPage3.Text = "Mise a jour (" & nmlogup & ")" GunaButton5.Text = "Mètre à jour le logiciel" NotifyIcon1.BalloonTipTitle = "Mise a jour disponible" NotifyIcon1.Text = nom & ": Une mise a jour disponible" NotifyIcon1.BalloonTipText = "une mise a jour est disponible" NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info NotifyIcon1.ShowBalloonTip(1) ElseIf nmlogup > 1 Then TabPage3.Text = "Mise a jours (" & nmlogup & ")" GunaButton5.Text = "Mètre à jour les (" & nmlogup & ") logiciels" NotifyIcon1.Text = nom & ": " & nmlogup & " mise a jours sont disponible" NotifyIcon1.BalloonTipTitle = "Des mise a jour sont disponible" NotifyIcon1.BalloonTipText = nmlogup & " mise a jours sont disponible" NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info NotifyIcon1.ShowBalloonTip(1) Else TabPage3.Text = "Mise a jour" GroupBox1.Hide() GroupBox2.Hide() GroupBox3.Hide() GroupBox4.Hide() GunaButton5.Hide() Label17.Show() Button5.Enabled = False Button6.Enabled = False End If teste() End If End Sub Sub teste() If nbmiage3 = 1 Then PictureBox23.Image.Dispose() ElseIf nbmiage3 = 2 Then PictureBox23.Image.Dispose() PictureBox24.Image.Dispose() ElseIf nbmiage3 = 3 Then PictureBox23.Image.Dispose() PictureBox24.Image.Dispose() PictureBox25.Image.Dispose() ElseIf nbmiage3 = 4 Then PictureBox23.Image.Dispose() PictureBox24.Image.Dispose() PictureBox25.Image.Dispose() PictureBox26.Image.Dispose() Else End If Dim lines1() As String = File.ReadAllLines(dosupdate & "/page.txt") Label7.Text = pagesacctuel3 & "/" & lines1(0) If Label7.Text = 1 & "/" & lines1(0) And pagesacctuel3.ToString = lines1(0) Then Button6.Enabled = False Button5.Enabled = False ElseIf Label7.Text = lines1(0) & "/" & lines1(0) Then Button6.Enabled = True Button5.Enabled = False ElseIf Label7.Text = 1 & "/" & lines1(0) Then Button6.Enabled = False Button5.Enabled = True Else Button5.Enabled = True Button6.Enabled = True End If If Directory.Exists(dosupdate & "/page" & pagesacctuel3 & "/image/") = True Then For Each fichier As String In IO.Directory.GetFiles(dosupdate & "/page" & pagesacctuel3 & "/image/") Dim info As New IO.FileInfo(fichier) File.Delete(fichier) Next Directory.Delete(dosupdate & "/page" & pagesacctuel3 & "/image/") End If ListBox3.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosupdate & "/page" & pagesacctuel3 & "/") Dim info As New IO.FileInfo(fichier) ListBox3.Items.Add(fichier) Next Dim sw11 As New StreamWriter(dosupdate & "/page" & pagesacctuel3 & "/logi.txt") sw11.WriteLine(ListBox3.Items.Count) sw11.Close() Dim i As Integer = 1 While i <= ListBox3.Items.Count ListBox3.SelectedIndex = i - 1 My.Computer.FileSystem.CopyFile(ListBox3.SelectedItem & "/image.jpg", dosupdate & "/page" & pagesacctuel3 & "/image/image" & i & ".jpg") Dim sw1 As New StreamWriter(dosupdate & "/page" & pagesacctuel3 & "/image/lient" & i & ".txt") sw1.WriteLine(ListBox3.SelectedItem) sw1.Close() i = i + 1 End While If ListBox3.Items.Count = 1 Then PictureBox23.Image = Image.FromFile(dosupdate & "/page" & pagesacctuel3 & "/image/image1.jpg") Dim lines3() As String = File.ReadAllLines(dosupdate & "/page" & pagesacctuel3 & "/image/lient1.txt") Dim blabla = lines3(0).ToString.Replace(dosupdate & "/page" & pagesacctuel3 & "/", "") GroupBox1.Text = blabla Label4.Text = blabla Dim lines4() As String = File.ReadAllLines(dosprogramefile & blabla & "/version.txt") Label5.Text = "Version installer: " & lines4(0) Dim lines5() As String = File.ReadAllLines(dosprogramefile & blabla & "/updatedl.txt") My.Computer.Network.DownloadFile(lines5(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines6() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") File.Delete(dostemp & "/versionactuel.txt") Label6.Text = "Nouvelle version: " & lines6(0) PictureBox23.Show() PictureBox24.Hide() PictureBox25.Hide() PictureBox26.Hide() GroupBox1.Show() GroupBox2.Hide() GroupBox3.Hide() GroupBox4.Hide() ElseIf ListBox3.Items.Count = 2 Then PictureBox23.Image = Image.FromFile(dosupdate & "/page" & pagesacctuel3 & "/image/image1.jpg") PictureBox24.Image = Image.FromFile(dosupdate & "/page" & pagesacctuel3 & "/image/image2.jpg") Dim lines3() As String = File.ReadAllLines(dosupdate & "/page" & pagesacctuel3 & "/image/lient1.txt") Dim blabla = lines3(0).ToString.Replace(dosupdate & "/page" & pagesacctuel3 & "/", "") GroupBox1.Text = blabla Label4.Text = blabla Dim lines4() As String = File.ReadAllLines(dosprogramefile & blabla & "/version.txt") Label5.Text = "Version installer: " & lines4(0) Dim lines5() As String = File.ReadAllLines(dosprogramefile & blabla & "/updatedl.txt") My.Computer.Network.DownloadFile(lines5(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines6() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") File.Delete(dostemp & "/versionactuel.txt") Label6.Text = "Nouvelle version: " & lines6(0) Dim lines3a() As String = File.ReadAllLines(dosupdate & "/page" & pagesacctuel3 & "/image/lient2.txt") Dim blabla2 = lines3a(0).ToString.Replace(dosupdate & "/page" & pagesacctuel3 & "/", "") GroupBox2.Text = blabla2 Label10.Text = blabla2 Dim lines4a() As String = File.ReadAllLines(dosprogramefile & blabla2 & "/version.txt") Label9.Text = "Version installer: " & lines4(0) Dim lines5a() As String = File.ReadAllLines(dosprogramefile & blabla2 & "/updatedl.txt") My.Computer.Network.DownloadFile(lines5a(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines6a() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") File.Delete(dostemp & "/versionactuel.txt") Label8.Text = "Nouvelle version: " & lines6a(0) PictureBox23.Show() PictureBox24.Show() PictureBox25.Hide() PictureBox26.Hide() GroupBox1.Show() GroupBox2.Show() GroupBox3.Hide() GroupBox4.Hide() ElseIf ListBox3.Items.Count = 3 Then PictureBox23.Image = Image.FromFile(dosupdate & "/page" & pagesacctuel3 & "/image/image1.jpg") PictureBox24.Image = Image.FromFile(dosupdate & "/page" & pagesacctuel3 & "/image/image2.jpg") PictureBox25.Image = Image.FromFile(dosupdate & "/page" & pagesacctuel3 & "/image/image3.jpg") Dim lines3() As String = File.ReadAllLines(dosupdate & "/page" & pagesacctuel3 & "/image/lient1.txt") Dim blabla = lines3(0).ToString.Replace(dosupdate & "/page" & pagesacctuel3 & "/", "") GroupBox1.Text = blabla Label4.Text = blabla Dim lines4() As String = File.ReadAllLines(dosprogramefile & blabla & "/version.txt") Label5.Text = "Version installer: " & lines4(0) Dim lines5() As String = File.ReadAllLines(dosprogramefile & blabla & "/updatedl.txt") My.Computer.Network.DownloadFile(lines5(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines6() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") File.Delete(dostemp & "/versionactuel.txt") Label6.Text = "Nouvelle version: " & lines6(0) Dim lines3a() As String = File.ReadAllLines(dosupdate & "/page" & pagesacctuel3 & "/image/lient2.txt") Dim blabla2 = lines3a(0).ToString.Replace(dosupdate & "/page" & pagesacctuel3 & "/", "") GroupBox2.Text = blabla2 Label10.Text = blabla2 Dim lines4a() As String = File.ReadAllLines(dosprogramefile & blabla2 & "/version.txt") Label9.Text = "Version installer: " & lines4(0) Dim lines5a() As String = File.ReadAllLines(dosprogramefile & blabla2 & "/updatedl.txt") My.Computer.Network.DownloadFile(lines5a(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines6a() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") File.Delete(dostemp & "/versionactuel.txt") Label8.Text = "Nouvelle version: " & lines6a(0) Dim lines3b() As String = File.ReadAllLines(dosupdate & "/page" & pagesacctuel3 & "/image/lient3.txt") Dim blabla3 = lines3b(0).ToString.Replace(dosupdate & "/page" & pagesacctuel3 & "/", "") GroupBox3.Text = blabla3 Label13.Text = blabla3 Dim lines4b() As String = File.ReadAllLines(dosprogramefile & blabla3 & "/version.txt") Label12.Text = "Version installer: " & lines4b(0) Dim lines5b() As String = File.ReadAllLines(dosprogramefile & blabla3 & "/updatedl.txt") My.Computer.Network.DownloadFile(lines5b(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines6b() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") File.Delete(dostemp & "/versionactuel.txt") Label11.Text = "Nouvelle version: " & lines6b(0) PictureBox23.Show() PictureBox24.Show() PictureBox25.Show() PictureBox26.Hide() GroupBox1.Show() GroupBox2.Show() GroupBox3.Show() GroupBox4.Hide() ElseIf ListBox3.Items.Count = 4 Then PictureBox23.Image = Image.FromFile(dosupdate & "/page" & pagesacctuel3 & "/image/image1.jpg") PictureBox24.Image = Image.FromFile(dosupdate & "/page" & pagesacctuel3 & "/image/image2.jpg") PictureBox25.Image = Image.FromFile(dosupdate & "/page" & pagesacctuel3 & "/image/image3.jpg") PictureBox26.Image = Image.FromFile(dosupdate & "/page" & pagesacctuel3 & "/image/image4.jpg") Dim lines3() As String = File.ReadAllLines(dosupdate & "/page" & pagesacctuel3 & "/image/lient1.txt") Dim blabla = lines3(0).ToString.Replace(dosupdate & "/page" & pagesacctuel3 & "/", "") GroupBox1.Text = blabla Label4.Text = blabla Dim lines4() As String = File.ReadAllLines(dosprogramefile & blabla & "/version.txt") Label5.Text = "Version installer: " & lines4(0) Dim lines5() As String = File.ReadAllLines(dosprogramefile & blabla & "/updatedl.txt") My.Computer.Network.DownloadFile(lines5(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines6() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") File.Delete(dostemp & "/versionactuel.txt") Label6.Text = "Nouvelle version: " & lines6(0) Dim lines3a() As String = File.ReadAllLines(dosupdate & "/page" & pagesacctuel3 & "/image/lient2.txt") Dim blabla2 = lines3a(0).ToString.Replace(dosupdate & "/page" & pagesacctuel3 & "/", "") GroupBox2.Text = blabla2 Label10.Text = blabla2 Dim lines4a() As String = File.ReadAllLines(dosprogramefile & blabla2 & "/version.txt") Label9.Text = "Version installer: " & lines4(0) Dim lines5a() As String = File.ReadAllLines(dosprogramefile & blabla2 & "/updatedl.txt") My.Computer.Network.DownloadFile(lines5a(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines6a() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") File.Delete(dostemp & "/versionactuel.txt") Label8.Text = "Nouvelle version: " & lines6a(0) Dim lines3b() As String = File.ReadAllLines(dosupdate & "/page" & pagesacctuel3 & "/image/lient3.txt") Dim blabla3 = lines3b(0).ToString.Replace(dosupdate & "/page" & pagesacctuel3 & "/", "") GroupBox3.Text = blabla3 Label13.Text = blabla3 Dim lines4b() As String = File.ReadAllLines(dosprogramefile & blabla3 & "/version.txt") Label12.Text = "Version installer: " & lines4b(0) Dim lines5b() As String = File.ReadAllLines(dosprogramefile & blabla3 & "/updatedl.txt") My.Computer.Network.DownloadFile(lines5b(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines6b() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") File.Delete(dostemp & "/versionactuel.txt") Label11.Text = "Nouvelle version: " & lines6b(0) Dim lines3c() As String = File.ReadAllLines(dosupdate & "/page" & pagesacctuel3 & "/image/lient4.txt") Dim blabla4 = lines3c(0).ToString.Replace(dosupdate & "/page" & pagesacctuel3 & "/", "") GroupBox4.Text = blabla4 Label16.Text = blabla4 Dim lines4c() As String = File.ReadAllLines(dosprogramefile & blabla4 & "/version.txt") Label15.Text = "Version installer: " & lines4c(0) Dim lines5c() As String = File.ReadAllLines(dosprogramefile & blabla4 & "/updatedl.txt") My.Computer.Network.DownloadFile(lines5c(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines6c() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") File.Delete(dostemp & "/versionactuel.txt") Label14.Text = "Nouvelle version: " & lines6c(0) PictureBox23.Show() PictureBox24.Show() PictureBox25.Show() PictureBox26.Show() GroupBox1.Show() GroupBox2.Show() GroupBox3.Show() GroupBox4.Show() Else PictureBox23.Hide() PictureBox24.Hide() PictureBox25.Hide() PictureBox26.Hide() GroupBox1.Hide() GroupBox2.Hide() GroupBox3.Hide() GroupBox4.Hide() End If nbmiage3 = ListBox3.Items.Count End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click pagesacctuel3 = pagesacctuel3 + 1 teste() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click pagesacctuel3 = pagesacctuel3 - 1 teste() End Sub Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click updategroup = 1 GunaButton1.Hide() GroupBox2.Enabled = False GroupBox3.Enabled = False GroupBox4.Enabled = False ProgressBar1.Show() Dim lines1() As String = File.ReadAllLines(dosprogramefile & "/" & GroupBox1.Text & "/updatedl.txt") My.Computer.Network.DownloadFile(lines1(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines2() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") Dim sw1 As New StreamWriter(dosprogramefile & "\" & GroupBox1.Text & "\version.txt") sw1.WriteLine(lines2(0)) sw1.Close() File.Delete(dostemp & "/versionactuel.txt") téléchargerfr = New WebClient téléchargerfr.DownloadFileTaskAsync(New Uri(lines1(0) & "/version/" & lines2(0) & "/programe.zip"), (dosprogramefile & "\programe.zip")) End Sub Private Sub téléchargerfr_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles téléchargerfr.DownloadProgressChanged If updategroup = 1 Then ProgressBar1.Value = e.ProgressPercentage ElseIf updategroup = 2 Then ProgressBar2.Value = e.ProgressPercentage ElseIf updategroup = 3 Then ProgressBar3.Value = e.ProgressPercentage ElseIf updategroup = 4 Then ProgressBar4.Value = e.ProgressPercentage ElseIf updategroup = 0 Then ProgressBar5.Value = e.ProgressPercentage End If End Sub Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted If updategroup = 1 Then ProgressBar1.Style = ProgressBarStyle.Marquee ElseIf updategroup = 2 Then ProgressBar2.Style = ProgressBarStyle.Marquee ElseIf updategroup = 3 Then ProgressBar3.Style = ProgressBarStyle.Marquee ElseIf updategroup = 4 Then ProgressBar4.Style = ProgressBarStyle.Marquee ElseIf updategroup = 0 Then ProgressBar5.Style = ProgressBarStyle.Marquee End If BackgroundWorker1.RunWorkerAsync() End Sub Dim WithEvents téléchargerfr As WebClient Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork If updategroup = 1 Then My.Computer.FileSystem.DeleteDirectory(dosprogramefile & "/" & GroupBox1.Text & "/programe/", FileIO.DeleteDirectoryOption.DeleteAllContents) ZipFile.ExtractToDirectory(dosprogramefile & "\programe.zip", dosprogramefile & "/" & GroupBox1.Text & "/programe/") ElseIf updategroup = 2 Then My.Computer.FileSystem.DeleteDirectory(dosprogramefile & "/" & GroupBox2.Text & "/programe/", FileIO.DeleteDirectoryOption.DeleteAllContents) ZipFile.ExtractToDirectory(dosprogramefile & "\programe.zip", dosprogramefile & "/" & GroupBox2.Text & "/programe/") ElseIf updategroup = 3 Then My.Computer.FileSystem.DeleteDirectory(dosprogramefile & "/" & GroupBox3.Text & "/programe/", FileIO.DeleteDirectoryOption.DeleteAllContents) ZipFile.ExtractToDirectory(dosprogramefile & "\programe.zip", dosprogramefile & "/" & GroupBox3.Text & "/programe/") ElseIf updategroup = 4 Then My.Computer.FileSystem.DeleteDirectory(dosprogramefile & "/" & GroupBox4.Text & "/programe/", FileIO.DeleteDirectoryOption.DeleteAllContents) ZipFile.ExtractToDirectory(dosprogramefile & "\programe.zip", dosprogramefile & "/" & GroupBox4.Text & "/programe/") ElseIf updategroup = 0 Then My.Computer.FileSystem.DeleteDirectory(select4update & "/programe/", FileIO.DeleteDirectoryOption.DeleteAllContents) ZipFile.ExtractToDirectory(dosprogramefile & "\programe.zip", select4update & "/programe/") End If End Sub Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted If updategroup = 1 Then File.Delete(dosprogramefile & "\programe.zip") ProgressBar1.Style = ProgressBarStyle.Continuous ProgressBar1.Hide() GunaButton1.Show() GroupBox2.Enabled = True GroupBox3.Enabled = True GroupBox4.Enabled = True MsgBox("Le logiciel: " & GroupBox1.Text & " a bien êtê mis a jour", MsgBoxStyle.Information) updatelogi() ElseIf updategroup = 2 Then File.Delete(dosprogramefile & "\programe.zip") ProgressBar2.Style = ProgressBarStyle.Continuous ProgressBar2.Hide() GunaButton2.Show() GroupBox1.Enabled = True GroupBox3.Enabled = True GroupBox4.Enabled = True MsgBox("Le logiciel: " & GroupBox2.Text & " a bien êtê mis a jour", MsgBoxStyle.Information) updatelogi() ElseIf updategroup = 3 Then File.Delete(dosprogramefile & "\programe.zip") ProgressBar3.Style = ProgressBarStyle.Continuous ProgressBar3.Hide() GunaButton3.Show() GroupBox1.Enabled = True GroupBox2.Enabled = True GroupBox4.Enabled = True MsgBox("Le logiciel: " & GroupBox3.Text & " a bien êtê mis a jour", MsgBoxStyle.Information) updatelogi() ElseIf updategroup = 4 Then File.Delete(dosprogramefile & "\programe.zip") ProgressBar4.Style = ProgressBarStyle.Continuous ProgressBar4.Hide() GunaButton4.Show() GroupBox1.Enabled = True GroupBox2.Enabled = True GroupBox3.Enabled = True MsgBox("Le logiciel: " & GroupBox4.Text & " a bien êtê mis a jour", MsgBoxStyle.Information) updatelogi() ElseIf updategroup = 0 Then File.Delete(dosprogramefile & "\programe.zip") ProgressBar5.Style = ProgressBarStyle.Continuous ProgressBar5.Value = 0 updateauto() End If End Sub Private Sub GunaButton2_Click(sender As Object, e As EventArgs) Handles GunaButton2.Click updategroup = 2 GunaButton2.Hide() GroupBox1.Enabled = False GroupBox3.Enabled = False GroupBox4.Enabled = False ProgressBar2.Show() Dim lines1() As String = File.ReadAllLines(dosprogramefile & "/" & GroupBox2.Text & "/updatedl.txt") My.Computer.Network.DownloadFile(lines1(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines2() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") Dim sw1 As New StreamWriter(dosprogramefile & "\" & GroupBox2.Text & "\version.txt") sw1.WriteLine(lines2(0)) sw1.Close() File.Delete(dostemp & "/versionactuel.txt") téléchargerfr = New WebClient téléchargerfr.DownloadFileTaskAsync(New Uri(lines1(0) & "/version/" & lines2(0) & "/programe.zip"), (dosprogramefile & "\programe.zip")) End Sub Private Sub GunaButton3_Click(sender As Object, e As EventArgs) Handles GunaButton3.Click updategroup = 3 GunaButton3.Hide() GroupBox1.Enabled = False GroupBox2.Enabled = False GroupBox4.Enabled = False ProgressBar3.Show() Dim lines1() As String = File.ReadAllLines(dosprogramefile & "/" & GroupBox3.Text & "/updatedl.txt") My.Computer.Network.DownloadFile(lines1(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines2() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") Dim sw1 As New StreamWriter(dosprogramefile & "\" & GroupBox3.Text & "\version.txt") sw1.WriteLine(lines2(0)) sw1.Close() File.Delete(dostemp & "/versionactuel.txt") téléchargerfr = New WebClient téléchargerfr.DownloadFileTaskAsync(New Uri(lines1(0) & "/version/" & lines2(0) & "/programe.zip"), (dosprogramefile & "\programe.zip")) End Sub Private Sub GunaButton4_Click(sender As Object, e As EventArgs) Handles GunaButton4.Click updategroup = 4 GunaButton3.Hide() GroupBox1.Enabled = False GroupBox2.Enabled = False GroupBox3.Enabled = False ProgressBar4.Show() Dim lines1() As String = File.ReadAllLines(dosprogramefile & "/" & GroupBox4.Text & "/updatedl.txt") My.Computer.Network.DownloadFile(lines1(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines2() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") Dim sw1 As New StreamWriter(dosprogramefile & "\" & GroupBox4.Text & "\version.txt") sw1.WriteLine(lines2(0)) sw1.Close() File.Delete(dostemp & "/versionactuel.txt") téléchargerfr = New WebClient téléchargerfr.DownloadFileTaskAsync(New Uri(lines1(0) & "/version/" & lines2(0) & "/programe.zip"), (dosprogramefile & "\programe.zip")) End Sub Private Sub GunaButton5_Click(sender As Object, e As EventArgs) Handles GunaButton5.Click GroupBox1.Enabled = False GroupBox2.Enabled = False GroupBox3.Enabled = False GroupBox4.Enabled = False ProgressBar5.Show() GunaButton5.Hide() updategroup = 0 updateauto() End Sub Sub updateauto() updateautovar = updateautovar + 1 If updateautovar <= ListBox4.Items.Count - 1 Then ListBox4.SetSelected(updateautovar, True) Dim lines1() As String = File.ReadAllLines(ListBox4.SelectedItem & "/updatedl.txt") My.Computer.Network.DownloadFile(lines1(0) & "/version/versionactuel.txt", dostemp & "/versionactuel.txt") Dim lines2() As String = File.ReadAllLines(dostemp & "/versionactuel.txt") Dim sw1 As New StreamWriter(ListBox4.SelectedItem.ToString & "\version.txt") sw1.WriteLine(lines2(0)) sw1.Close() File.Delete(dostemp & "/versionactuel.txt") select4update = ListBox4.SelectedItem.ToString téléchargerfr = New WebClient téléchargerfr.DownloadFileTaskAsync(New Uri(lines1(0) & "/version/" & lines2(0) & "/programe.zip"), (dosprogramefile & "\programe.zip")) Else GroupBox1.Enabled = True GroupBox2.Enabled = True GroupBox3.Enabled = True GroupBox4.Enabled = True GunaButton5.Show() ProgressBar5.Hide() updateautovar = -1 select4update = "" MsgBox("Tout le logiciel est bien êtê mis a jour", MsgBoxStyle.Information) updatelogi() End If End Sub Private Sub PictureBox27_Click(sender As Object, e As EventArgs) Handles PictureBox27.Click updatelogi() End Sub Private Sub PictureBox22_Click(sender As Object, e As EventArgs) Handles PictureBox22.Click PictureBox12.Image.Dispose() PictureBox12.Hide() If File.Exists(dostemp & "/image.jpg") = True Then File.Delete(dostemp & "/image.jpg") End If ComboBox2.Text = "" vérifiinstall() End Sub Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged PictureBox12.Image.Dispose() PictureBox12.Hide() If File.Exists(dostemp & "/image.jpg") = True Then File.Delete(dostemp & "/image.jpg") End If recherche = 1 If nbmiage2 = 1 Then PictureBox12.Image.Dispose() ElseIf nbmiage2 = 2 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() ElseIf nbmiage2 = 3 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() ElseIf nbmiage2 = 4 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() ElseIf nbmiage2 = 5 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() ElseIf nbmiage2 = 6 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() PictureBox17.Image.Dispose() ElseIf nbmiage2 = 7 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() PictureBox17.Image.Dispose() PictureBox18.Image.Dispose() ElseIf nbmiage2 = 8 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() PictureBox17.Image.Dispose() PictureBox18.Image.Dispose() PictureBox19.Image.Dispose() ElseIf nbmiage2 = 9 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() PictureBox17.Image.Dispose() PictureBox18.Image.Dispose() PictureBox19.Image.Dispose() PictureBox20.Image.Dispose() ElseIf nbmiage2 = 10 Then PictureBox12.Image.Dispose() PictureBox13.Image.Dispose() PictureBox14.Image.Dispose() PictureBox15.Image.Dispose() PictureBox16.Image.Dispose() PictureBox17.Image.Dispose() PictureBox18.Image.Dispose() PictureBox19.Image.Dispose() PictureBox20.Image.Dispose() PictureBox21.Image.Dispose() Else End If Dim lines1() As String = File.ReadAllLines(dosprogramefile & "/" & ComboBox2.SelectedItem & "/updatedl.txt") My.Computer.Network.DownloadFile(lines1(0) & "/image.jpg", dostemp & "/image.jpg") PictureBox12.Image = Image.FromFile(dostemp & "/image.jpg") PictureBox12.Show() PictureBox13.Hide() PictureBox14.Hide() PictureBox15.Hide() PictureBox16.Hide() PictureBox17.Hide() PictureBox18.Hide() PictureBox19.Hide() PictureBox20.Hide() PictureBox21.Hide() nbmiage2 = 1 End Sub Private Sub GunaAdvenceButton2_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton2.Click, GunaAdvenceButton4.Click Process.Start("https://github.com/yoannmultigaming/CLM") End Sub Private Sub GunaAdvenceButton3_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton3.Click Process.Start(siteorganisation) End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Timer1.Stop() Timer1.Start() updatelogi() End Sub Private Sub GunaGoogleSwitch1_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch1.CheckedChanged Dim statwindows As Integer = 0 Dim registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser Dim mer As Integer = 0 Dim key As Microsoft.Win32.RegistryKey = registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) Dim vreg = Nothing If key.GetValue(Application.ProductName) Is Nothing Then vreg = 0 Else vreg = 1 End If If GunaGoogleSwitch1.Checked = True Then statwindows = 1 If vreg = 0 Then key.SetValue(Application.ProductName, Application.ExecutablePath, Microsoft.Win32.RegistryValueKind.String) End If Else statwindows = 0 If vreg = 1 Then key.DeleteValue(Application.ProductName) End If End If Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(statwindows) sw1.WriteLine(lines1(1)) sw1.WriteLine(lines1(2)) sw1.Close() End Sub Private Sub GunaGoogleSwitch2_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch2.CheckedChanged If GunaGoogleSwitch2.Checked = True Then ComboBox4.Show() ComboBox4.SelectedItem = "5 Minutes" Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(1) sw1.WriteLine(lines1(2)) sw1.Close() Else Timer1.Stop() ComboBox4.Hide() Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(0) sw1.WriteLine(5) sw1.Close() End If End Sub Private Sub ComboBox4_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedValueChanged If ComboBox4.SelectedItem = "5 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(5) sw1.Close() Timer1.Stop() Timer1.Interval = 300000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "10 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(10) sw1.Close() Timer1.Stop() Timer1.Interval = 600000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "15 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(15) sw1.Close() Timer1.Stop() Timer1.Interval = 900000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "20 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(20) sw1.Close() Timer1.Stop() Timer1.Interval = 1200000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "25 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(25) sw1.Close() Timer1.Stop() Timer1.Interval = 1500000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "30 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(30) sw1.Close() Timer1.Stop() Timer1.Interval = 1800000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "35 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(35) sw1.Close() Timer1.Stop() Timer1.Interval = 2100000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "40 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(40) sw1.Close() Timer1.Stop() Timer1.Interval = 2400000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "45 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(45) sw1.Close() Timer1.Stop() Timer1.Interval = 2700000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "50 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(50) sw1.Close() Timer1.Stop() Timer1.Interval = 3000000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "55 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(55) sw1.Close() Timer1.Stop() Timer1.Interval = 3300000 Timer1.Start() ElseIf ComboBox4.SelectedItem = "60 Minutes" Then Dim lines1() As String = File.ReadAllLines(dosconfig & "/config.txt") Dim sw1 As New StreamWriter(dosconfig & "/config.txt") sw1.WriteLine(lines1(0)) sw1.WriteLine(lines1(1)) sw1.WriteLine(60) sw1.Close() Timer1.Stop() Timer1.Interval = 3600000 Timer1.Start() End If End Sub Private Sub GunaAdvenceButton7_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton7.Click Form9.ShowDialog() End Sub End Class