Un navigateur Internet fait en visual basic 6.0

[ANISYSTEM]

salut les amis c'est encore moi

cette fois j'ai fait un petit navigateur internet, il travaille avec les fonctions de IE 6, mais il nettement plus rapide que IE et plus securitaire puisque avec lui ABAT LES POP UP's.

Je l'ai tester plusieurs fois , côté design il n'est pas vraiment au top mais ce n'est que la premiere version.

télécharger ANISYSTEM_NetBrowser 1.0 (http://www.cityupload.com/DOWNLOAD/8f6fa1508/ANISYSTEM_NetBrowser 1.0.rar)

je compte sur vos commentaires pour faire ameliorer le browser.

a++.

[bassim]

Bonjour,
Il serait bien que tu mettes des screenshots de ton logiciel, au moins pour qu'on ait une idée.

[hakim92]

Salutation,

Le plus important c'est que tu postes le CODE SOURCE.

[lalim92]

Pour moi, un navigateur web c'est déjà un moteur à part entière ! donc utilisé le moteur de IE, ça revient au même que d'utiliser IE ;)

[ANISYSTEM]

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form Form1
BackColor = &H80000013&
BorderStyle = 1 'Fixed Single
Caption = "ANISYSTEM_NetBrowser 1.0"
ClientHeight = 10680
ClientLeft = 45
ClientTop = 735
ClientWidth = 15240
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 10680
ScaleWidth = 15240
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin VB.Timer Timer7
Left = 13440
Top = 0
End
Begin VB.Timer Timer6
Left = 11520
Top = 720
End
Begin VB.Timer Timer5
Left = 6000
Top = 120
End
Begin VB.Timer Timer4
Left = 3960
Top = 480
End
Begin VB.Timer Timer3
Left = 2880
Top = 480
End
Begin VB.Timer Timer2
Left = 1560
Top = 480
End
Begin VB.Timer Timer1
Left = 360
Top = 480
End
Begin SHDocVwCtl.WebBrowser WebBrowser1
Height = 9375
Left = -120
TabIndex = 8
Top = 1200
Width = 15480
ExtentX = 27305
ExtentY = 16536
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin ComctlLib.ProgressBar ProgressBar1
Height = 255
Left = 13920
TabIndex = 7
ToolTipText = "Affiche la progression du site"
Top = 0
Width = 1575
_ExtentX = 2778
_ExtentY = 450
_Version = 327682
Appearance = 1
End
Begin VB.CommandButton Command6
Caption = "GO Search"
Height = 375
Left = 10200
TabIndex = 6
ToolTipText = "Visiter le site"
Top = 720
Width = 1215
End
Begin VB.TextBox Text1
Height = 375
Left = 4800
TabIndex = 5
Text = "www.google.fr"
Top = 720
Width = 5295
End
Begin VB.CommandButton Command5
Caption = "Arreter"
Height = 495
Left = 4800
TabIndex = 4
ToolTipText = "Arreter le chargement de la page"
Top = 0
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "Page d'accueil"
Height = 495
Left = 3600
TabIndex = 3
ToolTipText = "www.google.fr"
Top = 0
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "Actualiser"
Height = 495
Left = 2400
TabIndex = 2
ToolTipText = "Actualiser la page"
Top = 0
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "Suivante"
Height = 495
Left = 1200
TabIndex = 1
ToolTipText = "Avancer d'une page"
Top = 0
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "Précédente"
Height = 495
Left = 0
TabIndex = 0
ToolTipText = "Revenir à la page précédente"
Top = 0
Width = 1215
End
Begin VB.Image Image1
Height = 1050
Left = 14760
Picture = "Form1.frx":030A
ToolTipText = "ANISYSTEM SOFTWARE"
Top = 240
Width = 630
End
Begin VB.Menu Fouvrir
Caption = "&Ouvrir"
Begin VB.Menu SFQuitter
Caption = "&Quitter"
Shortcut = ^Q
End
End
Begin VB.Menu SFHelp
Caption = "&à propos "
Begin VB.Menu SFAbout
Caption = "&About NetBrowser 1.0"
Shortcut = ^H
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
WebBrowser1.GoBack
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer1.Interval = 30
End Sub

