Habe Problem beim Start einiger Speile

apollox65

Hallo!

Bei folgenden Script habe ich einiege Probleme!

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.1.13 (beta)
Author: vinschni

Script Function:
Graphische Oberflache zum Starten von vorgegebenen Programmen

#ce ----------------------------------------------------------------------------

#include <GUIConstants.au3>

GUICreate("Spiele-Starter",800,650)
GUISetState(@sw_show)
GUISetBkColor(0x3333CC) ; Hier hat das gui nen saftig grunen hintergrund bekommen, wenn's dir nicht gefallt losch einfach diese zeile.
Opt("TrayIconHide", 1)

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

;1-1
$id_icon1=GUICtrlCreateIcon(@ScriptDir & "\ICO\1.ICO",-1,26,10,70,56,-1,-1) ;GUICtrlCreateIcon("Hier must du den Dateipfad angeben, wo dein icon ist",-1,7,7,37,36,-1,-1)
$id_icon2=GUICtrlCreateIcon(@ScriptDir & "\ICO\2.ICO",-1,120,10,50,56,-1,-1)
$id_icon3=GUICtrlCreateIcon(@ScriptDir & "\ICO\3.ICO",-1,220,10,50,56,-1,-1)
$id_icon4=GUICtrlCreateIcon(@ScriptDir & "\ICO\4.ICO",-1,320,10,50,56,-1,-1)
$id_icon5=GUICtrlCreateIcon(@ScriptDir & "\ICO\5.ICO",-1,420,10,50,56,-1,-1)
$id_icon6=GUICtrlCreateIcon(@ScriptDir & "\ICO\6.ICO",-1,520,10,50,56,-1,-1)
$id_icon7=GUICtrlCreateIcon(@ScriptDir & "\ICO\7.ICO",-1,620,10,50,56,-1,-1)
$id_icon8=GUICtrlCreateIcon(@ScriptDir & "\ICO\8.ICO",-1,720,10,50,56,-1,-1)
;2
$id_icon9=GUICtrlCreateIcon(@ScriptDir & "\ICO\9.ICO",-1,21,105,50,56,-1,-1) ;R 2
$id_icon10=GUICtrlCreateIcon(@ScriptDir & "\ICO\10.ICO",-1,120,105,50,56,-1,-1)
$id_icon11=GUICtrlCreateIcon(@ScriptDir & "\ICO\11.ICO",-1,220,105,50,56,-1,-1)
$id_icon12=GUICtrlCreateIcon(@ScriptDir & "\ICO\12.ICO",-1,320,105,50,56,-1,-1)
$id_icon13=GUICtrlCreateIcon(@ScriptDir & "\ICO\13.ICO",-1,420,105,50,56,-1,-1)
$id_icon14=GUICtrlCreateIcon(@ScriptDir & "\ICO\14.ICO",-1,520,105,50,56,-1,-1)
$id_icon15=GUICtrlCreateIcon(@ScriptDir & "\ICO\15.ICO",-1,620,105,50,56,-1,-1)
$id_icon16=GUICtrlCreateIcon(@ScriptDir & "\ICO\16.ICO",-1,720,105,50,56,-1,-1)
;3
$id_icon17=GUICtrlCreateIcon(@ScriptDir & "\ICO\17.ICO",-1,21,204,50,56,-1,-1) ;R 3
$id_icon18=GUICtrlCreateIcon(@ScriptDir & "\ICO\18.ICO",-1,120,204,50,56,-1,-1)
$id_icon19=GUICtrlCreateIcon(@ScriptDir & "\ICO\19.ICO",-1,220,204,50,56,-1,-1)
$id_icon20=GUICtrlCreateIcon(@ScriptDir & "\ICO\20.ICO",-1,320,204,50,56,-1,-1)
$id_icon21=GUICtrlCreateIcon(@ScriptDir & "\ICO\21.ICO",-1,420,204,50,56,-1,-1)
$id_icon22=GUICtrlCreateIcon(@ScriptDir & "\ICO\22.ICO",-1,520,204,50,56,-1,-1)
$id_icon23=GUICtrlCreateIcon(@ScriptDir & "\ICO\23.ICO",-1,620,204,50,56,-1,-1)
$id_icon24=GUICtrlCreateIcon(@ScriptDir & "\ICO\24.ICO",-1,720,204,50,56,-1,-1)
;4
$id_icon25=GUICtrlCreateIcon(@ScriptDir & "\ICO\25.ICO",-1,21,303,50,56,-1,-1) ;R 4
$id_icon26=GUICtrlCreateIcon(@ScriptDir & "\ICO\26.ICO",-1,120,303,50,56,-1,-1)
$id_icon27=GUICtrlCreateIcon(@ScriptDir & "\ICO\27.ICO",-1,220,303,50,56,-1,-1)
$id_icon28=GUICtrlCreateIcon(@ScriptDir & "\ICO\28.ICO",-1,320,303,50,56,-1,-1)
$id_icon29=GUICtrlCreateIcon(@ScriptDir & "\ICO\29.ICO",-1,420,303,50,56,-1,-1)
$id_icon30=GUICtrlCreateIcon(@ScriptDir & "\ICO\30.ICO",-1,520,303,50,56,-1,-1)
$id_icon31=GUICtrlCreateIcon(@ScriptDir & "\ICO\31.ICO",-1,620,303,50,56,-1,-1)
$id_icon32=GUICtrlCreateIcon(@ScriptDir & "\ICO\32.ICO",-1,720,303,50,56,-1,-1)
;5
$id_icon33=GUICtrlCreateIcon(@ScriptDir & "\ICO\33.ICO",-1,21,402,50,56,-1,-1) ;R 5
$id_icon34=GUICtrlCreateIcon(@ScriptDir & "\ICO\34.ICO",-1,120,402,50,56,-1,-1)
$id_icon35=GUICtrlCreateIcon(@ScriptDir & "\ICO\35.ICO",-1,220,402,50,56,-1,-1)
$id_icon36=GUICtrlCreateIcon(@ScriptDir & "\ICO\36.ICO",-1,320,402,50,56,-1,-1)
$id_icon37=GUICtrlCreateIcon(@ScriptDir & "\ICO\37.ICO",-1,420,402,50,56,-1,-1)
$id_icon38=GUICtrlCreateIcon(@ScriptDir & "\ICO\38.ICO",-1,520,402,50,56,-1,-1)
$id_icon39=GUICtrlCreateIcon(@ScriptDir & "\ICO\39.ICO",-1,620,402,50,56,-1,-1)
$id_icon40=GUICtrlCreateIcon(@ScriptDir & "\ICO\40.ICO",-1,720,402,50,56,-1,-1)
;6
$id_icon41=GUICtrlCreateIcon(@ScriptDir & "\ICO\41.ICO",-1,21,501,50,56,-1,-1) ;R 6
$id_icon42=GUICtrlCreateIcon(@ScriptDir & "\ICO\42.ICO",-1,120,501,50,56,-1,-1)
$id_icon43=GUICtrlCreateIcon(@ScriptDir & "\ICO\43.ICO",-1,220,501,50,56,-1,-1)
$id_icon44=GUICtrlCreateIcon(@ScriptDir & "\ICO\44.ICO",-1,320,501,50,56,-1,-1)
$id_icon45=GUICtrlCreateIcon(@ScriptDir & "\ICO\45.ICO",-1,420,501,50,56,-1,-1)
$id_icon46=GUICtrlCreateIcon(@ScriptDir & "\ICO\46.ICO",-1,520,501,50,56,-1,-1)
$id_icon47=GUICtrlCreateIcon(@ScriptDir & "\ICO\47.ICO",-1,620,496,50,56,-1,-1)
;BUTTON
$id_label21=GUICtrlCreateLabel("",10,620,211,15,-1,-1)
$CLOSE=GUICtrlCreateButton("EXIT",720,620,68,23,-1,-1)
$reg=GUICtrlCreateButton("",1,645,10,10,-1,-1)
While 1
$msg=GUIGetMsg()

