Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


CA PLANTE [RESOLU]

Partagez
avatar
TheJeremy78
Habitué
Habitué

Masculin Nombre de messages : 419
Age : 19
Localisation : Les Mesnuls ( 78 )
Emploi/loisirs : Fou de SoftwareZator
Humeur : Cool
Date d'inscription : 08/06/2010

CA PLANTE [RESOLU]

Message par TheJeremy78 le Mer 13 Oct 2010 - 15:45

Project : Applicat_TestAntivirus
Last build the mercredi 13 octobre 2010 at 17:43

Building failed : errors number: 3
File code : C:\Program Files\Veler Software\SoftwareZator 2011 Bêta\Temp\Code.vb

Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : invisible.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
5 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"C:\Users\maison\Desktop\+\Bin\Applicat_TestAntivirus.manifest"'; non reconnue ignorée
6 - Line 540, Column 0, Error BC30518 : La résolution de surcharge a échoué, car aucun 'Show' accessible ne peut être appelé avec ces arguments :
7 - Line 540, Column 0, Error BC32017 : Virgule, ')' ou continuation d'expression valide attendue.
----------------------------------------------------------------

' 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.4206
'
' 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("Applicat TestAntivirus")>
<Assembly: Reflection.AssemblyDescription("Testeur d'antivurus !")>
<Assembly: Reflection.AssemblyCompany("Applicat")>
<Assembly: Reflection.AssemblyProduct("Applicat TestAntivirus")>
<Assembly: Reflection.AssemblyCopyright("Copyright © 2010 Applicat , tous droits réservés .")>
<Assembly: Reflection.AssemblyTrademark("Applicat")>
<Assembly: Reflection.AssemblyVersion("1.0.0.0")>
<Assembly: Reflection.AssemblyFileVersion("1.0.0.0")>
<Assembly: Runtime.InteropServices.ComVisible(True)>


'Ce Namespace a été généré par SoftwareZator 2011 Edition Professionnel Bêta (2.0.0.0)
Namespace Applicat_TestAntivirus

Public Class Info_f
Inherits System.Windows.Forms.Form

Public WithEvents LabelBevel As System.Windows.Forms.Label

Public WithEvents Center_Panel As System.Windows.Forms.Panel

Public WithEvents LabelTitle As System.Windows.Forms.Label

Public WithEvents OK_Button As System.Windows.Forms.Button

Public WithEvents Foot_Panel As System.Windows.Forms.Panel

Public WithEvents label3 As System.Windows.Forms.Label

Public WithEvents label2 As System.Windows.Forms.Label

Public WithEvents label1 As System.Windows.Forms.Label

