Links auf Website sperren

**BugFix**

Hi,
ich habe jetzt einen Maxdome-Account (mit 3DSL 1&1). Damit meine Kinder dort auch was gucken können habe ich ein Script für die Einwahl (Benutzereingabe, Passwort) erstellt.

[autoit]

#NoTrayIcon
#include <IE.au3>
$oIE = _IECreate ("https://maxdomeservice.1und1.de/login/start/index.php?mxdsid=&__rd=hjRQwTpsrii46868GHTj,uTRWzuui46")
Send("{TAB 2}")
Send("USER")
Send("{TAB}")
Send("PASSWORT")
Send("{ENTER}")
WinWaitActive("Sicherheitshinweis")
Send("!j")

[/autoit]

Das funzt auch prima. Allerdings besteht die Gefahr, dass ein kostenpflichtiger Link gedrückt wird.
Besteht die Möglichkeit, zu verhindern, dass diese Links ausgeführt werden? Wenn der Mauszeiger über einem Link schwebt, erscheint dieser ja in der Statuszeile des Fensters. Das könnte ich mit der 'verbotenen Liste' vergleichen.
Aber wie verhindere ich einen Mausklick? Mit Blockinput( ) kann ich nicht arbeiten - dann ließe sich die Maus ja nicht mehr von dem Link fortbewegen.
Ich hab mir das ungefähr so vorgestellt:

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <IE.au3>

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

$oIE = _IECreate ("https://maxdomeservice.1und1.de/login/start/index.php?mxdsid=&__rd=hjRQwTpsrii46868GHTj,uTRWzuui46")
Send("{TAB 2}")
Send("USER")
Send("{TAB}")
Send("PASSWORT")
Send("{ENTER}")
WinWaitActive("Sicherheitshinweis")
Send("!j")

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

Dim $arVerboteneLinks[15]
$arVerboteneLinks[0]="http://redirect.1und1.de/ac1704c1cwHqjIHYtwWjgmKsDYIbAkBa/?origin.site=MD.VOD.DE&origin.id=&target.site=PORTAL&target.page=de%2Fshopping%2f"
$arVerboteneLinks[1]="http://redirect.1und1.de/ac1704c1cwHqjIHYtwWjgmKsDYIbAkBa/?origin.site=MD.VOD.DE&origin.id=&target.site=CC.UCM.DE"
$arVerboteneLinks[2]="http://redirect.1und1.de/ac1704c1cwHqjIHYtwWjgmKsDYIbAkBa/?origin.site=MD.VOD.DE&origin.id=&target.site=PORTAL&target.page=de%2Fthemen%2f"
$arVerboteneLinks[3]="http://redirect.1und1.de/ac1704c1cwHqjIHYtwWjgmKsDYIbAkBa/?origin.site=MD.VOD.DE&origin.id=&target.site=MX.EUE.DE"
$arVerboteneLinks[4]="http://maxdome.1und1.de/movies/?sid="
$arVerboteneLinks[5]="http://maxdome.1und1.de/comedy/?sid="
$arVerboteneLinks[6]="http://maxdome.1und1.de/serie/?sid="
$arVerboteneLinks[7]="http://xxx.nightclub.de/index.php?__rd=ac1704c1cwHqjIHYtwWjgmKsDYIbAkBa"
$arVerboteneLinks[8]="http://maxdome.1und1.de/abos/comedy_paket/?sid="
$arVerboteneLinks[9]="http://maxdome.1und1.de/abos/serien_paket/?sid="
$arVerboteneLinks[10]="http://maxdome.1und1.de/abos/movie_paket/?sid="
$arVerboteneLinks[11]="http://maxdome.1und1.de/abos/premium_paket/?sid="
$arVerboteneLinks[12]="http://maxdome.1und1.de/abos/sp_lost/?sid="
$arVerboteneLinks[13]="http://maxdome.1und1.de/abos/sp_dh/?sid="
$arVerboteneLinks[14]="http://www.nightclub.de/check.php"

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

