FritzBox Reconnector UPDATE! Fritzbox-Control 2.0 VIDEOS

[Ragex]

Ich hab da was schickes gefunden was evtl. alle interessieren könnte die auf die "Ansteuerung durch Parameter" nicht warten können:

http://www.autoitscript.com/

Wer ein paar programierkenntnise hat schafft es in so ca einer halben Stunde (ich halt) einen script zu schreiben der Mausbewegungen simuliert.
Das einzige problem ist dabei das man nie weis wo sich der FritzBox Reconnector in der taskleiste neben der Uhr befindet.
Ich hab das auf die schnelle mit einer abfrage der Farbe an allen möglichen Positionen gelöst.

Ich hoff ihr seit mir jetzt nich böse das ich das hier reinposte
PS: Ich hab das Script mit angehängt

Delphi-Quellcode:

; by Ragex


; ACHTUNG  Der Script muss an die jeweilige Auflösung angepasst werden!!!
;      Alle x, y Koordinaten werte wurden bei 1024*768 pixel abgelesen
;      Am einfachsten geht das mit dem "AutoIt Window Info" (vorletztes register: Mouse"
;          Höchstwahrscheinlich wird die Farbe (0x09BBF9) auch geändert werden müssen, es sei den man findet den selben punkt wie ihn ich genommen hab und passt nur noch die x,y Koordinaten an



; Benutzte Befehle
;MouseMove ( x, y [, speed] )
;MouseClick ( "button" [, x, y [, clicks [, speed ]]] )


$var1 = PixelGetColor( 966,749 )   ; abfrage der Farbe an allen positionen an dennen sich das prog befinnden könnte
$var2 = PixelGetColor( 948,749 )   ; also neben der uhr!!
$var3 = PixelGetColor( 930,749 )   ; abstand zwischen den "plätzen" = 18 pixel (bei 1024*768)
$var4 = PixelGetColor( 912,749 )
$var5 = PixelGetColor( 894,749 )
$var6 = PixelGetColor( 876,749 )
$var7 = PixelGetColor( 858,749 )
$var8 = PixelGetColor( 840,749 )
$var9 = PixelGetColor( 822,749 )


If $var1 = 0x09BBF9 Then          ; sollte die Farbe an der möglichen position stimmen
MouseClick("right",966,749,1,1)   ; dort hin fahren und rechtsklicken
MouseMove ( 966, 690,10)          ; hochfahren und dort auf "ip ernneuern" stehen bleiben | muss wenn alles so klappt überall 
Else                       ; ersetzt werden durch : MouseClick ( "left" , x, y ,1,1 )
   If $var2 = 0x09BBF9 Then
   MouseClick("right",948,749,1,1)
   MouseMove ( 948, 690,10)
   Else
      If $var3 = 0x09BBF9 Then
      MouseClick("right",930,749,1,1)
      MouseMove ( 930, 690,10)
      Else
         If $var4 = 0x09BBF9 Then
         MouseClick("right",912,749,1,1)
         MouseMove ( 912, 690,10)
         Else
            If $var5 = 0x09BBF9 Then
            MouseClick("right",894,749,1,1)
            MouseMove ( 894, 690,10)
            Else
               If $var6 = 0x09BBF9 Then
               MouseClick("right",876,749,1,1)
               MouseMove ( 876, 690,10)
               Else
                  If $var7 = 0x09BBF9 Then
                  MouseClick("right",858,749,1,1)
                  MouseMove ( 858, 690,10)
                  Else
                     If $var8 = 0x09BBF9 Then
                     MouseClick("right",840,749,1,1)
                     MouseMove ( 840, 690,10)      
                     Else
                        If $var9 = 0x09BBF9 Then
                        MouseClick("right",822,749,1,1)
                        MouseMove ( 822, 690,10)
                        Else
                        MsgBox(0, "???", "Reconnecter konnte nicht gefunden werden!")      
                        EndIf
                     EndIf
                  EndIf
               EndIf
            EndIf
         EndIf
      EndIf
   EndIf
EndIf