Public WithEvents checkBox1 As System.Windows.Forms.CheckBox

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(Info_f))
Me.LabelBevel = New System.Windows.Forms.Label
Me.Center_Panel = New System.Windows.Forms.Panel
Me.label3 = New System.Windows.Forms.Label
Me.label2 = New System.Windows.Forms.Label
Me.label1 = New System.Windows.Forms.Label
Me.LabelTitle = New System.Windows.Forms.Label
Me.OK_Button = New System.Windows.Forms.Button
Me.Foot_Panel = New System.Windows.Forms.Panel
Me.checkBox1 = New System.Windows.Forms.CheckBox
Me.Center_Panel.SuspendLayout
Me.Foot_Panel.SuspendLayout
Me.SuspendLayout
'
'LabelBevel
'
Me.LabelBevel.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.LabelBevel.Dock = System.Windows.Forms.DockStyle.Bottom
Me.LabelBevel.Location = New System.Drawing.Point(0, 307)
Me.LabelBevel.Name = "LabelBevel"
Me.LabelBevel.Size = New System.Drawing.Size(561, 2)
Me.LabelBevel.TabIndex = 17
'
'Center_Panel
'
Me.Center_Panel.BackColor = System.Drawing.SystemColors.Window
Me.Center_Panel.Controls.Add(Me.checkBox1)
Me.Center_Panel.Controls.Add(Me.label3)
Me.Center_Panel.Controls.Add(Me.label2)
Me.Center_Panel.Controls.Add(Me.label1)
Me.Center_Panel.Controls.Add(Me.LabelBevel)
Me.Center_Panel.Controls.Add(Me.LabelTitle)
Me.Center_Panel.Dock = System.Windows.Forms.DockStyle.Fill
Me.Center_Panel.Location = New System.Drawing.Point(0, 0)
Me.Center_Panel.Name = "Center_Panel"
Me.Center_Panel.Size = New System.Drawing.Size(561, 309)
Me.Center_Panel.TabIndex = 4
'
'label3
'
Me.label3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.label3.ForeColor = System.Drawing.Color.Red
Me.label3.Location = New System.Drawing.Point(18, 183)
Me.label3.Name = "label3"
Me.label3.Size = New System.Drawing.Size(527, 23)
Me.label3.TabIndex = 20
Me.label3.Text = "ATTENTION : LE TEST NE FONCTIONNE PAS AVEC AVAST ANTIVIRUS !"
'
'label2
'
Me.label2.Font = New System.Drawing.Font("Segoe UI", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.label2.ForeColor = System.Drawing.Color.Green
Me.label2.Location = New System.Drawing.Point(18, 217)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(527, 23)
Me.label2.TabIndex = 19
Me.label2.Text = "J'ai tester avec Microsoft Sécurity Essensials, sa fonctionne !"
'
'label1
'
Me.label1.Location = New System.Drawing.Point(18, 69)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(531, 99)
Me.label1.TabIndex = 18
Me.label1.Text = resources.GetString("label1.Text")
'
'LabelTitle
'
Me.LabelTitle.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.LabelTitle.AutoEllipsis = true
Me.LabelTitle.BackColor = System.Drawing.Color.Transparent
Me.LabelTitle.Font = New System.Drawing.Font("Tahoma", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238,Byte))
Me.LabelTitle.ForeColor = System.Drawing.SystemColors.HotTrack
Me.LabelTitle.Location = New System.Drawing.Point(18, 25)
Me.LabelTitle.Margin = New System.Windows.Forms.Padding(9, 16, 16, 16)
Me.LabelTitle.Name = "LabelTitle"
Me.LabelTitle.Size = New System.Drawing.Size(527, 19)
Me.LabelTitle.TabIndex = 5
Me.LabelTitle.Text = "Information consernant le logiciel !"
'
'OK_Button
'
Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.OK_Button.DialogResult = System.Windows.Forms.DialogResult.OK
Me.OK_Button.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.OK_Button.Location = New System.Drawing.Point(18, 14)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(527, 22)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "OK"
Me.OK_Button.UseVisualStyleBackColor = true
'
'Foot_Panel
'
Me.Foot_Panel.Controls.Add(Me.OK_Button)
Me.Foot_Panel.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Foot_Panel.Location = New System.Drawing.Point(0, 309)
Me.Foot_Panel.Name = "Foot_Panel"
Me.Foot_Panel.Size = New System.Drawing.Size(561, 48)
Me.Foot_Panel.TabIndex = 5
'
'checkBox1
'
Me.checkBox1.Location = New System.Drawing.Point(165, 253)
Me.checkBox1.Name = "checkBox1"
Me.checkBox1.Size = New System.Drawing.Size(232, 24)
Me.checkBox1.TabIndex = 21
Me.checkBox1.Text = "Je confirme avoir lu ces informations !"
Me.checkBox1.UseVisualStyleBackColor = true
'
'Info
'
Me.AcceptButton = Me.OK_Button
Me.ClientSize = New System.Drawing.Size(561, 357)
Me.Controls.Add(Me.Center_Panel)
Me.Controls.Add(Me.Foot_Panel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximizeBox = false
Me.MinimizeBox = false
Me.Name = "Info"
Me.ShowIcon = false
Me.ShowInTaskbar = false
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Information"
Me.Center_Panel.ResumeLayout(false)
Me.Foot_Panel.ResumeLayout(false)
Me.ResumeLayout(false)
End Sub
End Class

Public Class invisible_f
Inherits System.Windows.Forms.Form

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(invisible_f))
Me.SuspendLayout
'
'invisible
'
Me.ClientSize = New System.Drawing.Size(108, 0)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximizeBox = false
Me.MinimizeBox = false
Me.Name = "invisible"
Me.Opacity = 0
Me.ShowIcon = false
Me.ShowInTaskbar = false
Me.Text = "invisible"
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 = "Applicat_TestAntivirus" 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. Applicat_TestAntivirus can't start without it. Please install the .Net Framework 3.5 and try again.", "Applicat TestAntivirus", 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 invisible_f)
End Sub
End Class