AutoItSetOption("WinTitleMatchMode", 2)
While 1
Sleep(100)
$Link = StatusbarGetText("Internet Explorer")
If $Link <> "" Then
For $i = 0 To 14
If $Link = $arVerboteneLinks[$i] Then
; SPERRE MAUSKLICK - aber wie ?
ExitLoop
EndIf
Next
EndIf
WEnd
WinWaitClose("Internet Explorer")
Exit

[/autoit]

Analyzer

Hi,

nimm mal lieber fix deine Benutzerdaten aus dem Script, sonst könntest du bald ne ganz teure Rechnung bekommen

Zu deinem Prob, kein ich dir leider nix zu sagen ...

Mfg

Analyzer

muh_kuh

hallo
du könntes die Seite ZwischenSpeichern
(allso alle Html Seite Downlloaden, Seichern, Die Links Löschen, Seite Ausgeben)
ich würde es aber in ein AutoitProgramm MAchen und nicht in IE

**BugFix**

@Analyzer
In dem Script sind keine Benutzerdaten, ist die Seite für die Eingabe der Benutzerdaten.

muh_kuh
Wenn ich eingeloggt bin, ist das eine https-site. Glaub nicht, dass die noch funktioniert, wenn ich da was umleite.

Trotzdem Danke.

Analyzer

Moin,

da fehlt mir doch noch eine Möglichkeit an, hat zwar wenig mit AutoIt zu tun, könntest du aber z.B. FileWrite() benutzen um es nur anzuwenden wenn das script läuft und anschließend wieder rückgängig.

So nun mal zur Idee:

Gehe in folgendes verzeichnis: "C:\WINDOWS\system32\drivers\etc"

dort findest du eine Datei "hosts"

öffne diese mit dem editor von Windows und füge folgendes am ende hinzu:

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

[/autoit]

Wenn nun diese Adressen aufgerufen werden, wird der IE sie nicht finden. Somit dann auch keine kostenpflichtigenfilme mehr ... :party4:

Mfg

Analyzer

muh_kuh

Zitat

Original von BugFix
muh_kuh
Wenn ich eingeloggt bin, ist das eine https-site. Glaub nicht, dass die noch funktioniert, wenn ich da was umleite.

Trotzdem Danke.

hallo
rate mal dein Benutername ist : XXXXXXXX
Passwort steh da auch da

du könnets die maus ja auch immer weg bewegen
auserdem würde ich wenn so einen adresse aufgeruffen wird sie um leiten
z.B. http://www.autoitscript.com/forum/index.php?showtopic=26047&hl=ebay

Zitat

Original von Analyzer
Moin,

da fehlt mir doch noch eine Möglichkeit an, hat zwar wenig mit AutoIt zu tun, könntest du aber z.B. FileWrite() benutzen um es nur anzuwenden wenn das script läuft und anschließend wieder rückgängig.

So nun mal zur Idee:

Gehe in folgendes verzeichnis: "C:\WINDOWS\system32\drivers\etc"

dort findest du eine Datei "hosts"

öffne diese mit dem editor von Windows und füge folgendes am ende hinzu:

Wenn nun diese Adressen aufgerufen werden, wird der IE sie nicht finden. Somit dann auch keine kostenpflichtigenfilme mehr ... :party4:

Mfg

Analyzer

Alles anzeigen

das kann mit der host datei nicht gehen
:sorry:
die kann blos 127.0.0.1 web.de

edit :
anwort auf Analyszer und neuner link

**BugFix**

Also, hab das grad getestet mit der Änderung in "hosts". Keine Änderung, kann die Seiten munter aufrufen.
LOL - ich hatte im zweiten Teil meines Scripts tatsächlich noch meine Daten drin, hatte ich gar nicht gesehen. Danke PW ist natürlich inzwischen geändert.

Edit:
Hab nun auch den Tipp mit der Umleitung ausprobiert. Funktioniert leider nicht, da die Linkadresse selbst eine Weiterleitung ist und nicht mit der URL der Zielseite übereinstimmt. Diese wird jedoch mit $obj.document.url ausgelesen.

