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

    • michelDZ
      Aides et Solutions aux problèmes généraux de IPTV

      Par michelDZ · Posté(e)

      slt pour Windows,  tu as  - iptv smarters player - easytv - Best player - vlc y en a d autre .... si ta besoin d aide pour obtenir ce qu'il faut pour que ça fonctionne tu peux me mp , je t aiderai pas soucis  ++++
    • gardien
      Aides et Solutions aux problèmes généraux de IPTV

      Par gardien · Posté(e)

      Salut, je recherche un tuto pour ma première iptv, j'en trouve sur android, mais rien sur windows. Ou au mieux des trucs qui vous renvoient sur un lien d'un logiciel foireux à DL.  J'ai cru comprendre qu'il fallait un lecteur type smarter pro (qui ne fonctionne pas sous windows), on rentre le code que le vendeur nous fourni et roule jeunesse ?   Si quelqu'un à un lien pour un tuto 🤗 ca fais des jours que je ponce le web à essayer de comprendre comment avoir l'iptv, mais là je sature.     
    • mouzak
      Augmentation de débit et baisse des prix, rumeurs ou réalité (juste pour discuter)

      Par mouzak · Posté(e)

      لكل مشتركي IDOOM FIBRE بتدفق 20mbps أبروفيتي بزيادة سرعة الإنترنت حتى 200mbps 🚀 إلى غاية 09 ماي 🥳 كونيكتي و أبروفيتي بالـHaut Débit 🤩 📌معلومات أكثر على موقعنا :  https://www.algerietelecom.dz/ar/espace-presse/algerie-telecom-augmente-le-debit-internet-de-ses-clients-pour-une-duree-dun-01-mois-art4520 #اتصالات_الجزائر #دائما_أقرب
    • petro01
      Top 15 des Meilleurs IPTV Applications pour LG Smart TV (Classement 2023)

      Par petro01 · Posté(e)

      Bonjour,  J'ai pas mal galérer sur ma LG OLED à trouver une application qui fonctionne bien !!! Au début je passais par un amazon stick avec l'application officiel King, sauf que sur les films en 4k uniquement, j'avais un décalage son d'une demi seconde et un film sur 4 était en écran noir...  J'ai tester franchement une bonne quinzaine d'application du store LG, avec pas mal d'entre elle ou je n'avais pas les sous titres !!! Par exemple le dernier Indiana Johns avec les passages en allemand non sous titré et aucun menu pour les afficher, et je suis tomber sur Hot iptv !!! Et franchement, pour moi elle est vraiment top, bonne présentation, assez rapide, tous les sous titres et pas mal d'options présente, et pour une License à genre 12€ à vie ! Le seul petit moins c'est que la licence est valable par adresse mac, donc sur une autre TV ou sur votre téléphone ou quoi il faut re payer une licence... Et le second soucis qui peut en déranger beaucoup, c'est pas de replay...   
    • laliche
      Top 15 des Meilleurs IPTV Applications pour LG Smart TV (Classement 2023)

      Par laliche · Posté(e)

      Vous pouvez aussi essayer l'application gratuite pendant 3 mois Smarttv.club qui fonctionne sur tous les systèmes (Android,LG et Tizen)
×
×
  • Créer...