Project : SurfOnTheWeb_2011
Last build the dimanche 12 juin 2011 at 21:55
Building failed : errors number: 3
File code : C:\Program Files (x86)\Veler Software\SoftwareZator 2011\Temp\Code.vb
Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : SplashScreen1.szw
SplashScreen : SplashScreen1.szw
Optimize : True
----------------------------------------------------------------
5 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"C:\Users\Julian\Documents\Mes Projets SoftwareZator\SurfOnTheWeb_2011\Bin\SurfOnTheWeb_2011.manifest"'; non reconnue ignorée
6 - Line 534, Column 0, Error BC42020 : Déclaration de variable sans clause 'As' ; type d'Object pris par défaut.
7 - Line 534, Column 0, Error BC30037 : Caractère non valide.
----------------------------------------------------------------
' 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.4959
'
' 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("SurfOnTheWeb_2011")>
<Assembly: Reflection.AssemblyDescription("")>
<Assembly: Reflection.AssemblyCompany("")>
<Assembly: Reflection.AssemblyProduct("")>
<Assembly: Reflection.AssemblyCopyright("Copyright
2011")>
<Assembly: Reflection.AssemblyTrademark("")>
<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 Standard (2.0.0.0)
Namespace SurfOnTheWeb_2011
Public Class Internet_f
Inherits System.Windows.Forms.Form
Public WithEvents webBrowser1 As System.Windows.Forms.WebBrowser
Public WithEvents pictureBox1 As System.Windows.Forms.PictureBox
Public WithEvents pictureBox2 As System.Windows.Forms.PictureBox
Public WithEvents pictureBox3 As System.Windows.Forms.PictureBox
Public WithEvents textBox2 As System.Windows.Forms.TextBox
Public WithEvents pictureBox4 As System.Windows.Forms.PictureBox
Public WithEvents groupBox1 As System.Windows.Forms.GroupBox
Public WithEvents groupBox2 As System.Windows.Forms.GroupBox
Public WithEvents radioButton1 As System.Windows.Forms.RadioButton
Public WithEvents radioButton2 As System.Windows.Forms.RadioButton
Public WithEvents button2 As System.Windows.Forms.Button
Public WithEvents button3 As System.Windows.Forms.Button
Public WithEvents button4 As System.Windows.Forms.Button
Public WithEvents textBox1 As System.Windows.Forms.TextBox
Public WithEvents label1 As System.Windows.Forms.Label
Public WithEvents button5 As System.Windows.Forms.Button
Public WithEvents panel1 As System.Windows.Forms.Panel
Public WithEvents pictureBox5 As System.Windows.Forms.PictureBox
Public WithEvents pictureBox6 As System.Windows.Forms.PictureBox
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(Internet_f))
Me.webBrowser1 = New System.Windows.Forms.WebBrowser
Me.pictureBox1 = New System.Windows.Forms.PictureBox
Me.pictureBox2 = New System.Windows.Forms.PictureBox
Me.pictureBox3 = New System.Windows.Forms.PictureBox
Me.textBox2 = New System.Windows.Forms.TextBox
Me.pictureBox4 = New System.Windows.Forms.PictureBox
Me.groupBox1 = New System.Windows.Forms.GroupBox
Me.radioButton1 = New System.Windows.Forms.RadioButton
Me.radioButton2 = New System.Windows.Forms.RadioButton
Me.groupBox2 = New System.Windows.Forms.GroupBox
Me.button2 = New System.Windows.Forms.Button
Me.button3 = New System.Windows.Forms.Button
Me.button4 = New System.Windows.Forms.Button
Me.textBox1 = New System.Windows.Forms.TextBox
Me.label1 = New System.Windows.Forms.Label
Me.button5 = New System.Windows.Forms.Button
Me.panel1 = New System.Windows.Forms.Panel
Me.pictureBox6 = New System.Windows.Forms.PictureBox
Me.pictureBox5 = New System.Windows.Forms.PictureBox
CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.pictureBox2,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.pictureBox3,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.pictureBox4,System.ComponentModel.ISupportInitialize).BeginInit
Me.groupBox1.SuspendLayout
Me.groupBox2.SuspendLayout
Me.panel1.SuspendLayout
CType(Me.pictureBox6,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.pictureBox5,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'webBrowser1
'
Me.webBrowser1.Location = New System.Drawing.Point(1, 87)
Me.webBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
Me.webBrowser1.Name = "webBrowser1"
Me.webBrowser1.Size = New System.Drawing.Size(1439, 766)
Me.webBrowser1.TabIndex = 0
Me.webBrowser1.Url = New System.Uri("http://www.el-desarrollador-oculto.sitew.com/#all.A", System.UriKind.Absolute)
'
'pictureBox1
'
Me.pictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.pictureBox1.Location = New System.Drawing.Point(11, 21)
Me.pictureBox1.Name = "pictureBox1"
Me.pictureBox1.Size = New System.Drawing.Size(41, 41)
Me.pictureBox1.TabIndex = 2
Me.pictureBox1.TabStop = false
'
'pictureBox2
'
Me.pictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.pictureBox2.Location = New System.Drawing.Point(58, 21)
Me.pictureBox2.Name = "pictureBox2"
Me.pictureBox2.Size = New System.Drawing.Size(43, 41)
Me.pictureBox2.TabIndex = 3
Me.pictureBox2.TabStop = false
'
'pictureBox3
'
Me.pictureBox3.Cursor = System.Windows.Forms.Cursors.Hand
Me.pictureBox3.Location = New System.Drawing.Point(1359, 55)
Me.pictureBox3.Name = "pictureBox3"
Me.pictureBox3.Size = New System.Drawing.Size(39, 40)
Me.pictureBox3.TabIndex = 5
Me.pictureBox3.TabStop = false
'
'textBox2
'
Me.textBox2.Location = New System.Drawing.Point(6, 16)
Me.textBox2.Name = "textBox2"
Me.textBox2.Size = New System.Drawing.Size(607, 22)
Me.textBox2.TabIndex = 7
'
'pictureBox4
'
Me.pictureBox4.Cursor = System.Windows.Forms.Cursors.Hand
Me.pictureBox4.Location = New System.Drawing.Point(619, 7)
Me.pictureBox4.Name = "pictureBox4"
Me.pictureBox4.Size = New System.Drawing.Size(33, 31)
Me.pictureBox4.TabIndex = 9
Me.pictureBox4.TabStop = false
'
'groupBox1
'
Me.groupBox1.Controls.Add(Me.radioButton1)
Me.groupBox1.Controls.Add(Me.pictureBox4)
Me.groupBox1.Controls.Add(Me.textBox2)
Me.groupBox1.Controls.Add(Me.radioButton2)
Me.groupBox1.Location = New System.Drawing.Point(525, 4)
Me.groupBox1.Name = "groupBox1"
Me.groupBox1.Size = New System.Drawing.Size(790, 45)
Me.groupBox1.TabIndex = 10
Me.groupBox1.TabStop = false
Me.groupBox1.Text = "Recherche"
'
'radioButton1
'
Me.radioButton1.Checked = true
Me.radioButton1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.radioButton1.Location = New System.Drawing.Point(658, 16)
Me.radioButton1.Name = "radioButton1"
Me.radioButton1.Size = New System.Drawing.Size(67, 18)
Me.radioButton1.TabIndex = 10
Me.radioButton1.TabStop = true
Me.radioButton1.Text = "Google"
Me.radioButton1.UseVisualStyleBackColor = true
'
'radioButton2
'
Me.radioButton2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.radioButton2.Location = New System.Drawing.Point(731, 16)
Me.radioButton2.Name = "radioButton2"
Me.radioButton2.Size = New System.Drawing.Size(52, 18)
Me.radioButton2.TabIndex = 11
Me.radioButton2.Text = "Bing"
Me.radioButton2.UseVisualStyleBackColor = true
'
'groupBox2
'
Me.groupBox2.Controls.Add(Me.pictureBox2)
Me.groupBox2.Controls.Add(Me.pictureBox1)
Me.groupBox2.Location = New System.Drawing.Point(1, 4)
Me.groupBox2.Name = "groupBox2"
Me.groupBox2.Size = New System.Drawing.Size(110, 74)
Me.groupBox2.TabIndex = 11
Me.groupBox2.TabStop = false
Me.groupBox2.Text = "Historique"
'
'button2
'
Me.button2.Font = New System.Drawing.Font("Segoe UI", 7!, System.Drawing.FontStyle.Italic)
Me.button2.Location = New System.Drawing.Point(1336, 21)
Me.button2.Name = "button2"
Me.button2.Size = New System.Drawing.Size(62, 22)
Me.button2.TabIndex = 13
Me.button2.Text = "A propos"
Me.button2.UseVisualStyleBackColor = true
'
'button3
'
Me.button3.Font = New System.Drawing.Font("Segoe UI", 10!, System.Drawing.FontStyle.Bold)
Me.button3.Location = New System.Drawing.Point(318, 13)
Me.button3.Name = "button3"
Me.button3.Size = New System.Drawing.Size(72, 49)
Me.button3.TabIndex = 15
Me.button3.Text = "Favoris"
Me.button3.UseVisualStyleBackColor = true
'
'button4
'
Me.button4.Location = New System.Drawing.Point(396, 13)
Me.button4.Name = "button4"
Me.button4.Size = New System.Drawing.Size(122, 23)
Me.button4.TabIndex = 16
Me.button4.Text = "Ajouter aux favoris"
Me.button4.UseVisualStyleBackColor = true
'
'textBox1
'
Me.textBox1.BackColor = System.Drawing.SystemColors.Info
Me.textBox1.Font = New System.Drawing.Font("Comic Sans MS", 10!)
Me.textBox1.Location = New System.Drawing.Point(170, 55)
Me.textBox1.Name = "textBox1"
Me.textBox1.Size = New System.Drawing.Size(1184, 26)
Me.textBox1.TabIndex = 4
'
'label1
'
Me.label1.Font = New System.Drawing.Font("Segoe UI", 12!, System.Drawing.FontStyle.Bold)
Me.label1.Location = New System.Drawing.Point(116, 67)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(54, 23)
Me.label1.TabIndex = 17
Me.label1.Text = "URL :"
'
'button5
'
Me.button5.Location = New System.Drawing.Point(396, 39)
Me.button5.Name = "button5"
Me.button5.Size = New System.Drawing.Size(122, 23)
Me.button5.TabIndex = 18
Me.button5.Text = "Vérifier la connexion"
Me.button5.UseVisualStyleBackColor = true
'
'panel1
'
Me.panel1.Controls.Add(Me.pictureBox6)
Me.panel1.Controls.Add(Me.pictureBox5)
Me.panel1.Controls.Add(Me.button3)
Me.panel1.Controls.Add(Me.button5)
Me.panel1.Controls.Add(Me.label1)
Me.panel1.Controls.Add(Me.button2)
Me.panel1.Controls.Add(Me.pictureBox3)
Me.panel1.Controls.Add(Me.button4)
Me.panel1.Location = New System.Drawing.Point(1, -9)
Me.panel1.Name = "panel1"
Me.panel1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.panel1.Size = New System.Drawing.Size(1450, 95)
Me.panel1.TabIndex = 19
'
'pictureBox6
'
Me.pictureBox6.Location = New System.Drawing.Point(116,
Me.pictureBox6.Name = "pictureBox6"
Me.pictureBox6.Size = New System.Drawing.Size(196, 50)
Me.pictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.pictureBox6.TabIndex = 20
Me.pictureBox6.TabStop = false
'
'pictureBox5
'
Me.pictureBox5.AccessibleName = "WebSecurityGuard"
Me.pictureBox5.Cursor = System.Windows.Forms.Cursors.Hand
Me.pictureBox5.Location = New System.Drawing.Point(1404, 60)
Me.pictureBox5.Name = "pictureBox5"
Me.pictureBox5.Size = New System.Drawing.Size(35, 35)
Me.pictureBox5.TabIndex = 19
Me.pictureBox5.TabStop = false
Me.pictureBox5.Tag = "WebSecurityGuard"
'
'Internet
'
Me.BackColor = System.Drawing.Color.Lavender
Me.ClientSize = New System.Drawing.Size(1404, 382)
Me.Controls.Add(Me.textBox1)
Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.webBrowser1)
Me.Controls.Add(Me.groupBox2)
Me.Controls.Add(Me.panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximumSize = New System.Drawing.Size(1450, 916)
Me.MinimumSize = New System.Drawing.Size(100, 50)
Me.Name = "Internet"
Me.Text = "Navigation web - SurfOnTheWeb 2011"
CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.pictureBox2,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.pictureBox3,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.pictureBox4,System.ComponentModel.ISupportInitialize).EndInit
Me.groupBox1.ResumeLayout(false)
Me.groupBox1.PerformLayout
Me.groupBox2.ResumeLayout(false)
Me.panel1.ResumeLayout(false)
CType(Me.pictureBox6,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.pictureBox5,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
Me.PerformLayout
End Sub
End Class
Public Class SplashScreen1_f
Inherits System.Windows.Forms.Form
Public WithEvents pictureBox1 As System.Windows.Forms.PictureBox
Public WithEvents progressBar1 As System.Windows.Forms.ProgressBar
Public WithEvents label1 As System.Windows.Forms.Label
Public WithEvents button1 As System.Windows.Forms.Button
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(SplashScreen1_f))
Me.pictureBox1 = New System.Windows.Forms.PictureBox
Me.progressBar1 = New System.Windows.Forms.ProgressBar
Me.label1 = New System.Windows.Forms.Label
Me.button1 = New System.Windows.Forms.Button
CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'pictureBox1
'
Me.pictureBox1.ErrorImage = CType(resources.GetObject("pictureBox1.ErrorImage"),System.Drawing.Image)
Me.pictureBox1.Image = CType(resources.GetObject("pictureBox1.Image"),System.Drawing.Image)
Me.pictureBox1.InitialImage = CType(resources.GetObject("pictureBox1.InitialImage"),System.Drawing.Image)
Me.pictureBox1.Location = New System.Drawing.Point(12, 12)
Me.pictureBox1.Name = "pictureBox1"
Me.pictureBox1.Size = New System.Drawing.Size(464, 231)
Me.pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.pictureBox1.TabIndex = 0
Me.pictureBox1.TabStop = false
'
'progressBar1
'
Me.progressBar1.Location = New System.Drawing.Point(11, 264)
Me.progressBar1.Name = "progressBar1"
Me.progressBar1.Size = New System.Drawing.Size(464, 22)
Me.progressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
Me.progressBar1.TabIndex = 1
Me.progressBar1.Value = 100
'
'label1
'
Me.label1.Font = New System.Drawing.Font("Segoe UI", 15!)
Me.label1.Location = New System.Drawing.Point(14, 237)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(461, 33)
Me.label1.TabIndex = 2
Me.label1.Text = "El Desarrollador Oculto"
Me.label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'button1
'
Me.button1.BackColor = System.Drawing.SystemColors.InactiveBorder
Me.button1.Font = New System.Drawing.Font("Segoe UI", 12!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic),System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(5,Byte))
Me.button1.Location = New System.Drawing.Point(12, 290)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(463, 31)
Me.button1.TabIndex = 3
Me.button1.Text = ">>>>>> Entrer >>>>>>"
Me.button1.UseVisualStyleBackColor = true
'
'SplashScreen1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.Window
Me.ClientSize = New System.Drawing.Size(480, 325)
Me.ControlBox = false
Me.Controls.Add(Me.button1)
Me.Controls.Add(Me.pictureBox1)
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.MinimizeBox = false
Me.Name = "SplashScreen1"
Me.ShowIcon = false
Me.ShowInTaskbar = false
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "SurfOnTheWeb 2011"
CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
End Sub
<System.STAThreadAttribute()> _
Public Shared Sub Main()
System.Windows.Forms.Application.EnableVisualStyles()
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. SurfOnTheWeb_2011 can't start without it. Please install the .Net Framework 3.5 and try again.", "SurfOnTheWeb_2011", 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 SplashScreen1_f)
End Sub
End Class
Public Class WindowsForm1_f
Inherits System.Windows.Forms.Form
Public WithEvents pictureBox1 As System.Windows.Forms.PictureBox
Public WithEvents label1 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(WindowsForm1_f))
Me.pictureBox1 = New System.Windows.Forms.PictureBox
Me.label1 = New System.Windows.Forms.Label
CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'pictureBox1
'
Me.pictureBox1.ErrorImage = CType(resources.GetObject("pictureBox1.ErrorImage"),System.Drawing.Image)
Me.pictureBox1.Image = CType(resources.GetObject("pictureBox1.Image"),System.Drawing.Image)
Me.pictureBox1.InitialImage = CType(resources.GetObject("pictureBox1.InitialImage"),System.Drawing.Image)
Me.pictureBox1.Location = New System.Drawing.Point(-1, 0)
Me.pictureBox1.Name = "pictureBox1"
Me.pictureBox1.Size = New System.Drawing.Size(293, 158)
Me.pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.pictureBox1.TabIndex = 0
Me.pictureBox1.TabStop = false
'
'label1
'
Me.label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label1.Location = New System.Drawing.Point(0, 159)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(291, 39)
Me.label1.TabIndex = 1
Me.label1.Text = "Copyright 2011 El Desarrollador Oculto"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Tous droits réservés"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Ce produit a été ré"& _
"alisé avec SoftwareZator 2011"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)
'
'WindowsForm1
'
Me.ClientSize = New System.Drawing.Size(292, 204)
Me.Controls.Add(Me.label1)
Me.Controls.Add(Me.pictureBox1)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Name = "WindowsForm1"
Me.Text = "A propos"
CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
End Sub
End Class
Public Class WindowsForm2_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(WindowsForm2_f))
Me.SuspendLayout
'
'WindowsForm2
'
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Name = "WindowsForm2"
Me.Text = "WindowsForm2"
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 adresseweb As Object '
Public checkbing As Object '
Public checkgoogle As Object '
Public connexionok As Object '
Public extensionsur? As Object '
Public favoris() As Object = New Object(-1){} '
Public favorites As Object '
Public iffavoris As Object '
Public ifsonattention As Object '
Public ifwot As Object '
Public nameuser As Object '
Public search As Object '
Public Titre_Web As Object '
Public URL As Object '
Public workfavoris As Object '
Public wotinstallyes 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 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 _Internet As Internet_f = New Internet_f
Public Property Internet As Internet_f
Get
Return _Internet
End Get
Set(ByVal value As Internet_f)
_Internet = value
End Set
End Property
Private _SplashScreen1 As SplashScreen1_f = New SplashScreen1_f
Public Property SplashScreen1 As SplashScreen1_f
Get
Return _SplashScreen1
End Get
Set(ByVal value As SplashScreen1_f)
_SplashScreen1 = 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
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 Internet_f
Public Sub pictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox3.Click
Try
ifsonattention = Me.textBox1.Text
Me.webBrowser1.Navigate("" & ifsonattention & "")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox1.Click
Try
Me.webBrowser1.GoBack()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub webBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)Handles webBrowser1.DocumentCompleted
Try
URL = webBrowser1.Url.OriginalString
Me.textBox1.Text = "" & URL & ""
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub webBrowser1_DocumentTitleChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles webBrowser1.DocumentTitleChanged
Try
Titre_Web = Me.webBrowser1.DocumentTitle
Me.Text = "" & Titre_Web & " | SurfOnTheWeb 2011"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox2.Click
Try
Me.webBrowser1.GoForward()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox4.Click
Try
checkgoogle = CType(checkgoogle, Boolean)
checkbing = CType(checkbing, Boolean)
search = Me.textBox2.Text
checkgoogle = Me.radioButton1.Checked
checkbing = Me.radioButton2.Checked
If checkbing = True Then
Me.webBrowser1.Navigate("http://www.bing.com/search?q=" & search & "&go=&qs=n&sk=&sc=8-5&form=QBLH&filt=all")
Else
Me.webBrowser1.Navigate("http://www.google.fr/search?aq=f&sourceid=chrome&ie=UTF-8&q=" & search & "")
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button2.Click
Try
If "Dialog" <> "Dialog" Then WindowsForm1 = New WindowsForm1_f
WindowsForm1.ShowDialog()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button5.Click
Try
connexionok = CType(connexionok, Boolean)
connexionok = VelerSoftware_GeneralPlugin_Connecter_Internet.IsConnected()
If connexionok = False Then
System.Windows.Forms.MessageBox.Show("Votre connexion a été perdue", "Non connecté", MessageBoxButtons.OK, MessageBoxIcon.Warning).ToString
End If
If connexionok = True Then
System.Windows.Forms.MessageBox.Show("Vous êtes toujours connecté.", "Connecté", MessageBoxButtons.OK, MessageBoxIcon.Information).ToString
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button4.Click
Try
workfavoris = System.Windows.Forms.MessageBox.Show("Pour ajouter aux favoris, faites un clic droit sur la page puis cliquez sur -Ajouter aux favoris- ou -Add to favorites-", "Help", MessageBoxButtons.OK, MessageBoxIcon.None).ToString
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button3.Click
Try
nameuser = System.Environment.UserName
Microsoft.VisualBasic.Interaction.Shell("explorer C:\Users\" & nameuser & "\Favorites", Microsoft.VisualBasic.AppWinStyle.NormalFocus, False)
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox5.Click
Try
Me.webBrowser1.Navigate("http://www.websecurityguard.com/fr/detail.aspx?domain=" & URL & "")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Partial Public Class SplashScreen1_f
Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
Try
If "Dialog" <> "Dialog" Then Internet = New Internet_f
ifwot = Internet.ShowDialog().ToString
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SurfOnTheWeb_2011", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Partial Public Class WindowsForm1_f
End Class
Partial Public Class WindowsForm2_f
End Class
Public Class VelerSoftware_GeneralPlugin_Connecter_Internet
Private Declare Function InternetGetConnectedState Lib "wininet.dll" Alias "InternetGetConnectedState" (ByRef lpdwFlags As Integer, ByVal dwReserved As Integer) As Boolean
Shared Function IsConnected() As Boolean
Dim Desc As Integer
Return InternetGetConnectedState(Desc, 0)
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("SurfOnTheWeb_2011.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
![Impossible de compiler !!!! [RESOLU !!!] Sz_big12](https://i.servimg.com/u/f56/16/51/03/49/sz_big12.png)
SoftwareZator
![Impossible de compiler !!!! [RESOLU !!!] Empty](https://2img.net/i/empty.gif)
![Impossible de compiler !!!! [RESOLU !!!] Captur10](https://i.servimg.com/u/f27/16/57/25/33/captur10.jpg)
