IL SEMBLE QUE VOUS UTILISEZ ADBLOC POUR BLOQUER LA PUBLICITÉ, AUCUNE PUB INTRUSIVE SUR FDZ ET PAS DE POPUP
FDZ EST GRATUIT DONC MERCI DE DÉSACTIVER VOTRE ADBLOCK ET DE BIEN VOULOIR PARTICIPER ET JOUER LE JEU


PAR SUITE D'ABUS LES SERVEURS CCCAM ET ABONNEMENT NE SONT PAS TOLÉRÉS SUR LE FORUM


Page 1 sur 2 12 DernièreDernière
Affichage des résultats 1 à 10 sur 13
Share |

Discussion: Un navigateur Internet fait en visual basic 6.0

  1. #1
    Date d'inscription
    février 2008
    Messages
    71
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    10

    Smile Un navigateur Internet fait en visual basic 6.0

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

  2. #2
    Date d'inscription
    janvier 2008
    Localisation
    Paris
    Messages
    361
    Remerciements
    7
    Remercié 16 fois dans 10 messages
    Pouvoir de réputation
    10

    Par défaut

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

  3. #3
    hakim92 Visiteurs

    Par défaut

    Salutation,

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

  4. #4
    Date d'inscription
    janvier 2008
    Messages
    1 195
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    11

    Par défaut

    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 Cliquer ici pour agrandir

  5. #5
    Date d'inscription
    février 2008
    Messages
    71
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    10

    Par défaut

    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

  6. #6
    Date d'inscription
    février 2008
    Messages
    71
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    10

    Par défaut

    Cliquer ici pour agrandir Envoyé par lalim92 Cliquer ici pour agrandir
    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 Cliquer ici pour agrandir
    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 Cliquer ici pour agrandir) donc le style de la page ressemblera à IE6 mais le fonctionnement sera typique à ANISYSTEM_NetBrowserCliquer ici pour agrandir

  7. #7
    Date d'inscription
    janvier 2008
    Messages
    1 195
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    11

    Par défaut

    Cliquer ici pour agrandir Envoyé par ANISYSTEM Cliquer ici pour agrandir
    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 Cliquer ici pour agrandir) donc le style de la page ressemblera à IE6 mais le fonctionnement sera typique à ANISYSTEM_NetBrowserCliquer ici pour agrandir
    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 Cliquer ici pour agrandir) de internet explorer Cliquer ici pour agrandir

    Enfin, peut-être que je me trompe Cliquer ici pour agrandir

  8. #8
    Date d'inscription
    février 2008
    Messages
    71
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    10

    Par défaut

    Cliquer ici pour agrandir Envoyé par lalim92 Cliquer ici pour agrandir
    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 Cliquer ici pour agrandir) de internet explorer Cliquer ici pour agrandir

    Enfin, peut-être que je me trompe Cliquer ici pour agrandir
    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.

  9. #9
    hakim92 Visiteurs

    Par défaut

    WebBrowser1.Navigate .. Cliquer ici pour agrandir

  10. #10
    Date d'inscription
    février 2008
    Messages
    71
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    10

    Par défaut

    Cliquer ici pour agrandir Envoyé par hakim92 Cliquer ici pour agrandir
    WebBrowser1.Navigate .. Cliquer ici pour agrandir
    voila mon frere tu as tout deviné.Cliquer ici pour agrandir

Page 1 sur 2 12 DernièreDernière

Discussions similaires

  1. Réponses: 1
    Dernier message: 10/05/2012, 17h47
  2. Un navigateur Internet nouvelle génération
    Par NewsBot dans le forum Opérateurs : Mobilis / Djezzy / Nedjma
    Réponses: 0
    Dernier message: 23/10/2010, 18h00
  3. Et Visual Basic 6.0 devient un jeu d'enfants
    Par ANISYSTEM dans le forum Visual Basic
    Réponses: 17
    Dernier message: 27/11/2008, 13h18
  4. Un navigateur Internet et bien plus encore...
    Par ANISYSTEM dans le forum Windows
    Réponses: 10
    Dernier message: 16/09/2008, 11h11

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •  
[Auto utilitaire DZ] [Webimag] [Algérie Info] [Guide Algérie] [Mosquée ALBADR MEAUX] [Photographe MARIAGE]

is PageRank Checking Icon