Private Sub Command2_Click()
WebBrowser1.GoForward
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer2.Interval = 30
End Sub

Private Sub Command3_Click()
WebBrowser1.Refresh
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer3.Interval = 60
End Sub

Private Sub Command4_Click()
WebBrowser1.Navigate ("www.google.fr")
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer4.Interval = 10
End Sub

Private Sub Command5_Click()
WebBrowser1.Stop
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer5.Interval = 10
End Sub

Private Sub Command6_Click()
WebBrowser1.Navigate Text1.Text
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer6.Interval = 80
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("www.google.fr")
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer7.Interval = 50
End Sub

Private Sub SFAbout_Click()
frmAbout.Show
End Sub

Private Sub SFQuitter_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value >= ProgressBar1.Max Then Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value >= ProgressBar1.Max Then Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value >= ProgressBar1.Max Then Timer3.Enabled = False
End Sub

Private Sub Timer4_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value >= ProgressBar1.Max Then Timer4.Enabled = False
End Sub

Private Sub Timer5_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value >= ProgressBar1.Max Then Timer5.Enabled = False
End Sub

Private Sub Timer6_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value >= ProgressBar1.Max Then Timer6.Enabled = False
End Sub

Private Sub Timer7_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value >= ProgressBar1.Max Then Timer7.Enabled = False
End Sub



VOICI LE CODE SOURCE

[ANISYSTEM]

Pour moi, un navigateur web c'est déjà un moteur à part entière ! donc utilisé le moteur de IE, ça revient au même que d'utiliser IE ;)

non tu n'a pas compris le principe

quand tu crée une page web dans un projet en vb6, elle sera automatiquement d'un navigateur microsoft ( puisque vb c microsoft :p) donc le style de la page ressemblera à IE6 mais le fonctionnement sera typique à ANISYSTEM_NetBrowser:cool:

[lalim92]

non tu n'a pas compris le principe

quand tu crée une page web dans un projet en vb6, elle sera automatiquement d'un navigateur microsoft ( puisque vb c microsoft :p) donc le style de la page ressemblera à IE6 mais le fonctionnement sera typique à ANISYSTEM_NetBrowser:cool:

Moi, ce que j'ai compris, c'est que tu n'as changé que l'interface du logiciel. Mais tu utilises le moteur (API, normalement je peux l'appeller comme sa :p) de internet explorer ;)

Enfin, peut-être que je me trompe ;)

[ANISYSTEM]

Moi, ce que j'ai compris, c'est que tu n'as changé que l'interface du logiciel. Mais tu utilises le moteur (API, normalement je peux l'appeller comme sa :p) de internet explorer ;)

Enfin, peut-être que je me trompe ;)

j'ai donné le code source normalement c'est clair, regarde bien je n'ai pas eu à utilisé de l'API, j'ai crée une page webbrowser seulement(une page vierge about:blank) et c'est à moi de la manier à ma façon.

[hakim92]

WebBrowser1.Navigate .. :p

[ANISYSTEM]

WebBrowser1.Navigate .. :p

voila mon frere tu as tout deviné.;)

[onizo]

Beau travail.

Le moteur de rendu c'est IE.

C'est bien d'utiliser quelque chose qui existe et de lui rajouter des fonctions.

Question : quels sont les fonctions que vous comptez rajouter ?

[ANISYSTEM]

Beau travail.

Le moteur de rendu c'est IE.

C'est bien d'utiliser quelque chose qui existe et de lui rajouter des fonctions.

Question : quels sont les fonctions que vous comptez rajouter ?

Salut et merci pour ton encouragement

Pour ta question : j'ai mis des boutons de navigation totalement ordianaire et une barre de progression aussi et pour la prochaine version inchallah j'essayerai de faire une barre de menu plus sophestiquer.

a++.

[lalim92]

Le moteur de rendu c'est IE.

C'est ce que je disais, dans mes 2-3 posts derniers ;)