PopUp Blocker
lima-city → Forum → Programmiersprachen → Basic
befehlen
beitrag
ereignis
explorer
fenster
flash
funktion
grund
laden
link gehen
mausklick
option
programmiert hast
umgesetzt hast
-
Also ich habe einen I-Net Browser geschrieben nun hab ich ein Prob.
Ist es irgentwie m?glich einen PopUpBlocker zu coden?
Wenn ja kann mir jemand den code geben? *liebschau* -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Ahh ein zweiter Bill Gates.
Aaaaalso Du hast einen Browser geschrieben.
Wenn Du die Befehle f?r "?ffnen in einem neuen Fenster" umgesetzt hast, dann bearbeite diese so, dass sie nur nach einem Mausklick auf einen Link gehen.
Und JacaSkript, ActiveSkripting, Flash etc. ist grunds?tzlich zu verbieten. -
Also ich habe einen I-Net Browser geschrieben nun hab ich ein Prob.
Ist es irgentwie m?glich einen PopUpBlocker zu coden?
Wenn ja kann mir jemand den code geben? *liebschau*
Hast du deinen Internet Browser komplett selbst geschrieben, oder nur die DLL des Microsoft Internet Explorers (shdocvw.dll) eingebaut?
Wenn du ihn selbst programmiert hast, k?nnen wir dir schlecht den Code f?r einen PopUp-Blocker schreiben, da wir nicht wissen, wie du den Browser aufgebaut hast mit Ereignisbehandlungen etc...
Mit welcher VB Version hast du den Browser geschrieben? -
ICh hab die DLL des Microsoft Internet Explorers eingebaut naja jeder f?ngt mal klein an ;)
VB5
Beitrag ge?ndert: 12.10.2006 17:58:27 von mailx -
hehe^^ Ich weis nicht einmal wie das geht^^
Beitrag ge?ndert: 13.10.2006 14:45:41 von dpunk -
ICh hab die DLL des Microsoft Internet Explorers eingebaut naja jeder f?ngt mal klein an ;)
VB5
Beitrag ge?ndert: 12.10.2006 17:58:27 von mailx
Hier der Code f?r VB6 (sollte auch f?r VB5 stimmmen):
Option Explicit
Private Sub Form_Load()
'Seite laden
Me.WebBrowser1.Navigate ("http://www.lima-city.de/")
End Sub
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
'Vor dem ?ffnen einer neuen Seite kann mit diesem Ereignis eine Abfrage gestartet werden
If MsgBox("Soll folgende Seite wird ge?ffnet werden? " & URL, vbYesNo) = vbNo Then Cancel = True
End Sub
-
ICh hab die DLL des Microsoft Internet Explorers eingebaut naja jeder f?ngt mal klein an ;)
VB5
Beitrag ge?ndert: 12.10.2006 17:58:27 von mailx
Hier der Code f?r VB6 (sollte auch f?r VB5 stimmmen):
Option Explicit
Private Sub Form_Load()
'Seite laden
Me.WebBrowser1.Navigate ("http://www.lima-city.de/")
End Sub
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
'Vor dem ?ffnen einer neuen Seite kann mit diesem Ereignis eine Abfrage gestartet werden
If MsgBox("Soll folgende Seite wird ge?ffnet werden? " & URL, vbYesNo) = vbNo Then Cancel = True
End Sub
Du biste meine Rettung DANKE -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
