hii, ich bin wieder richtig super drauf... ich habe mir so ein kleines FlashgameCenter geschrieben... hatte erst funktioniert, dann hatte ich was geändert. das ging nicht, und seit dem rückgängigmachen habe ich einen Fehler in zeile 2348. das coole: das hat nur 66 Zeilen ich denke, das es irgendwas mit den includes ist
Spoiler anzeigen
#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]