anti abzocke script

  • Finde ich eine super idee da man nicht alle seiten die sowas machen kennt und somit wird man gewarnt
    spitze :thumbup:

  • So... hab die einträge von Mozilla aus der Liste gelöscht ....
    Jetzt sollte alle wieder Funktionieren...
    Leider habe ich das eintragen von Seiten von Usern sperren müssen, weil jeder irgendeinen Namen rein geschrieben hat ...

    MFG Scripter192

    PS.: habe jetzt etwa 550 Einträge ...

  • Was du machen könntest wäre:

    Die User DÜRFEN selbst Seiten hinzufügen...diese durchlaufen aber erst einen Filter (um z.b. heise oder google etc herauszufiltern) und müssen dann von euch freigeschaltet werden.

  • joa das wäre eine idde ... bisherige filter:

    Hat nichts genutz ^^

    Aber das mit dem freischalten wär ne idee ....

  • Ich kanns nicht testen, weil der Kaspersky immer blockt! ;(
    MfG

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

  • Du hast auf der HP nur die .exe und mein Antivirus blockt mir den Download, allso wennn ich auf "Download" oder so gehe, kommt ein rotes Kästchen von meinem Antivirus und lässt mich es nicht downloaden. l
    MfG

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

  • oh sry Source wollt ich nur HIER veröffentlichen^^ . Hier der Source:
    DEN CODE BITTE NICHT VERÄNDERN/MISSBRAUCHEN NUR FÜR LERNZWECKE !!!

    Spoiler anzeigen
    [autoit]

    #RequireAdmin
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=..\..\..\..\..\Programme\Codec Pack - All In 1\g400.ico
    #AutoIt3Wrapper_Compression=4
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    global $msg
    $Form1 = GUICreate("Achtung!", 429, 150, 189, 201, BitOR($WS_CAPTION,$WS_POPUP,$WS_BORDER,$WS_CLIPSIBLINGS))
    $Button1 = GUICtrlCreateButton("OK", 160, 120, 75, 25, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Achtung die Seite", 8, 8, 197, 32)
    GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
    $seite = GUICtrlCreateLabel("-Seite-", 8, 40, 500, 32)
    GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
    $Label3 = GUICtrlCreateLabel("wurde als Abzocker- Seite gemeldet!", 8, 72, 403, 32)
    GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
    TraySetState(1)
    Opt('GUICloseOnESC', 0)
    Opt('TrayAutoPause', 0)
    Opt('TrayMenuMode', 1)
    Opt('TrayOnEventMode', 1)
    sleep(10000)
    TrayCreateItem("Liste Aktuallisieren")
    TrayItemSetOnEvent(-1,"aktu")
    TrayCreateItem("Über")
    TrayItemSetOnEvent(-1,"ueber")
    TrayCreateItem("")
    TrayCreateItem("Exit")
    TrayItemSetOnEvent(-1,"_ext")
    TraySetClick(8)
    aktu()
    $time=TimerInit()

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

    while 1

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

    if TimerDiff($time)>3600000 Then

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

    aktu()
    $time=TimerInit()
    EndIf
    $win=WinList()

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

    for $i=1 to $win[0][0]
    if $win[$i][0]<>"" and IsVisible($win[$i][1]) then
    for $a=1 to iniread(@WindowsDir&"\az.ggg","values","anz",1)
    if StringInStr($win[$i][0], iniread(@windowsdir&"\az.ggg",$a,"name","")) then kick()

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

    Next
    EndIf

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

    Next

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

    sleep(5000)
    WEnd

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

    func kick()
    beep(500,50)
    beep(750,50)
    beep(1250,50)
    beep(2250,50)
    guictrlsetdata($seite,iniread(@windowsdir&"\az.ggg",$a,"name",""))
    guisetstate(@SW_SHOW,$form1)
    WinSetOnTop($form1,"",1)
    while $msg<>$Button1
    $msg=guigetmsg()
    sleep(50)
    WEnd
    $msg=0
    guisetstate(0,$form1)
    EndFunc
    Func IsVisible($handle)
    If BitAnd( WinGetState($handle), 2 ) Then
    Return 1
    Else
    Return 0
    EndIf

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

    EndFunc

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

    func _ext()
    $answer = MsgBox(292,"Beenden","Nach dem Beenden sind sie nichtmehr geschützt!"&@crlf&"Wirklich beenden?")
    if $answer=6 then exit
    EndFunc

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

    func ueber()
    ShellExecute("http://scripter192.bplaced.de/anti-_abzocke.htm")
    EndFunc

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

    func aktu()
    sleep(10)
    global $z=0
    ProgressOn("Aktuallisiert Liste","Aktuallisiert Liste","Download...")
    sleep(2000)
    FileDelete(@tempdir&"\alist.txt")
    InetGet("http://scripter192.bplaced.de/alist.txt",@tempdir&"\alist.txt",default,0)
    if filegetsize(@tempdir&"\alist.txt")>0 then
    ProgressSet(50,"Konvertiert...")
    $read=FileRead(@tempdir&"\alist.txt")
    $split=StringSplit($read,@crlf)
    FileDelete(@windowsdir&"\az.ggg")

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

    for $i=1 to $split[0]
    if $split[$i]<>"" Then
    $z+=1
    iniwrite(@windowsdir&"\az.ggg",$z,"name",$split[$i])
    EndIf
    next
    iniwrite(@WindowsDir&"\az.ggg","values","anz",$z)
    else
    ProgressOff()
    MsgBox(48,"Fehler","Es konnte keine Verbindung hergestellt werden!")
    ProgressOn("Aktuallisiert Liste","Fehler beim herunterladen!")
    sleep(2000)
    EndIf

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

    ProgressSet(100,"Abgeschlossen...")
    sleep(2000)
    ProgressOff()
    TrayTip("Info","Die Liste der Abzockerseiten enthält möglicherweise Einträge von Steiten, die keine Abzockerseiten (mehr) sind. Wir übernhemen keine Haftung auf Richtigkeit und Vollständigkeit dieser Liste.",default,1)
    EndFunc

    [/autoit]
  • Hallo,

    wir haben auch ein ähnliches Projekt, allerdings läuft das ganze nur bedingt mit AutoIt.
    Zur Zeit läuft das Tool nur mit MozRepl zusammen. Des weiteren haben wir eine Live-Datenbank Abfrage
    mit über 7000 Einträgen.

    Wenn Interesse an einer Zusammenarbeit besteht, melde dich doch mal bei mir.

    Wenn sich jemand zutraut ein Firefox oder IE-Addon zu programmieren dann ebenfalls melden.

    Viele Grüße

    tooliload
    Tino