first commit
This commit is contained in:
@@ -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>
|
||||||
@@ -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
|
||||||
@@ -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
@@ -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
@@ -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>
|
||||||
Generated
+1815
File diff suppressed because it is too large
Load Diff
+54962
File diff suppressed because it is too large
Load Diff
Generated
+96
@@ -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
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||||
Generated
+183
@@ -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
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||||
Generated
+104
@@ -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
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||||
Generated
+195
@@ -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
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||||
Generated
+161
@@ -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
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||||
Generated
+100
@@ -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
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||||
Generated
+160
@@ -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
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||||
Generated
+1654
File diff suppressed because it is too large
Load Diff
+20915
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||||
Generated
+44
@@ -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
|
||||||
@@ -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>
|
||||||
@@ -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")>
|
||||||
Generated
+83
@@ -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
|
||||||
@@ -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>
|
||||||
Generated
+73
@@ -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
|
||||||
@@ -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>
|
||||||
@@ -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>
|
||||||
Binary file not shown.
|
After Width: | Height: | Size: 12 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 7.4 KiB |
Generated
+149
@@ -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
File diff suppressed because it is too large
Load Diff
@@ -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 |
Binary file not shown.
@@ -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>
|
||||||
Binary file not shown.
@@ -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.
@@ -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.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1 @@
|
|||||||
|
4536b06089995e413a05821af508ecf5ef878a7fec7300482e64227780618fda
|
||||||
@@ -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.
@@ -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.
Binary file not shown.
Binary file not shown.
@@ -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.
BIN
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 Microsoft’s 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 n’accorde 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, d’adéquation à un usage particulier et d’absence 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 d’une autre faute dans la limite autorisée par la loi en vigueur.
|
||||||
|
|
||||||
|
Elle s’applique également, même si Microsoft connaissait ou devrait connaître l’éventualité d’un tel dommage. Si votre pays n’autorise pas l’exclusion ou la limitation de responsabilité pour les dommages indirects, accessoires ou de quelque nature que ce soit, il se peut que la limitation ou l’exclusion ci-dessus ne s’appliquera pas à votre égard.
|
||||||
|
|
||||||
|
EFFET JURIDIQUE. Le présent contrat décrit certains droits juridiques. Vous pourriez avoir d’autres 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.
|
||||||
|
|
||||||
|
|
||||||
BIN
Binary file not shown.
Vendored
BIN
Binary file not shown.
BIN
Binary file not shown.
Vendored
BIN
Binary file not shown.
Vendored
+276
@@ -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>
|
||||||
packages/System.IO.Compression.ZipFile.4.3.0/ref/netstandard1.3/de/System.IO.Compression.ZipFile.xml
Vendored
+274
@@ -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>
|
||||||
packages/System.IO.Compression.ZipFile.4.3.0/ref/netstandard1.3/es/System.IO.Compression.ZipFile.xml
Vendored
+274
@@ -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
Reference in New Issue
Block a user