Imports System.IO
Imports System.Net

Public Class gestionuser
    Private Sub gestionuser_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        BackColor = Form1.BackColor
        ForeColor = Form1.ForeColor
        Button1.BackColor = BackColor
        ComboBox1.BackColor = BackColor
        ComboBox2.BackColor = BackColor
        ComboBox1.ForeColor = ForeColor
        ComboBox2.ForeColor = ForeColor
        Try
            ComboBox1.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/utilisateur/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ComboBox1.Items.Add(str)

                str = sr.ReadLine()

            End While


            sr.Close()

            ComboBox1.Items.Remove("index.php")
            ComboBox1.Items.Remove("utilisateur.txt")

            ComboBox1.SelectedIndex = 0


        Catch ex As Exception

        End Try
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        Try
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & ComboBox1.SelectedItem & "/admin.txt")
            ComboBox2.SelectedItem = "Administrateur"
        Catch ex As Exception
            Try
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & ComboBox1.SelectedItem & "/modo.txt")
                ComboBox2.SelectedItem = "Modérateur"
            Catch ex2 As Exception
                ComboBox2.SelectedItem = "Utilisateur"
            End Try
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & ComboBox1.SelectedItem & "/admin.txt")
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/admin.txt")
            ftreq.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/modo.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
        Catch ex As Exception
            Try
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & ComboBox1.SelectedItem & "/modo.txt")
                Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/modo.txt")
                ftreq.Method = WebRequestMethods.Ftp.DeleteFile
                ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
                Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            Catch ex2 As Exception

            End Try
        End Try
        start()
    End Sub
    Sub start()
        If ComboBox2.SelectedItem = "Utilisateur" Then

        ElseIf ComboBox2.SelectedItem = "Modérateur" Then
            Dim sw1 As New StreamWriter(dosparamètres & "\modo.txt")
            sw1.WriteLine(0)
            sw1.Close()
            My.Computer.Network.UploadFile(dosparamètres & "\modo.txt", ipserver & "/utilisateur/" & ComboBox1.SelectedItem & "/modo.txt")
            File.Delete(dosparamètres & "\modo.txt")

        ElseIf ComboBox2.SelectedItem = "Administrateur" Then
            Dim sw1 As New StreamWriter(dosparamètres & "\modo.txt")
            sw1.WriteLine(0)
            sw1.Close()
            My.Computer.Network.UploadFile(dosparamètres & "\modo.txt", ipserver & "/utilisateur/" & ComboBox1.SelectedItem & "/modo.txt")
            File.Delete(dosparamètres & "\modo.txt")
            Dim sw2 As New StreamWriter(dosparamètres & "\admin.txt")
            sw2.WriteLine(0)
            sw2.Close()
            My.Computer.Network.UploadFile(dosparamètres & "\admin.txt", ipserver & "/utilisateur/" & ComboBox1.SelectedItem & "/admin.txt")
            File.Delete(dosparamètres & "\admin.txt")
        End If
        MsgBox("l'utilisateur: " & ComboBox1.SelectedItem & " est maintenant: " & ComboBox2.SelectedItem, MsgBoxStyle.Information)
        Close()
    End Sub
End Class