115 lines
4.9 KiB
VB.net
115 lines
4.9 KiB
VB.net
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 |