Hab kein Plan.... :weinen:

Edit2:
Hab jetzt mal die Zielseiten-URL gesammelt (einige ändern sich allerdings bei jedem Aufruf, z.B. Shop) und damit die Umleitungsfunktion probiert. Das geht auch - aber nur einmal, dann wird die Schleife verlassen. Weiß nicht warum. Hab den Codeteil mal angehängt:

Spoiler anzeigen

[autoit]

While 1
$Win_hWnd = WinGetHandle("")
$Ctrl_List = WinGetClassList($Win_hWnd)
If Not @error And StringInStr($Ctrl_List,"Internet Explorer_Server" & @LF) Then
$n = 1
While 1
$IE_hWnd = ControlGetHandle($Win_hWnd,"","Internet Explorer_Server" & $n)
If @error Then ExitLoop
If ControlCommand($Win_hWnd,"","Internet Explorer_Server" & $n,"IsVisible","") Then
$obj = _ObjGetFromHWND($IE_hWnd)
If IsObj($obj) Then
If _
$obj.document.url = "http://www.1und1.de/?__rd=.." Or _
$obj.document.url = "http://portal.1und1.de/de/themen/?__rd=.." Or _
$obj.document.url = "https://login.1und1.de/xml/config/;jsessionid=.." Or _
$obj.document.url = "http://portal.1und1.de/de/shopping/?__rd=.." Or _
$obj.document.url = "https://maxdomeservice.1und1.de/account/?mxdsid=.." Or _
$obj.document.url = "http://maxdome.1und1.de/blockbuster/?sid=.." Or _
$obj.document.url = "http://www.nightclub.de/check.php" _
Then ; nur ein paar URL's
$obj.navigate("http://www.toggo.de")
Sleep(1000)
EndIf
EndIf

EndIf
$n += 1
WEnd
EndIf
Sleep(500)
If Not WinExists("Internet Explorer") Then ExitLoop ; hab ich eingefügt, damit das Script von allein beendet wird
WEnd
Exit

[/autoit]

**Xenobiologist**

HI,

wie wäre es denn, wenn du einfach BlockInput machst, oder zumindest _MouseTrap() und dann die Seite aufrufst, einen Screenshot machst und die Seite wieder schließst.

So long,

Mega

**BugFix**

Ich werd jetzt mal folgendes versuchen:
- wenn Maus über Link ($Link = StatusbarGetText("Internet Explorer") , Vergleich mit Link-Liste)
- dann Maus bewegen zu Pos x,y (z.B. Bildschirmmitte)

Ich geb Bescheid ob es klappt.

Edit:
Heureka, ich habs!
Da die Links sich täglich ändern, checke ich jetzt nur deren Basis ab. Das geht super. Sowie die Maus auf einen 'bösen' Link zeigt springt sie zur Mitte.
Hier das Script:

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <IE.au3>
#cs
Seitenaufruf
Login
#ce

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

AutoItSetOption("WinTitleMatchMode", 2)
While 1
$Link = StatusbarGetText("Internet Explorer")
If $Link <> "" Then
If _
StringInStr($Link, "http://redirect.1und1.de/") Or _
StringInStr($Link, "http://maxdome.1und1.de/movies/?") Or _
StringInStr($Link, "http://maxdome.1und1.de/comedy/?") Or _
StringInStr($Link, "http://maxdome.1und1.de/serie/?") Or _
StringInStr($Link, "http://xxx.nightclub.de/") Or _
StringInStr($Link, "http://maxdome.1und1.de/abos/") Or _
StringInStr($Link, "http://www.nightclub.de/") _
Then
MouseMove(@DesktopWidth/2, @DesktopHeight/2, 0)
EndIf
EndIf
Sleep(100)
If Not WinExists("Internet Explorer") Then Exit
WEnd

[/autoit]

Würde gern "gelöst" aktivieren -- aber kein Schalter da.