238 lines
12 KiB
VB.net
238 lines
12 KiB
VB.net
Imports System.IO
|
|
Imports System.Net
|
|
|
|
Public Class Form3
|
|
Public seconnecterserver As Integer = 0
|
|
Public etap As Integer = 0
|
|
Public ipserveur As String = ""
|
|
Public idftp As String = ""
|
|
Public passftp As String = ""
|
|
Public ipsite As String = ""
|
|
Dim nommsgbox As String = "CLM / Inisialiser un serveur"
|
|
Public desnoméro() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
|
|
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If seconnecterserver = 1 Then
|
|
nommsgbox = "CLM / se connecter a un serveur"
|
|
MsgBox("Avant de commencer assurez-vous d'avoir un serveur web et un serveur FTP qui pointe vers le même serveur web", MsgBoxStyle.Exclamation, nommsgbox)
|
|
Text = "CLM / se connecter a un serveur"
|
|
Else
|
|
MsgBox("Avant de commencer assurez-vous d'avoir un serveur web et un serveur FTP qui pointe vers le même serveur web", MsgBoxStyle.Exclamation, nommsgbox)
|
|
Text = nom & " / Inisialiser un serveur"
|
|
End If
|
|
etap1()
|
|
End Sub
|
|
Sub etap1()
|
|
Label1.Text = "étape 1: Connextion au serveur FTP"
|
|
Label2.Text = "Addresse IP / nom de domaine:"
|
|
Label3.Text = "Identifiant:"
|
|
Label4.Text = "Mots de passe:"
|
|
Label5.Text = "Le port"
|
|
TextBox4.Text = "21"
|
|
End Sub
|
|
|
|
Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click
|
|
If etap = 0 Then
|
|
Dim sw1 As New StreamWriter(dosrepertoire & "testco.txt")
|
|
sw1.WriteLine("CML")
|
|
sw1.Close()
|
|
Try
|
|
My.Computer.Network.UploadFile(dosrepertoire & "testco.txt", "sftp://" & TextBox2.Text & ":" & TextBox3.Text & "@" & TextBox1.Text & ":" & TextBox4.Text & "/testco.txt")
|
|
ipserveur = "sftp://" & TextBox2.Text & ":" & TextBox3.Text & "@" & TextBox1.Text & ":" & TextBox4.Text
|
|
idftp = TextBox2.Text
|
|
passftp = TextBox3.Text
|
|
etap = 1
|
|
Button1.Hide()
|
|
etap2()
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
End Try
|
|
ElseIf etap = 1 Then
|
|
Try
|
|
My.Computer.Network.DownloadFile(TextBox1.Text & ":" & TextBox4.Text & "/testco.txt", dosrepertoire & "/testco.txt")
|
|
File.Delete(dosrepertoire & "/testco.txt")
|
|
ipsite = TextBox1.Text & ":" & TextBox4.Text
|
|
|
|
Dim MaRequete8 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserveur & "/testco.txt"), System.Net.FtpWebRequest)
|
|
Dim ftpStream8 As Stream = Nothing
|
|
|
|
MaRequete8.Credentials = New System.Net.NetworkCredential(idftp, passftp)
|
|
MaRequete8.Method = System.Net.WebRequestMethods.Ftp.DeleteFile
|
|
|
|
Dim response8 As FtpWebResponse = CType(MaRequete8.GetResponse, FtpWebResponse)
|
|
ftpStream8 = response8.GetResponseStream
|
|
ftpStream8.Close()
|
|
response8.Close()
|
|
|
|
If seconnecterserver = 1 Then
|
|
MsgBox("La connexion au serveur FTP et au serveur web est parfaite", MsgBoxStyle.Information, nommsgbox)
|
|
Dim msg = MsgBox("Voulez-vous vraiment vous connecter a ce serveur ?", MsgBoxStyle.YesNo, nommsgbox)
|
|
If msg = MsgBoxResult.Yes Then
|
|
Form4.seconnecterserver = 1
|
|
Form4.ShowDialog()
|
|
Else
|
|
Close()
|
|
End If
|
|
Else
|
|
MsgBox("La connexion au serveur FTP et au serveur web est parfaite", MsgBoxStyle.Information, nommsgbox)
|
|
Dim msg = MsgBox("Voulez-vous vraiment initialiser ce serveur ?", MsgBoxStyle.YesNo, nommsgbox)
|
|
If msg = MsgBoxResult.Yes Then
|
|
etap3()
|
|
Else
|
|
Close()
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
Sub etap2()
|
|
File.Delete(dosrepertoire & "testco.txt")
|
|
Label1.Text = "étape 2: Connextion au serveur web"
|
|
Label2.Text = "Addresse IP / nom de domaine:"
|
|
TextBox1.Text = "http://" & TextBox1.Text
|
|
TextBox2.Hide()
|
|
TextBox3.Hide()
|
|
Label3.Hide()
|
|
Label4.Hide()
|
|
Label5.Text = "Le port"
|
|
TextBox4.Text = "80"
|
|
End Sub
|
|
Sub etap3()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserveur & "/CLM/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential(idftp, passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
|
|
Dim MaRequete2 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserveur & "/CLM/utilisateur/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream2 As Stream = Nothing
|
|
|
|
MaRequete2.Credentials = New System.Net.NetworkCredential(idftp, passftp)
|
|
MaRequete2.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response2 As FtpWebResponse = CType(MaRequete2.GetResponse, FtpWebResponse)
|
|
ftpStream2 = response2.GetResponseStream
|
|
ftpStream2.Close()
|
|
response2.Close()
|
|
|
|
Dim MaRequete3 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserveur & "/CLM/logiciel/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream3 As Stream = Nothing
|
|
|
|
MaRequete3.Credentials = New System.Net.NetworkCredential(idftp, passftp)
|
|
MaRequete3.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response3 As FtpWebResponse = CType(MaRequete3.GetResponse, FtpWebResponse)
|
|
ftpStream3 = response3.GetResponseStream
|
|
ftpStream3.Close()
|
|
response3.Close()
|
|
|
|
Dim MaRequete9 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserveur & "/CLM/logiciel/profil/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream9 As Stream = Nothing
|
|
|
|
MaRequete9.Credentials = New System.Net.NetworkCredential(idftp, passftp)
|
|
MaRequete9.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response9 As FtpWebResponse = CType(MaRequete9.GetResponse, FtpWebResponse)
|
|
ftpStream9 = response9.GetResponseStream
|
|
ftpStream9.Close()
|
|
response9.Close()
|
|
|
|
Dim MaRequete10 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserveur & "/CLM/logiciel/profil/default/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream10 As Stream = Nothing
|
|
|
|
MaRequete10.Credentials = New System.Net.NetworkCredential(idftp, passftp)
|
|
MaRequete10.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response10 As FtpWebResponse = CType(MaRequete9.GetResponse, FtpWebResponse)
|
|
ftpStream10 = response10.GetResponseStream
|
|
ftpStream10.Close()
|
|
response10.Close()
|
|
|
|
Dim MaRequete4 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserveur & "/CLM/logiciel/profil/default/tout/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream4 As Stream = Nothing
|
|
|
|
MaRequete4.Credentials = New System.Net.NetworkCredential(idftp, passftp)
|
|
MaRequete4.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response4 As FtpWebResponse = CType(MaRequete4.GetResponse, FtpWebResponse)
|
|
ftpStream4 = response4.GetResponseStream
|
|
ftpStream4.Close()
|
|
response4.Close()
|
|
|
|
Dim MaRequete5 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserveur & "/CLM/logiciel/profil/default/categorie/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream5 As Stream = Nothing
|
|
|
|
MaRequete5.Credentials = New System.Net.NetworkCredential(idftp, passftp)
|
|
MaRequete5.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response5 As FtpWebResponse = CType(MaRequete5.GetResponse, FtpWebResponse)
|
|
ftpStream5 = response5.GetResponseStream
|
|
ftpStream5.Close()
|
|
response5.Close()
|
|
|
|
Dim MaRequete6 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserveur & "/CLM/mail/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream6 As Stream = Nothing
|
|
|
|
MaRequete6.Credentials = New System.Net.NetworkCredential(idftp, passftp)
|
|
MaRequete6.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response6 As FtpWebResponse = CType(MaRequete6.GetResponse, FtpWebResponse)
|
|
ftpStream6 = response6.GetResponseStream
|
|
ftpStream6.Close()
|
|
response6.Close()
|
|
|
|
Dim MaRequete7 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserveur & "/CLM/config/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream7 As Stream = Nothing
|
|
|
|
MaRequete7.Credentials = New System.Net.NetworkCredential(idftp, passftp)
|
|
MaRequete7.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response7 As FtpWebResponse = CType(MaRequete7.GetResponse, FtpWebResponse)
|
|
ftpStream7 = response7.GetResponseStream
|
|
ftpStream7.Close()
|
|
response7.Close()
|
|
|
|
Dim sw1 As New StreamWriter(dosrepertoire & "index.html")
|
|
sw1.WriteLine("")
|
|
sw1.Close()
|
|
|
|
My.Computer.Network.UploadFile(dosrepertoire & "index.html", ipserveur & "/CLM/logiciel/profil/default/categorie/index.html")
|
|
My.Computer.Network.UploadFile(dosrepertoire & "index.html", ipserveur & "/CLM/logiciel/profil/default/tout/index.html")
|
|
My.Computer.Network.UploadFile(dosrepertoire & "index.html", ipserveur & "/CLM/logiciel/profil/default/index.html")
|
|
My.Computer.Network.UploadFile(dosrepertoire & "index.html", ipserveur & "/CLM/logiciel/profil/index.html")
|
|
My.Computer.Network.UploadFile(dosrepertoire & "index.html", ipserveur & "/CLM/logiciel/index.html")
|
|
My.Computer.Network.UploadFile(dosrepertoire & "index.html", ipserveur & "/CLM/utilisateur/index.html")
|
|
My.Computer.Network.UploadFile(dosrepertoire & "index.html", ipserveur & "/CLM/mail/index.html")
|
|
My.Computer.Network.UploadFile(dosrepertoire & "index.html", ipserveur & "/CLM/config/index.html")
|
|
My.Computer.Network.UploadFile(dosrepertoire & "index.html", ipserveur & "/CLM/index.html")
|
|
File.Delete(dosrepertoire & "index.html")
|
|
MsgBox("L'initialisation est terminée", MsgBoxStyle.Information, nommsgbox)
|
|
Form4.ShowDialog()
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox4.KeyPress
|
|
If Not desnoméro.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
|
|
e.Handled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
If Button1.Text = "afficher" Then
|
|
TextBox3.UseSystemPasswordChar = False
|
|
Button1.Text = "cacher"
|
|
Else
|
|
TextBox3.UseSystemPasswordChar = True
|
|
Button1.Text = "afficher"
|
|
End If
|
|
End Sub
|
|
End Class |