Select
;1-1
Case $msg = $id_icon1
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game") ; und zeigt ihn dann unter mit wird gestartet... 1s an.
Sleep(1000)
Run(@ScriptDir & "\Aloha Solitaire\AlohaSolitaire.EXE") ; Dieser Befehl startet dein Programm
GUICtrlSetData($id_label21, "") ;Hier wird die Anzeige wieder geloscht.
;1-2
Case $msg = $id_icon2
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Ancient Tri-Jong\AncientTriJong.EXE")
GUICtrlSetData($id_label21, "")
;1-3
Case $msg = $id_icon3
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Bejeweled 2\Bejeweled2.EXE")
GUICtrlSetData($id_label21, "")
;1-4
Case $msg = $id_icon4
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Big Kahuna Reef\Big Kahuna Reef.EXE")
GUICtrlSetData($id_label21, "")
;1-5
Case $msg = $id_icon5
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Bounce Out Blitz\BounceOutBlitz.EXE")
GUICtrlSetData($id_label21, "")
;1-6
Case $msg = $id_icon6
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\new\Magic Ball 2 - New Worlds\MagicBall2NW.EXE")
GUICtrlSetData($id_label21, "")
;1-7
Case $msg = $id_icon7
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Chainz 2 - Relinked\Chainz2.EXE")
GUICtrlSetData($id_label21, "")
;1-8
Case $msg = $id_icon8
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Charm Solitaire\CharmSolitaire.EXE")
GUICtrlSetData($id_label21, "")

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

