PDA

Visualizza la versione completa : Bloccare l'accesso a siti web con vb


Calem82
26-06-2002, 18:01
Devo fare un programma che mi consenta di intercettare tutti gli indirizzi dei siti web che vengono visitati in modo da bloccare in tempo reale l'accesso a quelli non consentiti, c'è qualcuno che mi sa spiegare come fare???

Ciao, Andrea

Boldan
26-06-2002, 18:16
Se utilizzi come browser IE puoi fare così:
Intercetti l'evento BeforeNavigate2 di un oggetto Internet explorer che instanzi nella tua applicazione (devi fare riferimento (menu references) alla libreria Microsoft Internet Control (showDocv.dll)).

Ecco il codice d'esempio:



Dim WithEvents IE As InternetExplorer

Private Sub Command1_Click()
IE.Visible = True
End Sub

Private Sub Form_Load()
Set IE = New InternetExplorer
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set IE = Nothing
End Sub

Private Sub IE_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If URL = "http://www.html.it" Then
MsgBox "NON si può visualizzare questo sito!!"
Cancel = True
End If
End Sub


NB: il messaggio "NON si può visualizzare questo sito!!" apparirà sotto al browser.

Spero di essere stato d'aiuto, fammi sapere...
Ciao!!:ciauz:

Drocchia
26-06-2002, 19:28
dopo di questa sai cosa ti dico....con vb si fa di tutto!

Ciao

Calem82
26-06-2002, 19:44
Ok...funziona, grazie!

Ciao, Andrea

Loading