Hallo!
Bei folgenden Script habe ich einiege Probleme!
Spoiler anzeigen
#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)
;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, "")
;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, "")
;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, "")
;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, "")
;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, "")
;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
If $msg=$GUI_EVENT_CLOSE Then ExitLoop
WEnd
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???