;2-1
Case $msg = $id_icon9
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Charm Tale\CharmTale.EXE")
GUICtrlSetData($id_label21, "")
;2-2
Case $msg = $id_icon10
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Chuzzle Deluxe\Chuzzle.EXE")
GUICtrlSetData($id_label21, "")
;2-3
Case $msg = $id_icon11
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Collapse! Crunch\Collapse3.EXE")
GUICtrlSetData($id_label21, "")
;2-4
Case $msg = $id_icon12
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Combo Chaos!\ComboChaos.EXE")
GUICtrlSetData($id_label21, "")
;2-5
Case $msg = $id_icon13
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Crystal Path\CrystalPath.EXE")
GUICtrlSetData($id_label21, "")
;2-6
Case $msg = $id_icon14
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Digby's Donuts\DigbysDonuts.EXE")
GUICtrlSetData($id_label21, "")
;2-7
Case $msg = $id_icon15
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Feeding Frenzy\FeedingFrenzy.EXE")
GUICtrlSetData($id_label21, "")
;2-8
Case $msg = $id_icon16
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Fiber Twig\FiberTwig.EXE")
GUICtrlSetData($id_label21, "")

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

;3-1
Case $msg = $id_icon17
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Flying Leo\FlyinLeo.EXE")
GUICtrlSetData($id_label21, "")
;3-2
Case $msg = $id_icon18
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Fortune Tiles Gold\FortuneTiles.EXE")
GUICtrlSetData($id_label21, "")
;3-3
Case $msg = $id_icon19
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\GameHouse Sudoku\GHSudoku.EXE")
GUICtrlSetData($id_label21, "")
;3-4
Case $msg = $id_icon20
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Jewel Quest\JewelQuest.EXE")
GUICtrlSetData($id_label21, "")
;3-5
Case $msg = $id_icon21
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Luxor\Luxor.EXE")
GUICtrlSetData($id_label21, "")
;3-6
Case $msg = $id_icon22
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Mah Jong Adventures\MahJongAdventures.EXE")
GUICtrlSetData($id_label21, "")
;3-7
Case $msg = $id_icon23
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Mah Jong Medley\mahjong2.EXE")
GUICtrlSetData($id_label21, "")
;3-8
Case $msg = $id_icon24
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Mah Jong Quest\MahJongQuest.EXE")
GUICtrlSetData($id_label21, "")

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

;4-1
Case $msg = $id_icon25
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Mahjong Garden To Go\MahjongGarden.EXE")
GUICtrlSetData($id_label21, "")
;4-2
Case $msg = $id_icon26
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Mahjong Towers Eternity\MJTowersEternity.EXE")
GUICtrlSetData($id_label21, "")
;4-3
Case $msg = $id_icon27
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\QBz\QBeez.EXE")
GUICtrlSetData($id_label21, "")
;4-4
Case $msg = $id_icon28
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Ricochet\Ricochet.EXE")
GUICtrlSetData($id_label21, "")
;4-5
Case $msg = $id_icon29
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Ricochet Lost Worlds\Ricochet.EXE")
GUICtrlSetData($id_label21, "")
;4-6
Case $msg = $id_icon30
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Ricochet Lost Worlds - Recharged\RicochetRecharged.EXE")
GUICtrlSetData($id_label21, "")
;4-7
Case $msg = $id_icon31
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Splash\Splash.EXE")
GUICtrlSetData($id_label21, "")
;4-8
Case $msg = $id_icon32
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Super Bounce Out!\BounceOut.EXE")
GUICtrlSetData($id_label21, "")

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

