first commit

This commit is contained in:
2026-06-18 14:03:08 +02:00
commit fbea6e53ae
112 changed files with 132665 additions and 0 deletions
+6
View File
@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
</startup>
</configuration>
+10
View File
@@ -0,0 +1,10 @@
Namespace My
' Les événements suivants sont disponibles pour MyApplication :
' Startup : Déclenché au démarrage de l'application avant la création du formulaire de démarrage.
' Shutdown : Déclenché après la fermeture de tous les formulaires de l'application. Cet événement n'est pas déclenché si l'application se termine de façon anormale.
' UnhandledException : Déclenché si l'application rencontre une exception non gérée.
' StartupNextInstance : Déclenché lors du lancement d'une application à instance unique et si cette application est déjà active.
' NetworkAvailabilityChanged : Déclenché quand la connexion réseau est connectée ou déconnectée.
Partial Friend Class MyApplication
End Class
End Namespace
+25
View File
@@ -0,0 +1,25 @@
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 17
VisualStudioVersion = 17.10.35122.118
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CLM", "CLM.vbproj", "{3D2BC5EF-9E15-409B-90A4-F12CE31AD38F}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{3D2BC5EF-9E15-409B-90A4-F12CE31AD38F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{3D2BC5EF-9E15-409B-90A4-F12CE31AD38F}.Debug|Any CPU.Build.0 = Debug|Any CPU
{3D2BC5EF-9E15-409B-90A4-F12CE31AD38F}.Release|Any CPU.ActiveCfg = Release|Any CPU
{3D2BC5EF-9E15-409B-90A4-F12CE31AD38F}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {E0B0FDD8-81F4-4629-95F8-6D1F46BB11FF}
EndGlobalSection
EndGlobal
+248
View File
@@ -0,0 +1,248 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{3D2BC5EF-9E15-409B-90A4-F12CE31AD38F}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>CLM.My.MyApplication</StartupObject>
<RootNamespace>CLM</RootNamespace>
<AssemblyName>CLM</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>CLM.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>CLM.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>_e9398ad1-e191-489a-adaa-5307f701f5dc.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="Guna.UI">
<HintPath>Z:\dev\lecteur média\logi\Guna.UI.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.IO.Compression.FileSystem" />
<Reference Include="System.IO.Compression.ZipFile, Version=4.0.2.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
<HintPath>packages\System.IO.Compression.ZipFile.4.3.0\lib\net46\System.IO.Compression.ZipFile.dll</HintPath>
<Private>True</Private>
<Private>True</Private>
</Reference>
<Reference Include="System.Management" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="Chrome.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="env.vb" />
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="Form2.Designer.vb">
<DependentUpon>Form2.vb</DependentUpon>
</Compile>
<Compile Include="Form2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form3.Designer.vb">
<DependentUpon>Form3.vb</DependentUpon>
</Compile>
<Compile Include="Form3.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form4.Designer.vb">
<DependentUpon>Form4.vb</DependentUpon>
</Compile>
<Compile Include="Form4.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form5.Designer.vb">
<DependentUpon>Form5.vb</DependentUpon>
</Compile>
<Compile Include="Form5.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form6.Designer.vb">
<DependentUpon>Form6.vb</DependentUpon>
</Compile>
<Compile Include="Form6.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form7.Designer.vb">
<DependentUpon>Form7.vb</DependentUpon>
</Compile>
<Compile Include="Form7.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form8.Designer.vb">
<DependentUpon>Form8.vb</DependentUpon>
</Compile>
<Compile Include="Form8.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form9.Designer.vb">
<DependentUpon>Form9.vb</DependentUpon>
</Compile>
<Compile Include="Form9.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="SplashScreen1.Designer.vb">
<DependentUpon>SplashScreen1.vb</DependentUpon>
</Compile>
<Compile Include="SplashScreen1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="variable.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Chrome.resx">
<DependentUpon>Chrome.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form2.resx">
<DependentUpon>Form2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form3.resx">
<DependentUpon>Form3.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form4.resx">
<DependentUpon>Form4.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form5.resx">
<DependentUpon>Form5.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form6.resx">
<DependentUpon>Form6.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form7.resx">
<DependentUpon>Form7.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form8.resx">
<DependentUpon>Form8.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form9.resx">
<DependentUpon>Form9.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="SplashScreen1.resx">
<DependentUpon>SplashScreen1.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
<None Include="packages.config" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\erggr.png" />
<None Include="Resources\gyugcdyug.png" />
<Content Include="_e9398ad1-e191-489a-adaa-5307f701f5dc.ico" />
</ItemGroup>
<ItemGroup>
<COMReference Include="IWshRuntimeLibrary">
<Guid>{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}</Guid>
<VersionMajor>1</VersionMajor>
<VersionMinor>0</VersionMinor>
<Lcid>0</Lcid>
<WrapperTool>tlbimp</WrapperTool>
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>
+120
View File
@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
+2506
View File
File diff suppressed because it is too large Load Diff
+1815
View File
File diff suppressed because it is too large Load Diff
+54962
View File
File diff suppressed because it is too large Load Diff
+4192
View File
File diff suppressed because it is too large Load Diff
+96
View File
@@ -0,0 +1,96 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form2
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form2))
Me.GunaButton1 = New Guna.UI.WinForms.GunaButton()
Me.GunaButton2 = New Guna.UI.WinForms.GunaButton()
Me.SuspendLayout()
'
'GunaButton1
'
Me.GunaButton1.AnimationHoverSpeed = 0.07!
Me.GunaButton1.AnimationSpeed = 0.03!
Me.GunaButton1.BaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.DialogResult = System.Windows.Forms.DialogResult.None
Me.GunaButton1.FocusedColor = System.Drawing.Color.Empty
Me.GunaButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.GunaButton1.ForeColor = System.Drawing.Color.White
Me.GunaButton1.Image = CType(resources.GetObject("GunaButton1.Image"), System.Drawing.Image)
Me.GunaButton1.ImageSize = New System.Drawing.Size(20, 20)
Me.GunaButton1.Location = New System.Drawing.Point(12, 12)
Me.GunaButton1.Name = "GunaButton1"
Me.GunaButton1.OnHoverBaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverForeColor = System.Drawing.Color.White
Me.GunaButton1.OnHoverImage = Nothing
Me.GunaButton1.OnPressedColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.Size = New System.Drawing.Size(209, 42)
Me.GunaButton1.TabIndex = 0
Me.GunaButton1.Text = "Se connecter a un serveur"
'
'GunaButton2
'
Me.GunaButton2.AnimationHoverSpeed = 0.07!
Me.GunaButton2.AnimationSpeed = 0.03!
Me.GunaButton2.BaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton2.DialogResult = System.Windows.Forms.DialogResult.None
Me.GunaButton2.FocusedColor = System.Drawing.Color.Empty
Me.GunaButton2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.GunaButton2.ForeColor = System.Drawing.Color.White
Me.GunaButton2.Image = CType(resources.GetObject("GunaButton2.Image"), System.Drawing.Image)
Me.GunaButton2.ImageSize = New System.Drawing.Size(20, 20)
Me.GunaButton2.Location = New System.Drawing.Point(12, 60)
Me.GunaButton2.Name = "GunaButton2"
Me.GunaButton2.OnHoverBaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton2.OnHoverBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton2.OnHoverForeColor = System.Drawing.Color.White
Me.GunaButton2.OnHoverImage = Nothing
Me.GunaButton2.OnPressedColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton2.Size = New System.Drawing.Size(209, 42)
Me.GunaButton2.TabIndex = 0
Me.GunaButton2.Text = "Inisialiser un serveur"
'
'Form2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(233, 116)
Me.Controls.Add(Me.GunaButton2)
Me.Controls.Add(Me.GunaButton1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(249, 155)
Me.MinimumSize = New System.Drawing.Size(249, 155)
Me.Name = "Form2"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "CLM / setup"
Me.ResumeLayout(False)
End Sub
Friend WithEvents GunaButton1 As Guna.UI.WinForms.GunaButton
Friend WithEvents GunaButton2 As Guna.UI.WinForms.GunaButton
End Class
+4658
View File
File diff suppressed because it is too large Load Diff
+11
View File
@@ -0,0 +1,11 @@
Public Class Form2
Private Sub GunaButton2_Click(sender As Object, e As EventArgs) Handles GunaButton2.Click
Form3.ShowDialog()
End Sub
Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click
Form3.seconnecterserver = 1
Form3.ShowDialog()
End Sub
End Class
+183
View File
@@ -0,0 +1,183 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form3
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form3))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.GunaButton1 = New Guna.UI.WinForms.GunaButton()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Label1"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 36)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(39, 13)
Me.Label2.TabIndex = 0
Me.Label2.Text = "Label1"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(112, 67)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 0
Me.Label3.Text = "Label1"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(89, 92)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(39, 13)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Label1"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(165, 36)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(172, 20)
Me.TextBox1.TabIndex = 0
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(165, 62)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(172, 20)
Me.TextBox2.TabIndex = 2
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(165, 88)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(172, 20)
Me.TextBox3.TabIndex = 3
Me.TextBox3.UseSystemPasswordChar = True
'
'GunaButton1
'
Me.GunaButton1.AnimationHoverSpeed = 0.07!
Me.GunaButton1.AnimationSpeed = 0.03!
Me.GunaButton1.BaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.DialogResult = System.Windows.Forms.DialogResult.None
Me.GunaButton1.FocusedColor = System.Drawing.Color.Empty
Me.GunaButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.GunaButton1.ForeColor = System.Drawing.Color.White
Me.GunaButton1.Image = CType(resources.GetObject("GunaButton1.Image"), System.Drawing.Image)
Me.GunaButton1.ImageSize = New System.Drawing.Size(20, 20)
Me.GunaButton1.Location = New System.Drawing.Point(12, 114)
Me.GunaButton1.Name = "GunaButton1"
Me.GunaButton1.OnHoverBaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverForeColor = System.Drawing.Color.White
Me.GunaButton1.OnHoverImage = Nothing
Me.GunaButton1.OnPressedColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.Size = New System.Drawing.Size(423, 42)
Me.GunaButton1.TabIndex = 4
Me.GunaButton1.Text = "Suivant"
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(387, 41)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(48, 20)
Me.TextBox4.TabIndex = 1
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(343, 43)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(39, 13)
Me.Label5.TabIndex = 0
Me.Label5.Text = "Label1"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(343, 85)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(98, 23)
Me.Button1.TabIndex = 5
Me.Button1.Text = "afficher"
Me.Button1.UseVisualStyleBackColor = True
'
'Form3
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(447, 166)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.GunaButton1)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(463, 205)
Me.MinimumSize = New System.Drawing.Size(463, 205)
Me.Name = "Form3"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents TextBox2 As TextBox
Friend WithEvents TextBox3 As TextBox
Friend WithEvents GunaButton1 As Guna.UI.WinForms.GunaButton
Friend WithEvents TextBox4 As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents Button1 As Button
End Class
+4645
View File
File diff suppressed because it is too large Load Diff
+238
View File
@@ -0,0 +1,238 @@
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
+104
View File
@@ -0,0 +1,104 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form4
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form4))
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.GunaButton1 = New Guna.UI.WinForms.GunaButton()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Label1"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(12, 25)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(252, 20)
Me.TextBox1.TabIndex = 0
'
'GunaButton1
'
Me.GunaButton1.AnimationHoverSpeed = 0.07!
Me.GunaButton1.AnimationSpeed = 0.03!
Me.GunaButton1.BaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.DialogResult = System.Windows.Forms.DialogResult.None
Me.GunaButton1.FocusedColor = System.Drawing.Color.Empty
Me.GunaButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.GunaButton1.ForeColor = System.Drawing.Color.White
Me.GunaButton1.Image = CType(resources.GetObject("GunaButton1.Image"), System.Drawing.Image)
Me.GunaButton1.ImageSize = New System.Drawing.Size(20, 20)
Me.GunaButton1.Location = New System.Drawing.Point(12, 51)
Me.GunaButton1.Name = "GunaButton1"
Me.GunaButton1.OnHoverBaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverForeColor = System.Drawing.Color.White
Me.GunaButton1.OnHoverImage = Nothing
Me.GunaButton1.OnPressedColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.Size = New System.Drawing.Size(319, 42)
Me.GunaButton1.TabIndex = 1
Me.GunaButton1.Text = "GunaButton1"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(270, 25)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(69, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "afficher"
Me.Button1.UseVisualStyleBackColor = True
'
'Form4
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(343, 102)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.GunaButton1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(359, 141)
Me.MinimumSize = New System.Drawing.Size(359, 141)
Me.Name = "Form4"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents GunaButton1 As Guna.UI.WinForms.GunaButton
Friend WithEvents Button1 As Button
End Class
+4645
View File
File diff suppressed because it is too large Load Diff
+259
View File
@@ -0,0 +1,259 @@

Imports System.ComponentModel
Imports System.IO
Imports System.Net
Imports System.Security.Cryptography
Imports System.Text
Public Class Form4
Dim etap As Integer = 0
Dim etapseco As Integer = 0
Public clés As String = ""
Dim mdp As String = ""
Public user1234 As String = ""
Public encours As Integer = 1
Public seconnecterserver As Integer = 0
Dim nommsgbox As String = "CLM / configuration du serveur"
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If seconnecterserver = 1 Then
Text = nom & " / configuration du client"
nommsgbox = Text
encours = 1
etapseco = 0
Label1.Text = "Entrer un nom de compte administrateur"
GunaButton1.Text = "Suivant"
Else
Button1.Show()
Text = nom & " / configuration du serveur"
nommsgbox = Text
encours = 1
etap = 0
Label1.Text = "Entrer une clé de chiffrage"
GunaButton1.Text = "Suivant"
TextBox1.MaxLength = 8
TextBox1.UseSystemPasswordChar = True
End If
End Sub
Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click
TextBox1.Select()
If etap = 0 And seconnecterserver = 0 Then
If TextBox1.TextLength < 8 Then
MsgBox("Il faut 8 caractères", MsgBoxStyle.Critical, nommsgbox)
Else
clés = TextBox1.Text
TextBox1.Clear()
etap = 1
etap2()
End If
ElseIf etap = 1 Then
If TextBox1.TextLength < 8 Then
MsgBox("Il faut 8 caractères", MsgBoxStyle.Critical, nommsgbox)
Else
If TextBox1.Text = clés Then
Button1.Text = "afficher"
TextBox1.UseSystemPasswordChar = False
Button1.Hide()
etap3()
Else
MsgBox("Les clés de chiffrage correspondent pas", MsgBoxStyle.Critical, nommsgbox)
TextBox1.Clear()
TextBox1.MaxLength = 8
etap = 0
Label1.Text = "Entrer une clé de chiffrage"
GunaButton1.Text = "Suivant"
End If
End If
ElseIf etap = 2 And seconnecterserver = 0 Then
user1234 = TextBox1.Text
TextBox1.Clear()
etap4()
ElseIf etap = 3 And seconnecterserver = 0 Then
mdp = TextBox1.Text
TextBox1.Clear()
etap5()
ElseIf etap = 4 And seconnecterserver = 0 Then
If TextBox1.Text = mdp Then
TextBox1.UseSystemPasswordChar = False
Button1.Hide()
etap6()
Else
MsgBox("Les mots de passe ne correspondent pas", MsgBoxStyle.Critical, nommsgbox)
TextBox1.Clear()
etap = 3
Label1.Text = "Entrer un mot de passe"
GunaButton1.Text = "Suivant"
TextBox1.MaxLength = 999999999
End If
End If
End Sub
Sub etap2()
Label1.Text = "Confirmer la clé de chiffrage"
GunaButton1.Text = "Confirmer"
End Sub
Sub etap3()
Try
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(clés.ToString)
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes(crypCLM.ToString)
Dim Crypto As New DESCryptoServiceProvider()
Crypto.Key = keyBytes
Crypto.IV = keyBytes
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
Dim passecrypt = Convert.ToBase64String(Resultatbytes)
Dim sw1 As New StreamWriter(dosconnextion & "clecrypt.txt")
sw1.WriteLine(passecrypt)
sw1.Close()
etap = 2
TextBox1.Clear()
Label1.Text = "Entrer un nom de compte"
GunaButton1.Text = "Suivant"
TextBox1.MaxLength = 999999999
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Sub etap4()
Button1.Text = "afficher"
Button1.Show()
TextBox1.UseSystemPasswordChar = True
etap = 3
Label1.Text = "Entrer un mot de passe"
GunaButton1.Text = "Suivant"
TextBox1.MaxLength = 999999999
End Sub
Sub etap5()
etap = 4
Label1.Text = "confirmer le mot de passe"
GunaButton1.Text = "Confirmer"
TextBox1.MaxLength = 999999999
End Sub
Sub etap6()
Try
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(Form3.ipserveur & "/CLM/utilisateur/" & user1234.ToString & "/"), System.Net.FtpWebRequest)
Dim ftpStream As Stream = Nothing
MaRequete.Credentials = New System.Net.NetworkCredential(Form3.idftp, Form3.passftp)
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
ftpStream = response.GetResponseStream
ftpStream.Close()
response.Close()
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(mdp)
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes(clés)
Dim Crypto As New DESCryptoServiceProvider()
Crypto.Key = keyBytes
Crypto.IV = keyBytes
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
Dim passecrypt = Convert.ToBase64String(Resultatbytes)
Dim sw1 As New StreamWriter(dosrepertoire & "mdp.txt")
sw1.WriteLine(passecrypt)
sw1.Close()
Dim sw2 As New StreamWriter(dosrepertoire & "grade.txt")
sw2.WriteLine(2)
sw2.Close()
My.Computer.Network.UploadFile(dosrepertoire & "mdp.txt", Form3.ipserveur & "/CLM/utilisateur/" & user1234 & "/mdp.txt")
My.Computer.Network.UploadFile(dosrepertoire & "grade.txt", Form3.ipserveur & "/CLM/utilisateur/" & user1234 & "/grade.txt.txt")
My.Computer.Network.UploadFile(dosconnextion & "clecrypt.txt", Form3.ipserveur & "/CLM/config/clecrypt.txt")
File.Delete(dosrepertoire & "mdp.txt")
File.Delete(dosrepertoire & "grade.txt")
Dim sw3 As New StreamWriter(dosconnextion & "compte.txt")
sw3.WriteLine(user1234)
sw3.WriteLine(passecrypt)
sw3.Close()
Dim sw4 As New StreamWriter(dosconnextion & "connecter.txt")
sw4.WriteLine(1)
sw4.Close()
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(Form3.ipserveur)
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes(clés)
Dim Crypto2 As New DESCryptoServiceProvider()
Crypto2.Key = keyBytes2
Crypto2.IV = keyBytes2
Dim Icrypto2 As ICryptoTransform = Crypto2.CreateEncryptor
Dim Resultatbytes2() As Byte = Icrypto2.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
Dim ipserveurcrypte = Convert.ToBase64String(Resultatbytes2)
Dim texteEnBytes3() As Byte = Encoding.UTF8.GetBytes(Form3.ipsite)
Dim keyBytes3() As Byte = Encoding.UTF8.GetBytes(clés)
Dim Crypto3 As New DESCryptoServiceProvider()
Crypto3.Key = keyBytes3
Crypto3.IV = keyBytes3
Dim Icrypto3 As ICryptoTransform = Crypto3.CreateEncryptor
Dim Resultatbytes3() As Byte = Icrypto3.TransformFinalBlock(texteEnBytes3, 0, texteEnBytes3.Length)
Dim ipsitecrypte = Convert.ToBase64String(Resultatbytes3)
Dim texteEnBytes4() As Byte = Encoding.UTF8.GetBytes(Form3.idftp)
Dim keyBytes4() As Byte = Encoding.UTF8.GetBytes(clés)
Dim Crypto4 As New DESCryptoServiceProvider()
Crypto4.Key = keyBytes4
Crypto4.IV = keyBytes4
Dim Icrypto4 As ICryptoTransform = Crypto4.CreateEncryptor
Dim Resultatbytes4() As Byte = Icrypto4.TransformFinalBlock(texteEnBytes4, 0, texteEnBytes4.Length)
Dim idftpcrypte = Convert.ToBase64String(Resultatbytes4)
Dim texteEnBytes5() As Byte = Encoding.UTF8.GetBytes(Form3.passftp)
Dim keyBytes5() As Byte = Encoding.UTF8.GetBytes(clés)
Dim Crypto5 As New DESCryptoServiceProvider()
Crypto5.Key = keyBytes5
Crypto5.IV = keyBytes5
Dim Icrypto5 As ICryptoTransform = Crypto5.CreateEncryptor
Dim Resultatbytes5() As Byte = Icrypto5.TransformFinalBlock(texteEnBytes5, 0, texteEnBytes5.Length)
Dim passftpcrypte = Convert.ToBase64String(Resultatbytes5)
Dim sw5 As New StreamWriter(dosconnextion & "serveur.txt")
sw5.WriteLine(ipserveurcrypte)
sw5.WriteLine(ipsitecrypte)
sw5.WriteLine(idftpcrypte)
sw5.WriteLine(passftpcrypte)
sw5.Close()
MsgBox("L'administrateur: " & user1234 & " a bien été créer", MsgBoxStyle.Information, nommsgbox)
Dim msg = MsgBox("Voulez-vous configurer le service mail ?", MsgBoxStyle.YesNo, nommsgbox)
If msg = MsgBoxResult.Yes Then
Form5.ShowDialog()
encours = 0
Form3.Close()
Form2.Close()
Form1.Visible = True
Form1.Show()
Form1.ShowInTaskbar = True
Form1.start()
Close()
Else
encours = 0
Form3.Close()
Form2.Close()
Form1.Visible = True
Form1.Show()
Form1.ShowInTaskbar = True
Form1.start()
Close()
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Form4_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
If encours = 1 Then
e.Cancel = True
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Button1.Text = "afficher" Then
TextBox1.UseSystemPasswordChar = False
Button1.Text = "cacher"
Else
TextBox1.UseSystemPasswordChar = True
Button1.Text = "afficher"
End If
End Sub
End Class
+195
View File
@@ -0,0 +1,195 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form5
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form5))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.GunaButton1 = New Guna.UI.WinForms.GunaButton()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.TextBox5 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(47, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(70, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "serveur smtp:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 33)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(111, 13)
Me.Label2.TabIndex = 0
Me.Label2.Text = "adresse mail d'envoie:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(39, 63)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(78, 13)
Me.Label3.TabIndex = 0
Me.Label3.Text = "mots de passe:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(8, 89)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(109, 13)
Me.Label4.TabIndex = 0
Me.Label4.Text = "adresse mail de teste:"
'
'GunaButton1
'
Me.GunaButton1.AnimationHoverSpeed = 0.07!
Me.GunaButton1.AnimationSpeed = 0.03!
Me.GunaButton1.BaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.DialogResult = System.Windows.Forms.DialogResult.None
Me.GunaButton1.FocusedColor = System.Drawing.Color.Empty
Me.GunaButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.GunaButton1.ForeColor = System.Drawing.Color.White
Me.GunaButton1.Image = CType(resources.GetObject("GunaButton1.Image"), System.Drawing.Image)
Me.GunaButton1.ImageSize = New System.Drawing.Size(20, 20)
Me.GunaButton1.Location = New System.Drawing.Point(12, 113)
Me.GunaButton1.Name = "GunaButton1"
Me.GunaButton1.OnHoverBaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverForeColor = System.Drawing.Color.White
Me.GunaButton1.OnHoverImage = Nothing
Me.GunaButton1.OnPressedColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.Size = New System.Drawing.Size(407, 30)
Me.GunaButton1.TabIndex = 5
Me.GunaButton1.Text = "Suivant"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(123, 6)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(227, 20)
Me.TextBox1.TabIndex = 0
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(123, 32)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(227, 20)
Me.TextBox2.TabIndex = 2
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(123, 61)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(227, 20)
Me.TextBox3.TabIndex = 3
Me.TextBox3.UseSystemPasswordChar = True
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(123, 87)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(227, 20)
Me.TextBox4.TabIndex = 4
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(356, 9)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(28, 13)
Me.Label5.TabIndex = 0
Me.Label5.Text = "port:"
'
'TextBox5
'
Me.TextBox5.Location = New System.Drawing.Point(381, 6)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(45, 20)
Me.TextBox5.TabIndex = 1
Me.TextBox5.Text = "587"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(356, 62)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(69, 23)
Me.Button1.TabIndex = 6
Me.Button1.Text = "afficher"
Me.Button1.UseVisualStyleBackColor = True
'
'Form5
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(431, 147)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.GunaButton1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(447, 186)
Me.MinimumSize = New System.Drawing.Size(447, 186)
Me.Name = "Form5"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Form5"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents GunaButton1 As Guna.UI.WinForms.GunaButton
Friend WithEvents TextBox1 As TextBox
Friend WithEvents TextBox2 As TextBox
Friend WithEvents TextBox3 As TextBox
Friend WithEvents TextBox4 As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents TextBox5 As TextBox
Friend WithEvents Button1 As Button
End Class
+4645
View File
File diff suppressed because it is too large Load Diff
+190
View File
@@ -0,0 +1,190 @@
Imports System.ComponentModel
Imports System.IO
Imports System.Net.Mail
Imports System.Security.Cryptography
Imports System.Text
Public Class Form5
Dim etap As Integer = 0
Dim codegener As String = ""
Dim srvsmtp As String = ""
Dim usersmtp As String = ""
Dim portsmtp As Integer = 0
Dim mdpsmtp As String = ""
Dim mailadmin As String = ""
Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Text = nom & " configuration du service mail"
End Sub
Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click
If etap = 0 Then
srvsmtp = TextBox1.Text
usersmtp = TextBox2.Text
portsmtp = TextBox5.Text
mdpsmtp = TextBox3.Text
Dim NumRandom As Integer
Dim Rand As Random = New Random
Dim NumStr As String
Dim code As String = ""
NumRandom = (Rand.Next(1, 999999))
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
code = nom & "-" & NumStr
Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient(TextBox1.Text)
Dim mail = TextBox4.Text
Dim message = "Bonjour et félicitation si vous recevez ce mail c'est que tout est correctement configuré." & vbNewLine & vbNewLine & "voici le code de confirmation: " & code
MyMailMessage.From = New MailAddress(TextBox2.Text)
MyMailMessage.To.Add(mail)
MyMailMessage.Subject = ("configuration du service mail pour " & nom)
MyMailMessage.Body = (message)
SMTPServer.Port = (TextBox5.Text) 'Port
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage) 'Envoi
codegener = code
MsgBox("Le un mail de test à êtê envoyé à " & mail, MsgBoxStyle.Information, nom & "/ configuration du service mail")
Dim msg = MsgBox("Avez-vous bien reçu le mail ?", MsgBoxStyle.YesNo, nom & "/ configuration du service mail")
If msg = MsgBoxResult.Yes Then
etap = 1
etap1()
Else
End If
ElseIf etap = 1 Then
If codegener = TextBox1.Text Then
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(srvsmtp)
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes(Form4.clés)
Dim Crypto As New DESCryptoServiceProvider()
Crypto.Key = keyBytes
Crypto.IV = keyBytes
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
Dim srvsmtpcrypt = Convert.ToBase64String(Resultatbytes)
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(usersmtp)
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes(Form4.clés)
Dim Crypto2 As New DESCryptoServiceProvider()
Crypto2.Key = keyBytes2
Crypto2.IV = keyBytes2
Dim Icrypto2 As ICryptoTransform = Crypto2.CreateEncryptor
Dim Resultatbytes2() As Byte = Icrypto2.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
Dim usersmtpcrypt = Convert.ToBase64String(Resultatbytes2)
Dim texteEnBytes3() As Byte = Encoding.UTF8.GetBytes(portsmtp)
Dim keyBytes3() As Byte = Encoding.UTF8.GetBytes(Form4.clés)
Dim Crypto3 As New DESCryptoServiceProvider()
Crypto3.Key = keyBytes3
Crypto3.IV = keyBytes3
Dim Icrypto3 As ICryptoTransform = Crypto3.CreateEncryptor
Dim Resultatbytes3() As Byte = Icrypto3.TransformFinalBlock(texteEnBytes3, 0, texteEnBytes3.Length)
Dim portsmtpcrypt = Convert.ToBase64String(Resultatbytes3)
Dim texteEnBytes4() As Byte = Encoding.UTF8.GetBytes(mdpsmtp)
Dim keyBytes4() As Byte = Encoding.UTF8.GetBytes(Form4.clés)
Dim Crypto4 As New DESCryptoServiceProvider()
Crypto4.Key = keyBytes4
Crypto4.IV = keyBytes4
Dim Icrypto4 As ICryptoTransform = Crypto4.CreateEncryptor
Dim Resultatbytes4() As Byte = Icrypto4.TransformFinalBlock(texteEnBytes4, 0, texteEnBytes4.Length)
Dim mdpsmtpcrypt = Convert.ToBase64String(Resultatbytes4)
Dim sw1 As New StreamWriter(dosconnextion & "mailconfig.txt")
sw1.WriteLine(srvsmtpcrypt)
sw1.WriteLine(usersmtpcrypt)
sw1.WriteLine(portsmtpcrypt)
sw1.WriteLine(mdpsmtpcrypt)
sw1.Close()
My.Computer.Network.UploadFile(dosconnextion & "mailconfig.txt", Form3.ipserveur & "/CLM/mail/mailconfig.txt")
File.Delete(dosconnextion & "mailconfig.txt")
etap2()
Else
MsgBox("Le code ne correspond pas", MsgBoxStyle.Critical)
End If
ElseIf etap = 2 Then
mailadmin = TextBox1.Text
TextBox1.Clear()
etap3()
ElseIf etap = 3 Then
If TextBox1.Text = mailadmin Then
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox1.Text)
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes(Form4.clés)
Dim Crypto As New DESCryptoServiceProvider()
Crypto.Key = keyBytes
Crypto.IV = keyBytes
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
Dim mailadmincrypt = Convert.ToBase64String(Resultatbytes)
Dim sw1 As New StreamWriter(dosconnextion & "mail.txt")
sw1.WriteLine(mailadmincrypt)
sw1.Close()
My.Computer.Network.UploadFile(dosconnextion & "mail.txt", Form3.ipserveur & "/CLM/utilisateur/" & Form4.user1234 & "/mail.txt")
File.Delete(dosconnextion & "mail.txt")
Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient(srvsmtp)
Dim mail = TextBox1.Text
Dim message = "Bonjour administrateur, " & Form4.user1234 & " votre adresse mail a bien été enregistrer, pour des raison de sécurité nous vous envoyons la clé de cryptage." & vbNewLine & vbNewLine & "Clé de cryptage: " & Form4.clés
MyMailMessage.From = New MailAddress(usersmtp)
MyMailMessage.To.Add(mail)
MyMailMessage.Subject = (nom & " clé de cryptage")
MyMailMessage.Body = (message)
SMTPServer.Port = (portsmtp) 'Port
SMTPServer.Credentials = New System.Net.NetworkCredential(usersmtp, mdpsmtp)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage) 'Envoi
MsgBox("La configuration du serveur est terminée", MsgBoxStyle.Information)
Form4.encours = 0
Close()
End If
End If
End Sub
Sub etap1()
TextBox2.Hide()
TextBox3.Hide()
TextBox4.Hide()
TextBox5.Hide()
Label2.Hide()
Label3.Hide()
Label4.Hide()
Label5.Hide()
TextBox1.Clear()
Label1.Text = "Entrer le code:"
End Sub
Sub etap2()
TextBox1.Clear()
MsgBox("merci d'enterer un mail pour l'administrateur: " & Form4.user1234, MsgBoxStyle.Information, nom & "/ configuration service mail")
Label1.Text = "Entrer un mail: "
etap = 2
End Sub
Sub etap3()
Label1.Text = "Confirmer"
GunaButton1.Text = "confirmer"
etap = 3
End Sub
Private Sub Form5_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
If Form4.encours = 1 Then
e.Cancel = True
End If
End Sub
Private Sub TextBox5_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox5.KeyPress
If Not Form3.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
+161
View File
@@ -0,0 +1,161 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form6
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form6))
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.GunaButton1 = New Guna.UI.WinForms.GunaButton()
Me.Label1 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.Label2 = New System.Windows.Forms.Label()
Me.ListBox1 = New System.Windows.Forms.ListBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(116, 138)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(134, 28)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(291, 122)
Me.TextBox1.TabIndex = 1
'
'GunaButton1
'
Me.GunaButton1.AnimationHoverSpeed = 0.07!
Me.GunaButton1.AnimationSpeed = 0.03!
Me.GunaButton1.BaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.BorderColor = System.Drawing.Color.Black
Me.GunaButton1.DialogResult = System.Windows.Forms.DialogResult.None
Me.GunaButton1.FocusedColor = System.Drawing.Color.Empty
Me.GunaButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.GunaButton1.ForeColor = System.Drawing.Color.White
Me.GunaButton1.Image = CType(resources.GetObject("GunaButton1.Image"), System.Drawing.Image)
Me.GunaButton1.ImageSize = New System.Drawing.Size(20, 20)
Me.GunaButton1.Location = New System.Drawing.Point(12, 197)
Me.GunaButton1.Name = "GunaButton1"
Me.GunaButton1.OnHoverBaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverForeColor = System.Drawing.Color.White
Me.GunaButton1.OnHoverImage = Nothing
Me.GunaButton1.OnPressedColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.Size = New System.Drawing.Size(413, 42)
Me.GunaButton1.TabIndex = 2
Me.GunaButton1.Text = "GunaButton1"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(141, 12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(63, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Description:"
'
'ComboBox1
'
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(192, 161)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(233, 21)
Me.ComboBox1.TabIndex = 4
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 161)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(116, 23)
Me.Button1.TabIndex = 5
Me.Button1.Text = "image"
Me.Button1.UseVisualStyleBackColor = True
'
'BackgroundWorker1
'
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(141, 164)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(45, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Version:"
'
'ListBox1
'
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New System.Drawing.Point(192, 44)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(192, 95)
Me.ListBox1.TabIndex = 6
'
'Form6
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(437, 251)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.GunaButton1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.ListBox1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(453, 290)
Me.MinimumSize = New System.Drawing.Size(453, 290)
Me.Name = "Form6"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Form6"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents TextBox1 As TextBox
Friend WithEvents GunaButton1 As Guna.UI.WinForms.GunaButton
Friend WithEvents Label1 As Label
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents Button1 As Button
Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
Friend WithEvents Label2 As Label
Friend WithEvents ListBox1 As ListBox
End Class
+4865
View File
File diff suppressed because it is too large Load Diff
+196
View File
@@ -0,0 +1,196 @@
Imports System.ComponentModel
Imports System.IO
Imports System.Net
Public Class Form6
Public CLMlient As String = ""
Public CLMpronom As String = ""
Dim encours As Integer = 0
Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
GunaButton1.Select()
CLMpronom = Text.Replace(nom.ToString & " / ", "")
My.Computer.Network.DownloadFile(CLMipsite & CLMlient & "/description.txt", dostemp & "/description.txt")
My.Computer.Network.DownloadFile(CLMipsite & CLMlient & "/version/versionactuel.txt", dostemp & "/versionactuel.txt")
Dim fileContent As String = File.ReadAllText(dostemp & "/description.txt")
Dim lines2 As String = File.ReadAllText(dostemp & "/versionactuel.txt")
TextBox1.Text = fileContent
File.Delete(dostemp & "/description.txt")
File.Delete(dostemp & "/versionactuel.txt")
If Directory.Exists(dosprogramefile & CLMpronom) = True Then
GunaButton1.Text = "Ouvrir: " & CLMpronom
ComboBox1.Hide()
Label2.Hide()
Else
ComboBox1.Show()
Label2.Show()
Dim fwr As FtpWebRequest
fwr = FtpWebRequest.Create(CLMPipserveur & CLMlient & "/version/")
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.Remove("versionactuel.txt")
ComboBox1.SelectedItem = lines2
End If
End Sub
Private Sub Form6_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
If encours = 1 Then
e.Cancel = True
Else
CLMlient = ""
CLMpronom = ""
PictureBox1.Image.Dispose()
ComboBox1.Items.Clear()
TextBox1.Clear()
End If
End Sub
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
GunaButton1.Text = "Télécharcher: " & CLMpronom & " " & ComboBox1.SelectedItem
End Sub
Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click
If GunaButton1.Text.Contains("Ouvrir:") = True Then
Dim lines1() As String = File.ReadAllLines(dosprogramefile.ToString & CLMpronom.ToString & "/nom.txt")
Try
Process.Start(dosprogramefile.ToString & CLMpronom.ToString & "/programe/" & lines1(0))
Catch ex As Exception
MsgBox("Une erreur est survenue", MsgBoxStyle.Critical, nom)
End Try
ElseIf GunaButton1.Text.Contains("Télécharcher:") Then
encours = 1
ComboBox1.Hide()
Label2.Hide()
Directory.CreateDirectory(dosprogramefile & CLMpronom)
téléchargerfr = New WebClient
téléchargerfr.DownloadFileTaskAsync(New Uri(CLMipsite.ToString & CLMlient.ToString & "/version/" & ComboBox1.SelectedItem.ToString & "/programe.zip"), (dosprogramefile & "\programe.zip"))
End If
End Sub
Private Sub téléchargerfr_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles téléchargerfr.DownloadProgressChanged
GunaButton1.Text = "Téléchargement: " & e.ProgressPercentage & "%"
End Sub
Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted
GunaButton1.Text = "installation....."
BackgroundWorker1.RunWorkerAsync()
End Sub
Dim WithEvents téléchargerfr As WebClient
Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
IO.Compression.ZipFile.ExtractToDirectory(dosprogramefile.ToString & "\programe.zip", dosprogramefile.ToString & CLMpronom.ToString & "\programe")
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
File.Delete(dosprogramefile.ToString & "\programe.zip")
Dim sw11 As New StreamWriter(dosprogramefile.ToString & CLMpronom.ToString & "/updatedl.txt")
sw11.WriteLine(CLMipsite.ToString & CLMlient.ToString)
sw11.Close()
Dim sw1 As New StreamWriter(dosprogramefile.ToString & CLMpronom.ToString & "/version.txt")
sw1.WriteLine(ComboBox1.SelectedItem)
sw1.Close()
My.Computer.Network.DownloadFile(CLMipsite.ToString & CLMlient.ToString & "/version/" & ComboBox1.SelectedItem.ToString & "/nom.txt", dosprogramefile.ToString & CLMpronom.ToString & "/nom.txt")
Dim lines2() As String = File.ReadAllLines(dosinstall & "/page.txt")
Dim lines3() As String = File.ReadAllLines(dosinstall & "/page" & lines2(0) & "/logi.txt")
Dim i As Integer = 1
While i <= lines2(0)
Dim lines4() As String = File.ReadAllLines(dosinstall & "/page" & i & "/logi.txt")
If lines4(0) = 10 Then
i = i + 1
Else
Directory.CreateDirectory(dosinstall & "/page" & i & "/" & CLMpronom & "/")
PictureBox1.Image.Save(dosinstall & "/page" & i & "/" & CLMpronom & "/image.jpg")
Dim sw23 As New StreamWriter(dosinstall & "/page" & i & "/" & CLMpronom & "/nom.txt")
sw23.WriteLine(CLMpronom)
sw23.Close()
ListBox1.Items.Clear()
For Each fichier As String In IO.Directory.GetDirectories(dosinstall & "/page" & i & "/")
Dim info As New IO.FileInfo(fichier)
ListBox1.Items.Add(info.Name)
Next
Dim sw2 As New StreamWriter(dosinstall & "/page" & i & "/logi.txt")
sw2.WriteLine(ListBox1.Items.Count)
sw2.Close()
Form1.vérifiinstall()
Exit While
End If
End While
If lines3(0) = 10 Then
Directory.CreateDirectory(dosinstall & "/page" & lines2(0).ToString + 1)
Dim sw23 As New StreamWriter(dosinstall & "/page.txt")
sw23.WriteLine(lines2(0).ToString + 1)
sw23.Close()
Dim lines2bis() As String = File.ReadAllLines(dosinstall & "/page.txt")
Directory.CreateDirectory(dosinstall & "/page" & lines2bis(0) & "/" & CLMpronom & "/")
PictureBox1.Image.Save(dosinstall & "/page" & lines2bis(0) & "/" & CLMpronom & "/image.jpg")
Dim sw234 As New StreamWriter(dosinstall & "/page" & lines2bis(0) & "/" & CLMpronom & "/nom.txt")
sw234.WriteLine(CLMpronom)
sw234.Close()
ListBox1.Items.Clear()
For Each fichier As String In IO.Directory.GetDirectories(dosinstall & "/page" & lines2bis(0) & "/")
Dim info As New IO.FileInfo(fichier)
ListBox1.Items.Add(info.Name)
Next
Dim sw22 As New StreamWriter(dosinstall & "/page" & lines2bis(0) & "/logi.txt")
sw22.WriteLine(ListBox1.Items.Count)
sw22.Close()
Form1.vérifiinstall()
End If
encours = 0
Dim msg = MsgBox("Voulez-vous créer un racourçi pour " & CLMpronom & " ?", MsgBoxStyle.YesNo, nom)
If msg = MsgBoxResult.Yes Then
Dim lines1() As String = File.ReadAllLines(dosprogramefile.ToString & CLMpronom.ToString & "/nom.txt")
Dim Bureau As IWshRuntimeLibrary.WshShell
Dim Raccourci As IWshRuntimeLibrary.WshShortcut
Dim VarTrav As String
Bureau = New IWshRuntimeLibrary.WshShell
' Chemin et nom du raccourci
VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & lines1(0) & ".lnk"
Raccourci = Bureau.CreateShortcut(VarTrav)
' Cible
Raccourci.TargetPath = dosprogramefile.ToString & CLMpronom.ToString & "/programe/" & lines1(0)
' Enregistrement
Raccourci.Save()
End If
GunaButton1.Text = "Ouvrir: " & CLMpronom
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Directory.CreateDirectory(dosprogramefile & "/imagetmp/")
My.Computer.Network.DownloadFile(CLMipsite & CLMlient & "/image.zip", dosprogramefile & "/image.zip")
IO.Compression.ZipFile.ExtractToDirectory(dosprogramefile & "/image.zip", dosprogramefile & "/imagetmp/")
File.Delete(dosprogramefile & "/image.zip")
Form7.Text = nom & " / image de " & CLMpronom
Form7.ShowDialog()
End Sub
End Class
+100
View File
@@ -0,0 +1,100 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form7
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form7))
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.ListBox1 = New System.Windows.Forms.ListBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, -2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(42, 255)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'PictureBox2
'
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(483, -2)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(42, 255)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox2.TabIndex = 0
Me.PictureBox2.TabStop = False
'
'PictureBox3
'
Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image)
Me.PictureBox3.Location = New System.Drawing.Point(48, -2)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(429, 255)
Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox3.TabIndex = 1
Me.PictureBox3.TabStop = False
'
'ListBox1
'
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New System.Drawing.Point(494, 158)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(120, 95)
Me.ListBox1.TabIndex = 2
'
'Form7
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(525, 252)
Me.Controls.Add(Me.PictureBox3)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.ListBox1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(541, 291)
Me.MinimumSize = New System.Drawing.Size(541, 291)
Me.Name = "Form7"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Form7"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents PictureBox3 As PictureBox
Friend WithEvents ListBox1 As ListBox
End Class
+6679
View File
File diff suppressed because it is too large Load Diff
+48
View File
@@ -0,0 +1,48 @@
Imports System.ComponentModel
Imports System.IO
Public Class Form7
Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ListBox1.Items.Clear()
For Each fichier As String In IO.Directory.GetFiles(dosprogramefile & "/imagetmp/")
Dim info As New IO.FileInfo(fichier)
ListBox1.Items.Add(fichier)
Next
ListBox1.SetSelected(0, True)
Text = nom & " / image de " & Form6.CLMpronom & " " & ListBox1.SelectedIndex + 1 & "/" & ListBox1.Items.Count
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
PictureBox3.Image.Dispose()
PictureBox3.Image = Image.FromFile(ListBox1.SelectedItem)
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
Try
ListBox1.SetSelected(ListBox1.SelectedIndex + 1, True)
Catch ex As Exception
ListBox1.SetSelected(0, True)
End Try
Text = nom & " / image de " & Form6.CLMpronom & " " & ListBox1.SelectedIndex + 1 & "/" & ListBox1.Items.Count
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
Try
ListBox1.SetSelected(ListBox1.SelectedIndex - 1, True)
Catch ex As Exception
ListBox1.SetSelected(ListBox1.Items.Count - 1, True)
End Try
Text = nom & " / image de " & Form6.CLMpronom & " " & ListBox1.SelectedIndex + 1 & "/" & ListBox1.Items.Count
End Sub
Private Sub Form7_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
PictureBox3.Image.Dispose()
For Each fichier As String In IO.Directory.GetFiles(dosprogramefile & "/imagetmp/")
Dim info As New IO.FileInfo(fichier)
File.Delete(fichier)
Next
Directory.Delete(dosprogramefile & "/imagetmp/")
ListBox1.Items.Clear()
End Sub
End Class
+160
View File
@@ -0,0 +1,160 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form8
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form8))
Me.GunaButton1 = New Guna.UI.WinForms.GunaButton()
Me.GunaButton2 = New Guna.UI.WinForms.GunaButton()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GunaButton1
'
Me.GunaButton1.AnimationHoverSpeed = 0.07!
Me.GunaButton1.AnimationSpeed = 0.03!
Me.GunaButton1.BaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.DialogResult = System.Windows.Forms.DialogResult.None
Me.GunaButton1.FocusedColor = System.Drawing.Color.Empty
Me.GunaButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.GunaButton1.ForeColor = System.Drawing.Color.White
Me.GunaButton1.Image = CType(resources.GetObject("GunaButton1.Image"), System.Drawing.Image)
Me.GunaButton1.ImageSize = New System.Drawing.Size(20, 20)
Me.GunaButton1.Location = New System.Drawing.Point(2, 197)
Me.GunaButton1.Name = "GunaButton1"
Me.GunaButton1.OnHoverBaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.OnHoverForeColor = System.Drawing.Color.White
Me.GunaButton1.OnHoverImage = Nothing
Me.GunaButton1.OnPressedColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton1.Size = New System.Drawing.Size(206, 42)
Me.GunaButton1.TabIndex = 3
Me.GunaButton1.Text = "GunaButton1"
'
'GunaButton2
'
Me.GunaButton2.AnimationHoverSpeed = 0.07!
Me.GunaButton2.AnimationSpeed = 0.03!
Me.GunaButton2.BaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton2.DialogResult = System.Windows.Forms.DialogResult.None
Me.GunaButton2.FocusedColor = System.Drawing.Color.Empty
Me.GunaButton2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.GunaButton2.ForeColor = System.Drawing.Color.White
Me.GunaButton2.Image = CType(resources.GetObject("GunaButton2.Image"), System.Drawing.Image)
Me.GunaButton2.ImageSize = New System.Drawing.Size(20, 20)
Me.GunaButton2.Location = New System.Drawing.Point(228, 197)
Me.GunaButton2.Name = "GunaButton2"
Me.GunaButton2.OnHoverBaseColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton2.OnHoverBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton2.OnHoverForeColor = System.Drawing.Color.White
Me.GunaButton2.OnHoverImage = Nothing
Me.GunaButton2.OnPressedColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GunaButton2.Size = New System.Drawing.Size(206, 42)
Me.GunaButton2.TabIndex = 3
Me.GunaButton2.Text = "GunaButton1"
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(134, 179)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 4
Me.PictureBox1.TabStop = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(169, 12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 5
Me.Label1.Text = "Nom du logiciel:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(169, 34)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(82, 13)
Me.Label2.TabIndex = 5
Me.Label2.Text = "Nom du logiciel:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(169, 56)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(44, 13)
Me.Label3.TabIndex = 5
Me.Label3.Text = "version:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(169, 78)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(44, 13)
Me.Label4.TabIndex = 5
Me.Label4.Text = "version:"
'
'Form8
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(437, 251)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.GunaButton2)
Me.Controls.Add(Me.GunaButton1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(453, 290)
Me.MinimumSize = New System.Drawing.Size(453, 290)
Me.Name = "Form8"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Form8"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GunaButton1 As Guna.UI.WinForms.GunaButton
Friend WithEvents GunaButton2 As Guna.UI.WinForms.GunaButton
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
End Class
+7339
View File
File diff suppressed because it is too large Load Diff
+50
View File
@@ -0,0 +1,50 @@
Imports System.ComponentModel
Imports System.IO
Public Class Form8
Dim CLMpronom2 As String = ""
Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click
Try
Dim lines1() As String = File.ReadAllLines(dosprogramefile & "/" & CLMpronom2 & "/nom.txt")
Process.Start(dosprogramefile & "/" & CLMpronom2 & "/programe/" & lines1(0))
Catch ex As Exception
MsgBox("Une erreur est survenue", MsgBoxStyle.Critical, nom)
End Try
End Sub
Private Sub GunaButton2_Click(sender As Object, e As EventArgs) Handles GunaButton2.Click
Dim msg = MsgBox("Voulez-vous vraiment Désinstaller " & CLMpronom2 & " ?", MsgBoxStyle.YesNo, nom)
If msg = MsgBoxResult.Yes Then
My.Computer.FileSystem.DeleteDirectory(dosprogramefile & "/" & CLMpronom2 & "/", FileIO.DeleteDirectoryOption.DeleteAllContents)
My.Computer.FileSystem.DeleteDirectory(dosinstall & "/page" & Form1.pagesacctuel2 & "/" & CLMpronom2 & "/", FileIO.DeleteDirectoryOption.DeleteAllContents)
MsgBox(CLMpronom2 & " a bien été désinstaller", MsgBoxStyle.Information, nom)
Dim lines1() As String = File.ReadAllLines(dosinstall & "/page" & Form1.pagesacctuel2 & "/logi.txt")
If lines1(0) - 1 = 0 Then
Dim lines2() As String = File.ReadAllLines(dosinstall & "/page.txt")
If lines2(0) - 1 = 0 Then
Dim sw112 As New StreamWriter(dosinstall & "/page1/logi.txt")
sw112.WriteLine(0)
sw112.Close()
Form1.PictureBox12.Image.Dispose()
Form1.PictureBox12.Hide()
My.Computer.FileSystem.DeleteDirectory(dosinstall & "/page1/image/", FileIO.DeleteDirectoryOption.DeleteAllContents)
Else
Dim sw11 As New StreamWriter(dosinstall & "/page.txt")
sw11.WriteLine(lines2(0) - 1)
sw11.Close()
File.Delete(dosinstall & "/page" & Form1.pagesacctuel2 & "/logi.txt")
Form1.PictureBox12.Image.Dispose()
My.Computer.FileSystem.DeleteDirectory(dosinstall & "/page" & Form1.pagesacctuel2 & "/", FileIO.DeleteDirectoryOption.DeleteAllContents)
End If
End If
Form1.pagesacctuel2 = 1
Form1.vérifiinstall()
Close()
Else
MsgBox("action annulée", MsgBoxStyle.Information, nom)
End If
End Sub
Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CLMpronom2 = Text.Replace(nom.ToString & " / ", "")
End Sub
End Class
+1654
View File
File diff suppressed because it is too large Load Diff
+20915
View File
File diff suppressed because it is too large Load Diff
+976
View File
@@ -0,0 +1,976 @@
Imports System.ComponentModel
Imports System.IO
Imports System.Net
Imports System.Net.Mail
Imports System.Security.Cryptography
Imports System.Text
Public Class Form9
Dim etap As Integer = 0
Dim codegener As String = ""
Dim srvsmtp As String = ""
Dim usersmtp As String = ""
Dim portsmtp As Integer = 0
Dim mdpsmtp As String = ""
Dim mailadmin As String = ""
Dim mdpuser As Integer = 0
Dim mdcuser As Integer = 0
Dim mdouser As Integer = 0
Private Sub Form9_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label32.Text = "Démarer " & nom & " avec Windows"
GunaGoogleSwitch2.Checked = True
GunaGoogleSwitch3.Checked = True
GroupBox3.Hide()
TextBox10.UseSystemPasswordChar = True
TextBox11.UseSystemPasswordChar = True
mdpuser = 0
mdcuser = 0
mdouser = 0
etap = 0
ComboBox1.SelectedItem = "Uploader"
TextBox3.Text = nom
PictureBox1.Image = Image.FromFile(dosrepertoire & "/logo.jpg")
My.Computer.Network.DownloadFile(CLMipsite & "/CLM/organisation/nom.txt", dosrepertoire & "/nom.txt")
My.Computer.Network.DownloadFile(CLMipsite & "/CLM/organisation/site.txt", dosrepertoire & "/site.txt")
Dim lines1() As String = File.ReadAllLines(dosrepertoire & "/nom.txt")
Dim lines2() As String = File.ReadAllLines(dosrepertoire & "/site.txt")
TextBox1.Text = lines1(0)
TextBox2.Text = lines2(0)
File.Delete(dosrepertoire & "/nom.txt")
File.Delete(dosrepertoire & "/site.txt")
Text = nom & ": Panel administration"
Label1.Text = "Adresse IP du serveur: " & CLMipsite
Label3.Text = "Adresse IP du ftp: " & CLMPipserveur.Replace(CLMid, "").Replace(CLMpass, "").Replace("@", "")
Label4.Text = "ID ftp: " & CLMid
Label2.Text = "Version de votre CLM: " & versionlogi
Label5.Text = "Version de CLM: 0.1"
ListBox1.Items.Clear()
ComboBox2.Items.Clear()
ComboBox3.Items.Clear()
Dim fwr As FtpWebRequest
fwr = FtpWebRequest.Create(CLMPipserveur & "/CLM/utilisateur/")
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
ListBox1.Items.Add(str)
ComboBox3.Items.Add(str)
ComboBox2.Items.Add(str)
str = sr.ReadLine()
End While
ListBox1.Items.Remove("index.html")
ComboBox3.Items.Remove("index.html")
ComboBox2.Items.Remove("index.html")
sr.Close()
Label6.Text = "Nombre de compte: " & ListBox1.Items.Count
ListBox1.Items.Clear()
ComboBox5.Items.Clear()
Dim fwr1 As FtpWebRequest
fwr1 = FtpWebRequest.Create(CLMPipserveur & "/CLM/logiciel/profil/")
fwr1.Credentials = New NetworkCredential(CLMid, CLMpass)
fwr1.Method = WebRequestMethods.Ftp.ListDirectory
Dim sr1 As New StreamReader(fwr1.GetResponse().GetResponseStream())
Dim str1 As String = sr1.ReadLine()
While Not str1 Is Nothing
ListBox1.Items.Add(str1)
ComboBox5.Items.Add(str1)
str1 = sr1.ReadLine()
End While
ListBox1.Items.Remove("index.html")
ComboBox5.Items.Remove("index.html")
sr.Close()
Label7.Text = "Nombre de profils: " & ListBox1.Items.Count
GroupBox4.Hide()
If CLMsmtp = "" Then
TextBox12.Hide()
Label20.Hide()
Else
GunaButton1.Text = "Modifier"
TextBox8.Text = CLMsmtp
TextBox5.Text = CLMsmtpprot
TextBox7.Text = CLMsmtpuser
TextBox6.Text = CLMsmtpuserpass
GunaButton1.Text = "Modifier"
Label16.Show()
Label14.Show()
Label13.Show()
Label12.Show()
Label15.Show()
TextBox8.Show()
TextBox7.Show()
TextBox6.Show()
TextBox4.Show()
TextBox5.Show()
Button5.Show()
Button5.Text = "Afficher"
TextBox6.UseSystemPasswordChar = True
TextBox12.Show()
Label20.Show()
End If
End Sub
Private Sub GunaAdvenceButton1_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton1.Click
Clipboard.SetText(CLMpass)
Form1.NotifyIcon1.BalloonTipTitle = "copier"
Form1.NotifyIcon1.Text = nom & ": copier"
Form1.NotifyIcon1.BalloonTipText = "le mots de passe ftp a bien êtê copier dans presse-papiers"
Form1.NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
Form1.NotifyIcon1.ShowBalloonTip(1)
End Sub
Private Sub GunaAdvenceButton2_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton2.Click
Clipboard.SetText(clescrypte)
Form1.NotifyIcon1.BalloonTipTitle = "copier"
Form1.NotifyIcon1.Text = nom & ": copier"
Form1.NotifyIcon1.BalloonTipText = " la clé de chiffrage a bien êtê copier dans presse-papiers"
Form1.NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
Form1.NotifyIcon1.ShowBalloonTip(1)
End Sub
Private Sub Form9_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
PictureBox1.Image.Dispose()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim sw1 As New StreamWriter(dosrepertoire & "/nom.txt")
sw1.WriteLine(TextBox1.Text)
sw1.Close()
My.Computer.Network.UploadFile(dosrepertoire & "/nom.txt", CLMPipserveur & "/CLM/organisation/nom.txt")
Form1.Label22.Text = "Nom de l'organisation: " & TextBox1.Text
File.Delete(dosrepertoire & "/nom.txt")
MsgBox("Le nom de l'organisation a bien êtê change par: " & TextBox1.Text, MsgBoxStyle.Information)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim sw1 As New StreamWriter(dosrepertoire & "/site.txt")
sw1.WriteLine(TextBox2.Text)
sw1.Close()
My.Computer.Network.UploadFile(dosrepertoire & "/site.txt", CLMPipserveur & "/CLM/organisation/site.txt")
Form1.siteorganisation = TextBox2.Text
File.Delete(dosrepertoire & "/site.txt")
MsgBox("Le site a bien êtê change par: " & TextBox2.Text, MsgBoxStyle.Information)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog = 1 Then
PictureBox1.Image.Dispose()
Form1.PictureBox29.Image.Dispose()
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
PictureBox1.Image.Save(dosrepertoire & "/logo.jpg")
Form1.PictureBox29.Image = Image.FromFile(dosrepertoire & "/logo.jpg")
Form1.GunaAdvenceButton3.Image = Form1.PictureBox29.Image
My.Computer.Network.UploadFile(dosrepertoire & "/logo.jpg", CLMPipserveur & "/CLM/organisation/logo.jpg")
MsgBox("l'image de l'organisation a bien êtê changer", MsgBoxStyle.Information)
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
nom = TextBox3.Text
Dim sw1 As New StreamWriter(dosrepertoire & "/nom.txt")
sw1.WriteLine(TextBox3.Text)
sw1.Close()
My.Computer.Network.UploadFile(dosrepertoire & "/nom.txt", CLMPipserveur & "/CLM/config/nom.txt")
File.Delete(dosrepertoire & "/nom.txt")
nom = TextBox3.Text
Form1.Label18.Text = "Nom de l'instance: " & nom
Form1.Label23.Text = "Démarer " & nom & " avec Windows"
Text = nom & ": Panel administration"
Form1.Text = nom & ": Paramètre"
MsgBox("le nom de l'instance a bien êtê modifier par: " & TextBox3.Text, MsgBoxStyle.Information)
End Sub
Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click
If etap = 0 Then
srvsmtp = TextBox8.Text
usersmtp = TextBox7.Text
portsmtp = TextBox5.Text
mdpsmtp = TextBox6.Text
Dim NumRandom As Integer
Dim Rand As Random = New Random
Dim NumStr As String
Dim code As String = ""
NumRandom = (Rand.Next(1, 999999))
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
code = nom & "-" & NumStr
Try
Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient(TextBox8.Text)
Dim mail = TextBox4.Text
Dim message = "Bonjour et félicitation si vous recevez ce mail c'est que tout est correctement configuré." & vbNewLine & vbNewLine & "voici le code de confirmation: " & code
MyMailMessage.From = New MailAddress(TextBox7.Text)
MyMailMessage.To.Add(mail)
MyMailMessage.Subject = ("configuration du service mail pour " & nom)
MyMailMessage.Body = (message)
SMTPServer.Port = (TextBox5.Text) 'Port
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox7.Text, TextBox6.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage) 'Envoi
codegener = code
MsgBox("Un mail de test à êtê envoyé à " & mail, MsgBoxStyle.Information, nom & "/ configuration du service mail")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Dim msg = MsgBox("Avez-vous bien reçu le mail ?", MsgBoxStyle.YesNo, nom & "/ configuration du service mail")
If msg = MsgBoxResult.Yes Then
etap = 1
etap1()
Else
End If
ElseIf etap = 1 Then
If codegener = TextBox8.Text Then
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(srvsmtp)
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes(clescrypte)
Dim Crypto As New DESCryptoServiceProvider()
Crypto.Key = keyBytes
Crypto.IV = keyBytes
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
Dim srvsmtpcrypt = Convert.ToBase64String(Resultatbytes)
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(usersmtp)
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes(clescrypte)
Dim Crypto2 As New DESCryptoServiceProvider()
Crypto2.Key = keyBytes2
Crypto2.IV = keyBytes2
Dim Icrypto2 As ICryptoTransform = Crypto2.CreateEncryptor
Dim Resultatbytes2() As Byte = Icrypto2.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
Dim usersmtpcrypt = Convert.ToBase64String(Resultatbytes2)
Dim texteEnBytes3() As Byte = Encoding.UTF8.GetBytes(portsmtp)
Dim keyBytes3() As Byte = Encoding.UTF8.GetBytes(clescrypte)
Dim Crypto3 As New DESCryptoServiceProvider()
Crypto3.Key = keyBytes3
Crypto3.IV = keyBytes3
Dim Icrypto3 As ICryptoTransform = Crypto3.CreateEncryptor
Dim Resultatbytes3() As Byte = Icrypto3.TransformFinalBlock(texteEnBytes3, 0, texteEnBytes3.Length)
Dim portsmtpcrypt = Convert.ToBase64String(Resultatbytes3)
Dim texteEnBytes4() As Byte = Encoding.UTF8.GetBytes(mdpsmtp)
Dim keyBytes4() As Byte = Encoding.UTF8.GetBytes(clescrypte)
Dim Crypto4 As New DESCryptoServiceProvider()
Crypto4.Key = keyBytes4
Crypto4.IV = keyBytes4
Dim Icrypto4 As ICryptoTransform = Crypto4.CreateEncryptor
Dim Resultatbytes4() As Byte = Icrypto4.TransformFinalBlock(texteEnBytes4, 0, texteEnBytes4.Length)
Dim mdpsmtpcrypt = Convert.ToBase64String(Resultatbytes4)
Dim sw1 As New StreamWriter(dosconnextion & "mailconfig.txt")
sw1.WriteLine(srvsmtpcrypt)
sw1.WriteLine(usersmtpcrypt)
sw1.WriteLine(portsmtpcrypt)
sw1.WriteLine(mdpsmtpcrypt)
sw1.Close()
My.Computer.Network.UploadFile(dosconnextion & "mailconfig.txt", CLMPipserveur & "/CLM/mail/mailconfig.txt")
File.Delete(dosconnextion & "mailconfig.txt")
CLMsmtp = srvsmtp
CLMsmtpprot = portsmtp
CLMsmtpuserpass = mdpsmtp
CLMsmtpuser = usersmtp
GunaButton1.Text = "Modifier"
Label16.Show()
Label14.Show()
Label13.Show()
Label12.Show()
Label15.Show()
TextBox8.Show()
TextBox7.Show()
TextBox6.Show()
TextBox4.Show()
TextBox5.Show()
Button1.Show()
Button1.Text = "afficher"
TextBox6.UseSystemPasswordChar = True
TextBox8.Text = CLMsmtp
TextBox7.Text = CLMsmtpuser
TextBox6.Text = CLMsmtpuserpass
TextBox5.Text = CLMsmtpprot
TextBox12.Show()
Label20.Show()
MsgBox("La configuration du mail est terminée", MsgBoxStyle.Information)
Else
MsgBox("Le code ne correspond pas", MsgBoxStyle.Critical)
End If
End If
End Sub
Sub etap1()
TextBox7.Hide()
TextBox6.Hide()
TextBox4.Hide()
TextBox5.Hide()
Label15.Hide()
Label14.Hide()
Label13.Hide()
Label12.Hide()
TextBox8.Clear()
Label16.Text = "Entrer le code:"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If Button5.Text = "afficher" Then
TextBox6.UseSystemPasswordChar = False
Button5.Text = "cacher"
Else
TextBox6.UseSystemPasswordChar = True
Button5.Text = "afficher"
End If
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
If mdpuser = 0 Then
TextBox11.UseSystemPasswordChar = False
mdpuser = 1
PictureBox2.Image = My.Resources.erggr
Else
TextBox11.UseSystemPasswordChar = True
mdpuser = 0
PictureBox2.Image = My.Resources.gyugcdyug
End If
End Sub
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
If mdcuser = 0 Then
TextBox10.UseSystemPasswordChar = False
mdcuser = 1
PictureBox3.Image = My.Resources.erggr
Else
TextBox10.UseSystemPasswordChar = True
mdcuser = 0
PictureBox3.Image = My.Resources.gyugcdyug
End If
End Sub
Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
GunaButton2.Text = "Ajouter: " & TextBox9.Text
End Sub
Private Sub GunaButton2_Click(sender As Object, e As EventArgs) Handles GunaButton2.Click
If TextBox9.Text = "" Then
MsgBox("entrer un nom de compte", MsgBoxStyle.Exclamation, nom & " / ajouter un compte")
Else
If TextBox11.Text = "" Then
MsgBox("entrer un mot de passe", MsgBoxStyle.Exclamation, nom & " / ajouter un compte")
Else
If TextBox10.Text = "" Then
MsgBox("Confirmer votre mot de passe", MsgBoxStyle.Exclamation, nom & " / ajouter un compte")
Else
If TextBox11.Text = TextBox10.Text Then
If TextBox12.Visible = True Then
If TextBox12.Text = "" Then
MsgBox("entrer une adresse mail", MsgBoxStyle.Exclamation, nom & " / ajouter un compte")
Else
If TextBox12.Text.Contains(".") And TextBox12.Text.Contains("@") Then
GunaButton2.Enabled = False
createcompte()
Else
MsgBox("entrer une adresse mail valide", MsgBoxStyle.Exclamation, nom & " / ajouter un compte")
End If
End If
Else
GunaButton2.Enabled = False
createcompte()
End If
Else
MsgBox("Les mots de passe ne corresponds pas", MsgBoxStyle.Exclamation, nom & " / ajouter un compte")
End If
End If
End If
End If
End Sub
Sub createcompte()
Try
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(CLMPipserveur & "/CLM/utilisateur/" & TextBox9.Text & "/"), System.Net.FtpWebRequest)
Dim ftpStream As Stream = Nothing
MaRequete.Credentials = New System.Net.NetworkCredential(CLMid, CLMpass)
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
ftpStream = response.GetResponseStream
ftpStream.Close()
response.Close()
If GunaGoogleSwitch1.Checked = True Then
Dim sw1 As New StreamWriter(dosrepertoire & "\lock.txt")
sw1.WriteLine(1)
sw1.Close()
Else
Dim sw1 As New StreamWriter(dosrepertoire & "\lock.txt")
sw1.WriteLine(0)
sw1.Close()
End If
If ComboBox1.SelectedItem = "Administrateur" Then
Dim sw2 As New StreamWriter(dosrepertoire & "\grade.txt")
sw2.WriteLine(2)
sw2.Close()
Else
Dim sw2 As New StreamWriter(dosrepertoire & "\grade.txt")
sw2.WriteLine(1)
sw2.Close()
End If
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox11.Text)
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes(clescrypte)
Dim Crypto As New DESCryptoServiceProvider()
Crypto.Key = keyBytes
Crypto.IV = keyBytes
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
Dim motdepasse = Convert.ToBase64String(Resultatbytes)
Dim sw4 As New StreamWriter(dosrepertoire & "\mdp.txt")
sw4.WriteLine(motdepasse)
sw4.Close()
If TextBox12.Visible = True Then
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(TextBox12.Text)
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes(clescrypte)
Dim Crypto2 As New DESCryptoServiceProvider()
Crypto2.Key = keyBytes2
Crypto2.IV = keyBytes2
Dim Icrypto2 As ICryptoTransform = Crypto2.CreateEncryptor
Dim Resultatbytes2() As Byte = Icrypto2.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
Dim mail = Convert.ToBase64String(Resultatbytes2)
Dim sw3 As New StreamWriter(dosrepertoire & "\mail.txt")
sw3.WriteLine(mail)
sw3.Close()
My.Computer.Network.UploadFile(dosrepertoire & "\mail.txt", CLMPipserveur & "/CLM/utilisateur/" & TextBox9.Text & "/mail.txt")
File.Delete(dosrepertoire & "\mail.txt")
Try
Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient(CLMsmtp)
Dim mail2 = TextBox12.Text
Dim message = "Bonjour; " & TextBox9.Text & vbNewLine & vbNewLine & "Votre compte " & nom & " a bien êtê créer, votre grade: " & ComboBox1.SelectedItem & vbNewLine & vbNewLine & "Votre nom d'utilisateur est: " & TextBox9.Text & vbNewLine & vbNewLine & "Votre mot de passe est: " & TextBox11.Text & vbNewLine & vbNewLine & "Nous vous souhaiton une bonne journée" & vbNewLine & vbNewLine & "Cordialement" & vbNewLine & "- " & TextBox1.Text
MyMailMessage.From = New MailAddress(CLMsmtpuser)
MyMailMessage.To.Add(mail2)
MyMailMessage.Subject = ("Création de votre compte " & nom)
MyMailMessage.Body = (message)
SMTPServer.Port = (TextBox5.Text) 'Port
SMTPServer.Credentials = New System.Net.NetworkCredential(CLMsmtpuser, CLMsmtpuserpass)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage) 'Envoi
Catch ex As Exception
End Try
End If
My.Computer.Network.UploadFile(dosrepertoire & "\mdp.txt", CLMPipserveur & "/CLM/utilisateur/" & TextBox9.Text & "/mdp.txt")
My.Computer.Network.UploadFile(dosrepertoire & "\grade.txt", CLMPipserveur & "/CLM/utilisateur/" & TextBox9.Text & "/grade.txt")
My.Computer.Network.UploadFile(dosrepertoire & "\lock.txt", CLMPipserveur & "/CLM/utilisateur/" & TextBox9.Text & "/lock.txt")
File.Delete(dosrepertoire & "\mdp.txt")
File.Delete(dosrepertoire & "\grade.txt")
File.Delete(dosrepertoire & "\lock.txt")
ListBox1.Items.Clear()
ComboBox2.Items.Clear()
ComboBox3.Items.Clear()
Dim fwr As FtpWebRequest
fwr = FtpWebRequest.Create(CLMPipserveur & "/CLM/utilisateur/")
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
ListBox1.Items.Add(str)
ComboBox2.Items.Add(str)
ComboBox3.Items.Add(str)
str = sr.ReadLine()
End While
ListBox1.Items.Remove("index.html")
ComboBox2.Items.Remove("index.html")
ComboBox3.Items.Remove("index.html")
sr.Close()
Label6.Text = "Nombre de compte: " & ListBox1.Items.Count
ListBox1.Items.Clear()
GunaButton2.Enabled = True
GroupBox3.Hide()
MsgBox("Le compte: " & TextBox9.Text & " a bien êtê créer", MsgBoxStyle.Information, nom & " / ajouter un compte")
TextBox9.Clear()
TextBox11.Clear()
TextBox10.Clear()
If TextBox12.Visible = True Then
TextBox12.Clear()
End If
TextBox11.UseSystemPasswordChar = True
TextBox10.UseSystemPasswordChar = True
ComboBox1.SelectedItem = "Uploader"
PictureBox3.Image = My.Resources.gyugcdyug
PictureBox2.Image = My.Resources.gyugcdyug
Catch ex As Exception
GunaButton2.Enabled = True
MsgBox("une erreur est survenue (il est possible que le compte: " & TextBox9.Text & " exsite Déjà)", MsgBoxStyle.Critical, nom & " / ajouter un compte")
End Try
End Sub
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
MsgBox("Bloquer le compte signifie que ce compte poura êtres modifier que par le compte, il ne poura pas être supprimer ou modifier par le panel administrateur.", MsgBoxStyle.Information, nom & " / ajouter un compte")
End Sub
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
If ComboBox1.SelectedItem = "Administrateur" Then
GunaGoogleSwitch1.Checked = True
Else
GunaGoogleSwitch1.Checked = False
End If
End Sub
Private Sub ComboBox3_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedValueChanged
GunaButton3.Text = "Supprimer: " & ComboBox3.SelectedItem
My.Computer.Network.DownloadFile(CLMipsite & "/CLM/utilisateur/" & ComboBox3.SelectedItem & "/lock.txt", dosrepertoire & "/lock.txt")
Dim lines() As String = File.ReadAllLines(dosrepertoire & "/lock.txt")
File.Delete(dosrepertoire & "/lock.txt")
If lines(0) = 1 Then
GunaButton3.Enabled = False
MsgBox("Le compte: " & ComboBox3.SelectedItem & " est blocker vous ne pouvez pas le supprimer", MsgBoxStyle.Exclamation, nom & " / suprimer un compte")
Else
GunaButton3.Enabled = True
End If
End Sub
Private Sub GunaButton3_Click(sender As Object, e As EventArgs) Handles GunaButton3.Click
Dim msg = MsgBox("Voulez-vous vraiment supprimer: " & ComboBox3.SelectedItem & " ?", MsgBoxStyle.YesNo, nom & " / suprimer un compte")
If msg = MsgBoxResult.Yes Then
GunaButton3.Enabled = False
Try
My.Computer.Network.DownloadFile(CLMipsite & "/CLM/utilisateur/" & ComboBox3.SelectedItem & "/mail.txt", dosrepertoire & "/mail.txt")
File.Delete(dosrepertoire & "/mail.txt")
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(CLMPipserveur & "/CLM/utilisateur/" & ComboBox3.SelectedItem & "/mail.txt")
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
ftreq2.Credentials = New NetworkCredential(CLMid, CLMpass)
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
delcompte()
Catch ex As Exception
delcompte()
End Try
Else
MsgBox("Action annuler", MsgBoxStyle.Information, nom & " / suprimer un compte")
End If
End Sub
Sub delcompte()
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(CLMPipserveur & "/CLM/utilisateur/" & ComboBox3.SelectedItem & "/grade.txt")
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
ftreq2.Credentials = New NetworkCredential(CLMid, CLMpass)
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(CLMPipserveur & "/CLM/utilisateur/" & ComboBox3.SelectedItem & "/lock.txt")
ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
ftreq3.Credentials = New NetworkCredential(CLMid, CLMpass)
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(CLMPipserveur & "/CLM/utilisateur/" & ComboBox3.SelectedItem & "/mdp.txt")
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
ftreq4.Credentials = New NetworkCredential(CLMid, CLMpass)
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(CLMPipserveur & "/CLM/utilisateur/" & ComboBox3.SelectedItem & "/")
ftreq5.Method = WebRequestMethods.Ftp.RemoveDirectory
ftreq5.Credentials = New NetworkCredential(CLMid, CLMpass)
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
GunaButton2.Enabled = True
GroupBox3.Hide()
MsgBox("Le compte: " & ComboBox3.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information, nom & " / suppirmer un compte")
ListBox1.Items.Clear()
ComboBox2.Items.Clear()
ComboBox3.Items.Clear()
Dim fwr As FtpWebRequest
fwr = FtpWebRequest.Create(CLMPipserveur & "/CLM/utilisateur/")
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
ListBox1.Items.Add(str)
ComboBox2.Items.Add(str)
ComboBox3.Items.Add(str)
str = sr.ReadLine()
End While
ListBox1.Items.Remove("index.html")
ComboBox2.Items.Remove("index.html")
ComboBox3.Items.Remove("index.html")
sr.Close()
Label6.Text = "Nombre de compte: " & ListBox1.Items.Count
ListBox1.Items.Clear()
GunaButton3.Text = "Supprimer:"
End Sub
Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
GroupBox3.Show()
TextBox14.UseSystemPasswordChar = True
PictureBox5.Image = My.Resources.gyugcdyug
mdouser = 0
My.Computer.Network.DownloadFile(CLMipsite & "/CLM/utilisateur/" & ComboBox2.SelectedItem & "/lock.txt", dosrepertoire & "/lock.txt")
Dim lines() As String = File.ReadAllLines(dosrepertoire & "/lock.txt")
File.Delete(dosrepertoire & "/lock.txt")
GroupBox3.Text = "Information du compte: " & ComboBox2.SelectedItem
If lines(0) = 1 Then
GroupBox3.Enabled = False
MsgBox("Le compte: " & ComboBox2.SelectedItem & " est blocker vous ne pouvez pas le modifier", MsgBoxStyle.Exclamation, nom & " / modifier un compte")
Else
GroupBox3.Enabled = True
End If
TextBox13.Text = ComboBox2.SelectedItem
My.Computer.Network.DownloadFile(CLMipsite & "/CLM/utilisateur/" & ComboBox2.SelectedItem & "/mdp.txt", dosrepertoire & "/mdp.txt")
Dim lines2() As String = File.ReadAllLines(dosrepertoire & "/mdp.txt")
File.Delete(dosrepertoire & "/mdp.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 motsdepasseclient = Encoding.UTF8.GetString(donné2)
TextBox14.Text = motsdepasseclient
My.Computer.Network.DownloadFile(CLMipsite & "/CLM/utilisateur/" & ComboBox2.SelectedItem & "/grade.txt", dosrepertoire & "/grade.txt")
Dim lines3() As String = File.ReadAllLines(dosrepertoire & "/grade.txt")
File.Delete(dosrepertoire & "/grade.txt")
If lines3(0) = 2 Then
ComboBox4.SelectedItem = "Administrateur"
Else
ComboBox4.SelectedItem = "Uploader"
End If
If CLMsmtp = "" Then
Else
Try
My.Computer.Network.DownloadFile(CLMipsite & "/CLM/utilisateur/" & ComboBox2.SelectedItem & "/mail.txt", dosrepertoire & "/mail.txt")
Dim lines4() As String = File.ReadAllLines(dosrepertoire & "/mail.txt")
File.Delete(dosrepertoire & "/mail.txt")
Dim Resultatbyte3() As Byte = Convert.FromBase64String(lines4(0))
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 mail = Encoding.UTF8.GetString(donné3)
TextBox15.Text = mail
Catch ex As Exception
End Try
End If
End Sub
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
If mdouser = 0 Then
TextBox14.UseSystemPasswordChar = False
PictureBox5.Image = My.Resources.erggr
mdouser = 1
Else
TextBox14.UseSystemPasswordChar = True
PictureBox5.Image = My.Resources.gyugcdyug
mdouser = 0
End If
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
If ComboBox4.SelectedItem = "Administrateur" Then
Dim sw1 As New StreamWriter(dosrepertoire & "\grade.txt")
sw1.WriteLine(2)
sw1.Close()
Else
Dim sw1 As New StreamWriter(dosrepertoire & "\grade.txt")
sw1.WriteLine(1)
sw1.Close()
End If
My.Computer.Network.UploadFile(dosrepertoire & "\grade.txt", CLMPipserveur & "/CLM/utilisateur/" & ComboBox2.SelectedItem & "/grade.txt")
File.Delete(dosrepertoire & "\grade.txt")
MsgBox("Le grade du compte: " & ComboBox2.SelectedItem & " est maintenant: " & ComboBox4.SelectedItem, MsgBoxStyle.Information, nom & " / modifier un compte")
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
If TextBox14.Text = "" Then
MsgBox("Entrer un mots de passe", MsgBoxStyle.Critical, nom & " / modifier un compte")
Else
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox14.Text)
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes(clescrypte)
Dim Crypto As New DESCryptoServiceProvider()
Crypto.Key = keyBytes
Crypto.IV = keyBytes
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
Dim motdepasse = Convert.ToBase64String(Resultatbytes)
Dim sw1 As New StreamWriter(dosrepertoire & "\mdp.txt")
sw1.WriteLine(motdepasse)
sw1.Close()
My.Computer.Network.UploadFile(dosrepertoire & "\mdp.txt", CLMPipserveur & "/CLM/utilisateur/" & ComboBox2.SelectedItem & "/mdp.txt")
File.Delete(dosrepertoire & "\mdp.txt")
MsgBox("Le mots de passe du compte: " & ComboBox2.SelectedItem & " est maintenant: " & TextBox14.Text, MsgBoxStyle.Information, nom & " / modifier un compte")
End If
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
If TextBox15.Text = "" Then
MsgBox("Entrer une addresse mail", MsgBoxStyle.Critical, nom & " / modifier un compte")
Else
If TextBox15.Text.Contains("@") And TextBox15.Text.Contains(".") Then
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox15.Text)
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes(clescrypte)
Dim Crypto As New DESCryptoServiceProvider()
Crypto.Key = keyBytes
Crypto.IV = keyBytes
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
Dim motdepasse = Convert.ToBase64String(Resultatbytes)
Dim sw1 As New StreamWriter(dosrepertoire & "\mail.txt")
sw1.WriteLine(motdepasse)
sw1.Close()
My.Computer.Network.UploadFile(dosrepertoire & "\mail.txt", CLMPipserveur & "/CLM/utilisateur/" & ComboBox2.SelectedItem & "/mail.txt")
File.Delete(dosrepertoire & "\mail.txt")
MsgBox("L'addresse mail du compte: " & ComboBox2.SelectedItem & " est maintenant: " & TextBox15.Text, MsgBoxStyle.Information, nom & " / modifier un compte")
Else
MsgBox("Entrer une addresse mail valide", MsgBoxStyle.Critical, nom & " / modifier un compte")
End If
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
If TextBox13.Text = "" Then
Else
Try
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(CLMPipserveur & "/CLM/utilisateur/" & ComboBox2.SelectedItem)
ftreq.Method = WebRequestMethods.Ftp.Rename
ftreq.RenameTo = TextBox13.Text
ftreq.Credentials = New NetworkCredential(CLMid, CLMpass)
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
MsgBox("Le compte: " & ComboBox2.SelectedItem & " a êtê renomer en: " & TextBox13.Text, MsgBoxStyle.Information, nom & " / modifier un compte")
ListBox1.Items.Clear()
ComboBox2.Items.Clear()
ComboBox3.Items.Clear()
Dim fwr As FtpWebRequest
fwr = FtpWebRequest.Create(CLMPipserveur & "/CLM/utilisateur/")
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
ListBox1.Items.Add(str)
ComboBox2.Items.Add(str)
ComboBox3.Items.Add(str)
str = sr.ReadLine()
End While
ListBox1.Items.Remove("index.html")
ComboBox2.Items.Remove("index.html")
ComboBox3.Items.Remove("index.html")
sr.Close()
Label6.Text = "Nombre de compte: " & ListBox1.Items.Count
ListBox1.Items.Clear()
ComboBox2.SelectedItem = TextBox13.Text
GunaButton3.Enabled = False
Catch ex As Exception
MsgBox("Une erreur est survenue (il est possible de le compte: " & TextBox13.Text & " exsite déjà)", MsgBoxStyle.Exclamation, nom & " / modifier un compte")
End Try
End If
End Sub
Private Sub ComboBox5_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedValueChanged
GroupBox4.Text = "Modification de " & ComboBox5.SelectedItem
TextBox16.Text = ComboBox5.SelectedItem
GroupBox4.Show()
If ComboBox5.Text = "default" Then
TextBox16.Enabled = False
Button10.Enabled = False
Else
TextBox16.Enabled = True
Button10.Enabled = True
End If
ListBox2.Items.Clear()
ComboBox6.Items.Clear()
ComboBox7.Items.Clear()
Dim fwr As FtpWebRequest
fwr = FtpWebRequest.Create(CLMPipserveur & "/CLM/logiciel/profil/" & ComboBox5.SelectedItem & "/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
ListBox2.Items.Add(str)
ComboBox6.Items.Add(str)
ComboBox7.Items.Add(str)
str = sr.ReadLine()
End While
ListBox2.Items.Remove("index.html")
ComboBox6.Items.Remove("index.html")
ComboBox7.Items.Remove("index.html")
sr.Close()
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
If ComboBox7.SelectedItem = "" Then
MsgBox("Merci de selection une catégorie", MsgBoxStyle.Exclamation, nom & " / modifier une catégorie")
Else
If TextBox18.Text = "" Then
MsgBox("Merci d'entre un nom", MsgBoxStyle.Exclamation, nom & " / modifier une catégorie")
Else
Try
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(CLMPipserveur & "/CLM/logiciel/profil/" & ComboBox5.SelectedItem & "/categorie/" & ComboBox7.SelectedItem)
ftreq.Method = WebRequestMethods.Ftp.Rename
ftreq.RenameTo = TextBox18.Text
ftreq.Credentials = New NetworkCredential(CLMid, CLMpass)
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
MsgBox("La catégoire: " & ComboBox7.SelectedItem & " a êtê renomer en: " & TextBox18.Text, MsgBoxStyle.Information, nom & " / modifier une catégorie")
ListBox2.Items.Clear()
ComboBox6.Items.Clear()
ComboBox7.Items.Clear()
Dim fwr As FtpWebRequest
fwr = FtpWebRequest.Create(CLMPipserveur & "/CLM/logiciel/profil/" & ComboBox5.SelectedItem & "/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
ListBox2.Items.Add(str)
ComboBox6.Items.Add(str)
ComboBox7.Items.Add(str)
str = sr.ReadLine()
End While
ListBox2.Items.Remove("index.html")
ComboBox6.Items.Remove("index.html")
ComboBox7.Items.Remove("index.html")
sr.Close()
ComboBox7.SelectedItem = TextBox18.Text
TextBox18.Clear()
Catch ex As Exception
MsgBox("Une erreur est survenue (il est possible que la catégorie: " & TextBox18.Text & " exsite déjà)", MsgBoxStyle.Exclamation, nom & " / modifier une catégorie")
End Try
End If
End If
End Sub
Private Sub GunaGoogleSwitch3_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch3.CheckedChanged
If GunaGoogleSwitch3.Checked = True Then
ComboBox8.SelectedItem = "5 Minutes"
End If
End Sub
Private Sub TextBox19_TextChanged(sender As Object, e As EventArgs) Handles TextBox19.TextChanged
GroupBox7.Text = "Configuration du profil: " & TextBox19.Text
GunaButton7.Text = "Créer le profil: " & TextBox19.Text
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
If TextBox17.Text = "" Or TextBox17.Text = "tout" Then
MsgBox("Merci d'entrer une nom valide pour la catégorie", MsgBoxStyle.Critical, nom & " / ajouter un catégorie")
Else
Try
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(CLMPipserveur & "/CLM/logiciel/profil/" & ComboBox5.SelectedItem & "/categorie/" & TextBox17.Text & "/"), System.Net.FtpWebRequest)
Dim ftpStream As Stream = Nothing
MaRequete.Credentials = New System.Net.NetworkCredential(CLMid, CLMpass)
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
ftpStream = response.GetResponseStream
ftpStream.Close()
response.Close()
Dim sw1 As New StreamWriter(dosrepertoire & "\page.txt")
sw1.WriteLine(1)
sw1.Close()
My.Computer.Network.UploadFile(dosrepertoire & "\page.txt", CLMPipserveur & "/CLM/logiciel/profil/" & ComboBox5.SelectedItem & "/categorie/" & TextBox17.Text & "/page.txt")
File.Delete(dosrepertoire & "\page.txt")
Dim MaRequete2 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(CLMPipserveur & "/CLM/logiciel/profil/" & ComboBox5.SelectedItem & "/categorie/" & TextBox17.Text & "/page1/"), System.Net.FtpWebRequest)
Dim ftpStream2 As Stream = Nothing
MaRequete2.Credentials = New System.Net.NetworkCredential(CLMid, CLMpass)
MaRequete2.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
Dim response2 As FtpWebResponse = CType(MaRequete2.GetResponse, FtpWebResponse)
ftpStream2 = response2.GetResponseStream
ftpStream2.Close()
response2.Close()
Dim sw2 As New StreamWriter(dosrepertoire & "\logi.txt")
sw2.WriteLine(0)
sw2.Close()
My.Computer.Network.UploadFile(dosrepertoire & "\logi.txt", CLMPipserveur & "/CLM/logiciel/profil/" & ComboBox5.SelectedItem & "/categorie/" & TextBox17.Text & "/page1/logi.txt")
File.Delete(dosrepertoire & "\logi.txt")
MsgBox("Le catégorie: " & TextBox17.Text & " a bien êtê créer pour le profil: " & ComboBox5.SelectedItem, MsgBoxStyle.Information, nom & " / ajouter un catégorie")
ListBox2.Items.Clear()
ComboBox6.Items.Clear()
ComboBox7.Items.Clear()
Dim fwr As FtpWebRequest
fwr = FtpWebRequest.Create(CLMPipserveur & "/CLM/logiciel/profil/" & ComboBox5.SelectedItem & "/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
ListBox2.Items.Add(str)
ComboBox6.Items.Add(str)
ComboBox7.Items.Add(str)
str = sr.ReadLine()
End While
ListBox2.Items.Remove("index.html")
ComboBox6.Items.Remove("index.html")
ComboBox7.Items.Remove("index.html")
sr.Close()
TextBox17.Clear()
Catch ex As Exception
MsgBox("Une erreur est survenue (il est possible que la catégorie: " & TextBox17.Text & " existe déjà)", MsgBoxStyle.Exclamation, nom & " / ajouter un catégorie")
End Try
End If
End Sub
End Class
+44
View File
@@ -0,0 +1,44 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Ce code a été généré par un outil.
' Version du runtime :4.0.30319.42000
'
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'REMARQUE : Ce fichier étant généré automatiquement, ne le modifiez pas directement. Pour apporter des modifications,
' ou si vous rencontrez des erreurs de build dans ce fichier, accédez au Concepteur de projets
' (allez dans les propriétés du projet ou double-cliquez sur le nœud My Project dans
' l'Explorateur de solutions), puis apportez vos modifications sous l'onglet Application.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = true
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.CLM.SplashScreen1
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
Me.MinimumSplashScreenDisplayTime = 0
Return MyBase.OnInitialize(commandLineArgs)
End Function
End Class
End Namespace
+12
View File
@@ -0,0 +1,12 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<MySubMain>true</MySubMain>
<MainForm>SplashScreen1</MainForm>
<SingleInstance>true</SingleInstance>
<ShutdownMode>1</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<MinimumSplashScreenDisplayTime>0</MinimumSplashScreenDisplayTime>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
<HighDpiMpde>false</HighDpiMpde>
</MyApplicationData>
+35
View File
@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Les informations générales relatives à un assembly dépendent de
' l'ensemble d'attributs suivant. Changez les valeurs de ces attributs pour modifier les informations
' associées à un assembly.
' Vérifiez les valeurs des attributs de l'assembly
<Assembly: AssemblyTitle("CLM")>
<Assembly: AssemblyDescription("CLM centre logiciel management")>
<Assembly: AssemblyCompany("yoann multigaming")>
<Assembly: AssemblyProduct("CLM")>
<Assembly: AssemblyCopyright("Copyright © 2024")>
<Assembly: AssemblyTrademark("yoann multigaming")>
<Assembly: ComVisible(True)>
'Le GUID suivant est pour l'ID de la typelib si ce projet est exposé à COM
<Assembly: Guid("af4473b0-a638-4aee-832c-d9262a3be0fc")>
' Les informations de version pour un assembly se composent des quatre valeurs suivantes :
'
' Version principale
' Version secondaire
' Numéro de build
' Révision
'
' Vous pouvez spécifier toutes les valeurs ou indiquer les numéros de build et de révision par défaut
' en utilisant '*', comme indiqué ci-dessous :
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
+83
View File
@@ -0,0 +1,83 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Ce code a été généré par un outil.
' Version du runtime :4.0.30319.42000
'
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder
'à l'aide d'un outil, tel que ResGen ou Visual Studio.
'Pour ajouter ou supprimer un membre, modifiez votre fichier .ResX, puis réexécutez ResGen
'avec l'option /str ou régénérez votre projet VS.
'''<summary>
''' Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("CLM.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Remplace la propriété CurrentUICulture du thread actuel pour toutes
''' les recherches de ressources à l'aide de cette classe de ressource fortement typée.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Recherche une ressource localisée de type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property erggr() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("erggr", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Recherche une ressource localisée de type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property gyugcdyug() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("gyugcdyug", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace
+127
View File
@@ -0,0 +1,127 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="erggr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\erggr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="gyugcdyug" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gyugcdyug.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>
+73
View File
@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.CLM.My.MySettings
Get
Return Global.CLM.My.MySettings.Default
End Get
End Property
End Module
End Namespace
+7
View File
@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>
+79
View File
@@ -0,0 +1,79 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- Options du manifeste de contrôle de compte d'utilisateur
Si vous souhaitez modifier le niveau du contrôle de compte d'utilisateur Windows, remplacez le
nœud requestedExecutionLevel par l'une des propositions suivantes.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
La spécification de l'élément requestedExecutionLevel désactive la virtualisation de fichiers et du Registre.
Supprimez cet élément si votre application a besoin de la virtualisation pour des
raisons de compatibilité descendante.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- Liste des versions de Windows pour lesquelles cette application a été testée,
et sur lesquelles elle doit fonctionner. Décommentez éléments appropriés,
et Windows va automatiquement sélectionner l'environnement le plus compatible. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
<!-- Indique que l'application prend en charge DPI et qu'elle n'est pas automatiquement mise à l'échelle par Windows à un niveau de
DPI plus élevé. Les applications WPF (Windows Presentation Foundation) prennent automatiquement en charge DPI et n'ont pas besoin
d'opter pour ce choix. Les applications Windows Forms qui ciblent .NET Framework 4.6 et qui optent pour ce paramètre doivent
également affecter la valeur 'true' au paramètre 'EnableWindowsFormsHighDpiAutoResizing' dans leur fichier app.config.
Permet à l'application de prendre en charge les chemins longs. Consultez https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation -->
<!--
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
<longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
</windowsSettings>
</application>
-->
<!-- Activer les thèmes pour les contrôles et boîtes de dialogue communes de Windows (Windows XP et version ultérieure) -->
<!--
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
-->
</assembly>
+2
View File
@@ -0,0 +1,2 @@
# CLM
CLM centre logiciel management
Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.4 KiB

+149
View File
@@ -0,0 +1,149 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class SplashScreen1
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SplashScreen1))
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.ApplicationTitle = New System.Windows.Forms.Label()
Me.DetailsLayoutPanel = New System.Windows.Forms.TableLayoutPanel()
Me.Version = New System.Windows.Forms.Label()
Me.Copyright = New System.Windows.Forms.Label()
Me.MainLayoutPanel = New System.Windows.Forms.TableLayoutPanel()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DetailsLayoutPanel.SuspendLayout()
Me.MainLayoutPanel.SuspendLayout()
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.InitialImage = Nothing
Me.PictureBox1.Location = New System.Drawing.Point(3, 3)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(237, 212)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 2
Me.PictureBox1.TabStop = False
'
'ApplicationTitle
'
Me.ApplicationTitle.Anchor = System.Windows.Forms.AnchorStyles.None
Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent
Me.ApplicationTitle.Font = New System.Drawing.Font("Arial", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ApplicationTitle.Location = New System.Drawing.Point(246, 3)
Me.ApplicationTitle.Name = "ApplicationTitle"
Me.ApplicationTitle.Size = New System.Drawing.Size(247, 212)
Me.ApplicationTitle.TabIndex = 0
Me.ApplicationTitle.Text = "CLM"
Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.BottomLeft
'
'DetailsLayoutPanel
'
Me.DetailsLayoutPanel.Anchor = System.Windows.Forms.AnchorStyles.None
Me.DetailsLayoutPanel.BackColor = System.Drawing.Color.Transparent
Me.DetailsLayoutPanel.ColumnCount = 1
Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 247.0!))
Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 142.0!))
Me.DetailsLayoutPanel.Controls.Add(Me.Version, 0, 0)
Me.DetailsLayoutPanel.Controls.Add(Me.Copyright, 0, 1)
Me.DetailsLayoutPanel.Location = New System.Drawing.Point(246, 221)
Me.DetailsLayoutPanel.Name = "DetailsLayoutPanel"
Me.DetailsLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.0!))
Me.DetailsLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.0!))
Me.DetailsLayoutPanel.Size = New System.Drawing.Size(247, 79)
Me.DetailsLayoutPanel.TabIndex = 1
'
'Version
'
Me.Version.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Version.BackColor = System.Drawing.Color.Transparent
Me.Version.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Version.Location = New System.Drawing.Point(3, 9)
Me.Version.Name = "Version"
Me.Version.Size = New System.Drawing.Size(241, 20)
Me.Version.TabIndex = 1
Me.Version.Text = "Version {0}.{1:00}"
'
'Copyright
'
Me.Copyright.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Copyright.BackColor = System.Drawing.Color.Transparent
Me.Copyright.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Copyright.Location = New System.Drawing.Point(3, 39)
Me.Copyright.Name = "Copyright"
Me.Copyright.Size = New System.Drawing.Size(241, 40)
Me.Copyright.TabIndex = 2
Me.Copyright.Text = "Copyright"
'
'MainLayoutPanel
'
Me.MainLayoutPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.MainLayoutPanel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.MainLayoutPanel.ColumnCount = 2
Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 243.0!))
Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
Me.MainLayoutPanel.Controls.Add(Me.DetailsLayoutPanel, 1, 1)
Me.MainLayoutPanel.Controls.Add(Me.ApplicationTitle, 1, 0)
Me.MainLayoutPanel.Controls.Add(Me.PictureBox1, 0, 0)
Me.MainLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
Me.MainLayoutPanel.Location = New System.Drawing.Point(0, 0)
Me.MainLayoutPanel.Name = "MainLayoutPanel"
Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 218.0!))
Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 38.0!))
Me.MainLayoutPanel.Size = New System.Drawing.Size(496, 303)
Me.MainLayoutPanel.TabIndex = 0
'
'Timer1
'
Me.Timer1.Interval = 1000
'
'SplashScreen1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(496, 303)
Me.ControlBox = False
Me.Controls.Add(Me.MainLayoutPanel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "SplashScreen1"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.DetailsLayoutPanel.ResumeLayout(False)
Me.MainLayoutPanel.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents ApplicationTitle As Label
Friend WithEvents DetailsLayoutPanel As TableLayoutPanel
Friend WithEvents Version As Label
Friend WithEvents Copyright As Label
Friend WithEvents MainLayoutPanel As TableLayoutPanel
Friend WithEvents Timer1 As Timer
End Class
+2000
View File
File diff suppressed because it is too large Load Diff
+90
View File
@@ -0,0 +1,90 @@
Imports System.IO
Public NotInheritable Class SplashScreen1
'TODO: ce formulaire peut facilement être configuré comme écran de démarrage de l'application en accédant à l'onglet "Application"
' du Concepteur de projets ("Propriétés" sous le menu "Projet").
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Version.Text = "Version: " & versionlogi
Copyright.Text = "Créer par yoann multigaming " & Today.Year
If Directory.Exists(dosrepertoire) = False Then
Directory.CreateDirectory(dosrepertoire)
End If
If Directory.Exists(dostemp) = False Then
Directory.CreateDirectory(dostemp)
End If
If Directory.Exists(dosprogramefile) = False Then
Directory.CreateDirectory(dosprogramefile)
End If
If Directory.Exists(dosconfig) = False Then
Directory.CreateDirectory(dosconfig)
End If
If Directory.Exists(dosthéme) = False Then
Directory.CreateDirectory(dosthéme)
Dim sw1 As New StreamWriter(théme)
sw1.WriteLine(0)
sw1.Close()
End If
If Directory.Exists(dosinstall) = False Then
Directory.CreateDirectory(dosinstall)
Directory.CreateDirectory(dosinstall & "\page1\")
Dim sw1 As New StreamWriter(dosinstall & "\page.txt")
sw1.WriteLine(1)
sw1.Close()
Dim sw2 As New StreamWriter(dosinstall & "\page1\logi.txt")
sw2.WriteLine(0)
sw2.Close()
End If
If Directory.Exists(dosupdate) = False Then
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
If Directory.Exists(dosconnextion) = False Then
Directory.CreateDirectory(dosconnextion)
Dim sw1 As New StreamWriter(connecter)
sw1.WriteLine(0)
sw1.Close()
End If
ApplicationTitle.Text = nom
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Stop()
Form1.Show()
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
End Sub
Private Sub ApplicationTitle_Click(sender As Object, e As EventArgs) Handles ApplicationTitle.Click
End Sub
Private Sub MainLayoutPanel_Paint(sender As Object, e As PaintEventArgs) Handles MainLayoutPanel.Paint
End Sub
End Class
Binary file not shown.

After

Width:  |  Height:  |  Size: 264 KiB

BIN
View File
Binary file not shown.
+6
View File
@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
</startup>
</configuration>
BIN
View File
Binary file not shown.
+36
View File
@@ -0,0 +1,36 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
CLM
</name>
</assembly>
<members>
<member name="T:CLM.My.Resources.Resources">
<summary>
Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
</summary>
</member>
<member name="P:CLM.My.Resources.Resources.ResourceManager">
<summary>
Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
</summary>
</member>
<member name="P:CLM.My.Resources.Resources.Culture">
<summary>
Remplace la propriété CurrentUICulture du thread actuel pour toutes
les recherches de ressources à l'aide de cette classe de ressource fortement typée.
</summary>
</member>
<member name="P:CLM.My.Resources.Resources.erggr">
<summary>
Recherche une ressource localisée de type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:CLM.My.Resources.Resources.gyugcdyug">
<summary>
Recherche une ressource localisée de type System.Drawing.Bitmap.
</summary>
</member>
</members>
</doc>
BIN
View File
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,7 @@
' <autogenerated/>
Option Strict Off
Option Explicit On
Imports System
Imports System.Reflection
<Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.7.2", FrameworkDisplayName:=".NET Framework 4.7.2")>
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
Binary file not shown.
@@ -0,0 +1 @@
4536b06089995e413a05821af508ecf5ef878a7fec7300482e64227780618fda
+26
View File
@@ -0,0 +1,26 @@
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.vbproj.AssemblyReference.cache
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.ThemeContainer154.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.Form1.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.Form2.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.Form3.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.Form4.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.Form5.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.Resources.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.SplashScreen1.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.vbproj.GenerateResource.cache
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.vbproj.CoreCompileInputs.cache
C:\Users\yoann\Source\Repos\CLM\bin\Debug\CLM.exe.config
C:\Users\yoann\Source\Repos\CLM\bin\Debug\CLM.exe
C:\Users\yoann\Source\Repos\CLM\bin\Debug\CLM.pdb
C:\Users\yoann\Source\Repos\CLM\bin\Debug\CLM.xml
C:\Users\yoann\Source\Repos\CLM\bin\Debug\Guna.UI.dll
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.vbproj.Up2Date
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.exe
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.xml
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.pdb
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.Form6.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\Interop.IWshRuntimeLibrary.dll
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.vbproj.ResolveComReference.cache
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.Form7.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.Form8.resources
C:\Users\yoann\Source\Repos\CLM\obj\Debug\CLM.Form9.resources
Binary file not shown.
Binary file not shown.
View File
+36
View File
@@ -0,0 +1,36 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
CLM
</name>
</assembly>
<members>
<member name="T:CLM.My.Resources.Resources">
<summary>
Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
</summary>
</member>
<member name="P:CLM.My.Resources.Resources.ResourceManager">
<summary>
Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
</summary>
</member>
<member name="P:CLM.My.Resources.Resources.Culture">
<summary>
Remplace la propriété CurrentUICulture du thread actuel pour toutes
les recherches de ressources à l'aide de cette classe de ressource fortement typée.
</summary>
</member>
<member name="P:CLM.My.Resources.Resources.erggr">
<summary>
Recherche une ressource localisée de type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:CLM.My.Resources.Resources.gyugcdyug">
<summary>
Recherche une ressource localisée de type System.Drawing.Bitmap.
</summary>
</member>
</members>
</doc>
Binary file not shown.
Binary file not shown.
+4
View File
@@ -0,0 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="System.IO.Compression.ZipFile" version="4.3.0" targetFramework="net472" />
</packages>
Binary file not shown.
@@ -0,0 +1,31 @@
This Microsoft .NET Library may incorporate components from the projects listed
below. Microsoft licenses these components under the Microsoft .NET Library
software license terms. The original copyright notices and the licenses under
which Microsoft received such components are set forth below for informational
purposes only. Microsoft reserves all rights not expressly granted herein,
whether by implication, estoppel or otherwise.
1. .NET Core (https://github.com/dotnet/core/)
.NET Core
Copyright (c) .NET Foundation and Contributors
The MIT License (MIT)
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE.
@@ -0,0 +1,128 @@
MICROSOFT SOFTWARE LICENSE TERMS
MICROSOFT .NET LIBRARY
These license terms are an agreement between Microsoft Corporation (or based on where you live, one of its affiliates) and you. Please read them. They apply to the software named above, which includes the media on which you received it, if any. The terms also apply to any Microsoft
· updates,
· supplements,
· Internet-based services, and
· support services
for this software, unless other terms accompany those items. If so, those terms apply.
BY USING THE SOFTWARE, YOU ACCEPT THESE TERMS. IF YOU DO NOT ACCEPT THEM, DO NOT USE THE SOFTWARE.
IF YOU COMPLY WITH THESE LICENSE TERMS, YOU HAVE THE PERPETUAL RIGHTS BELOW.
1. INSTALLATION AND USE RIGHTS.
a. Installation and Use. You may install and use any number of copies of the software to design, develop and test your programs.
b. Third Party Programs. The software may include third party programs that Microsoft, not the third party, licenses to you under this agreement. Notices, if any, for the third party program are included for your information only.
2. ADDITIONAL LICENSING REQUIREMENTS AND/OR USE RIGHTS.
a. DISTRIBUTABLE CODE. The software is comprised of Distributable Code. “Distributable Code” is code that you are permitted to distribute in programs you develop if you comply with the terms below.
i. Right to Use and Distribute.
· You may copy and distribute the object code form of the software.
· Third Party Distribution. You may permit distributors of your programs to copy and distribute the Distributable Code as part of those programs.
ii. Distribution Requirements. For any Distributable Code you distribute, you must
· add significant primary functionality to it in your programs;
· require distributors and external end users to agree to terms that protect it at least as much as this agreement;
· display your valid copyright notice on your programs; and
· indemnify, defend, and hold harmless Microsoft from any claims, including attorneys fees, related to the distribution or use of your programs.
iii. Distribution Restrictions. You may not
· alter any copyright, trademark or patent notice in the Distributable Code;
· use Microsofts trademarks in your programs names or in a way that suggests your programs come from or are endorsed by Microsoft;
· include Distributable Code in malicious, deceptive or unlawful programs; or
· modify or distribute the source code of any Distributable Code so that any part of it becomes subject to an Excluded License. An Excluded License is one that requires, as a condition of use, modification or distribution, that
· the code be disclosed or distributed in source code form; or
· others have the right to modify it.
3. SCOPE OF LICENSE. The software is licensed, not sold. This agreement only gives you some rights to use the software. Microsoft reserves all other rights. Unless applicable law gives you more rights despite this limitation, you may use the software only as expressly permitted in this agreement. In doing so, you must comply with any technical limitations in the software that only allow you to use it in certain ways. You may not
· work around any technical limitations in the software;
· reverse engineer, decompile or disassemble the software, except and only to the extent that applicable law expressly permits, despite this limitation;
· publish the software for others to copy;
· rent, lease or lend the software;
· transfer the software or this agreement to any third party; or
· use the software for commercial software hosting services.
4. BACKUP COPY. You may make one backup copy of the software. You may use it only to reinstall the software.
5. DOCUMENTATION. Any person that has valid access to your computer or internal network may copy and use the documentation for your internal, reference purposes.
6. EXPORT RESTRICTIONS. The software is subject to United States export laws and regulations. You must comply with all domestic and international export laws and regulations that apply to the software. These laws include restrictions on destinations, end users and end use. For additional information, see www.microsoft.com/exporting.
7. SUPPORT SERVICES. Because this software is “as is,” we may not provide support services for it.
8. ENTIRE AGREEMENT. This agreement, and the terms for supplements, updates, Internet-based services and support services that you use, are the entire agreement for the software and support services.
9. APPLICABLE LAW.
a. United States. If you acquired the software in the United States, Washington state law governs the interpretation of this agreement and applies to claims for breach of it, regardless of conflict of laws principles. The laws of the state where you live govern all other claims, including claims under state consumer protection laws, unfair competition laws, and in tort.
b. Outside the United States. If you acquired the software in any other country, the laws of that country apply.
10. LEGAL EFFECT. This agreement describes certain legal rights. You may have other rights under the laws of your country. You may also have rights with respect to the party from whom you acquired the software. This agreement does not change your rights under the laws of your country if the laws of your country do not permit it to do so.
11. DISCLAIMER OF WARRANTY. THE SOFTWARE IS LICENSED “AS-IS.” YOU BEAR THE RISK OF USING IT. MICROSOFT GIVES NO EXPRESS WARRANTIES, GUARANTEES OR CONDITIONS. YOU MAY HAVE ADDITIONAL CONSUMER RIGHTS OR STATUTORY GUARANTEES UNDER YOUR LOCAL LAWS WHICH THIS AGREEMENT CANNOT CHANGE. TO THE EXTENT PERMITTED UNDER YOUR LOCAL LAWS, MICROSOFT EXCLUDES THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
FOR AUSTRALIA YOU HAVE STATUTORY GUARANTEES UNDER THE AUSTRALIAN CONSUMER LAW AND NOTHING IN THESE TERMS IS INTENDED TO AFFECT THOSE RIGHTS.
12. LIMITATION ON AND EXCLUSION OF REMEDIES AND DAMAGES. YOU CAN RECOVER FROM MICROSOFT AND ITS SUPPLIERS ONLY DIRECT DAMAGES UP TO U.S. $5.00. YOU CANNOT RECOVER ANY OTHER DAMAGES, INCLUDING CONSEQUENTIAL, LOST PROFITS, SPECIAL, INDIRECT OR INCIDENTAL DAMAGES.
This limitation applies to
· anything related to the software, services, content (including code) on third party Internet sites, or third party programs; and
· claims for breach of contract, breach of warranty, guarantee or condition, strict liability, negligence, or other tort to the extent permitted by applicable law.
It also applies even if Microsoft knew or should have known about the possibility of the damages. The above limitation or exclusion may not apply to you because your country may not allow the exclusion or limitation of incidental, consequential or other damages.
Please note: As this software is distributed in Quebec, Canada, some of the clauses in this agreement are provided below in French.
Remarque : Ce logiciel étant distribué au Québec, Canada, certaines des clauses dans ce contrat sont fournies ci-dessous en français.
EXONÉRATION DE GARANTIE. Le logiciel visé par une licence est offert « tel quel ». Toute utilisation de ce logiciel est à votre seule risque et péril. Microsoft naccorde aucune autre garantie expresse. Vous pouvez bénéficier de droits additionnels en vertu du droit local sur la protection des consommateurs, que ce contrat ne peut modifier. La ou elles sont permises par le droit locale, les garanties implicites de qualité marchande, dadéquation à un usage particulier et dabsence de contrefaçon sont exclues.
LIMITATION DES DOMMAGES-INTÉRÊTS ET EXCLUSION DE RESPONSABILITÉ POUR LES DOMMAGES. Vous pouvez obtenir de Microsoft et de ses fournisseurs une indemnisation en cas de dommages directs uniquement à hauteur de 5,00 $ US. Vous ne pouvez prétendre à aucune indemnisation pour les autres dommages, y compris les dommages spéciaux, indirects ou accessoires et pertes de bénéfices.
Cette limitation concerne :
· tout ce qui est relié au logiciel, aux services ou au contenu (y compris le code) figurant sur des sites Internet tiers ou dans des programmes tiers ; et
· les réclamations au titre de violation de contrat ou de garantie, ou au titre de responsabilité stricte, de négligence ou dune autre faute dans la limite autorisée par la loi en vigueur.
Elle sapplique également, même si Microsoft connaissait ou devrait connaître l’éventualité dun tel dommage. Si votre pays nautorise pas lexclusion ou la limitation de responsabilité pour les dommages indirects, accessoires ou de quelque nature que ce soit, il se peut que la limitation ou lexclusion ci-dessus ne sappliquera pas à votre égard.
EFFET JURIDIQUE. Le présent contrat décrit certains droits juridiques. Vous pourriez avoir dautres droits prévus par les lois de votre pays. Le présent contrat ne modifie pas les droits que vous confèrent les lois de votre pays si celles-ci ne le permettent pas.
@@ -0,0 +1,276 @@
<?xml version="1.0" encoding="utf-8"?>
<doc>
<assembly>
<name>System.IO.Compression.ZipFile</name>
</assembly>
<members>
<member name="T:System.IO.Compression.ZipFile">
<summary>Provides static methods for creating, extracting, and opening zip archives. </summary>
</member>
<member name="M:System.IO.Compression.ZipFile.CreateFromDirectory(System.String,System.String)">
<summary>Creates a zip archive that contains the files and directories from the specified directory.</summary>
<param name="sourceDirectoryName">The path to the directory to be archived, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="destinationArchiveFileName">The path of the archive to be created, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceDirectoryName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationArchiveFileName" /> already exists.-or-A file in the specified directory could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="destinationArchiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the directory specified in <paramref name="sourceDirectoryName" /> or the file specified in <paramref name="destinationArchiveFileName" />.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> contains an invalid format.-or-The zip archive does not support writing.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.CreateFromDirectory(System.String,System.String,System.IO.Compression.CompressionLevel,System.Boolean)">
<summary>Creates a zip archive that contains the files and directories from the specified directory, uses the specified compression level, and optionally includes the base directory.</summary>
<param name="sourceDirectoryName">The path to the directory to be archived, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="destinationArchiveFileName">The path of the archive to be created, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="compressionLevel">One of the enumeration values that indicates whether to emphasize speed or compression effectiveness when creating the entry.</param>
<param name="includeBaseDirectory">true to include the directory name from <paramref name="sourceDirectoryName" /> at the root of the archive; false to include only the contents of the directory.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceDirectoryName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationArchiveFileName" /> already exists.-or-A file in the specified directory could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="destinationArchiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the directory specified in <paramref name="sourceDirectoryName" /> or the file specified in <paramref name="destinationArchiveFileName" />.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> contains an invalid format.-or-The zip archive does not support writing.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.CreateFromDirectory(System.String,System.String,System.IO.Compression.CompressionLevel,System.Boolean,System.Text.Encoding)">
<summary>Creates a zip archive that contains the files and directories from the specified directory, uses the specified compression level and character encoding for entry names, and optionally includes the base directory.</summary>
<param name="sourceDirectoryName">The path to the directory to be archived, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="destinationArchiveFileName">The path of the archive to be created, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="compressionLevel">One of the enumeration values that indicates whether to emphasize speed or compression effectiveness when creating the entry.</param>
<param name="includeBaseDirectory">true to include the directory name from <paramref name="sourceDirectoryName" /> at the root of the archive; false to include only the contents of the directory.</param>
<param name="entryNameEncoding">The encoding to use when reading or writing entry names in this archive. Specify a value for this parameter only when an encoding is required for interoperability with zip archive tools and libraries that do not support UTF-8 encoding for entry names.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryNameEncoding" /> is set to a Unicode encoding other than UTF-8.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceDirectoryName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationArchiveFileName" /> already exists.-or-A file in the specified directory could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="destinationArchiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the directory specified in <paramref name="sourceDirectoryName" /> or the file specified in <paramref name="destinationArchiveFileName" />.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> contains an invalid format.-or-The zip archive does not support writing.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.ExtractToDirectory(System.String,System.String)">
<summary>Extracts all the files in the specified zip archive to a directory on the file system.</summary>
<param name="sourceArchiveFileName">The path to the archive that is to be extracted.</param>
<param name="destinationDirectoryName">The path to the directory in which to place the extracted files, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">The specified path in <paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> exceeds the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">The specified path is invalid (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">The directory specified by <paramref name="destinationDirectoryName" /> already exists.-or-The name of an entry in the archive is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-Extracting an archive entry would create a file that is outside the directory specified by <paramref name="destinationDirectoryName" />. (For example, this might happen if the entry name contains parent directory accessors.) -or-An archive entry to extract has the same name as an entry that has already been extracted from the same archive.</exception>
<exception cref="T:System.UnauthorizedAccessException">The caller does not have the required permission to access the archive or the destination directory.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="sourceArchiveFileName" /> was not found.</exception>
<exception cref="T:System.IO.InvalidDataException">The archive specified by <paramref name="sourceArchiveFileName" /> is not a valid zip archive.-or-An archive entry was not found or was corrupt.-or-An archive entry was compressed by using a compression method that is not supported.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.ExtractToDirectory(System.String,System.String,System.Text.Encoding)">
<summary>Extracts all the files in the specified zip archive to a directory on the file system and uses the specified character encoding for entry names.</summary>
<param name="sourceArchiveFileName">The path to the archive that is to be extracted.</param>
<param name="destinationDirectoryName">The path to the directory in which to place the extracted files, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="entryNameEncoding">The encoding to use when reading or writing entry names in this archive. Specify a value for this parameter only when an encoding is required for interoperability with zip archive tools and libraries that do not support UTF-8 encoding for entry names.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryNameEncoding" /> is set to a Unicode encoding other than UTF-8.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">The specified path in <paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> exceeds the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">The specified path is invalid (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">The directory specified by <paramref name="destinationDirectoryName" /> already exists.-or-The name of an entry in the archive is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-Extracting an archive entry would create a file that is outside the directory specified by <paramref name="destinationDirectoryName" />. (For example, this might happen if the entry name contains parent directory accessors.) -or-An archive entry to extract has the same name as an entry that has already been extracted from the same archive.</exception>
<exception cref="T:System.UnauthorizedAccessException">The caller does not have the required permission to access the archive or the destination directory.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="sourceArchiveFileName" /> was not found.</exception>
<exception cref="T:System.IO.InvalidDataException">The archive specified by <paramref name="sourceArchiveFileName" /> is not a valid zip archive.-or-An archive entry was not found or was corrupt.-or-An archive entry was compressed by using a compression method that is not supported.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.Open(System.String,System.IO.Compression.ZipArchiveMode)">
<summary>Opens a zip archive at the specified path and in the specified mode.</summary>
<returns>The opened zip archive.</returns>
<param name="archiveFileName">The path to the archive to open, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="mode">One of the enumeration values that specifies the actions which are allowed on the entries in the opened archive.</param>
<exception cref="T:System.ArgumentException">
<paramref name="archiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="archiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="archiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="archiveFileName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="archiveFileName" /> could not be opened.-or-<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Create" />, but the file specified in <paramref name="archiveFileName" /> already exists.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="archiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified in <paramref name="archiveFileName" />.</exception>
<exception cref="T:System.ArgumentOutOfRangeException">
<paramref name="mode" /> specifies an invalid value.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Read" />, but the file specified in <paramref name="archiveFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="archiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.InvalidDataException">
<paramref name="archiveFileName" /> could not be interpreted as a zip archive.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is missing or corrupt and cannot be read.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is too large to fit into memory.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.Open(System.String,System.IO.Compression.ZipArchiveMode,System.Text.Encoding)">
<summary>Opens a zip archive at the specified path, in the specified mode, and by using the specified character encoding for entry names.</summary>
<returns>The opened zip archive.</returns>
<param name="archiveFileName">The path to the archive to open, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="mode">One of the enumeration values that specifies the actions that are allowed on the entries in the opened archive.</param>
<param name="entryNameEncoding">The encoding to use when reading or writing entry names in this archive. Specify a value for this parameter only when an encoding is required for interoperability with zip archive tools and libraries that do not support UTF-8 encoding for entry names.</param>
<exception cref="T:System.ArgumentException">
<paramref name="archiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryNameEncoding" /> is set to a Unicode encoding other than UTF-8.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="archiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="archiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="archiveFileName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="archiveFileName" /> could not be opened.-or-<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Create" />, but the file specified in <paramref name="archiveFileName" /> already exists.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="archiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified in <paramref name="archiveFileName" />.</exception>
<exception cref="T:System.ArgumentOutOfRangeException">
<paramref name="mode" /> specifies an invalid value.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Read" />, but the file specified in <paramref name="archiveFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="archiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.InvalidDataException">
<paramref name="archiveFileName" /> could not be interpreted as a zip archive.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is missing or corrupt and cannot be read.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is too large to fit into memory.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.OpenRead(System.String)">
<summary>Opens a zip archive for reading at the specified path.</summary>
<returns>The opened zip archive.</returns>
<param name="archiveFileName">The path to the archive to open, specified as a relative or absolute path. A relative path is interpreted as relative to the current working directory.</param>
<exception cref="T:System.ArgumentException">
<paramref name="archiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="archiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="archiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="archiveFileName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="archiveFileName" /> could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="archiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified in <paramref name="archiveFileName" />.</exception>
<exception cref="T:System.IO.FileNotFoundException">The file specified in <paramref name="archiveFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="archiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.InvalidDataException">
<paramref name="archiveFileName" /> could not be interpreted as a zip archive.</exception>
</member>
<member name="T:System.IO.Compression.ZipFileExtensions">
<summary>Provides extension methods for the <see cref="T:System.IO.Compression.ZipArchive" /> and <see cref="T:System.IO.Compression.ZipArchiveEntry" /> classes.</summary>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.CreateEntryFromFile(System.IO.Compression.ZipArchive,System.String,System.String)">
<summary>Archives a file by compressing it and adding it to the zip archive.</summary>
<returns>A wrapper for the new entry in the zip archive.</returns>
<param name="destination">The zip archive to add the file to.</param>
<param name="sourceFileName">The path to the file to be archived. You can specify either a relative or an absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="entryName">The name of the entry to create in the zip archive.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryName" /> is <see cref="F:System.String.Empty" />.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceFileName" /> or <paramref name="entryName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceFileName" />, the specified path, file name, or both exceed the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceFileName" /> is invalid (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">The file specified by <paramref name="sourceFileName" /> cannot be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="sourceFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified by <paramref name="sourceFileName" />.</exception>
<exception cref="T:System.IO.FileNotFoundException">The file specified by <paramref name="sourceFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">The <paramref name="sourceFileName" /> parameter is in an invalid format.-or-The zip archive does not support writing.</exception>
<exception cref="T:System.ObjectDisposedException">The zip archive has been disposed.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.CreateEntryFromFile(System.IO.Compression.ZipArchive,System.String,System.String,System.IO.Compression.CompressionLevel)">
<summary>Archives a file by compressing it using the specified compression level and adding it to the zip archive.</summary>
<returns>A wrapper for the new entry in the zip archive.</returns>
<param name="destination">The zip archive to add the file to.</param>
<param name="sourceFileName">The path to the file to be archived. You can specify either a relative or an absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="entryName">The name of the entry to create in the zip archive.</param>
<param name="compressionLevel">One of the enumeration values that indicates whether to emphasize speed or compression effectiveness when creating the entry.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryName" /> is <see cref="F:System.String.Empty" />.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceFileName" /> or <paramref name="entryName" /> is null.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceFileName" /> is invalid (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceFileName" />, the specified path, file name, or both exceed the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.IOException">The file specified by <paramref name="sourceFileName" /> cannot be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="sourceFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified by <paramref name="sourceFileName" />.</exception>
<exception cref="T:System.IO.FileNotFoundException">The file specified by <paramref name="sourceFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">The <paramref name="sourceFileName" /> parameter is in an invalid format.-or-The zip archive does not support writing.</exception>
<exception cref="T:System.ObjectDisposedException">The zip archive has been disposed.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.ExtractToDirectory(System.IO.Compression.ZipArchive,System.String)">
<summary>Extracts all the files in the zip archive to a directory on the file system.</summary>
<param name="source">The zip archive to extract files from.</param>
<param name="destinationDirectoryName">The path to the directory to place the extracted files in. You can specify either a relative or an absolute path. A relative path is interpreted as relative to the current working directory.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationDirectoryName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationDirectoryName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">The specified path exceeds the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">The specified path is invalid (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">The directory specified by <paramref name="destinationDirectoryName" /> already exists.-or-The name of an entry in the archive is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-Extracting an entry from the archive would create a file that is outside the directory specified by <paramref name="destinationDirectoryName" />. (For example, this might happen if the entry name contains parent directory accessors.) -or-Two or more entries in the archive have the same name.</exception>
<exception cref="T:System.UnauthorizedAccessException">The caller does not have the required permission to write to the destination directory.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationDirectoryName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.InvalidDataException">An archive entry cannot be found or is corrupt.-or-An archive entry was compressed by using a compression method that is not supported.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.ExtractToFile(System.IO.Compression.ZipArchiveEntry,System.String)">
<summary>Extracts an entry in the zip archive to a file.</summary>
<param name="source">The zip archive entry to extract a file from.</param>
<param name="destinationFileName">The path of the file to create from the contents of the entry. You can specify either a relative or an absolute path. A relative path is interpreted as relative to the current working directory.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationFileName" /> is a zero-length string, contains only white space, or contains one or more invalid characters as defined by <see cref="F:System.IO.Path.InvalidPathChars" />.-or-<paramref name="destinationFileName" /> specifies a directory.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationFileName" /> is null. </exception>
<exception cref="T:System.IO.PathTooLongException">The specified path, file name, or both exceed the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters. </exception>
<exception cref="T:System.IO.DirectoryNotFoundException">The specified path is invalid (for example, it is on an unmapped drive). </exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationFileName" /> already exists.-or- An I/O error occurred.-or-The entry is currently open for writing.-or-The entry has been deleted from the archive.</exception>
<exception cref="T:System.UnauthorizedAccessException">The caller does not have the required permission to create the new file.</exception>
<exception cref="T:System.IO.InvalidDataException">The entry is missing from the archive, or is corrupt and cannot be read.-or-The entry has been compressed by using a compression method that is not supported.</exception>
<exception cref="T:System.ObjectDisposedException">The zip archive that this entry belongs to has been disposed.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationFileName" /> is in an invalid format. -or-The zip archive for this entry was opened in <see cref="F:System.IO.Compression.ZipArchiveMode.Create" /> mode, which does not permit the retrieval of entries.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.ExtractToFile(System.IO.Compression.ZipArchiveEntry,System.String,System.Boolean)">
<summary>Extracts an entry in the zip archive to a file, and optionally overwrites an existing file that has the same name.</summary>
<param name="source">The zip archive entry to extract a file from.</param>
<param name="destinationFileName">The path of the file to create from the contents of the entry. You can specify either a relative or an absolute path. A relative path is interpreted as relative to the current working directory.</param>
<param name="overwrite">true to overwrite an existing file that has the same name as the destination file; otherwise, false.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationFileName" /> is a zero-length string, contains only white space, or contains one or more invalid characters as defined by <see cref="F:System.IO.Path.InvalidPathChars" />.-or-<paramref name="destinationFileName" /> specifies a directory.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationFileName" /> is null. </exception>
<exception cref="T:System.IO.PathTooLongException">The specified path, file name, or both exceed the system-defined maximum length. For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters. </exception>
<exception cref="T:System.IO.DirectoryNotFoundException">The specified path is invalid (for example, it is on an unmapped drive). </exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationFileName" /> already exists and <paramref name="overwrite" /> is false.-or- An I/O error occurred.-or-The entry is currently open for writing.-or-The entry has been deleted from the archive.</exception>
<exception cref="T:System.UnauthorizedAccessException">The caller does not have the required permission to create the new file.</exception>
<exception cref="T:System.IO.InvalidDataException">The entry is missing from the archive or is corrupt and cannot be read.-or-The entry has been compressed by using a compression method that is not supported.</exception>
<exception cref="T:System.ObjectDisposedException">The zip archive that this entry belongs to has been disposed.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationFileName" /> is in an invalid format. -or-The zip archive for this entry was opened in <see cref="F:System.IO.Compression.ZipArchiveMode.Create" /> mode, which does not permit the retrieval of entries.</exception>
</member>
</members>
</doc>
@@ -0,0 +1,274 @@
<?xml version="1.0" encoding="utf-8"?>
<doc>
<assembly>
<name>System.IO.Compression.ZipFile</name>
</assembly>
<members>
<member name="T:System.IO.Compression.ZipFile">
<summary>Stellt statische Methoden zum Erstellen, Extrahieren und Öffnen von Zip-Archiven bereit. </summary>
</member>
<member name="M:System.IO.Compression.ZipFile.CreateFromDirectory(System.String,System.String)">
<summary>Erstellt ein ZIP-Archiv, das die Dateien und Verzeichnisse im angegebenen Verzeichnis enthält.</summary>
<param name="sourceDirectoryName">Der Pfad zum Verzeichnis, das archiviert werden soll, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="destinationArchiveFileName">Der Pfad des zu erstellenden Archivs, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceDirectoryName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationArchiveFileName" /> already exists.-or-A file in the specified directory could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="destinationArchiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the directory specified in <paramref name="sourceDirectoryName" /> or the file specified in <paramref name="destinationArchiveFileName" />.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> contains an invalid format.-or-The zip archive does not support writing.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.CreateFromDirectory(System.String,System.String,System.IO.Compression.CompressionLevel,System.Boolean)">
<summary>Erstellt ein ZIP-Archiv, das die Dateien und Verzeichnisse im angegebenen Verzeichnis enthält, verwendet die angegebene Komprimierungsebene und optional das Basisverzeichnis.</summary>
<param name="sourceDirectoryName">Der Pfad zum Verzeichnis, das archiviert werden soll, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="destinationArchiveFileName">Der Pfad des zu erstellenden Archivs, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="compressionLevel">Einer der Enumerationswerte, der angibt, ob Geschwindigkeit oder Komprimierungseffektivität priorisiert wird, wenn der Eintrag erstellt.</param>
<param name="includeBaseDirectory">true, um den Verzeichnisnamens von <paramref name="sourceDirectoryName" /> am Stamm des Archivs einzuschließen; false, um nur der Inhalt des Verzeichnisses einzuschließen.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceDirectoryName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationArchiveFileName" /> already exists.-or-A file in the specified directory could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="destinationArchiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the directory specified in <paramref name="sourceDirectoryName" /> or the file specified in <paramref name="destinationArchiveFileName" />.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> contains an invalid format.-or-The zip archive does not support writing.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.CreateFromDirectory(System.String,System.String,System.IO.Compression.CompressionLevel,System.Boolean,System.Text.Encoding)">
<summary>Erstellt ein ZIP-Archiv, das die Dateien und Verzeichnisse im angegebenen Verzeichnis enthält, die angegebene Komprimierungsebene und der angegebenen Zeichencodierung für Eintragsnamen verwendet und optional das Basisverzeichnis mit einbezieht.</summary>
<param name="sourceDirectoryName">Der Pfad zum Verzeichnis, das archiviert werden soll, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="destinationArchiveFileName">Der Pfad des zu erstellenden Archivs, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="compressionLevel">Einer der Enumerationswerte, der angibt, ob Geschwindigkeit oder Komprimierungseffektivität priorisiert wird, wenn der Eintrag erstellt.</param>
<param name="includeBaseDirectory">true, um den Verzeichnisnamens von <paramref name="sourceDirectoryName" /> am Stamm des Archivs einzuschließen; false, um nur der Inhalt des Verzeichnisses einzuschließen.</param>
<param name="entryNameEncoding">Die Codierung, die beim Lesen oder Schreiben von Eintragsnamen in diesem Archiv verwendet werden soll.Geben Sie einen Wert für diesen Parameter nur an, wenn eine Codierung für die Interoperabilität mit ZIP-Archiv-Tools und -Bibliotheken erforderlich ist, die die UTF-8-Codierung für Eintragsnamen nicht unterstützen.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryNameEncoding" /> is set to a Unicode encoding other than UTF-8.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceDirectoryName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationArchiveFileName" /> already exists.-or-A file in the specified directory could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="destinationArchiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the directory specified in <paramref name="sourceDirectoryName" /> or the file specified in <paramref name="destinationArchiveFileName" />.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> contains an invalid format.-or-The zip archive does not support writing.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.ExtractToDirectory(System.String,System.String)">
<summary>Extrahiert alle Dateien im angegebenen ZIP-Archiv in ein Verzeichnis im Dateisystem.</summary>
<param name="sourceArchiveFileName">Der Pfad zum Archiv, das extrahiert werden soll.</param>
<param name="destinationDirectoryName">Der Pfad zum Verzeichnis, in dem die extrahierten Dateien abgelegt werden sollen, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">The specified path in <paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> exceeds the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">The specified path is invalid (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">The directory specified by <paramref name="destinationDirectoryName" /> already exists.-or-The name of an entry in the archive is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-Extracting an archive entry would create a file that is outside the directory specified by <paramref name="destinationDirectoryName" />.(For example, this might happen if the entry name contains parent directory accessors.)-or-An archive entry to extract has the same name as an entry that has already been extracted from the same archive.</exception>
<exception cref="T:System.UnauthorizedAccessException">The caller does not have the required permission to access the archive or the destination directory.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="sourceArchiveFileName" /> was not found.</exception>
<exception cref="T:System.IO.InvalidDataException">The archive specified by <paramref name="sourceArchiveFileName" /> is not a valid zip archive.-or-An archive entry was not found or was corrupt.-or-An archive entry was compressed by using a compression method that is not supported.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.ExtractToDirectory(System.String,System.String,System.Text.Encoding)">
<summary>Extrahiert alle Dateien im angegebenen ZIP-Archiv in ein Verzeichnis im Dateisystem und verwendet die angegebene Zeichencodierung für Eintragsnamen.</summary>
<param name="sourceArchiveFileName">Der Pfad zum Archiv, das extrahiert werden soll.</param>
<param name="destinationDirectoryName">Der Pfad zum Verzeichnis, in dem die extrahierten Dateien abgelegt werden sollen, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="entryNameEncoding">Die Codierung, die beim Lesen oder Schreiben von Eintragsnamen in diesem Archiv verwendet werden soll.Geben Sie einen Wert für diesen Parameter nur an, wenn eine Codierung für die Interoperabilität mit ZIP-Archiv-Tools und -Bibliotheken erforderlich ist, die die UTF-8-Codierung für Eintragsnamen nicht unterstützen.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryNameEncoding" /> is set to a Unicode encoding other than UTF-8.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">The specified path in <paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> exceeds the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">The specified path is invalid (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">The directory specified by <paramref name="destinationDirectoryName" /> already exists.-or-The name of an entry in the archive is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-Extracting an archive entry would create a file that is outside the directory specified by <paramref name="destinationDirectoryName" />.(For example, this might happen if the entry name contains parent directory accessors.)-or-An archive entry to extract has the same name as an entry that has already been extracted from the same archive.</exception>
<exception cref="T:System.UnauthorizedAccessException">The caller does not have the required permission to access the archive or the destination directory.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="sourceArchiveFileName" /> was not found.</exception>
<exception cref="T:System.IO.InvalidDataException">The archive specified by <paramref name="sourceArchiveFileName" /> is not a valid zip archive.-or-An archive entry was not found or was corrupt.-or-An archive entry was compressed by using a compression method that is not supported.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.Open(System.String,System.IO.Compression.ZipArchiveMode)">
<summary>Öffnet ein Zip-Archiv unter dem angegebenen Pfad und im angegebenen Modus.</summary>
<returns>Das geöffnete ZIP-Archiv.</returns>
<param name="archiveFileName">Der Pfad zum Archiv, dass geöffnet werden soll, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="mode">Einer der Enumerationswerte, der die Aktionen angibt, die bei den Einträgen im geöffneten Archiv zulässig sind.</param>
<exception cref="T:System.ArgumentException">
<paramref name="archiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="archiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="archiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="archiveFileName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="archiveFileName" /> could not be opened.-or-<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Create" />, but the file specified in <paramref name="archiveFileName" /> already exists.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="archiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified in <paramref name="archiveFileName" />.</exception>
<exception cref="T:System.ArgumentOutOfRangeException">
<paramref name="mode" /> specifies an invalid value.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Read" />, but the file specified in <paramref name="archiveFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="archiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.InvalidDataException">
<paramref name="archiveFileName" /> could not be interpreted as a zip archive.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is missing or corrupt and cannot be read.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is too large to fit into memory.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.Open(System.String,System.IO.Compression.ZipArchiveMode,System.Text.Encoding)">
<summary>Öffnet ein Zip-Archiv im angegebenen Pfad im angegebenen Modus und mit der angegebenen Zeichencodierung für Eintragsnamen.</summary>
<returns>Das geöffnete ZIP-Archiv.</returns>
<param name="archiveFileName">Der Pfad zum Archiv, dass geöffnet werden soll, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="mode">Einer der Enumerationswerte, der die Aktionen angibt, die bei den Einträgen im geöffneten Archiv zulässig sind.</param>
<param name="entryNameEncoding">Die Codierung, die beim Lesen oder Schreiben von Eintragsnamen in diesem Archiv verwendet werden soll.Geben Sie einen Wert für diesen Parameter nur an, wenn eine Codierung für die Interoperabilität mit ZIP-Archiv-Tools und -Bibliotheken erforderlich ist, die die UTF-8-Codierung für Eintragsnamen nicht unterstützen.</param>
<exception cref="T:System.ArgumentException">
<paramref name="archiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryNameEncoding" /> is set to a Unicode encoding other than UTF-8.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="archiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="archiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="archiveFileName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="archiveFileName" /> could not be opened.-or-<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Create" />, but the file specified in <paramref name="archiveFileName" /> already exists.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="archiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified in <paramref name="archiveFileName" />.</exception>
<exception cref="T:System.ArgumentOutOfRangeException">
<paramref name="mode" /> specifies an invalid value.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Read" />, but the file specified in <paramref name="archiveFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="archiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.InvalidDataException">
<paramref name="archiveFileName" /> could not be interpreted as a zip archive.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is missing or corrupt and cannot be read.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is too large to fit into memory.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.OpenRead(System.String)">
<summary>Öffnet ein Zip-Archiv für das Lesen im angegebenen Pfad.</summary>
<returns>Das geöffnete ZIP-Archiv.</returns>
<param name="archiveFileName">Der Pfad zum Archiv, dass geöffnet werden soll, angegeben als relativer oder absoluter Pfad.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<exception cref="T:System.ArgumentException">
<paramref name="archiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="archiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="archiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="archiveFileName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="archiveFileName" /> could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="archiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified in <paramref name="archiveFileName" />.</exception>
<exception cref="T:System.IO.FileNotFoundException">The file specified in <paramref name="archiveFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="archiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.InvalidDataException">
<paramref name="archiveFileName" /> could not be interpreted as a zip archive.</exception>
</member>
<member name="T:System.IO.Compression.ZipFileExtensions">
<summary>Stellt Erweiterungsmethoden für die <see cref="T:System.IO.Compression.ZipArchive" />- und <see cref="T:System.IO.Compression.ZipArchiveEntry" />-Klassen bereit.</summary>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.CreateEntryFromFile(System.IO.Compression.ZipArchive,System.String,System.String)">
<summary>Archiviert eine Datei durch Komprimieren und Hinzufügen zum ZIP-Archiv.</summary>
<returns>Ein Wrapper für den neuen Eintrag im ZIP-Archiv.</returns>
<param name="destination">Das der Datei hinzuzufügende ZIP-Archiv.</param>
<param name="sourceFileName">Der Pfad zu der zu archivierenden Datei.Sie können einen absoluten oder relativen Pfad angeben.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="entryName">Der Name des Eintrags, der im ZIP-Archiv erstellt werden soll.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceFileName" /> ist <see cref="F:System.String.Empty" />, enthält nur Leerraum oder mindestens ein ungültiges Zeichen.- oder -<paramref name="entryName" /> ist <see cref="F:System.String.Empty" />.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceFileName" /> oder <paramref name="entryName" /> ist null.</exception>
<exception cref="T:System.IO.PathTooLongException">Im <paramref name="sourceFileName" /> überschreiten der angegebene Pfad und/oder der Dateiname die vom System vorgegebene Höchstlänge.Beispielsweise müssen Pfade auf Windows-Plattformen weniger als 248 Zeichen und Dateinamen weniger als 260 Zeichen haben.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceFileName" /> ist ungültig (z. B. befindet er sich auf einem nicht zugeordneten Laufwerk).</exception>
<exception cref="T:System.IO.IOException">Die anhand der <paramref name="sourceFileName" /> angegebene Datei kann nicht geöffnet werden.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="sourceFileName" /> gibt ein Verzeichnis an.- oder -Der Aufrufer verfügt nicht über die erforderliche Berechtigung für den Zugriff auf die durch <paramref name="sourceFileName" /> angegebene Datei.</exception>
<exception cref="T:System.IO.FileNotFoundException">Die von <paramref name="sourceFileName" /> angegebene Datei wird nicht gefunden.</exception>
<exception cref="T:System.NotSupportedException">Der <paramref name="sourceFileName" />-Parameter hat ein ungültiges Format.- oder -Das ZIP-Archiv unterstützt keine Schreibvorgänge.</exception>
<exception cref="T:System.ObjectDisposedException">Die ZIP-Archiv wurde freigegeben.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.CreateEntryFromFile(System.IO.Compression.ZipArchive,System.String,System.String,System.IO.Compression.CompressionLevel)">
<summary>Archiviert eine Datei durch Komprimieren mithilfe der angegebenen Komprimierungsebene und Hinzufügen zum ZIP-Archiv.</summary>
<returns>Ein Wrapper für den neuen Eintrag im ZIP-Archiv.</returns>
<param name="destination">Das der Datei hinzuzufügende ZIP-Archiv.</param>
<param name="sourceFileName">Der Pfad zu der zu archivierenden Datei.Sie können einen absoluten oder relativen Pfad angeben.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="entryName">Der Name des Eintrags, der im ZIP-Archiv erstellt werden soll.</param>
<param name="compressionLevel">Einer der Enumerationswerte, der angibt, ob Geschwindigkeit oder Komprimierungseffektivität priorisiert wird, wenn der Eintrag erstellt.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceFileName" /> ist <see cref="F:System.String.Empty" />, enthält nur Leerraum oder mindestens ein ungültiges Zeichen.- oder -<paramref name="entryName" /> ist <see cref="F:System.String.Empty" />.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceFileName" /> oder <paramref name="entryName" /> ist null.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceFileName" /> ist ungültig (z. B. befindet er sich auf einem nicht zugeordneten Laufwerk).</exception>
<exception cref="T:System.IO.PathTooLongException">Im <paramref name="sourceFileName" /> überschreiten der angegebene Pfad und/oder der Dateiname die vom System vorgegebene Höchstlänge.Beispielsweise müssen Pfade auf Windows-Plattformen weniger als 248 Zeichen und Dateinamen weniger als 260 Zeichen haben.</exception>
<exception cref="T:System.IO.IOException">Die anhand der <paramref name="sourceFileName" /> angegebene Datei kann nicht geöffnet werden.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="sourceFileName" /> gibt ein Verzeichnis an.- oder -Der Aufrufer verfügt nicht über die erforderliche Berechtigung für den Zugriff auf die durch <paramref name="sourceFileName" /> angegebene Datei.</exception>
<exception cref="T:System.IO.FileNotFoundException">Die von <paramref name="sourceFileName" /> angegebene Datei wird nicht gefunden.</exception>
<exception cref="T:System.NotSupportedException">Der <paramref name="sourceFileName" />-Parameter hat ein ungültiges Format.- oder -Das ZIP-Archiv unterstützt keine Schreibvorgänge.</exception>
<exception cref="T:System.ObjectDisposedException">Die ZIP-Archiv wurde freigegeben.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.ExtractToDirectory(System.IO.Compression.ZipArchive,System.String)">
<summary>Extrahiert alle Dateien im ZIP-Archiv in ein Verzeichnis im Dateisystem.</summary>
<param name="source">Das Zip-Archiv, aus dem Dateien extrahiert werden sollen.</param>
<param name="destinationDirectoryName">Der Pfad zum Verzeichnis, in dem die extrahierten Dateien abgelegt werden sollen.Sie können einen absoluten oder relativen Pfad angeben.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationDirectoryName" /> ist <see cref="F:System.String.Empty" />, enthält nur Leerraum oder mindestens ein ungültiges Zeichen.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationDirectoryName" /> ist null.</exception>
<exception cref="T:System.IO.PathTooLongException">Der angegebene Pfad überschreitet die im System definierte maximale Länge ().Beispielsweise müssen Pfade auf Windows-Plattformen weniger als 248 Zeichen und Dateinamen weniger als 260 Zeichen haben.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">Der angegebene Pfad ist ungültig (z. B. befindet er sich auf einem nicht zugeordneten Laufwerk).</exception>
<exception cref="T:System.IO.IOException">Das von <paramref name="destinationDirectoryName" /> angegebene Verzeichnis ist bereits vorhanden.- oder -Der Name eines Eintrags im Archiv ist <see cref="F:System.String.Empty" />, enthält nur Leerraum oder enthält mindestens ein ungültiges Zeichen.- oder -Das Extrahieren eines Eintrags aus dem Archiv wird eine Datei erstellen, die sich außerhalb des Verzeichnisses befindet, das von <paramref name="destinationDirectoryName" /> angegeben wird. (Zum Beispiel geschähe dies möglicherweise, wenn der Eintragsname Accessoren des übergeordneten Verzeichnisses enthält.) - oder -Zwei oder mehr Einträge im Archiv haben denselben Namen.</exception>
<exception cref="T:System.UnauthorizedAccessException">Der Aufrufer verfügt nicht über die erforderliche Berechtigung zum Schreiben in das Zielverzeichnis.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationDirectoryName" /> enthält ein ungültiges Format.</exception>
<exception cref="T:System.IO.InvalidDataException">Ein Archiveintrag wurde nicht gefunden oder ist beschädigt.- oder -Ein Archiveintrag wurde mit einer nicht unterstützten Komprimierungsmethode komprimiert.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.ExtractToFile(System.IO.Compression.ZipArchiveEntry,System.String)">
<summary>Extrahiert einen Eintrag im ZIP-Archiv in eine Datei.</summary>
<param name="source">Der Zip-Archiveintrag zum Extrahieren einer Datei.</param>
<param name="destinationFileName">Der Pfad der Datei, die aus dem Eintragsinhalt erstellt werden soll.Sie können einen absoluten oder relativen Pfad angeben.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationFileName" /> ist eine Zeichenfolge der Länge 0, besteht nur aus Leerraum oder enthält ein oder mehr durch <see cref="F:System.IO.Path.InvalidPathChars" /> definierte ungültige Zeichen.- oder -<paramref name="destinationFileName" /> gibt ein Verzeichnis an.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationFileName" /> ist null. </exception>
<exception cref="T:System.IO.PathTooLongException">Der angegebene Pfad und/oder der Dateiname überschreiten die vom System vorgegebene Höchstlänge.Beispielsweise müssen Pfade auf Windows-Plattformen weniger als 248 Zeichen und Dateinamen weniger als 260 Zeichen haben.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">Der angegebene Pfad ist ungültig (z. B. befindet er sich auf einem nicht zugeordneten Laufwerk). </exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationFileName" /> ist bereits vorhanden.- oder - Ein E/A-Fehler ist aufgetreten.- oder -Der Eintrag ist derzeit zum Schreiben geöffnet.- oder -Der Eintrag wurde vom Archiv gelöscht.</exception>
<exception cref="T:System.UnauthorizedAccessException">Der Aufrufer verfügt nicht über die erforderliche Berechtigung für die Erstellung der neuen Datei.</exception>
<exception cref="T:System.IO.InvalidDataException">Der Eintrag fehlt im Archiv, oder ist beschädigt und kann nicht gelesen werden.- oder -Der Eintrag wurde mit einer nicht unterstützten Komprimierungsmethode komprimiert.</exception>
<exception cref="T:System.ObjectDisposedException">Das Zip-Archiv, zu dem dieser Eintrag gehört, wurde freigegeben.</exception>
<exception cref="T:System.NotSupportedException">Das Format von <paramref name="destinationFileName" /> ist ungültig. - oder -Das Zip-Archiv für diesen Eintrag wurde im <see cref="F:System.IO.Compression.ZipArchiveMode.Create" />-Modus geöffnet, der den Abruf von Einträgen nicht zulässt.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.ExtractToFile(System.IO.Compression.ZipArchiveEntry,System.String,System.Boolean)">
<summary>Extrahiert einen Eintrag im ZIP-Archiv in eine Datei, wobei optional eine vorhandene Datei überschrieben wird, die den gleichen Namen hat.</summary>
<param name="source">Der Zip-Archiveintrag zum Extrahieren einer Datei.</param>
<param name="destinationFileName">Der Pfad der Datei, die aus dem Eintragsinhalt erstellt werden soll.Sie können einen absoluten oder relativen Pfad angeben.Ein relativer Pfad wird relativ zum aktuellen Arbeitsverzeichnis interpretiert.</param>
<param name="overwrite">true, um eine vorhandene Datei zu überschreiben, die den gleichen Namen wie die Zieldatei hat; andernfalls false.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationFileName" /> ist eine Zeichenfolge der Länge 0, besteht nur aus Leerraum oder enthält ein oder mehr durch <see cref="F:System.IO.Path.InvalidPathChars" /> definierte ungültige Zeichen.- oder -<paramref name="destinationFileName" /> gibt ein Verzeichnis an.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationFileName" /> ist null. </exception>
<exception cref="T:System.IO.PathTooLongException">Der angegebene Pfad und/oder der Dateiname überschreiten die vom System vorgegebene Höchstlänge.Beispielsweise müssen Pfade auf Windows-Plattformen weniger als 248 Zeichen und Dateinamen weniger als 260 Zeichen haben.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">Der angegebene Pfad ist ungültig (z. B. befindet er sich auf einem nicht zugeordneten Laufwerk). </exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationFileName" /> ist bereits vorhanden und <paramref name="overwrite" /> ist false.- oder - Ein E/A-Fehler ist aufgetreten.- oder -Der Eintrag ist derzeit zum Schreiben geöffnet.- oder -Der Eintrag wurde vom Archiv gelöscht.</exception>
<exception cref="T:System.UnauthorizedAccessException">Der Aufrufer verfügt nicht über die erforderliche Berechtigung für die Erstellung der neuen Datei.</exception>
<exception cref="T:System.IO.InvalidDataException">Der Eintrag fehlt im Archiv, oder er ist beschädigt und kann nicht gelesen werden.- oder -Der Eintrag wurde mit einer nicht unterstützten Komprimierungsmethode komprimiert.</exception>
<exception cref="T:System.ObjectDisposedException">Das Zip-Archiv, zu dem dieser Eintrag gehört, wurde freigegeben.</exception>
<exception cref="T:System.NotSupportedException">Das Format von <paramref name="destinationFileName" /> ist ungültig. - oder -Das Zip-Archiv für diesen Eintrag wurde im <see cref="F:System.IO.Compression.ZipArchiveMode.Create" />-Modus geöffnet, der den Abruf von Einträgen nicht zulässt.</exception>
</member>
</members>
</doc>
@@ -0,0 +1,274 @@
<?xml version="1.0" encoding="utf-8"?>
<doc>
<assembly>
<name>System.IO.Compression.ZipFile</name>
</assembly>
<members>
<member name="T:System.IO.Compression.ZipFile">
<summary>Proporciona métodos estáticos para crear, extraer y abrir archivos zip. </summary>
</member>
<member name="M:System.IO.Compression.ZipFile.CreateFromDirectory(System.String,System.String)">
<summary>Crea un archivo zip que contiene los archivos y directorios del directorio especificado.</summary>
<param name="sourceDirectoryName">La ruta de acceso al directorio que se va a almacenar, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="destinationArchiveFileName">La ruta de acceso del archivo que se creará, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceDirectoryName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationArchiveFileName" /> already exists.-or-A file in the specified directory could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="destinationArchiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the directory specified in <paramref name="sourceDirectoryName" /> or the file specified in <paramref name="destinationArchiveFileName" />.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> contains an invalid format.-or-The zip archive does not support writing.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.CreateFromDirectory(System.String,System.String,System.IO.Compression.CompressionLevel,System.Boolean)">
<summary>Crea un archivo zip que contiene los archivos y directorios del directorio especificado, utiliza el nivel de compresión especificado y, opcionalmente, incluye el directorio base.</summary>
<param name="sourceDirectoryName">La ruta de acceso al directorio que se va a almacenar, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="destinationArchiveFileName">La ruta de acceso del archivo que se creará, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="compressionLevel">Uno de los valores de enumeración que indica si se va a hacer hincapié en la velocidad o en la eficacia de compresión al crear la entrada.</param>
<param name="includeBaseDirectory">true para incluir el nombre de directorio de <paramref name="sourceDirectoryName" /> en la raíz del archivo; false para incluir solo el contenido del directorio.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceDirectoryName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationArchiveFileName" /> already exists.-or-A file in the specified directory could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="destinationArchiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the directory specified in <paramref name="sourceDirectoryName" /> or the file specified in <paramref name="destinationArchiveFileName" />.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> contains an invalid format.-or-The zip archive does not support writing.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.CreateFromDirectory(System.String,System.String,System.IO.Compression.CompressionLevel,System.Boolean,System.Text.Encoding)">
<summary>Crea un archivo zip que contiene los archivos y directorios del directorio especificado, utiliza el nivel de compresión y la codificación de caracteres especificados para los nombres de entrada y, opcionalmente, incluye el directorio base.</summary>
<param name="sourceDirectoryName">La ruta de acceso al directorio que se va a almacenar, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="destinationArchiveFileName">La ruta de acceso del archivo que se creará, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="compressionLevel">Uno de los valores de enumeración que indica si se va a hacer hincapié en la velocidad o en la eficacia de compresión al crear la entrada.</param>
<param name="includeBaseDirectory">true para incluir el nombre de directorio de <paramref name="sourceDirectoryName" /> en la raíz del archivo; false para incluir solo el contenido del directorio.</param>
<param name="entryNameEncoding">Codificación que se va a usar al leer o escribir nombres de entrada en este archivo.Especifique un valor para este parámetro únicamente cuando se necesite una codificación para la interoperabilidad con herramientas y bibliotecas de archivos zip que no admiten la codificación UTF-8 para los nombres de entrada.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryNameEncoding" /> is set to a Unicode encoding other than UTF-8.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="sourceDirectoryName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationArchiveFileName" /> already exists.-or-A file in the specified directory could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="destinationArchiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the directory specified in <paramref name="sourceDirectoryName" /> or the file specified in <paramref name="destinationArchiveFileName" />.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="sourceDirectoryName" /> or <paramref name="destinationArchiveFileName" /> contains an invalid format.-or-The zip archive does not support writing.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.ExtractToDirectory(System.String,System.String)">
<summary>Extrae todos los archivos del archivo zip especificado en un directorio del sistema de archivos.</summary>
<param name="sourceArchiveFileName">La ruta de acceso al archivo que se va a extraer.</param>
<param name="destinationDirectoryName">La ruta de acceso al directorio en el que se van a colocar los archivos extraídos, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">The specified path in <paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> exceeds the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">The specified path is invalid (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">The directory specified by <paramref name="destinationDirectoryName" /> already exists.-or-The name of an entry in the archive is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-Extracting an archive entry would create a file that is outside the directory specified by <paramref name="destinationDirectoryName" />.(For example, this might happen if the entry name contains parent directory accessors.)-or-An archive entry to extract has the same name as an entry that has already been extracted from the same archive.</exception>
<exception cref="T:System.UnauthorizedAccessException">The caller does not have the required permission to access the archive or the destination directory.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="sourceArchiveFileName" /> was not found.</exception>
<exception cref="T:System.IO.InvalidDataException">The archive specified by <paramref name="sourceArchiveFileName" /> is not a valid zip archive.-or-An archive entry was not found or was corrupt.-or-An archive entry was compressed by using a compression method that is not supported.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.ExtractToDirectory(System.String,System.String,System.Text.Encoding)">
<summary>Extrae todos los archivos de archivo zip especificado en un directorio del sistema de archivos y utiliza la codificación de caracteres especificada para los nombres de entrada.</summary>
<param name="sourceArchiveFileName">La ruta de acceso al archivo que se va a extraer.</param>
<param name="destinationDirectoryName">La ruta de acceso al directorio en el que se van a colocar los archivos extraídos, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="entryNameEncoding">Codificación que se va a usar al leer o escribir nombres de entrada en este archivo.Especifique un valor para este parámetro únicamente cuando se necesite una codificación para la interoperabilidad con herramientas y bibliotecas de archivos zip que no admiten la codificación UTF-8 para los nombres de entrada.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryNameEncoding" /> is set to a Unicode encoding other than UTF-8.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">The specified path in <paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> exceeds the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">The specified path is invalid (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">The directory specified by <paramref name="destinationDirectoryName" /> already exists.-or-The name of an entry in the archive is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-Extracting an archive entry would create a file that is outside the directory specified by <paramref name="destinationDirectoryName" />.(For example, this might happen if the entry name contains parent directory accessors.)-or-An archive entry to extract has the same name as an entry that has already been extracted from the same archive.</exception>
<exception cref="T:System.UnauthorizedAccessException">The caller does not have the required permission to access the archive or the destination directory.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationDirectoryName" /> or <paramref name="sourceArchiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="sourceArchiveFileName" /> was not found.</exception>
<exception cref="T:System.IO.InvalidDataException">The archive specified by <paramref name="sourceArchiveFileName" /> is not a valid zip archive.-or-An archive entry was not found or was corrupt.-or-An archive entry was compressed by using a compression method that is not supported.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.Open(System.String,System.IO.Compression.ZipArchiveMode)">
<summary>Abre un archivo .zip en la ruta de acceso especificada y en el modo especificado.</summary>
<returns>El archivo zip abierto.</returns>
<param name="archiveFileName">La ruta de acceso al archivo que se va a abrir, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="mode">Uno de los valores de enumeración que especifica las acciones que se permiten en las entradas del archivo abierto.</param>
<exception cref="T:System.ArgumentException">
<paramref name="archiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="archiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="archiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="archiveFileName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="archiveFileName" /> could not be opened.-or-<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Create" />, but the file specified in <paramref name="archiveFileName" /> already exists.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="archiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified in <paramref name="archiveFileName" />.</exception>
<exception cref="T:System.ArgumentOutOfRangeException">
<paramref name="mode" /> specifies an invalid value.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Read" />, but the file specified in <paramref name="archiveFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="archiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.InvalidDataException">
<paramref name="archiveFileName" /> could not be interpreted as a zip archive.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is missing or corrupt and cannot be read.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is too large to fit into memory.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.Open(System.String,System.IO.Compression.ZipArchiveMode,System.Text.Encoding)">
<summary>Abre un archivo zip en la ruta de acceso especificada, en el modo especificado, y usando la codificación de caracteres especificada para los nombres de entrada.</summary>
<returns>El archivo zip abierto.</returns>
<param name="archiveFileName">La ruta de acceso al archivo que se va a abrir, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="mode">Uno de los valores de enumeración que especifica las acciones que se permiten en las entradas del archivo abierto.</param>
<param name="entryNameEncoding">Codificación que se va a usar al leer o escribir nombres de entrada en este archivo.Especifique un valor para este parámetro únicamente cuando se necesite una codificación para la interoperabilidad con herramientas y bibliotecas de archivos zip que no admiten la codificación UTF-8 para los nombres de entrada.</param>
<exception cref="T:System.ArgumentException">
<paramref name="archiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.-or-<paramref name="entryNameEncoding" /> is set to a Unicode encoding other than UTF-8.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="archiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="archiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="archiveFileName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="archiveFileName" /> could not be opened.-or-<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Create" />, but the file specified in <paramref name="archiveFileName" /> already exists.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="archiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified in <paramref name="archiveFileName" />.</exception>
<exception cref="T:System.ArgumentOutOfRangeException">
<paramref name="mode" /> specifies an invalid value.</exception>
<exception cref="T:System.IO.FileNotFoundException">
<paramref name="mode" /> is set to <see cref="F:System.IO.Compression.ZipArchiveMode.Read" />, but the file specified in <paramref name="archiveFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="archiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.InvalidDataException">
<paramref name="archiveFileName" /> could not be interpreted as a zip archive.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is missing or corrupt and cannot be read.-or-<paramref name="mode" /> is <see cref="F:System.IO.Compression.ZipArchiveMode.Update" />, but an entry is too large to fit into memory.</exception>
</member>
<member name="M:System.IO.Compression.ZipFile.OpenRead(System.String)">
<summary>Abre un archivo zip para leer en la ruta de acceso especificada.</summary>
<returns>El archivo zip abierto.</returns>
<param name="archiveFileName">La ruta de acceso al archivo que se va a abrir, especificada como una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<exception cref="T:System.ArgumentException">
<paramref name="archiveFileName" /> is <see cref="F:System.String.Empty" />, contains only white space, or contains at least one invalid character.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="archiveFileName" /> is null.</exception>
<exception cref="T:System.IO.PathTooLongException">In <paramref name="archiveFileName" />, the specified path, file name, or both exceed the system-defined maximum length.For example, on Windows-based platforms, paths must not exceed 248 characters, and file names must not exceed 260 characters.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">
<paramref name="archiveFileName" /> is invalid or does not exist (for example, it is on an unmapped drive).</exception>
<exception cref="T:System.IO.IOException">
<paramref name="archiveFileName" /> could not be opened.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="archiveFileName" /> specifies a directory.-or-The caller does not have the required permission to access the file specified in <paramref name="archiveFileName" />.</exception>
<exception cref="T:System.IO.FileNotFoundException">The file specified in <paramref name="archiveFileName" /> is not found.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="archiveFileName" /> contains an invalid format.</exception>
<exception cref="T:System.IO.InvalidDataException">
<paramref name="archiveFileName" /> could not be interpreted as a zip archive.</exception>
</member>
<member name="T:System.IO.Compression.ZipFileExtensions">
<summary>Proporciona métodos de extensión para las clases <see cref="T:System.IO.Compression.ZipArchive" /> y <see cref="T:System.IO.Compression.ZipArchiveEntry" />.</summary>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.CreateEntryFromFile(System.IO.Compression.ZipArchive,System.String,System.String)">
<summary>Archiva un archivo comprimiéndolo y agregándolo al archivo zip.</summary>
<returns>Un contenedor para la nueva entrada en el archivo zip.</returns>
<param name="destination">Archivo .zip al que se agrega el archivo.</param>
<param name="sourceFileName">Ruta de acceso al archivo que se va a archivar.Puede especificar una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="entryName">Nombre de la entrada que se va a crear en el archivo zip.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceFileName" /> es <see cref="F:System.String.Empty" />, contiene solo espacios en blanco o contiene al menos un carácter no válido.O bien<paramref name="entryName" /> es <see cref="F:System.String.Empty" />.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceFileName" /> o <paramref name="entryName" /> es null.</exception>
<exception cref="T:System.IO.PathTooLongException">En <paramref name="sourceFileName" />, la ruta de acceso especificada, el nombre de archivo o ambos superan la longitud máxima definida por el sistema.Por ejemplo, en las plataformas basadas en Windows, las rutas de acceso no deben superar 248 caracteres y los nombres de archivo no deben superar 260 caracteres.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">El valor de <paramref name="sourceFileName" /> no es válido (por ejemplo, se encuentra en una unidad no asignada).</exception>
<exception cref="T:System.IO.IOException">No se puede abrir el archivo especificado por <paramref name="sourceFileName" />.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="sourceFileName" /> especifica un directorio.O bienEl autor de la llamada no tiene el permiso necesario para obtener acceso al archivo que especifica <paramref name="sourceFileName" />.</exception>
<exception cref="T:System.IO.FileNotFoundException">No se encuentra el archivo especificado por <paramref name="sourceFileName" />.</exception>
<exception cref="T:System.NotSupportedException">El parámetro <paramref name="sourceFileName" /> no tiene un formato válido.O bienEl archivo zip no admite escritura.</exception>
<exception cref="T:System.ObjectDisposedException">El archivo .zip se ha desechado.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.CreateEntryFromFile(System.IO.Compression.ZipArchive,System.String,System.String,System.IO.Compression.CompressionLevel)">
<summary>Archiva un archivo comprimiéndolo mediante el nivel especificado de compresión y agregándolo al archivo zip.</summary>
<returns>Un contenedor para la nueva entrada en el archivo zip.</returns>
<param name="destination">Archivo .zip al que se agrega el archivo.</param>
<param name="sourceFileName">Ruta de acceso al archivo que se va a archivar.Puede especificar una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="entryName">Nombre de la entrada que se va a crear en el archivo zip.</param>
<param name="compressionLevel">Uno de los valores de enumeración que indica si se va a hacer hincapié en la eficacia de velocidad o de compresión al crear la entrada.</param>
<exception cref="T:System.ArgumentException">
<paramref name="sourceFileName" /> es <see cref="F:System.String.Empty" />, contiene solo espacios en blanco o contiene al menos un carácter no válido.O bien<paramref name="entryName" /> es <see cref="F:System.String.Empty" />.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="sourceFileName" /> o <paramref name="entryName" /> es null.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">El valor de <paramref name="sourceFileName" /> no es válido (por ejemplo, se encuentra en una unidad no asignada).</exception>
<exception cref="T:System.IO.PathTooLongException">En <paramref name="sourceFileName" />, la ruta de acceso especificada, el nombre de archivo o ambos superan la longitud máxima definida por el sistema.Por ejemplo, en las plataformas basadas en Windows, las rutas de acceso no deben superar 248 caracteres y los nombres de archivo no deben superar 260 caracteres.</exception>
<exception cref="T:System.IO.IOException">No se puede abrir el archivo especificado por <paramref name="sourceFileName" />.</exception>
<exception cref="T:System.UnauthorizedAccessException">
<paramref name="sourceFileName" /> especifica un directorio.O bienEl autor de la llamada no tiene el permiso necesario para obtener acceso al archivo que especifica <paramref name="sourceFileName" />.</exception>
<exception cref="T:System.IO.FileNotFoundException">No se encuentra el archivo especificado por <paramref name="sourceFileName" />.</exception>
<exception cref="T:System.NotSupportedException">El parámetro <paramref name="sourceFileName" /> no tiene un formato válido.O bienEl archivo zip no admite escritura.</exception>
<exception cref="T:System.ObjectDisposedException">El archivo .zip se ha desechado.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.ExtractToDirectory(System.IO.Compression.ZipArchive,System.String)">
<summary>Extrae todos los archivos del archivo zip a un directorio del sistema de archivos.</summary>
<param name="source">El archivo zip del que se van a extraer archivos.</param>
<param name="destinationDirectoryName">La ruta de acceso al directorio donde se van a colocar los archivos extraídos.Puede especificar una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationDirectoryName" /> es <see cref="F:System.String.Empty" />, contiene solo espacios en blanco o contiene al menos un carácter no válido.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationDirectoryName" /> es null.</exception>
<exception cref="T:System.IO.PathTooLongException">La ruta de acceso supera la longitud máxima definida por el sistema.Por ejemplo, en las plataformas basadas en Windows, las rutas de acceso no deben superar 248 caracteres y los nombres de archivo no deben superar 260 caracteres.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">La ruta de acceso especificada no es válida (por ejemplo, se encuentra en una unidad de red no asignada).</exception>
<exception cref="T:System.IO.IOException">El directorio que especifica <paramref name="destinationDirectoryName" /> ya existe.O bienEl nombre de una entrada en el archivo es <see cref="F:System.String.Empty" />, contiene solo espacios en blanco, o contiene al menos un carácter no válido.O bienLa extracción de una entrada del archivo crearía un archivo que está fuera del directorio especificado por <paramref name="destinationDirectoryName" />. (Por ejemplo, esto puede ocurrir si el nombre de la entrada contiene descriptores de acceso del directorio primario). O bienDos o más entradas del archivo tienen el mismo nombre.</exception>
<exception cref="T:System.UnauthorizedAccessException">El llamador no tiene el permiso para escribir en el directorio de destino.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationDirectoryName" /> contiene un formato no válido.</exception>
<exception cref="T:System.IO.InvalidDataException">Una entrada de archivo no se encuentra o está dañada.O bienUna entrada de archivo se ha comprimido mediante un método de compresión que no se admite.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.ExtractToFile(System.IO.Compression.ZipArchiveEntry,System.String)">
<summary>Dibuja una entrada del archivo zip a un archivo.</summary>
<param name="source">La entrada del archivo zip del que se va a extraer un archivo.</param>
<param name="destinationFileName">La ruta de acceso del archivo que se va a crear a partir del contenido de la entrada.Puede especificar una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationFileName" /> es una cadena de longitud cero, contiene solo espacios en blanco o contiene uno o varios de los caracteres no válidos definidos por <see cref="F:System.IO.Path.InvalidPathChars" />.O bien<paramref name="destinationFileName" /> especifica un directorio.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationFileName" /> es null. </exception>
<exception cref="T:System.IO.PathTooLongException">La ruta de acceso especificada, el nombre de archivo o ambos superan la longitud máxima definida por el sistema.Por ejemplo, en las plataformas basadas en Windows, las rutas de acceso no deben superar 248 caracteres y los nombres de archivo no deben superar 260 caracteres.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">La ruta de acceso especificada no es válida (por ejemplo, se encuentra en una unidad de red no asignada). </exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationFileName" /> ya existe.O bien Error de E/S.O bienLa entrada está actualmente abierta para escribir en ella.O bienSe ha eliminado el entrada del archivo.</exception>
<exception cref="T:System.UnauthorizedAccessException">El autor de la llamada no tiene el permiso necesario para crear un archivo nuevo.</exception>
<exception cref="T:System.IO.InvalidDataException">La entrada falta en el archivo o está dañada y no se puede leer.O bienLa entrada se ha comprimido mediante un método de compresión que no se admite.</exception>
<exception cref="T:System.ObjectDisposedException">Se ha desechado el archivo zip al que pertenece esta entrada.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationFileName" /> tiene un formato no válido. O bienEl archivo zip para esta entrada se ha abierto en modo <see cref="F:System.IO.Compression.ZipArchiveMode.Create" />, que no permite la recuperación de entradas.</exception>
</member>
<member name="M:System.IO.Compression.ZipFileExtensions.ExtractToFile(System.IO.Compression.ZipArchiveEntry,System.String,System.Boolean)">
<summary>Extrae una entrada del archivo zip a un archivo, y sobrescribe opcionalmente un archivo existente que tiene el mismo nombre.</summary>
<param name="source">La entrada del archivo zip del que se va a extraer un archivo.</param>
<param name="destinationFileName">La ruta de acceso del archivo que se va a crear a partir del contenido de la entrada.Puede especificar una ruta de acceso relativa o absoluta.Una ruta de acceso relativa se interpreta en relación con el directorio de trabajo actual.</param>
<param name="overwrite">true para sobrescribir un archivo existente que tiene el mismo nombre que el archivo de destino; si no, false.</param>
<exception cref="T:System.ArgumentException">
<paramref name="destinationFileName" /> es una cadena de longitud cero, contiene solo espacios en blanco o contiene uno o varios de los caracteres no válidos definidos por <see cref="F:System.IO.Path.InvalidPathChars" />.O bien<paramref name="destinationFileName" /> especifica un directorio.</exception>
<exception cref="T:System.ArgumentNullException">
<paramref name="destinationFileName" /> es null. </exception>
<exception cref="T:System.IO.PathTooLongException">La ruta de acceso especificada, el nombre de archivo o ambos superan la longitud máxima definida por el sistema.Por ejemplo, en las plataformas basadas en Windows, las rutas de acceso no deben superar 248 caracteres y los nombres de archivo no deben superar 260 caracteres.</exception>
<exception cref="T:System.IO.DirectoryNotFoundException">La ruta de acceso especificada no es válida (por ejemplo, se encuentra en una unidad de red no asignada). </exception>
<exception cref="T:System.IO.IOException">
<paramref name="destinationFileName" /> ya existe y <paramref name="overwrite" /> es false.O bien Error de E/S.O bienLa entrada está actualmente abierta para escribir en ella.O bienSe ha eliminado el entrada del archivo.</exception>
<exception cref="T:System.UnauthorizedAccessException">El autor de la llamada no tiene el permiso necesario para crear un archivo nuevo.</exception>
<exception cref="T:System.IO.InvalidDataException">La entrada falta en el archivo o está dañada y no se puede leer.O bienLa entrada se ha comprimido mediante un método de compresión que no se admite.</exception>
<exception cref="T:System.ObjectDisposedException">Se ha desechado el archivo zip al que pertenece esta entrada.</exception>
<exception cref="T:System.NotSupportedException">
<paramref name="destinationFileName" /> tiene un formato no válido. O bienEl archivo zip para esta entrada se ha abierto en modo <see cref="F:System.IO.Compression.ZipArchiveMode.Create" />, que no permite la recuperación de entradas.</exception>
</member>
</members>
</doc>

Some files were not shown because too many files have changed in this diff Show More