Hier der Fertige- Quellcode von dem Anti- Abzocker- Projekt... (http://scripter192.bplaced.de/anti-_abzocke.htm)
Viel Spaß und wenig Ärger mit Abzockerseiten
Bitte UM FEEDBACK !!!!
Hier der Fertige- Quellcode von dem Anti- Abzocker- Projekt... (http://scripter192.bplaced.de/anti-_abzocke.htm)
Viel Spaß und wenig Ärger mit Abzockerseiten
Bitte UM FEEDBACK !!!!
Hai Scripter192
Cooles Script , danke fürs Posten , hat mich schon vor ungefähr 5 Seiten Gewrnt.
Ich suche mall sowelche "Abzockseiten" raus und schicke dir die links.
thx
Die Links bitte direkt auf http://scripter192.bplaced.de/anti-_abzocke.htm eintragen ....
Danke
Finde ich eine super idee da man nicht alle seiten die sowas machen kennt und somit wird man gewarnt
spitze
Hi eig. ganz nettes Script, aber bei mir erscheit das Fenster aufeinmal auf jeder Seite ? :O
bei mir auch selbst beim öffnen eines neuen tabs aber die idee ist gut
Liegt wohl daran das in der File ganz unten Mozilla und Explorer vorhanden sind ;).
http://scripter192.bplaced.de/alist.txt
hmm bekomm ein eror wenn ich auf http://scripter192.bplaced.de/alist.txt geh
ZitatError 404 - Seite nicht gefunden!
Es tut uns leid aber diese Datei ist nicht vorhanden.
Außerdem nettes Projekt. Wird aber schwer werden die Seiten aktuell zu halten.
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:
<?php
//$ip=$_GET['name']."\n".$_GET['url'];
//if ($_GET['name']=="ebay"||$_GET['name']=="google"||$_GET['name']=="yahoo"||$_GET['name']=="schüler"||$_GET['name']=="schüler.cc"||$_GET['name']=="schülervz"||$_GET['name']=="scripter192"||$_GET['url']=="http://scripter192.bplaced.de/"||$_GET['url']=="http://scripter192.bplaced.de") {
//echo "Ey mach keine scheiße bitte! Viele User vertrauen deinen Angaben hier... Also lass das bitte !\n\n Info: deine IP ist: ".$_SERVER['REMOTE_ADDR'];
//}
//else {
//$fp = fopen($_SERVER['DOCUMENT_ROOT']."alist.txt", "r+");
//flock($fp, 1);
//fseek($fp,0);
//$inhalt = fread($fp, 4096000);
//$inhalt = $inhalt."\n".$ip."\n";
//fseek($fp,0);
//fputs($fp, $inhalt);
//flock($fp, 3);
//fclose($fp);
//echo "Deine Seiten\n".$ip."\n wurden erfolgreich hinzugefügt!\n\n Info: Deine IP ist ".$_SERVER['REMOTE_ADDR'];
echo " Diese Seite wurde gesperrt, das zu viele User Falschmeldungen gegeben haben. Wir werden die Liste trotzdem immer aktuell halten.";
//}
?>
Alles anzeigen
Hat nichts genutz
Aber das mit dem freischalten wär ne idee ....
Neue Version mit "Liste Aktuallisieren" Button erstellt ...
10 Neue Seiten hinzugefügt ...
Neue Version:
Neuerungen:
-Neues Design + Sound bei Fund.
-Weitere Seiten Hinzugefügt
Download lohn auf jeden Fall
Ich kanns nicht testen, weil der Kaspersky immer blockt!
MfG
wie blockt ?
Das AutoIt- Script?
Dann sollte er aber auch alle anderen AutoIt Scripte blocken ?!
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
oh sry Source wollt ich nur HIER veröffentlichen^^ . Hier der Source:
DEN CODE BITTE NICHT VERÄNDERN/MISSBRAUCHEN NUR FÜR LERNZWECKE !!!
#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 ****
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()
while 1
[/autoit] [autoit][/autoit] [autoit]if TimerDiff($time)>3600000 Then
[/autoit] [autoit][/autoit] [autoit]aktu()
$time=TimerInit()
EndIf
$win=WinList()
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()
Next
EndIf
Next
[/autoit] [autoit][/autoit] [autoit]sleep(5000)
WEnd
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
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
func ueber()
ShellExecute("http://scripter192.bplaced.de/anti-_abzocke.htm")
EndFunc
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")
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
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
Dankeschön!
Wo ist der Source ?
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