;5-1
Case $msg = $id_icon33
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Super Collapse!\Collapse.EXE")
GUICtrlSetData($id_label21, "")
;5-2
Case $msg = $id_icon34
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Super Collapse! II\Relapse.EXE")
GUICtrlSetData($id_label21, "")
;5-3
Case $msg = $id_icon35
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Super Collapse! II Platinum\RelapsePlatinum.EXE")
GUICtrlSetData($id_label21, "")
;5-4
Case $msg = $id_icon36
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Super GameHouse Solitaire Vol. 1\Solitaire.EXE")
GUICtrlSetData($id_label21, "")
;5-5
Case $msg = $id_icon37
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Super GameHouse Solitaire Vol. 2\ghsol2.EXE")
GUICtrlSetData($id_label21, "")
;5-6
Case $msg = $id_icon38
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Super GameHouse Solitaire Vol. 3\ghsol3.EXE")
GUICtrlSetData($id_label21, "")
;5-7
Case $msg = $id_icon39
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Super Mah Jong Solitaire\Mahjong.EXE")
GUICtrlSetData($id_label21, "")
;5-8
Case $msg = $id_icon40
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Super Pool\Pool.EXE")
GUICtrlSetData($id_label21, "")

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

;6-1
Case $msg = $id_icon41
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Super SpongeBob Collapse!\SBCollapse.EXE")
GUICtrlSetData($id_label21, "")
;6-2
Case $msg = $id_icon42
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Tropical Swaps\TropicalSwaps.EXE")
GUICtrlSetData($id_label21, "")
;6-3
Case $msg = $id_icon43
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Tumblebugs\Tumblebugs.EXE")
GUICtrlSetData($id_label21, "")
;6-4
Case $msg = $id_icon44
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Ultimate Dominoes\Dominoes.EXE")
GUICtrlSetData($id_label21, "")
;6-5
Case $msg = $id_icon45
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Varmintz Deluxe\Varmintz.EXE")
GUICtrlSetData($id_label21, "")
;6-6
Case $msg = $id_icon46
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\Zuma Deluxe\Zuma.EXE")
GUICtrlSetData($id_label21, "")
;6-7
Case $msg = $id_icon47
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game")
Sleep(1000)
Run(@ScriptDir & "\xxx\123FreeSolitaire.EXE")
GUICtrlSetData($id_label21, "")
;REG MY HOUSE
Case $msg = $reg
$text = ""
#include <Process.au3>
$rc = _RunDos("start reg.reg")
WinWaitActive("Registry Editor","")
ControlClick("Registry Editor", "&Yes", 6, 1)
WinWaitActive("Registry Editor", "OK")
ControlClick("Registry Editor", "OK", 2, 1)
; CLOSE
Case $msg = $CLOSE
Exit

EndSelect

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

If $msg=$GUI_EVENT_CLOSE Then ExitLoop
WEnd

[/autoit]

Also einige der Spiele starten einfach nicht oder es kommt eine Fehlermeldung! Folgende spiele laufen einfah nicht:

1-6, 1-7, 2-2, 2-4, 2-7, 3-2, 3-4, 3-5, 3-8, 4-1, 4-7, 6-2, 6-4

kann mir irgendeiner helfen???

ExBerliner

fehlermeldung wäre sicher interessant zu wissen.

ansonsten fällt mir erstmal nur ein: gib beim run-befehl mal das "workingdir" an.

syntax: Run ( "filename" [, "workingdir" [, flag]] )

gruss exberliner

**Xenobiologist**

Hi,

hab mir das Skript jetzt auch nicht genau angeguckt, aber das schreit förmlich nach Vereinfachung und Kürzung durch Funktionen.

So long,

Mega

apollox65

Hi!
mit syntax: Run ( "filename" [, "workingdir" [, flag]] ) klappts super!!!!

Dankeschoen!!!!

Vinschni

