Bonjour ,
Je poste car ça fait maintenent 30 minutes que je cherche l'action qui plante !
Sur ma KryptonForm , il y avait un MenuStrip avec des contrôles , mais j'ai changé d'avis et j'ai supprimé ce MenuStrip ;
j'ai bien évidement supprimé toutes les actions mais erreur de génération ! :
Après vérifications , reverifications et rerererevérifications de TOUTES les actions du projet je ne trouve PAS l'erreur !
Le rapport global est :
Merci de votre AIDE !
Cordialement ,
Le réparateur de PC
Je poste car ça fait maintenent 30 minutes que je cherche l'action qui plante !
Sur ma KryptonForm , il y avait un MenuStrip avec des contrôles , mais j'ai changé d'avis et j'ai supprimé ce MenuStrip ;
j'ai bien évidement supprimé toutes les actions mais erreur de génération ! :
- Code:
Project : TestAV_V3
Last build the dimanche 19 décembre 2010 at 10:12
Building failed : errors number: 2
File code : C:\Program Files\Veler Software\SoftwareZator 2011\Temp\Code.vb
Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
4 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"D:\Mes documents\Programmation\Mes Projets SoftwareZator_2011\TestAV_V3\Bin\TestAV_V3.manifest"'; non reconnue ignorée
5 - Line 497, Column 0, Error BC30506 : La clause Handles requiert une variable WithEvents définie dans le type conteneur ou l'un de ses types de base.
----------------------------------------------------------------
Après vérifications , reverifications et rerererevérifications de TOUTES les actions du projet je ne trouve PAS l'erreur !
Le rapport global est :
- Code:
Project : TestAV_V3
Last build the dimanche 19 décembre 2010 at 10:12
Building failed : errors number: 2
File code : C:\Program Files\Veler Software\SoftwareZator 2011\Temp\Code.vb
Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
4 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"D:\Mes documents\Programmation\Mes Projets SoftwareZator_2011\TestAV_V3\Bin\TestAV_V3.manifest"'; non reconnue ignorée
5 - Line 497, Column 0, Error BC30506 : La clause Handles requiert une variable WithEvents définie dans le type conteneur ou l'un de ses types de base.
----------------------------------------------------------------
' NOTE :
' TOUTES MODIFICATIONS APPORTEES A CE FICHIER CODE NE SERONT PAS PRISES EN COMPTE LORS DE LA REGENERATION DU PROJET.
'------------------------------------------------------------------------------
' <auto-generated>
' Ce code a été généré par un outil.
' Version du runtime :2.0.50727.4952
'
' 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 Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Windows.Forms
<Assembly: Reflection.AssemblyTitle("TestAV V3")>
<Assembly: Reflection.AssemblyDescription("Permet de testet la fiabilité de son antivirus .")>
<Assembly: Reflection.AssemblyCompany("François Production")>
<Assembly: Reflection.AssemblyProduct("TestAV V3.exe")>
<Assembly: Reflection.AssemblyCopyright("Copyright 2010 François Production , tous droits réservés .")>
<Assembly: Reflection.AssemblyTrademark("FP")>
<Assembly: Reflection.AssemblyVersion("3.0.0.0")>
<Assembly: Reflection.AssemblyFileVersion("3.0.0.0")>
<Assembly: Runtime.InteropServices.ComVisible(True)>
'Ce Namespace a été généré par SoftwareZator 2011 Edition Professionnel (2.0.0.1)
Namespace TestAV_V3
Public Class AeroForm1_f
Inherits VelerSoftware.WizardLib.AeroForm
Public WithEvents kryptonButton1 As ComponentFactory.Krypton.Toolkit.KryptonButton
Public WithEvents kryptonButton2 As ComponentFactory.Krypton.Toolkit.KryptonButton
Public WithEvents components As System.ComponentModel.IContainer
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AeroForm1_f))
Me.kryptonButton1 = New ComponentFactory.Krypton.Toolkit.KryptonButton
Me.kryptonButton2 = New ComponentFactory.Krypton.Toolkit.KryptonButton
Me.HostPanel.SuspendLayout
Me.kryptonButton1.SuspendLayout
Me.SuspendLayout
'
'HostPanel
'
Me.HostPanel.Controls.Add(Me.kryptonButton1)
Me.HostPanel.Size = New System.Drawing.Size(523, 393)
'
'kryptonButton1
'
Me.kryptonButton1.Controls.Add(Me.kryptonButton2)
Me.kryptonButton1.Enabled = false
Me.kryptonButton1.Location = New System.Drawing.Point(193, 175)
Me.kryptonButton1.Name = "kryptonButton1"
Me.kryptonButton1.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.SparkleBlue
Me.kryptonButton1.Size = New System.Drawing.Size(136, 42)
Me.kryptonButton1.StateCommon.Back.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateCommon.Back.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateCommon.Border.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateCommon.Border.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateCommon.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.kryptonButton1.StateCommon.Content.ShortText.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonButton1.StateDisabled.Back.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateDisabled.Back.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateDisabled.Border.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateDisabled.Border.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateDisabled.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.kryptonButton1.StateDisabled.Content.ShortText.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonButton1.StateNormal.Back.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateNormal.Back.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateNormal.Border.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateNormal.Border.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateNormal.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.kryptonButton1.StateNormal.Content.ShortText.Color1 = System.Drawing.Color.White
Me.kryptonButton1.StateNormal.Content.ShortText.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonButton1.StatePressed.Back.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StatePressed.Back.Color2 = System.Drawing.Color.Orange
Me.kryptonButton1.StatePressed.Border.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StatePressed.Border.Color2 = System.Drawing.Color.Orange
Me.kryptonButton1.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.kryptonButton1.StatePressed.Content.ShortText.Color1 = System.Drawing.Color.Red
Me.kryptonButton1.StatePressed.Content.ShortText.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonButton1.StateTracking.Back.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateTracking.Back.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateTracking.Border.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateTracking.Border.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.kryptonButton1.StateTracking.Content.ShortText.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonButton1.TabIndex = 3
Me.kryptonButton1.Values.Text = "Lancer le test"
'
'kryptonButton2
'
Me.kryptonButton2.Location = New System.Drawing.Point(260, 200)
Me.kryptonButton2.Name = "kryptonButton2"
Me.kryptonButton2.Size = New System.Drawing.Size(90, 25)
Me.kryptonButton2.TabIndex = 0
'
'AeroForm1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.ClientSize = New System.Drawing.Size(590, 452)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Name = "AeroForm1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "AeroForm1"
Me.HostPanel.ResumeLayout(false)
Me.kryptonButton1.ResumeLayout(false)
Me.ResumeLayout(false)
End Sub
End Class
Public Class KryptonForm1_f
Inherits ComponentFactory.Krypton.Toolkit.KryptonForm
Public WithEvents buttonSpecHeaderGroup1 As ComponentFactory.Krypton.Toolkit.ButtonSpecHeaderGroup
Public WithEvents kryptonButton1 As ComponentFactory.Krypton.Toolkit.KryptonButton
Public WithEvents kryptonButton2 As ComponentFactory.Krypton.Toolkit.KryptonButton
Public WithEvents richTextBox1 As System.Windows.Forms.RichTextBox
Public WithEvents kryptonCheckBox1 As ComponentFactory.Krypton.Toolkit.KryptonCheckBox
Public WithEvents kryptonCheckBox2 As ComponentFactory.Krypton.Toolkit.KryptonCheckBox
Public WithEvents components As System.ComponentModel.IContainer
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(KryptonForm1_f))
Me.buttonSpecHeaderGroup1 = New ComponentFactory.Krypton.Toolkit.ButtonSpecHeaderGroup
Me.kryptonButton1 = New ComponentFactory.Krypton.Toolkit.KryptonButton
Me.kryptonButton2 = New ComponentFactory.Krypton.Toolkit.KryptonButton
Me.richTextBox1 = New System.Windows.Forms.RichTextBox
Me.kryptonCheckBox1 = New ComponentFactory.Krypton.Toolkit.KryptonCheckBox
Me.kryptonCheckBox2 = New ComponentFactory.Krypton.Toolkit.KryptonCheckBox
Me.kryptonButton1.SuspendLayout
Me.kryptonCheckBox1.SuspendLayout
Me.SuspendLayout
'
'buttonSpecHeaderGroup1
'
Me.buttonSpecHeaderGroup1.UniqueName = "46526432F7EC4B6DEB80CF52368AD6D0"
'
'kryptonButton1
'
Me.kryptonButton1.Controls.Add(Me.kryptonButton2)
Me.kryptonButton1.Enabled = false
Me.kryptonButton1.Location = New System.Drawing.Point(216, 353)
Me.kryptonButton1.Name = "kryptonButton1"
Me.kryptonButton1.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.SparkleBlue
Me.kryptonButton1.Size = New System.Drawing.Size(136, 42)
Me.kryptonButton1.StateCommon.Back.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateCommon.Back.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateCommon.Border.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateCommon.Border.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateCommon.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.kryptonButton1.StateCommon.Content.ShortText.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonButton1.StateDisabled.Back.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateDisabled.Back.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateDisabled.Border.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateDisabled.Border.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateDisabled.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.kryptonButton1.StateDisabled.Content.ShortText.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonButton1.StateNormal.Back.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateNormal.Back.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateNormal.Border.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateNormal.Border.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateNormal.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.kryptonButton1.StateNormal.Content.ShortText.Color1 = System.Drawing.Color.White
Me.kryptonButton1.StateNormal.Content.ShortText.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonButton1.StatePressed.Back.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StatePressed.Back.Color2 = System.Drawing.Color.Orange
Me.kryptonButton1.StatePressed.Border.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StatePressed.Border.Color2 = System.Drawing.Color.Orange
Me.kryptonButton1.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.kryptonButton1.StatePressed.Content.ShortText.Color1 = System.Drawing.Color.Red
Me.kryptonButton1.StatePressed.Content.ShortText.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonButton1.StateTracking.Back.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateTracking.Back.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateTracking.Border.Color1 = System.Drawing.Color.Black
Me.kryptonButton1.StateTracking.Border.Color2 = System.Drawing.Color.Blue
Me.kryptonButton1.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.kryptonButton1.StateTracking.Content.ShortText.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonButton1.TabIndex = 0
Me.kryptonButton1.Values.Text = "Valider"
'
'kryptonButton2
'
Me.kryptonButton2.Location = New System.Drawing.Point(260, 200)
Me.kryptonButton2.Name = "kryptonButton2"
Me.kryptonButton2.Size = New System.Drawing.Size(90, 25)
Me.kryptonButton2.TabIndex = 0
'
'richTextBox1
'
Me.richTextBox1.BackColor = System.Drawing.Color.White
Me.richTextBox1.Location = New System.Drawing.Point(0, 12)
Me.richTextBox1.Name = "richTextBox1"
Me.richTextBox1.ReadOnly = true
Me.richTextBox1.Size = New System.Drawing.Size(601, 291)
Me.richTextBox1.TabIndex = 4
Me.richTextBox1.Text = resources.GetString("richTextBox1.Text")
'
'kryptonCheckBox1
'
Me.kryptonCheckBox1.Controls.Add(Me.kryptonCheckBox2)
Me.kryptonCheckBox1.Location = New System.Drawing.Point(21, 323)
Me.kryptonCheckBox1.Name = "kryptonCheckBox1"
Me.kryptonCheckBox1.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.SparkleBlue
Me.kryptonCheckBox1.Size = New System.Drawing.Size(244, 17)
Me.kryptonCheckBox1.StateNormal.ShortText.Color1 = System.Drawing.Color.Black
Me.kryptonCheckBox1.StateNormal.ShortText.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.kryptonCheckBox1.TabIndex = 5
Me.kryptonCheckBox1.Values.Text = "Je confirme avoir lu cette information ."
'
'kryptonCheckBox2
'
Me.kryptonCheckBox2.Location = New System.Drawing.Point(44, 359)
Me.kryptonCheckBox2.Name = "kryptonCheckBox2"
Me.kryptonCheckBox2.Size = New System.Drawing.Size(52, 20)
Me.kryptonCheckBox2.TabIndex = 0
'
'KryptonForm1
'
Me.AllowButtonSpecToolTips = true
Me.ClientSize = New System.Drawing.Size(601, 407)
Me.Controls.Add(Me.kryptonCheckBox1)
Me.Controls.Add(Me.richTextBox1)
Me.Controls.Add(Me.kryptonButton1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximizeBox = false
Me.Name = "KryptonForm1"
Me.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.SparkleBlue
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.StateCommon.Back.Color1 = System.Drawing.Color.Black
Me.StateCommon.Back.Color2 = System.Drawing.Color.Blue
Me.StateCommon.Border.Color1 = System.Drawing.Color.Blue
Me.StateCommon.Border.Color2 = System.Drawing.Color.Blue
Me.StateCommon.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right),ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
Me.StateCommon.Header.Back.Color1 = System.Drawing.Color.Black
Me.StateCommon.Header.Back.Color2 = System.Drawing.Color.Blue
Me.StateCommon.Header.Content.ShortText.Color1 = System.Drawing.Color.White
Me.StateCommon.Header.Content.ShortText.Color2 = System.Drawing.Color.White
Me.Text = "TestAV Informations"
Me.TextExtra = "Version 3"
Me.kryptonButton1.ResumeLayout(false)
Me.kryptonCheckBox1.ResumeLayout(false)
Me.kryptonCheckBox1.PerformLayout
Me.ResumeLayout(false)
Me.PerformLayout
End Sub
End Class
Public Class WindowsForm1_f
Inherits System.Windows.Forms.Form
Public WithEvents contextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Public WithEvents ouvrirToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Public WithEvents notifyIcon1 As System.Windows.Forms.NotifyIcon
Public WithEvents components As System.ComponentModel.IContainer
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WindowsForm1_f))
Me.contextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ouvrirToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.notifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.contextMenuStrip1.SuspendLayout
Me.SuspendLayout
'
'contextMenuStrip1
'
Me.contextMenuStrip1.Font = New System.Drawing.Font("Segoe UI", 9!)
Me.contextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ouvrirToolStripMenuItem})
Me.contextMenuStrip1.Name = "contextMenuStrip1"
Me.contextMenuStrip1.Size = New System.Drawing.Size(153, 48)
'
'ouvrirToolStripMenuItem
'
Me.ouvrirToolStripMenuItem.Image = CType(resources.GetObject("ouvrirToolStripMenuItem.Image"),System.Drawing.Image)
Me.ouvrirToolStripMenuItem.Name = "ouvrirToolStripMenuItem"
Me.ouvrirToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.ouvrirToolStripMenuItem.Text = "Ouvrir"
'
'notifyIcon1
'
Me.notifyIcon1.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
Me.notifyIcon1.BalloonTipText = "TestAV V3 est accessible depuis cet icône ."
Me.notifyIcon1.BalloonTipTitle = "TestAV V3"
Me.notifyIcon1.ContextMenuStrip = Me.contextMenuStrip1
Me.notifyIcon1.Icon = CType(resources.GetObject("notifyIcon1.Icon"),System.Drawing.Icon)
Me.notifyIcon1.Text = "TestAV V3"
Me.notifyIcon1.Visible = true
'
'WindowsForm1
'
Me.ClientSize = New System.Drawing.Size(204, 183)
Me.ControlBox = false
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximizeBox = false
Me.MinimizeBox = false
Me.Name = "WindowsForm1"
Me.Opacity = 0
Me.ShowIcon = false
Me.ShowInTaskbar = false
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "support"
Me.contextMenuStrip1.ResumeLayout(false)
Me.ResumeLayout(false)
End Sub
<System.STAThreadAttribute()> _
Public Shared Sub Main()
System.Windows.Forms.Application.EnableVisualStyles()
Dim OKOKOK As Boolean
For Each a As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses()
If a.ProcessName = "TestAV_V3" Then
If OKOKOK Then
System.Diagnostics.Process.GetCurrentProcess.Kill
Else
OKOKOK = True
End If
End If
Next
If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5", "Version", Nothing) Is Nothing Then
System.Windows.Forms.MessageBox.Show("The .Net Framework 3.5 was not found. TestAV_V3 can't start without it. Please install the .Net Framework 3.5 and try again.", "TestAV V3", MessageBoxButtons.OK, MessageBoxIcon.Error)
System.Diagnostics.Process.Start("http://www.microsoft.com/downloads/details.aspx?FamilyId=333325FD-AE52-4E35-B531-508D977D32A6&displaylang=fr")
End
End If
My.Resources.Culture = Globalization.CultureInfo.InvariantCulture : My.Resources.Culture = My.Resources.Culture
System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(False)
For Each arg As String In System.Environment.GetCommandLineArgs
If Not arg = System.Windows.Forms.Application.ExecutablePath Then
Redim Preserve ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length) : ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length - 1) = arg
End If
Next
System.Windows.Forms.Application.Run(New WindowsForm1_f)
End Sub
End Class
Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_SOFTWAREZATOR_VARIABLES
Public VARIABLES_SOFTWAREZATOR_CURRENT_PLUGIN_VARIABLES As String
Public file_licence_exist As Object '
Public file_licence_valide As Object '
Public file_read As Object '
Public msg_confirm_exit As Object '
Public var_accept_therms As Object '
Public var_app_version As Object '
Public var_test_en_cour As Object '
Public Cancel As System.Drawing.Image = My.Resources.Cancel ' Ressource Cancel
Public Create As System.Drawing.Image = My.Resources.Create ' Ressource Create
Public Equipment As System.Drawing.Image = My.Resources.Equipment ' Ressource Equipment
Public Help_symbol As System.Drawing.Image = My.Resources.Help_symbol ' Ressource Help_symbol
Public Home As System.Drawing.Image = My.Resources.Home ' Ressource Home
Public Key As System.Drawing.Image = My.Resources.Key ' Ressource Key
Public Mail As System.Drawing.Image = My.Resources.Mail ' Ressource Mail
Public Play As System.Drawing.Image = My.Resources.Play ' Ressource Play
Public Quit As System.Drawing.Image = My.Resources.Quit ' Ressource Quit
Public Earth As System.Drawing.Image = My.Resources.Earth ' Ressource Earth
Public Earth_no2 As System.Drawing.Image = My.Resources.Earth_no2 ' Ressource Earth_no2
Public ALL_ARGUMENTS_APPLICATIONS() As Object = New Object(-1){}
Public ALLUSERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("ALLUSERPROFILE"))
Public APPDATA As Object = CStr(Environment.GetEnvironmentVariable("APPDATA"))
Public CLASSPATH As Object = CStr(Environment.GetEnvironmentVariable("CLASSPATH"))
Public CommonProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("CommonProgramFiles"))
Public COMPUTERNAME As Object = CStr(Environment.GetEnvironmentVariable("COMPUTERNAME"))
Public ComSpec As Object = CStr(Environment.GetEnvironmentVariable("ComSpec"))
Public FP_NO_HOST_CHECK As Object = CStr(Environment.GetEnvironmentVariable("FP_NO_HOST_CHECK"))
Public HOMEDRIVE As Object = CStr(Environment.GetEnvironmentVariable("HOMEDRIVE"))
Public HOMEPATH As Object = CStr(Environment.GetEnvironmentVariable("HOMEPATH"))
Public LOCALAPPDATA As Object = CStr(Environment.GetEnvironmentVariable("LOCALAPPDATA"))
Public LOGONSERVER As Object = CStr(Environment.GetEnvironmentVariable("LOGONSERVER"))
Public NUMBER_OF_PROCESSORS As Object = CStr(Environment.GetEnvironmentVariable("NUMBER_OF_PROCESSORS"))
Public OS As Object = CStr(Environment.GetEnvironmentVariable("OS"))
Public PATH As Object = CStr(Environment.GetEnvironmentVariable("PATH"))
Public PATHEXT As Object = CStr(Environment.GetEnvironmentVariable("PATHEXT"))
Public PROCESSOR_ARCHITECTURE As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE"))
Public PROCESSOR_IDENTIFIER As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_IDENTIFIER"))
Public PROCESSOR_LEVEL As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_LEVEL"))
Public PROCESSOR_REVISION As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_REVISION"))
Public ProgramData As Object = CStr(Environment.GetEnvironmentVariable("ProgramData"))
Public ProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("ProgramFiles"))
Public [PUBLIC] As Object = CStr(Environment.GetEnvironmentVariable("PUBLIC"))
Public SESSIONNAME As Object = CStr(Environment.GetEnvironmentVariable("SESSIONNAME"))
Public SystemDrive As Object = CStr(Environment.GetEnvironmentVariable("SystemDrive"))
Public SystemRoot As Object = CStr(Environment.GetEnvironmentVariable("SystemRoot"))
Public TEMP As Object = CStr(Environment.GetEnvironmentVariable("TEMP"))
Public TMP As Object = CStr(Environment.GetEnvironmentVariable("TMP"))
Public USERDOMAIN As Object = CStr(Environment.GetEnvironmentVariable("USERDOMAIN"))
Public USERNAME As Object = CStr(Environment.GetEnvironmentVariable("USERNAME"))
Public USERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("USERPROFILES"))
Public windir As Object = CStr(Environment.GetEnvironmentVariable("windir"))
End Module
Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_FORMS_SOFTWAREZATOR_VARIABLES
Private _AeroForm1 As AeroForm1_f = New AeroForm1_f
Public Property AeroForm1 As AeroForm1_f
Get
Return _AeroForm1
End Get
Set(ByVal value As AeroForm1_f)
_AeroForm1 = value
End Set
End Property
Private _KryptonForm1 As KryptonForm1_f = New KryptonForm1_f
Public Property KryptonForm1 As KryptonForm1_f
Get
Return _KryptonForm1
End Get
Set(ByVal value As KryptonForm1_f)
_KryptonForm1 = value
End Set
End Property
Private _WindowsForm1 As WindowsForm1_f = New WindowsForm1_f
Public Property WindowsForm1 As WindowsForm1_f
Get
Return _WindowsForm1
End Get
Set(ByVal value As WindowsForm1_f)
_WindowsForm1 = value
End Set
End Property
End Module
Partial Public Class AeroForm1_f
End Class
Partial Public Class KryptonForm1_f
Public Sub app_load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Try
var_app_version = My.Application.Info.Version.ToString
Me.TextExtra = "Version : " & var_app_version & ""
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "TestAV_V3", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub but_quit(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles quitterToolStripMenuItem.Click
Try
Application.Exit()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "TestAV_V3", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub checked_confirm_therms(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles kryptonCheckBox1.CheckedChanged
Try
var_accept_therms = Me.kryptonCheckBox1.Checked
If var_accept_therms = "True" Then
Me.kryptonButton1.Enabled = "True"
Else
Me.kryptonButton1.Enabled = "False"
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "TestAV_V3", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub but_valid(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles kryptonButton1.Click
Try
If "Dialog" <> "Dialog" Then AeroForm1 = New AeroForm1_f
AeroForm1.ShowDialog()
Me.Visible = "False"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "TestAV_V3", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Partial Public Class WindowsForm1_f
Public Sub app_load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Try
file_licence_exist = My.Computer.FileSystem.FileExists("" & Application.StartupPath & "\licence.html")
If file_licence_exist <> "True" Then
VelerSoftware_VistaMessageBox.Show(Me, "TestAV V3", "Fichier de licence introuvable !", "Le fichier de licence est introuvable !" & System.Environment.NewLine & "" & System.Environment.NewLine & "Merci de réinstaller TestAV V3 ; si le problème persiste" & System.Environment.NewLine & "après un autre téléchargement du programme d'installation ," & System.Environment.NewLine & "contactez son éditeur : francoisproduction@gmail.com", VelerSoftware.VistaMessageBoxLib.VistaMessageBoxIcon.Warning, "Le programme va quitter car le fichier de licence est introuvable .", True, "", False, New VelerSoftware.VistaMessageBoxLib.VistaMessageBoxButton() {New VelerSoftware.VistaMessageBoxLib.VistaMessageBoxButton(VelerSoftware.VistaMessageBoxLib.VistaMessageBoxResult.OK)}, VelerSoftware.VistaMessageBoxLib.VistaMessageBoxIcon.SecurityWarning, False)
Me.notifyIcon1.Visible = "False"
Application.Exit()
Else
file_licence_valide = VelerSoftware_GeneralPlugin_Recuperer_Taill_Fichier.GetSize("" & Application.StartupPath & "\licence.html")
If file_licence_valide <> "10 Ko" Then
VelerSoftware_VistaMessageBox.Show(Me, "TestAV V3", "Fichier de licence invalide !", "Le fichier de licence est invalide !" & System.Environment.NewLine & "" & System.Environment.NewLine & "ATTENTION , vous avez peut-être été victime d'un programme piraté !" & System.Environment.NewLine & "Vérifiez la source du téléchargement et réinstallez-le !" & System.Environment.NewLine & "" & System.Environment.NewLine & "Si le problème persiste après un autre téléchargement " & System.Environment.NewLine & "du programme d'installation ,contactez son éditeur : " & System.Environment.NewLine & "francoisproduction@gmail.com", VelerSoftware.VistaMessageBoxLib.VistaMessageBoxIcon.Error, "Le programme va quitter car le fichier de licence est invalide .", True, "", False, New VelerSoftware.VistaMessageBoxLib.VistaMessageBoxButton() {New VelerSoftware.VistaMessageBoxLib.VistaMessageBoxButton(VelerSoftware.VistaMessageBoxLib.VistaMessageBoxResult.OK)}, VelerSoftware.VistaMessageBoxLib.VistaMessageBoxIcon.SecurityError, False)
Me.notifyIcon1.Visible = "False"
Application.Exit()
Else
Me.notifyIcon1.Visible = "False"
Me.ouvrirToolStripMenuItem.Image = Create
Me.notifyIcon1.ShowBalloonTip(CInt(1000))
If "" <> "Dialog" Then KryptonForm1 = New KryptonForm1_f
KryptonForm1.Show()
End If
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "TestAV_V3", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub but_open(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ouvrirToolStripMenuItem.Click
Try
If "" <> "Dialog" Then KryptonForm1 = New KryptonForm1_f
KryptonForm1.Show()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "TestAV_V3", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub double_click_icone(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles notifyIcon1.DoubleClick
Try
Me.but_open(Nothing, Nothing)
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "TestAV_V3", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Public Class VelerSoftware_VistaMessageBox
Shared Function Show(ByVal Owner As System.Windows.Forms.IWin32Window, ByVal WindowTitle As String, ByVal MainInstruction As String, ByVal Content As String, ByVal FooterIcon As VelerSoftware.VistaMessageBoxLib.VistaMessageBoxIcon, ByVal FooterText As String, ByVal ExpandFooterArea As Boolean, ByVal ExpandedInformation As String, ByVal ExpandedByDefault As Boolean, ByVal Buttons() As VelerSoftware.VistaMessageBoxLib.VistaMessageBoxButton, ByVal MainIcon As VelerSoftware.VistaMessageBoxLib.VistaMessageBoxIcon, ByVal LockSystem As Boolean) As String
Dim resultat As VelerSoftware.VistaMessageBoxLib.VistaMessageBoxResult
Dim vd As New VelerSoftware.VistaMessageBoxLib.VistaMessageBox()
With vd
.Owner = Owner
.WindowTitle = WindowTitle
.MainInstruction = MainInstruction
.Content = Content
.FooterIcon = FooterIcon
.FooterText = FooterText
.ExpandedInformation = ExpandedInformation
.ExpandFooterArea = ExpandFooterArea
.ExpandedByDefault = ExpandedByDefault
.MainIcon = MainIcon
.Buttons = Buttons
.LockSystem = LockSystem
End With
resultat = vd.Show()
Return resultat.ToString()
End Function
End Class
Public Class VelerSoftware_GeneralPlugin_Recuperer_Taill_Fichier
Shared Function GetSize(ByVal Filz As String) As String
Dim RESULTAT As String
If Microsoft.VisualBasic.FileLen(Filz) > 1024 Then
RESULTAT = String.Format(Microsoft.VisualBasic.FileLen(Filz) / 1024, "#,#").Split(",")(0) & " Ko"
Else
RESULTAT = String.Format(Microsoft.VisualBasic.FileLen(Filz), "##0") & " Bytes"
End If
Return RESULTAT
End Function
End Class
End Namespace
Namespace My.Resources
'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder.
'''<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", "2.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Public 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)> _
Public 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("TestAV_V3.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)> _
Public Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
Public ReadOnly Property Cancel() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Cancel", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Create() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Create", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Equipment() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Equipment", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Help_symbol() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Help_symbol", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Home() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Home", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Key() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Key", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Mail() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Mail", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Play() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Play", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Quit() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Quit", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Earth() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Earth", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Earth_no2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Earth_no2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace
Merci de votre AIDE !
Cordialement ,
Le réparateur de PC