Hallo Sokobana
Hier mal so gut ich es erklären kann.
Die helligkeit.mscr , Parameter=1 bewirkt Klick auf dem Skala-Button in dreierschritten erhöhen der Helligkeit , ist 8 überschritten fängt es bei 1 wieder an.
MouseClick baut die Seite nach jedem Klick neu auf damit der neue Skala-Button zu sehen ist .
Parameter=2 bewirkt eine Zunahme der Helligkeit im Einerschritt , nach 8 ist aber Schluss .
Parameter=3 bewirkt das Gegenteil von Parameter=2, nach 1 ist Schluss.
Man muss nach jedem Klick ihm c. a. 1 Sekunde Zeit geben damit der Kopiervorgang abgeschlossen ist aber eher weniger , das merkt man dadurch das es nicht heller oder dunkler geworden ist , sonst passiert aber nichts , es kommt nichts durcheinander , kann man sich gut dran gewöhnen .
Die Registry – Adresse ist zwar nach ein HR weg aber ich muss nicht GoPal starten damit sie wieder eingerichtet wird es reicht das Display einmal heller oder dunkler zu machen und dafür ist Koord genau richtig ich bin ja schon an Koord . Dieser Abschnitt gilt nur für GP5, bei GP4 weiß ich nicht mehr genau wie die Registry-Adresse war .
Edit: Hier mal ein VIDEO , 520 MB
[GoPal Skin] Teamskin GoPal 5.5 480x272
Gruß Manni
Blig = "\My Flash Disk\Startmenue\Backlight\"
bmps = "\My Flash Disk\startmenue\bmp\"
Wert = RegRead ("HKCU","Software\3SOFT\Pathfinder\PowerManagement\Backlight", "ACBrightness")
If (Parameter=1)
run ("\My Flash Disk\Programme\koord465.exe", "param= Backlight=+3 l=1 window=0")
Copy( Blig & "\Button_Licht_level_0" & Wert & ".bmp", bmps & "\Button_Licht_level_01.bmp",1)
Copy( Blig & "\Button_Licht_level_0" & Wert & "_pushed.bmp", bmps & "\Button_Licht_level_01_pushed.bmp",1)
sleep (30)
MouseClick ( 88, 11 )
endif
If (Parameter=2)
If ( Wert < 8 )
wert=wert+1
run ( "\My Flash Disk\Programme\koord465.exe", "Param= Backlight=+1 l=1 window=0")
Copy( Blig & "\Button_Licht_level_0" & Wert & ".bmp", bmps & "\Button_Licht_level_01.bmp",1)
Copy( Blig & "\Button_Licht_level_0" & Wert & "_pushed.bmp", bmps & "\Button_Licht_level_01_pushed.bmp",1)
sleep (20)
MouseClick ( 88, 11 )
EndIf
EndIf
If (Parameter=3)
If ( Wert > 1 )
wert=wert-1
run ( "\My Flash Disk\Programme\koord465.exe", "param= Backlight=-1 l=1 window=0")
Copy( Blig & "\Button_Licht_level_0" & Wert & ".bmp", bmps & "\Button_Licht_level_01.bmp",1)
Copy( Blig & "\Button_Licht_level_0" & Wert & "_pushed.bmp", bmps & "\Button_Licht_level_01_pushed.bmp",1)
sleep (20)
MouseClick ( 88, 11 )
endif
EndIf
Alles anzeigen