Salut.
Je suis actuellement en train de développer un navigateur Internet, et j'ai intégré un système de blocage de pages interdites.
Un bouton "Bloquer cette page" se situe dans la fenêtre principale du navigateur, permettant de bloquer la page définitivement.
Voici son code :
-----------------------------------------------------------------------------------
Private Sub cmdBlok_Click()
AdrP = WebBrowser.LocationURL
AdrB = " " & AdrP
Open "Data2.dat" For Append As #2
Print #2, AdrB
Close #2
Unload frmNav
End Sub
-----------------------------------------------------------------------------------
De plus, à l'évènement DownloadComplete de mon WebBrowser, j'ai mis le code suivant :
-----------------------------------------------------------------------------------
Private Sub WebBrowser_DownloadComplete()
If Arret = 1 Then
lblChText.Caption = "Chargement arrêté."
Arret = 0
Else:
Dim BlokTrue As Integer
Open "Data2.dat" For Input As #2
Do While Not EOF(2)
BlokTrue = InStr(1, 2, WebBrowser.LocationURL, 1)
Loop
Close #2
If BlokTrue = 0 Then
lblChText.Caption = "Chargement terminé."
lblPage.Caption = WebBrowser.LocationName
txtAdr.Text = WebBrowser.LocationURL
cmdArreter.Enabled = "False"
Else
Unload frmNav
End If
End If
End Sub
-----------------------------------------------------------------------------------
Ceci est censé vérifier si l'adresse sur laquelle on est, n'est pas dans la liste rouge du navigateur. Si elle l'est, la fenetre est éteinte (cela est utile pour pas avoir toujours le même popup).
Le fichier contenant les adresses est "Data2.dat", se situant dans la racine du dossier ou se trouve le programme.
Or, quand je lance le programme, rien ne s'affiche, mais le programme est quand même lancé...
SVP, aidez-moi...