;###############################################################
; Function:		_SkipForbiddenLink
;
; Syntax:		_SkipForbiddenLink($ForbiddenLink,[$Part])
;
; Description:	mouse move to center of screen if click left or
;				click right on determined link
;
; Parameter:	$ForbiddenLink
;				full link or
;				part of link with flag $Part = 1
;
; Author:		BugFix	(bugfix@autoit.de)
;###############################################################
#include <IE.au3>
#Include <Misc.au3>
Func _SkipForbiddenLink($ForbiddenLink,$Part=0)
  Local $Link
  AutoItSetOption("WinTitleMatchMode", 2)
  While 1
	$Link = StatusbarGetText("Internet Explorer")
	If $Link <> "" Then
		If $Part = 0 Then	; kpl. Link angegeben
			If $Link = $ForbiddenLink  And _
			( _IsPressed("01") Or _IsPressed("02")) Then MouseMove(@DesktopWidth/2, @DesktopHeight/2, 0)
		Else				; Teil des Links angegeben
			If StringInStr($Link, $ForbiddenLink)  And _
			( _IsPressed("01") Or _IsPressed("02")) Then MouseMove(@DesktopWidth/2, @DesktopHeight/2, 0)
		EndIf
	EndIf
	Sleep(100)
	If Not WinExists("Internet Explorer") Then Exit		; Original in  der Funktion
  WEnd
EndFunc	;==> _SkipForbiddenLink()