Browser Guard

1. offizieller Beitrag

    Hallo Leute,

    ich will für einen Bekannten ein Programm schreiben, das so funktionieren sollte:

    Wenn ich eine Seite z.b. https://autoit.de/www.google.de besuche, soll das programm die Adresse kontrollieren.
    Es soll die im Browser angegebene URL in einer .ini oder .txt Datei suchen und auf vorhandenheit prüfen.
    Wenn diese URL nun in de rDatei steht, soll ein Warnungsfenster geöffnet werden.
    Bei klick auf OK wird die Seite nicht besucht. bei klick auf Fortfahren wird diese Seite dann besucht.


    Ist soetwas möglich?

    Ich kenne Autoit schon länger, konnte damit aber aus Zeitlichen gründen nicht mit Arbeiten.
    Neija... bis heute :P


    Gruß Knappe

    Es ist möglich, aber sicher nicht so einfach zu programmieren. Es gibt da schon fertige Programme, die bestimmte Seiten blocken. Hab jetzt leider keinen Link parat.

    Mit Autoit würde ich mit der AnyGui-UDF selbst eine Adressleiste erstellen, damit du bevor der IE zu navigieren beginnt deine Warnung dazwischenschalten kannst. Aber es gibt bestimmt auch noch einfachere Möglichkeiten.

    Ich würde es halt gerne selber programmieren also bzw. programmieren lassen mit eurer Unterstützung.


    Danke dir!

    Zum Beispiel so?

    [autoit]


    #include <GUIConstants.au3>
    #include <IE.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Snake", 678, 543, 169, 97)
    GUISetBkColor(0x808080)
    $seite = GUICtrlCreateInput("", 0, 0, 633, 21)
    $ie = _IECreateEmbedded()
    $Button1 = GUICtrlCreateButton("Go!", 636, 0, 37, 21, 0)
    $Group1 = GUICtrlCreateObj($ie, 0, 25, 677, 520)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    If GUICtrlRead($seite) = "www.ebay.de" Then
    MsgBox (48,"Sperrung","Diese Seite ist gesperrt!")
    Else
    _IENavigate($ie,GUICtrlRead($seite),0)
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    Edit:Brauchst du noch etws?

    Danke Dir!

    Das sieht schon recht gut aus.

    Aber ich will ja keinen eigenen Browser, sondern wenn man z.b. ie oder safari benutzt, dass wenn man blabla.de eingibt, wine warnung kommt.

    So gesehen ist das schon sehr gut.


    Danke!

    Bitte.
    Aber das weiß ich nicht da bin ich überfragt.
    Schreib dir doch einfach eine kleine GUI und dann mit der Funktion ;).

    Knappe , sonst könnte ich dir auch einen kleinen Browser schreiben wenn du willst.
    Und ein Programm mit dem du ganz leicht Internet Seiten sperren kannst.

    Spoiler anzeigen

    #include <GUIConstants.au3>
    #include <IE.au3>
    #include <file.au3>

    Dim $version = "0.0.5"

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Browser",@DesktopWidth,@DesktopHeight, 0,0)
    GUISetIcon("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\favicon.ico")
    GUISetStyle(0xffffff)
    GUISetBkColor(0xFFFFFF)
    $Combo1 = GUICtrlCreateCombo("", 112, 0, 800, 0)
    $Combo2 = GUICtrlCreateCombo("", 980, 0, 100, 0)
    $ie = _IECreateEmbedded()
    $Button= GUICtrlCreateButton("Go",912, 0, 37, 21, 0)
    $Button1= GUICtrlCreateButton("<" ,0, 0, 37, 21, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Button2= GUICtrlCreateButton(">", 38, 0, 37, 21, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Input1 = GUICtrlCreateInput("icon",75, 0, 37, 0)
    $Group1 = GUICtrlCreateObj($ie, 0, 25, @DesktopWidth, @DesktopHeight)
    $MenuItem5 = GUICtrlCreateMenu("&Datei")
    $MenuItem10 = GUICtrlCreateMenuItem("Neues Fenster", $MenuItem5)
    $MenuItem11 = GUICtrlCreateMenuItem("Neuer Tab", $MenuItem5)
    $MenuItem12 = GUICtrlCreateMenuItem("Adresse öffnen", $MenuItem5)
    $MenuItem13 = GUICtrlCreateMenuItem("Datei öffnen", $MenuItem5)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $MenuItem14 = GUICtrlCreateMenuItem("Schließen", $MenuItem5)
    $MenuItem15 = GUICtrlCreateMenuItem("", $MenuItem5)
    $MenuItem16 = GUICtrlCreateMenuItem("Seite speichern"& @TAB & "Strg+S",$MenuItem5)
    $MenuItem17 = GUICtrlCreateMenuItem("Link senden", $MenuItem5)
    $MenuItem18 = GUICtrlCreateMenuItem("", $MenuItem5)
    $MenuItem19 = GUICtrlCreateMenuItem("Seite einrichten", $MenuItem5)
    $MenuItem20 = GUICtrlCreateMenuItem("Druckvorschau", $MenuItem5)
    $MenuItem21 = GUICtrlCreateMenuItem("Drucken", $MenuItem5)
    $MenuItem22 = GUICtrlCreateMenuItem("", $MenuItem5)
    $MenuItem23 = GUICtrlCreateMenuItem("Importieren", $MenuItem5)
    $MenuItem24 = GUICtrlCreateMenuItem("", $MenuItem5)
    $MenuItem9 = GUICtrlCreateMenuItem("Offline arbeiten", $MenuItem5)
    $MenuItem8 = GUICtrlCreateMenuItem("Beenden", $MenuItem5)
    $MenuItem4 = GUICtrlCreateMenu("Bearbeiten")
    $MenuItem3 = GUICtrlCreateMenu("Ansicht")
    $MenuItem2 = GUICtrlCreateMenu("Chronik")
    $MenuItem1 = GUICtrlCreateMenu("Lesezeichen")
    $MenuItem7 = GUICtrlCreateMenu("Extras")
    $MenuItem25 = GUICtrlCreateMenuItem("Internet Radio", $MenuItem7)
    $MenuItem26 = GUICtrlCreateMenuItem("Internet Fernsehn", $MenuItem7)
    $MenuItem27 = GUICtrlCreateMenuItem("Sperrung Seiten", $MenuItem7)
    $MenuItem6 = GUICtrlCreateMenu("Hilfe")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###


    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button
    If GUICtrlRead($Combo1) = "www.ebay.de" Then
    MsgBox (48,"Sperrung","Diese Seite ist gesperrt!")
    Else
    _IENavigate($ie,GUICtrlRead($Combo1),0)
    EndIf
    Case $Button
    GUICtrlSetData($Combo1, GUICtrlRead($Combo1))

    Case $MenuItem8
    MsgBox(0, "Beenden-Button", "Programm wird beendet...")
    ExitLoop
    Case $MenuItem13
    open()

    Case $MenuItem16
    save()
    EndSwitch
    WEnd

    Func open()
    ;Datei aussuchen, mehrfachauswahl
    $datei = FileOpenDialog ( "Datei aussuchen","","Alle Dateien ()| HTML-Dateien (*.html,*.php,)|Text-Dateien (*.txt,)|Grafik-Dateien (*.gif,*.bmp,)|XML-Dateien (*.)")
    FileWrite($datei,$Group1&@ScriptDir);Falls nur eine Zeile, einfach onhe FileOpen und FileClose...
    FileClose($datei)
    EndFunc

    Func save()
    $datei = FileSaveDialog ( "Datei aussuchen","","Alle Dateien ()| HTML-Dateien (*.html,*.php,)|Text-Dateien (*.txt,)|Grafik-Dateien (*.gif,*.bmp,)|XML-Dateien (*.)")
    EndFunc

    ansonsten macht den ja kaum einer weiter ihr^^