Hallo zusammen
ich bastle gerade ein Script zum Tausch von MN6ResourcesBinary.res .
Vielleicht kann mir jemand einen Tipp geben. - ich möchte mit Variablen arbeiten
also bei copy den 4 Parameter als Variable angeben (ist mit xxxxxxx gekennzeichnet) - irgendwie klappt das nicht.
deshalb mußte ich die Zeilen bei jeder CASE Bedingung ausschreiben
Copy ("\My Flash Disk\programme\mn6skin\XXXXXXX\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
Vielleicht kann mir jemand mitteilen - wie es optimaler funktioniert.
Danke
jamboo
---------------
xcopy ("\my flash disk\programme\fonts\*.ttf", "windows\fonts",TRUE)
SetChoiceEntryFormat ( 20 , 16 , Arial )
Choice ("Kartenansicht","Bitte entsprechende Rubrik auswählen^NL^2xMal draufklicken^NL^oder auf OK drücken", "Original","Black & White","Blue","Blue 2","Dark Transparent","Dark 2","Mazda","Mercedes","Transparent","VW")
Case (1)
Copy ("\My Flash Disk\programme\mn6skin\orig\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
SleepMessage(2," Start Original Skin - Moment bitte - geht gleich weiter ")
Case (2)
Copy ("\My Flash Disk\programme\mn6skin\blackWhite\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
SleepMessage(2," Start Black & White Skin - Moment bitte - geht gleich weiter ")
Case (3)
Copy ("\My Flash Disk\programme\mn6skin\blue\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
SleepMessage(2," Start Blue Skin - Moment bitte - geht gleich weiter ")
Case (4)
Copy ("\My Flash Disk\programme\mn6skin\blue2\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
SleepMessage(2," Start Blue Skin 2 - Moment bitte - geht gleich weiter ")
Case (5)
Copy ("\My Flash Disk\programme\mn6skin\dark_transp\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
SleepMessage(2," Start Dark Transparent Skin - Moment bitte - geht gleich weiter ")
Case (6)
Copy ("\My Flash Disk\programme\mn6skin\dark2\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
SleepMessage(2," Start Dark2 Skin - Moment bitte - geht gleich weiter ")
Case (7)
Copy ("\My Flash Disk\programme\mn6skin\mazda\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
SleepMessage(2," Start Mazda Skin - Moment bitte - geht gleich weiter ")
Case (8)
Copy ("\My Flash Disk\programme\mn6skin\mercedes\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
SleepMessage(2," Start Mercedes Skin - Moment bitte - geht gleich weiter ")
Case (9)
Copy ("\My Flash Disk\programme\mn6skin\transparent\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
SleepMessage(2," Start Transparent Skin - Moment bitte - geht gleich weiter ")
Case (10)
Copy ("\My Flash Disk\programme\mn6skin\vw\MN6ResourcesBinary.res", "\My Flash Disk\Programme\MN6\MN6ResourcesBinary.res", TRUE)
SleepMessage(2," Start VW Skin - Moment bitte - geht gleich weiter ")
EndChoice
Set Position_X, "232"
Set Position_Y, "196"
Run ("\My Flash Disk\programme\MN6\MN6.EXE")
WaitForActive "Mobile Navigator 6", 2000
GetColorAt %Position_X%, %Position_Y%, colorStart
Sleep 20000
Set true, "1"
While equals %true%, "1"
Sleep 1000
GetColorAt %Position_X%, %Position_Y%, color
If not equals %color%, %colorStart%
If wndActive "Mobile Navigator 6"
Sleep 1000
MouseClick "Mobile Navigator 6", %Position_X%, %Position_Y%
EndIf
Set true, "0"
EndIf
EndWhile
exit
----------------------------