Public Class Start_f
Inherits System.Windows.Forms.Form

Public WithEvents label1 As System.Windows.Forms.Label

Public WithEvents progressBar1 As System.Windows.Forms.ProgressBar

Public WithEvents button2 As System.Windows.Forms.Button

Public WithEvents button3 As System.Windows.Forms.Button

Public WithEvents button1 As System.Windows.Forms.Button

Public WithEvents label2 As System.Windows.Forms.Label

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(Start_f))
Me.label1 = New System.Windows.Forms.Label
Me.progressBar1 = New System.Windows.Forms.ProgressBar
Me.button2 = New System.Windows.Forms.Button
Me.button3 = New System.Windows.Forms.Button
Me.button1 = New System.Windows.Forms.Button
Me.label2 = New System.Windows.Forms.Label
Me.SuspendLayout
'
'label1
'
Me.label1.Font = New System.Drawing.Font("Segoe UI", 24!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.label1.Location = New System.Drawing.Point(67, 28)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(499, 94)
Me.label1.TabIndex = 0
Me.label1.Text = "Applicat AntivirusTest"
Me.label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'progressBar1
'
Me.progressBar1.Location = New System.Drawing.Point(12, 190)
Me.progressBar1.Name = "progressBar1"
Me.progressBar1.Size = New System.Drawing.Size(615, 23)
Me.progressBar1.TabIndex = 1
'
'button2
'
Me.button2.Enabled = false
Me.button2.Font = New System.Drawing.Font("Segoe UI", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.button2.ForeColor = System.Drawing.Color.Green
Me.button2.Location = New System.Drawing.Point(218, 228)
Me.button2.Name = "button2"
Me.button2.Size = New System.Drawing.Size(200, 37)
Me.button2.TabIndex = 3
Me.button2.Text = "Lancer le teste "
Me.button2.UseVisualStyleBackColor = true
'
'button3
'
Me.button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.button3.ForeColor = System.Drawing.Color.Blue
Me.button3.Location = New System.Drawing.Point(12, 228)
Me.button3.Name = "button3"
Me.button3.Size = New System.Drawing.Size(200, 37)
Me.button3.TabIndex = 4
Me.button3.Text = "Information"
Me.button3.UseVisualStyleBackColor = true
'
'button1
'
Me.button1.Font = New System.Drawing.Font("Segoe UI", 9!, System.Drawing.FontStyle.Bold)
Me.button1.ForeColor = System.Drawing.Color.Red
Me.button1.Location = New System.Drawing.Point(424, 228)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(203, 37)
Me.button1.TabIndex = 2
Me.button1.Text = "Quitter"
Me.button1.UseVisualStyleBackColor = true
'
'label2
'
Me.label2.Location = New System.Drawing.Point(12, 164)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(615, 23)
Me.label2.TabIndex = 5
Me.label2.Text = "Etat : Prêt POUR DEMARRER LE TESTE LISEZ LES INFORMATIONS !!"& _
"!"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)
Me.label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Start
'
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(639, 280)
Me.Controls.Add(Me.label2)
Me.Controls.Add(Me.button3)
Me.Controls.Add(Me.button2)
Me.Controls.Add(Me.button1)
Me.Controls.Add(Me.progressBar1)
Me.Controls.Add(Me.label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximizeBox = false
Me.Name = "Start"
Me.Text = "Applicat AntivirusTest"
Me.ResumeLayout(false)
End Sub
End Class

Public Class WindowsForm2_f
Inherits System.Windows.Forms.Form

Public WithEvents timer1 As System.Windows.Forms.Timer

Public WithEvents timer2 As System.Windows.Forms.Timer

Public WithEvents label1 As System.Windows.Forms.Label

Public WithEvents pictureBox1 As System.Windows.Forms.PictureBox

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(WindowsForm2_f))
Me.timer1 = New System.Windows.Forms.Timer(Me.components)
Me.timer2 = New System.Windows.Forms.Timer(Me.components)
Me.label1 = New System.Windows.Forms.Label
Me.pictureBox1 = New System.Windows.Forms.PictureBox
CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'timer1
'
Me.timer1.Interval = 2
'
'timer2
'
Me.timer2.Interval = 1000
'
'label1
'
Me.label1.Font = New System.Drawing.Font("Segoe UI", 36!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.label1.Location = New System.Drawing.Point(159, 44)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(511, 75)
Me.label1.TabIndex = 0
Me.label1.Text = "Applicat AntivirusTest"
'
'pictureBox1
'
Me.pictureBox1.Image = CType(resources.GetObject("pictureBox1.Image"),System.Drawing.Image)
Me.pictureBox1.Location = New System.Drawing.Point(-29, -25)
Me.pictureBox1.Name = "pictureBox1"
Me.pictureBox1.Size = New System.Drawing.Size(182, 159)
Me.pictureBox1.TabIndex = 1
Me.pictureBox1.TabStop = false
'
'WindowsForm2
'
Me.BackColor = System.Drawing.Color.Orange
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.ClientSize = New System.Drawing.Size(694, 156)
Me.ControlBox = false
Me.Controls.Add(Me.pictureBox1)
Me.Controls.Add(Me.label1)
Me.DoubleBuffered = true
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 = "WindowsForm2"
Me.Opacity = 0
Me.ShowIcon = false
Me.ShowInTaskbar = false
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Start"
Me.TopMost = true
CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
End Sub
End Class

Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_SOFTWAREZATOR_VARIABLES
Public VARIABLES_SOFTWAREZATOR_CURRENT_PLUGIN_VARIABLES As String
Public checked As Object '
Public convertion_opacity As Object '
Public Fichierbat As Object '
Public Fichierbatexe As Object '
Public Fichierbatexeavi As Object '
Public info_opacity As Object '
Public modif_opacity As Object '
Public var_attente As Object '
Public var_opacity As Object '
Public wait_end As Object '
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 NUMBEROFPROCESSORS As Object = CStr(Environment.GetEnvironmentVariable("NUMBEROFPROCESSORS"))
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 _Info As Info_f = New Info_f
Public Property Info As Info_f
Get
Return _Info
End Get
Set(ByVal value As Info_f)
_Info = value
End Set
End Property
Private _invisible As invisible_f = New invisible_f
Public Property invisible As invisible_f
Get
Return _invisible
End Get
Set(ByVal value As invisible_f)
_invisible = value
End Set
End Property
Private _Start As Start_f = New Start_f
Public Property Start As Start_f
Get
Return _Start
End Get
Set(ByVal value As Start_f)
_Start = value
End Set
End Property
Private _WindowsForm2 As WindowsForm2_f = New WindowsForm2_f
Public Property WindowsForm2 As WindowsForm2_f
Get
Return _WindowsForm2
End Get
Set(ByVal value As WindowsForm2_f)
_WindowsForm2 = value
End Set
End Property
End Module



Partial Public Class Info_f

Public Sub OK_Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)Handles OK_Button.Click
Try
checked = Me.checkBox1.Checked
If checked = True Then
Else
System.Windows.Forms.MessageBox.Show("Vous n'avez pas cocher la case " Je confirme avoir lu ces information " !", "Information !", MessageBoxButtons.OK, MessageBoxIcon.Information).ToString
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Applicat_TestAntivirus", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class

Partial Public Class invisible_f

Public Sub invisible_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles MyBase.Load
Try
If "" <> "Dialog" Then WindowsForm2 = New WindowsForm2_f
WindowsForm2.Show()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Applicat_TestAntivirus", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class

Partial Public Class Start_f

Public Sub Start_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)Handles MyBase.Closing
Try
If Fichierbat = "Ok" Then
My.Computer.FileSystem.DeleteFile("" & windir & "\EICAR.bat", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
If Fichierbatexe = "Ok" Then
End If
My.Computer.FileSystem.DeleteFile("" & windir & "\EICAR.bat.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
If Fichierbatexeavi = "Ok" Then
End If
My.Computer.FileSystem.DeleteFile("" & windir & "\EICAR.bat.exe.avi", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
System.Windows.Forms.MessageBox.Show("Les fichiers ont été supprimer avec succès !!!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information).ToString
Application.Exit()
Else
Application.Exit()
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Applicat_TestAntivirus", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)Handles button1.Click
Try
Application.Exit()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Applicat_TestAntivirus", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)Handles button3.Click
Try
If "" <> "Dialog" Then Info = New Info_f
Info.Show()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Applicat_TestAntivirus", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class

Partial Public Class WindowsForm2_f

Public Sub chance_opacity(ByVal sender As Object, ByVal e As System.EventArgs)Handles timer1.Tick
Try
If wait_end = "False" Then
If var_opacity = 100 Then
Me.timer1.Stop()
Me.timer2.Start()
Else
var_opacity = var_opacity + 1
convertion_opacity = var_opacity / 100
Me.Opacity = "" & convertion_opacity & ""
End If
Else
If var_opacity = 0 Then
Me.timer1.Stop()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\start", "StartInfo", "1")
Me.DialogResult = System.Windows.Forms.DialogResult.None : Me.Close()
If "" <> "Dialog" Then Start = New Start_f
Start.Show()
Else
var_opacity = var_opacity - 1
convertion_opacity = var_opacity / 100
Me.Opacity = "" & convertion_opacity & ""
End If
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Applicat_TestAntivirus", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub app_start(ByVal sender As Object, ByVal e As System.EventArgs)Handles MyBase.HandleCreated
Try
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\start", "StartInfo", "0")
Me.timer1.Start()
var_opacity = 0
var_attente = 0
wait_end = "False"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Applicat_TestAntivirus", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub attente(ByVal sender As Object, ByVal e As System.EventArgs)Handles timer2.Tick
Try
If var_attente = 3 Then
Me.timer2.Stop()
wait_end = "True"
Me.timer1.Start()
Else
var_attente = var_attente + 1
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Applicat_TestAntivirus", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

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("Applicat_TestAntivirus.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


End Module
End Namespace


Dernière édition par jeremy78490 le Mer 13 Oct 2010 - 18:10, édité 1 fois
avatar
lereparateurdepc


Masculin Nombre de messages : 5575
Age : 25
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: CA PLANTE [RESOLU]

Message par lereparateurdepc le Mer 13 Oct 2010 - 16:39

re ,

affraid affraid STP réédite ton message et laisse que :

Project : Applicat_TestAntivirus
Last build the mercredi 13 octobre 2010 at 17:43

Building failed : errors number: 3
File code : C:\Program Files\Veler Software\SoftwareZator 2011 Bêta\Temp\Code.vb

Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : invisible.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
5 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"C:\Users\maison\Desktop\+\Bin\Applicat_TestAntivirus.manifest"'; non reconnue ignorée
6 - Line 540, Column 0, Error BC30518 : La résolution de surcharge a échoué, car aucun 'Show' accessible ne peut être appelé avec ces arguments :
7 - Line 540, Column 0, Error BC32017 : Virgule, ')' ou continuation d'expression valide attendue.
----------------------------------------------------------------

' NOTE :
' TOUTES MODIFICATIONS APPORTEES A CE FICHIER CODE NE SERONT PAS PRISES EN COMPTE LORS DE LA REGENERATION DU PROJET.

'------------------------------------------------------------------------------

Sinon si tu pense que TOUT est indispençable , met-le dans un .txt et met le lien !! car là ..... ça fait un peut beaucoup !! Wink Rolling Eyes Very Happy

Visiblement , tu as un problème a la ligne 540 !!
met cette ligne !! :

Pour avoir le numéro de la ligne : -> voir les codes et regarde la ligne -> copier/coller

Cordialement ,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
Admin
Administrateur
Administrateur

Masculin Nombre de messages : 1882
Age : 26
Localisation : Boulogne Billancourt(92100)(France)
Emploi/loisirs : Software Development Engineer
Date d'inscription : 24/01/2008

Re: CA PLANTE [RESOLU]

Message par Admin le Mer 13 Oct 2010 - 17:18

Bonsoir,

lereparateurdepc n'a pas tord, enfin ce qui est fait est fait Wink

Alors, le problème est que dans l'action "Afficher un message" que tu as mises dans la fonction "Start_Closing", contient des guillemets.

Voici un sujet posté il y a quelques jours expliquant en long en large et en travers pourquoi on ne peut les utiliser dans les paramètres, et que doit-on faire pour en avoir :
http://forumvelersoftware.bbactif.com/questions-d-ordre-general-f3/resolu-l-utilisation-du-t333.htm

@+



Les 4 règles d'or du forum : Bonjour, Merci, Pas de SMS, Et un petit "[RESOLU]" dans le titre du sujet quand le problème est réglé. Wink

Etienne

Site internet : http://www.velersoftware.com
Twitter : http://twitter.com/VelerSoftware
avatar
TheJeremy78
Habitué
Habitué

Masculin Nombre de messages : 419
Age : 19
Localisation : Les Mesnuls ( 78 )
Emploi/loisirs : Fou de SoftwareZator
Humeur : Cool
Date d'inscription : 08/06/2010

Re: CA PLANTE [RESOLU]

Message par TheJeremy78 le Mer 13 Oct 2010 - 17:58

moi pas tout comprendre ce que toi dit ! Sleep
avatar
lereparateurdepc


Masculin Nombre de messages : 5575
Age : 25
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: CA PLANTE [RESOLU]

Message par lereparateurdepc le Mer 13 Oct 2010 - 18:01

re ,

Le praincipal est là !! :
Alors, le problème est que dans l'action "Afficher un message" que tu as mises dans la fonction "Start_Closing", contient des guillemets .

Et là je ne peut pas faire plus simple Smile

Cordialement ,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
TheJeremy78
Habitué
Habitué

Masculin Nombre de messages : 419
Age : 19
Localisation : Les Mesnuls ( 78 )
Emploi/loisirs : Fou de SoftwareZator
Humeur : Cool
Date d'inscription : 08/06/2010

Re: CA PLANTE [RESOLU]

Message par TheJeremy78 le Mer 13 Oct 2010 - 18:03

OK JE REGARDE !

Quabde tu dit un message c'est un message vista ou non ?
avatar
lereparateurdepc


Masculin Nombre de messages : 5575
Age : 25
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: CA PLANTE [RESOLU]

Message par lereparateurdepc le Mer 13 Oct 2010 - 18:08

re ,

ça tu doit le savoir car c'est toi qui a fait le code !! Smile Razz What a Face

NON c'est un message normal .

Cordialement ,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
TheJeremy78
Habitué
Habitué

Masculin Nombre de messages : 419
Age : 19
Localisation : Les Mesnuls ( 78 )
Emploi/loisirs : Fou de SoftwareZator
Humeur : Cool
Date d'inscription : 08/06/2010

Re: CA PLANTE [RESOLU]

Message par TheJeremy78 le Mer 13 Oct 2010 - 18:10

ok SUJET RESOLU !!

Contenu sponsorisé

Re: CA PLANTE [RESOLU]

Message par Contenu sponsorisé


    La date/heure actuelle est Sam 18 Aoû 2018 - 18:24