Fehler?

SlinJD

Hallo, folgendes Script funktioniert nicht:

[autoit]

#include <IE.au3>
Global $lastVisited = ""

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

$oIE = _IECreate("http://proxcoding.tk/update-01.php")
;Illegale Webseiten
$IllWebsite = BinaryToString (InetRead("http://proxcoding.tk/ill.txt"))

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

;Viren Webseiten
$VirWebsite = "eicar.com"
$VirWebsite = "eicar.org"

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

While Sleep(10)
$sVal = _IEPropertyGet($oIE, "locationurl")
If @error Then ExitLoop

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

If StringInStr($sVal, $IllWebsite) > 0 And $sVal <> $lastVisited Then
$lastVisited = $sVal

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

SplashTextOn("","Diese Webseite enthält möglicher Weise illegalen Content!","800","50","-1","-1",33,"Arial Black","12","12")
Sleep(3000)
SplashOff()
EndIf

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

If StringInStr($sVal, $VirWebsite) > 0 And $sVal <> $lastVisited Then
$lastVisited = $sVal
SplashTextOn("","Auf dieser Webseite sind möglicher Weise Viren!","800","50","-1","-1",33,"Arial Black","12","12")
Sleep(3000)
SplashOff()
EndIf
WEnd

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

Weiss einer den Fehler?

SlinJD

Nein,ist es nicht,dann kommt:

Zitat

C:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\Autoit\SecWarning\SecWarning.au3(6,71) : ERROR: _InetRead(): undefined function.
$IllWebsite = BinaryToString (_InetRead("http://proxcoding.tk/ill.txt")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\Autoit\SecWarning\SecWarning.au3 - 1 error(s), 0 warning(s)

Blume

Zitat von noir

_InetRead("htt

_InetRead gibt es nicht, Wenn InetRead()
Ist mittlerweile ein Standardbefehl

Und zur dir Nils aka SlinJD.
Er wäre eine noble Geste mal das Komplette Tutorial durchzulesen, Und nicht nur Bruchteile,
weil sowas bringt garnichts.

Es gibt die Deutsche Hilfe, das Buch @pee, Ein Wiki
Was will man mehr?

@PS
Leute ich habe ihn in Skype hatte mit ihm schon vorher darüber gesprochen.

lg, Dominik

SlinJD

ähm,du hast es mir ja gemacht, aber es geht nicht. Hqbe auch schon sehr sehr viel versucht.
Und jetzt mal das Forum fragen,schlimm? Nein.

Blume

Nein schlimm daran ist nichts, Mein Tipp:

Sauberen CodingStil angewöhnen.

Richtige Variablennamen ($sString - String | $iInt = Int | $fBool = Für Bool | usw ...)

Und fang lieber mit etwas kleinem an

**autoBert**

Zitat von SlinJD

Weiss einer den Fehler?

Zitat von SlinJD

Und jetzt mal das Forum fragen,schlimm? Nein.

wirklich nicht, du solltest nur auch uns den Fehler bechreiben, das Skipt sieht in Ordnung aus, lässt sich ohne Fehlermeldung starten und beenden,

mfg autoBert

SlinJD

Also,normal müsste ja wenn man z.b. http://www.google.de eingibt,die Meldung kommen: Diese Webseite enthält möglicher Weise illegalen Content!

Diese kommt aber nicht!

**autoBert**

Zitat von SlinJD

Also,normal müsste ja wenn man z.b. http://www.google.de eingibt,die Meldung kommen: Diese Webseite enthält möglicher Weise illegalen Content!

Diese kommt aber nicht!

Bei Google.de kommt zwar je nach Schabfage viel Müll, aber mein IE warnt mich auch nicht davor.
Aber was hat das mit der fehledenen Fehlerbeschreibung zu tun,

mfg autoBert

SlinJD

Ich habe mal weiter versucht,dass er die Datei local öffnet.
Zur Erinnerung, wenn die URL in ill.txt steht, und man dann auf diese URL geht, soll der SplashText kommen.
Hier der Code:

[autoit]

#include <IE.au3>
#include <file.au3>
Global $lastVisited = ""

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

$oIE = _IECreate("http://proxcoding.tk/update-01.php")
;Illegale Webseiten
$IllWebsite = FileOpen("ill.txt", 1)
;Viren Webseiten
$VirWebsite = ("domain.de")

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

While Sleep(10)
$sVal = _IEPropertyGet($oIE, "locationurl")
If @error Then ExitLoop

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

If StringInStr($sVal, $IllWebsite) > 0 And $sVal <> $lastVisited Then
$lastVisited = $sVal

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

SplashTextOn("","Diese Webseite enthält möglicher Weise illegalen Content!","800","50","-1","-1",33,"Arial Black","12","12")
Sleep(3000)
SplashOff()
EndIf

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

If StringInStr($sVal, $VirWebsite) > 0 And $sVal <> $lastVisited Then
$lastVisited = $sVal
SplashTextOn("","Auf dieser Webseite sind möglicher Weise Viren!","800","50","-1","-1",33,"Arial Black","12","12")
Sleep(3000)
SplashOff()
EndIf
WEnd

[/autoit]

Hier die ill.txt

Code

www.google.de/
http://www.google.de/
eicar.com
eicar.org

Hoffentlich könnt Ihr mir diesmal helfen

Cyberdyne

So klappts!

Spoiler anzeigen

[autoit]

#include <IE.au3>
#include <file.au3>
Global $lastVisited = "", $aIllWebsite = ""

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

$oIE = _IECreate("http://proxcoding.tk/update-01.php")
;Illegale Webseiten
_FileReadToArray("ill.txt", $aIllWebsite)

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

;Viren Webseiten
$VirWebsite = "domain.de"

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

While Sleep(10)
$sVal = _IEPropertyGet($oIE, "locationurl")
If @error Then ExitLoop

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

For $i=1 To $aIllWebsite[0]
If StringInStr($sVal, $aIllWebsite[$i]) > 0 And $sVal <> $lastVisited Then
$lastVisited = $sVal
SplashTextOn("","Diese Webseite enthält möglicher Weise illegalen Content!","800","50","-1","-1",33,"Arial Black","12","12")
Sleep(3000)
SplashOff()
ExitLoop
EndIf
Next

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

If StringInStr($sVal, $VirWebsite) > 0 And $sVal <> $lastVisited Then
$lastVisited = $sVal
SplashTextOn("","Auf dieser Webseite sind möglicher Weise Viren!","800","50","-1","-1",33,"Arial Black","12","12")
Sleep(3000)
SplashOff()
EndIf
WEnd

[/autoit]

**autoBert**

Dass Skript ist Müll: du prüfst mit StringInStr ob in einer URL der Inhalt einer Variablen vorkommt die ein Dateihandle enthält. Vielleich hilft ja einlesen (FileRead) stattdessen und das Tauschen der Parameter bei StringInStr, alos so:

Spoiler anzeigen

[autoit]

#include <IE.au3>
#include <file.au3>
Global $lastVisited = ""

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

$oIE = _IECreate("http://proxcoding.tk/update-01.php")
;Illegale Webseiten
$IllWebsite = FileRead(@ScriptDir & "\ill.txt")

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

;Viren Webseiten
$VirWebsite = ("domain.de")

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

While Sleep(10)
$sVal = _IEPropertyGet($oIE, "locationurl")
If @error Then ExitLoop
ConsoleWrite($sVal & @CRLF)
If StringInStr($IllWebsite,$sVal) And $sVal <> $lastVisited Then
$lastVisited = $sVal

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

SplashTextOn("", "Diese Webseite enthält möglicher Weise illegalen Content!", "800", "50", "-1", "-1", 33, "Arial Black", "12", "12")
Sleep(3000)
SplashOff()
EndIf

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

If StringInStr($VirWebsite,$sVal) > 0 And $sVal <> $lastVisited Then
$lastVisited = $sVal
SplashTextOn("", "Auf dieser Webseite sind möglicher Weise Viren!", "800", "50", "-1", "-1", 33, "Arial Black", "12", "12")
Sleep(3000)
SplashOff()
EndIf
WEnd

[/autoit]

warum die Seite beim 2. Versuch nicht mehr bösartig sei soll, frage ich mich ernsthaft.

mfg autoBert

SlinJD

Vielen vielen vielen Dank!

SlinJD

Noch ein kleines Problem:

[autoit]

#include <IE.au3>
#include <file.au3>
#include <Constants.au3>
InetGet("http://proxcoding.tk/ill.txt", @ScriptDir &"\ill.txt")
InetGet("http://proxcoding.tk/vir.txt", @ScriptDir &"\vir.txt")
Global $lastVisited = "", $aIllWebsite = ""
$oIE = _IECreate("http://proxcoding.tk/update-01.php")
;Illegale Webseiten
_FileReadToArray(@ScriptDir &"\ill.txt", $aIllWebsite)
;Viren Webseiten
_FileReadToArray(@ScriptDir &"\vir.txt", $VirWebsite)
While Sleep(10)
$sVal = _IEPropertyGet($oIE, "locationurl")
If @error Then ExitLoop
For $i=1 To $aIllWebsite[0]
If StringInStr($sVal, $aIllWebsite[$i]) > 0 And $sVal <> $lastVisited Then
$lastVisited = $sVal
SplashImageOn("",@ScriptDir &"meldung-illegal.JPG","314","163","-1","-1",$DLG_NOTITLE)
Sleep(3000)
SplashOff()
ExitLoop
EndIf
Next
If StringInStr($sVal, $VirWebsite) > 0 And $sVal <> $lastVisited Then
$lastVisited = $sVal
SplashImageOn("",@ScriptDir &"meldung-viren.JPG","314","163","-1","-1",$DLG_NOTITLE)
Sleep(3000)
SplashOff()
EndIf
WEnd

[/autoit]

Fehler:

Zitat

C:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\Autoit\SecWarning\SecWarning.au3(11,53) : WARNING: $VirWebsite: possibly used before declaration.
_FileReadToArray(@ScriptDir &"\vir.txt", $VirWebsite)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\Autoit\SecWarning\SecWarning.au3(11,53) : ERROR: $VirWebsite: undeclared global variable.
_FileReadToArray(@ScriptDir &"\vir.txt", $VirWebsite)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\Autoit\SecWarning\SecWarning.au3 - 1 error(s), 1 warning(s)

Alles anzeigen

Danach wird es gehen

**autoBert**

Du hast die beiden Variablen ja nicht deklariert, dagegen hilft:

[autoit]

Global $aIllWebsite[1], $VirWebsite[1]

[/autoit]

Ausserdem hast du

wieder die Reihenfolge der Parameter von [autoit]StringInStr[/autoit]verwechelt.
beim Pfad der JPG-Dateien für SplashImageOn jeweils ein Backslash vergessen
Bei SplashImageOn Integer-Parameter in Hochkommas h´gesetzt (sollte aber nicht schädlich sein)
die beiden Dateien die du mit Inetget herunterladen willst gibt es nicht,

aus dem letzten Grund wird dein Skript wohl nie funktionieren, gegen die anderen Fehler empfehle ich öfter in die Hilfe zu schauen,

mfg autoBert

SlinJD

Ähm,die URLs gibt es:
http://proxcoding.tk/ill.txt
http://proxcoding.tk/vir.txt

Und nach dein Fehlerbericht habe ich umgesetzt.
Es startet aber es kommt innernoch folgende Fehlermeldung:

Spoiler anzeigen

Zitat

>Running AU3Check (1.54.19.0) from:C:\Programme\AutoIt3
C:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\Autoit\SecWarning\SecWarning.au3(16,79) : WARNING: $lastVisited: possibly used before declaration.
If StringInStr($sVal, $aIllWebsite[$i]) > 0 And $sVal <> $lastVisited Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\Autoit\SecWarning\SecWarning.au3 - 0 error(s), 1 warning(s)
->22:53:27 AU3Check ended.rc:1
>Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "C:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\Autoit\SecWarning\SecWarning.au3"
--> IE.au3 V2.4-0 Error from function _IEPropertyGet, $_IEStatus_InvalidObjectType

Alles anzeigen

**Sprenger120**

Zitat von SlinJD

WARNING: $lastVisited: possibly used before declaration.

Da hilft ein

[autoit]

Global $lastVisited

[/autoit]

SlinJD

Vielen Dank Sprenger für die Private Nachhilfe .

Ernst,danke