@th.meger da du der meinung bist das mein script nach vereinfachung "schreit" helf mir doch bitte, dass ich in Zukunft kürzere Scripte schreiben kann, ich hab dass mit den Funktionen nämlich noch nicht so gut drauf.

Grüße Vinschni

**Xenobiologist**

Hi,

kann ich gern tun. Bist du denn derselbe wie apollox65 ?

Welches Skript meinst du genau?

So long,

Mega

Vinschni

@th.meger Ne ich mein den Script oben, den hab ich für ihr(apollox65) geschrieben(wie kommst du darauf dass ich mich zweimal anmelde? ist doch blödsinn!??) Steht ja auch drin:

[autoit]

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.1.13 (beta)
Author: vinschni

Script Function:
Graphische Oberflache zum Starten von vorgegebenen Programmen

#ce ----------------------------------------------------------------------------

[/autoit]

:stolz_bin:

Grüße vinschni

**Xenobiologist**

Hi,

sorry habe ich gar nicht reingeguckt, bzw. übersehen. Ich werde mal gucken, wie das kürzen würde.

So long,

Mega

**Xenobiologist**

Hi,

das ist mir auf die Schnelle eingefallen. Vielleicht nicht immer sinnvoll, aber kürzer.

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.1.13 (beta)
Author: vinschni

Script Function:
Graphische Oberflache zum Starten von vorgegebenen Programmen

#ce ----------------------------------------------------------------------------

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

#include <GUIConstants.au3>
#include <Process.au3>

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

GUICreate("Spiele-Starter", 800, 650)
GUISetState(@SW_SHOW)
GUISetBkColor(0x3333CC)
;Opt("TrayIconHide", 1)

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

Global $icon_A[48]
Global $left_A[9] = ['9', 26, 120, 220, 320, 420, 520, 620, 720]
Global $top_A[7] = ['7', 10, 105, 204, 303, 402, 501]
Global $y = 1, $l = 1
Global $gamesPaths[5] = ['47', "Aloha Solitaire\AlohaSolitaire.EXE", "Ancient Tri-Jong\AncientTriJong.EXE", _
"Bejeweled 2\Bejeweled2.EXE", "Bounce Out Blitz\BounceOutBlitz.EXE"] ; hier den Rest der Pfade rein.

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

For $i = 1 To 47
If Mod($i, = 0 Then $y += 1
$icon_A[$i] = GUICtrlCreateIcon(@ScriptDir & "\ICO\" & $i & ".ICO", -1, $left_A[$l], $top_A[$y], 50, 56, -1, -1)
$l += 1
If $l = 9 Then $l = 1
Next

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

;BUTTON
$id_label21 = GUICtrlCreateLabel("", 10, 620, 211, 15, -1, -1)
$CLOSE = GUICtrlCreateButton("EXIT", 720, 620, 68, 23, -1, -1)
$reg = GUICtrlCreateButton("", 1, 645, 10, 10, -1, -1)

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

While 1
$msg = GUIGetMsg()
For $i = 1 To UBound($gamesPaths) - 1
If $msg = $icon_A[$i] Then start($gamesPaths[$i])
Next
If $msg = $reg Then
$text = ""
$rc = _RunDOS("start reg.reg")
WinWaitActive("Registry Editor", "")
ControlClick("Registry Editor", "&Yes", 6, 1)
WinWaitActive("Registry Editor", "OK")
ControlClick("Registry Editor", "OK", 2, 1)
EndIf
If $msg = $CLOSE Or $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

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

Func start($run)
$text = ""
GUICtrlSetData($id_label21, $text & "Starting the Game") ; und zeigt ihn dann unter mit wird gestartet... 1s an.
Sleep(1000)
MsgBox(0, "Würde dies starten ...", $run) ; habe ich ersetzt, weil ich die Pfade logischerweise nicht habe!
;Run(@ScriptDir & "\" & $run) ; Dieser Befehl startet dein Programm
GUICtrlSetData($id_label21, "") ;Hier wird die Anzeige wieder geloscht.
EndFunc ;==>start

[/autoit]

So long,

Mega

Vinschni

@th.meger Danke, werde mir den Script genau anschauen und versuchen daraus zu lernen

Grüße vinschni

**Xenobiologist**

Hi,

kein Problem. Wenn du Fragen hast, ich helfe gern.

So long,

Mega