Hallo zusammen,
Ich wollte ein tool bauen was mir den mozilla firefox sogesehen überwacht.
Momentan hab ich das ganze mal über den titel gemacht, gibt aber nicht die treffsicherheit wieder wie ich es mir wünschen würde.
Hat jemand von euch eine idee wie man das ganze besser umsetzen kann?
Habe bei der FF.au3 keine funktion gesehen womit man nur den titel abfragt, bzw die adresse auf der man sich momentan befindet.
Wollte zum ganzen noch ne art "Jail" errichten indem der firefox nur genutzt werden kann wenn man sich vorher über ein eigenes login system anmeldet, somit auch ne art userlogging möglich wäre, mit dem man "verbotene/ungewollte" website besuche auch einem jeweiligen nutzer zuordnen kann.
Bevor nun jemand schriet das es dafür schon dutzende tools und shareware anwendungen gibt, Ich wills selber basteln
hier die sache mit der adressleisten bzw abgewandelt durch titel auslesen-funktion...
vll hat wer noch bessere ideen. Zu den array's: die wollt ich nachher via *.ini datei füllen wo man schlagwörter oder adressen speichern kann, welche ungewünscht sind.
MozillaSecurity.au3
Spoiler anzeigen
#include <file.au3>
Opt("WinTitleMatchMode", 2)
;#_titlecheck()# =================================================================================================================
; Name...........: _titlecheck()
; Description ...: Checks the Title of Mozilla Firefox, if "badword" is detected it will be written to Log -
;................: file and returns "True"
; Syntax.........: _titlecheck("badword")
; Parameters ....: Define the Badword as Function Parameter
; Return values .: Success - Returns state as "True"
; ................
; Author ........: Bustd
; Modified.......: 24.02.2010
; ===============================================================================================================================
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _titlecheck($word)
[/autoit] [autoit][/autoit] [autoit]WinWaitActive("- Mozilla Firefox", "")
$iBadword = $word
If WinActive("- Mozilla Firefox", "") Then
$title = WinGetTitle("- Mozilla Firefox", "")
$Badword = StringInStr($title, "" & $iBadword)
If $Badword <> 0 Then
[/autoit] [autoit][/autoit] [autoit]_FileWriteLog(@ScriptDir & "\mozilla-badword.log", "" & $title & " | " & $iBadword)
[/autoit] [autoit][/autoit] [autoit]Return (True)
[/autoit] [autoit][/autoit] [autoit]EndIf
EndIf
EndFunc ;==>_titlecheck
[/autoit]
Example:
Spoiler anzeigen
#include <MozillaSecurity.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]Local $Badwords[5]
[/autoit] [autoit][/autoit] [autoit]$Badwords[0] = "porn"
$Badwords[1] = "sex"
$Badwords[2] = "porno"
$Badwords[3] = "free sex"
$Badwords[4] = "porn tube"
Local $BadUrls[5]
[/autoit] [autoit][/autoit] [autoit]$BadUrls[0] = "xhamster.com"
$BadUrls[1] = "tube8.com"
$BadUrls[2] = "redtube"
$BadUrls[3] = "xnxx.com"
$BadUrls[4] = "pornhub.com"
For $i = 0 To UBound($Badwords) - 1
$IsThereABadword = _titlecheck($Badwords[$i])
If $IsThereABadword = True Then
MsgBox(0, "Attention", "Badword Detected: " & $Badwords[$i]) ; Alles andere was passieren soll wenn wort gefunden
EndIf
Next
Sleep(250)
WEnd