Aller au contenu
Règlement du forum ×
IPTV et arnaques ×

Un navigateur Internet fait en visual basic 6.0


ANISYSTEM

Messages recommandés

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

 

je compte sur vos commentaires pour faire ameliorer le browser.

 

a++.

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

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:

Lien vers le commentaire
Partager sur d’autres sites

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 ;)

Lien vers le commentaire
Partager sur d’autres sites

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.

Lien vers le commentaire
Partager sur d’autres sites

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++.

Lien vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

×
×
  • Créer...