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

Un navigateur Internet fait en visual basic 6.0

ANISYSTEM

Par ANISYSTEM
dans Visual Basic

 Share

Messages recommandés

ANISYSTEM Newbie

ANISYSTEM

Posté(e)
Posté(e)

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
ANISYSTEM Newbie

ANISYSTEM

Posté(e)
  • Auteur
Posté(e)

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
ANISYSTEM Newbie

ANISYSTEM

Posté(e)
  • Auteur
Posté(e)
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
lalim92 Newbie

lalim92

Posté(e)
Posté(e)
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
ANISYSTEM Newbie

ANISYSTEM

Posté(e)
  • Auteur
Posté(e)
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
ANISYSTEM Newbie

ANISYSTEM

Posté(e)
  • Auteur
Posté(e)
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.

×
 Share
Aller sur la liste des sujets

  • Messages

    • laliche
      Android TV- TIZEN- WEBOS (Tutoriaux,Astuces,Firmware,Aides)

      Par laliche · Posté(e)

      Netflix « Cet appareil n'est pas pris en charge par l'application » Pour les appareils sous Android  je vous apporte la solution au problème Netflix en affichant le message d'erreur « Cet appareil n'est pas pris en charge par l'application », un problème lors de l'exécution de la version officielle de l'application Netflix téléchargée depuis son site. Il semble que Netflix veuille rendre la vie plus difficile à ses utilisateurs sur les appareils non certifiés et la plupart des TV-Box chinoises, une pratique qu'il pratique depuis sa création et cela ne nous surprend pas, mais il a une solution simple . L’erreur Netflix affichant « Cet appareil n'est pas pris en charge par l'application », est un problème lors de l'exécution de la version officielle de l'application Netflix téléchargée depuis son site. Il semble que Netflix veuille rendre la vie plus difficile à ses utilisateurs sur les appareils non certifiés et la plupart des TV-Box chinoises, une pratique qu'il pratique depuis sa création et cela ne nous surprend pas, mais il a une solution simple . Explication du problème :  Netflix n'offre la compatibilité officielle de son application et l'option de qualité HD que sur les appareils qui passent son approbation, cela implique que seules les grandes marques internationales ont accès à ces options. Netflix rend les choses un peu plus difficiles pour les utilisateurs d'appareils non certifiés en proposant sur son site officiel une application qui génère de nouveaux problèmes de compatibilité. Pour installer Netflix et éviter l'erreur «  Cet appareil n'est pas pris en charge par l'application  », suivez le point suivant du manuel. Solutions : Ceci est un contenu masqué, merci de Se connecter ou S’inscrire    
    • laliche
      Etat des lieux de la Fibre en Algérie depuis 2020

      Par laliche · Posté(e)

      C'est ce que fait aussi Sonelgaz les branchements doivent passer par l'entrée principale de l'abonné pour une question juridique dans notre bureaucratie les factures font foi de justification de domicile. Mais si AT le fait  c'est incompréhensible.
    • genio
      Etat des lieux de la Fibre en Algérie depuis 2020

      Par genio · Posté(e)

      @Gt3Dz bien...même si l'activation est probablement pour 2025....
    • Gt3Dz
      Etat des lieux de la Fibre en Algérie depuis 2020

      Par Gt3Dz · Posté(e)

      Début des travaux rue Abou Nouas à Hydra.  
    • genio
      Etat des lieux de la Fibre en Algérie depuis 2020

      Par genio · Posté(e)

      Svp...expliquez moi un truc que j'essaye de comprendre...DEPUIS 5 ANS !!!! pourquoi AT place la fible par la porte principale de immeuble et des abonnés ?!! Pourquoi ils n'utilisent pas le même endroit que les lignes téléphoniques (qui seront supprimées)??   Pourquoi casser l'immeuble ? Pourquoi défigurer tout et rafistoler avec du plâtre  ?!  Wallah ça me dépasse !!!!!!!
×
×
  • Créer...