Hii, Ich ahbe aus langeweile einfach mal ein kleines GameCenter mit flashgames in eine Gui gemacht mit meinen lieblingsgames (Außer Deal or No Deal)
Sehet und staunet^^
Spoiler anzeigen
;Copyright by Jonathan Möwe
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
ProgressOn("Game Center","Bitte warten")
if FileExists("C:\fgames\gold.swf") = 0 Then InetGet("http://web1.playit2.ibone.ch/flashgamesz/V43xR5DJCuPVkAffBzYe2AuHLxxbT6.swf","C:\fgames\gold.swf",1)
ProgressSet(17)
if FileExists("C:\fsgames\bubble.swf") = 0 Then InetGet("http://web1.playit2.ibone.ch/flashgamesz/eaA33bfp9xW8gW6StcUSTtm7WWaq4K.swf","C:\fgames\bubble.swf",1)
ProgressSet(34)
if FileExists("C:\fgames\pacman.swf") = 0 Then InetGet("http://playit.ch/flashgamesz/pacman1/pacman1.swf","C:\fgames\pacman.swf",1)
ProgressSet(51)
if FileExists("C:\fgames\fire.swf") = 0 Then InetGet("http://web1.playit2.ibone.ch/flashgamesz/2Lm5BC3shSKFCpwUaW5gfEZuKyKmYb.swf","C:\fgames\fire.swf",1)
ProgressSet(68)
if FileExists("C:\fgames\deal.swf") = 0 Then InetGet("http://web1.playit2.ibone.ch/flashgamesz/fzvTdAm8nJdqAqLkgx8gHvnpWTMy7V.swf","C:\fgames\deal.swf",1)
ProgressSet(85)
if FileExists("C:\fgames\othello.swf") = 0 Then InetGet("http://web1.playit2.ibone.ch/flashgamesz/nxEhewFfx3T9uWX5ushvqzAYY89vPd.swf","C:\fgames\othello.swf",1)
ProgressSet(100)
ProgressOff()
$oIE = _IECreateEmbedded ()
_IEErrorHandlerRegister ()
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
[/autoit] [autoit][/autoit] [autoit]GUICreate("Gaming Center",688,500)
$gold = GUICtrlCreateButton("Gold Miner",10,10,103,30)
$bubble = GUICtrlCreateButton("Bubble Shooter",123,10,103,30)
$pacman = GUICtrlCreateButton("Pacman",236,10,103,30)
$fire = GUICtrlCreateButton("Playin with Fire 2",349,10,103,30)
$deal = GUICtrlCreateButton("Deal or No Deal",462,10,103,30)
$othello = GUICtrlCreateButton("Othello",575,10,103,30)
$gamefenster = GUICtrlCreateObj($oIE, 10, 60, 668, 440)
;~ $oSubmit = _IEGetObjByName ($oIE, "submitExample")
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
If $msg = $gold And MsgBox(36,"Gold Miner","Gold Miner Spielen?") = 6 Then
_IENavigate ($oIE, "C:\fgames\gold.swf")
EndIf
If $msg = $bubble And MsgBox(36,"Bubble Shooter","bubble Shooter Spielen?") = 6 Then
_IENavigate ($oIE, "C:\fgames\bubble.swf")
EndIf
If $msg = $pacman And MsgBox(36,"Pacman","Pacman Spielen?") = 6 Then
_IENavigate ($oIE, "C:\fgames\pacman.swf")
EndIf
If $msg = $fire And MsgBox(36,"Playing with Fire 2","Playing with Fire 2 Spielen?") = 6 Then
_IENavigate ($oIE, "C:\fgames\fire.swf")
EndIf
If $msg = $deal And MsgBox(36,"Deal or No Deal","Deal or No Deal Spielen?") = 6 Then
_IENavigate ($oIE, "C:\fgames\deal.swf")
EndIf
If $msg = $othello And MsgBox(36,"Othello","Othello Spielen?") = 6 Then
_IENavigate ($oIE, "C:\fgames\othello.swf")
EndIf
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit] [autoit][/autoit] [autoit][/autoit]