Beiträge von Jonathan

  • Fehler in zeile 2348 von 66 ?!

    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
    [autoit]


    #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()

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

    $oIE = _IECreateEmbedded ()
    _IEErrorHandlerRegister ()

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

    $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)

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

    $oSubmit = _IEGetObjByName ($oIE, "submitExample")
    GUISetState(@SW_SHOW)

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

    While 1
    $msg = GUIGetMsg()

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

    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")

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

    EndIf
    If $msg = $bubble And MsgBox(36,"Bubble Shooter","bubble Shooter Spielen?") = 6 Then
    _IENavigate ($oIE, "C:\fgames\bubble.swf")

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

    EndIf
    If $msg = $pacman And MsgBox(36,"Pacman","Pacman Spielen?") = 6 Then
    _IENavigate ($oIE, "C:\fgames\pacman.swf")

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

    EndIf
    If $msg = $fire And MsgBox(36,"Playing with Fire 2","Playing with Fire 2 Spielen?") = 6 Then
    _IENavigate ($oIE, "C:\fgames\fire.swf")

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

    EndIf
    If $msg = $deal And MsgBox(36,"Deal or No Deal","Deal or No Deal Spielen?") = 6 Then
    _IENavigate ($oIE, "C:\fgames\deal.swf")

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

    EndIf
    If $msg = $othello And MsgBox(36,"Othello","Othello Spielen?") = 6 Then
    _IENavigate ($oIE, "C:\fgames\othello.swf")

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

    EndIf

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

    WEnd

    [/autoit]

  • Fritz!box Reconnect

    habe ich schon :( aber es wurde kein Thema angezeigt, und jetzt wird mir nur dieses Thema angezeigt....

    aber: meine Suche is wahrscheinlich wie immer am Spinnen....
    habs auch schon in google nach "autoit.de" reconnect gesucht, aber auch nix gefunden :(

  • Fritz!box Reconnect

    hii, Wie bekomme cih einen Reconnect der Fritz!box hin? daran versage ich im moment total *wär hätte es gedacht*

    Auf die Idee bin ich wegen sonem Firefox Add!on gekommen. da muss man nur unter extras auf fritzbox reconnect drücken und n paar sek. später is alles vorbei. ohne pw eingabe etc.

    hat da jemand ne idee?

  • Progress uhr

    Hii an alle Autoitler
    Ich habe huete was installiert, und dann is die installation mit dem ladebalken hängengeblieben. da kam mir die Idee und am ende war es dann soweit: Das Unsinnigste Script, das ich je erstellt habe, wurde hier hochgeladen. 8o

    p.s. Ich weiß, das ich das auch wieder wie die meisten Scripts von mir extrem kürzen könnte... aber egal^^ soll ja nur funktionieren :!:

    Wenn man mal nicht weiß, wieviel uhr es ist, und raten muss, bietet dieses Script dabei eine Wahnsinnige Hilfe

    Spoiler anzeigen
    [autoit]


    ;Copyright 2010 Alexander I*** alias: Jonathan Möwe / funfun / blow_Chiken
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ProgressConstants.au3>
    #NoTrayIcon
    if @MON = 1 Then $mdays = 31
    if @MON = 2 Then $mdays = 28
    if @MON = 3 Then $mdays = 31
    if @MON = 4 Then $mdays = 30
    if @MON = 5 Then $mdays = 30
    if @MON = 6 Then $mdays = 30
    if @MON = 7 Then $mdays = 31
    if @MON = 8 Then $mdays = 29
    if @MON = 9 Then $mdays = 30
    if @MON = 10 Then $mdays = 31
    if @MON = 11 Then $mdays = 30
    if @MON = 12 Then $mdays = 31
    $jahrkonstat = Round(100/366,1)
    $monatkonstat = Round(100/$mdays,1)
    $daykonstat = Round(100/24,1)
    $stundekonstat = Round(100/60,1)
    $minutekonstat = Round(100/60,1)

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

    GUICreate("Uhr", 320, 210)
    ;progressbars
    $jahr = GUICtrlCreateProgress(50, 10, 200, 30)
    $monat = GUICtrlCreateProgress(50, 50, 200, 30)
    $tag = GUICtrlCreateProgress(50, 90, 200, 30)
    $stunde = GUICtrlCreateProgress(50, 130, 200, 30)
    $minute = GUICtrlCreateProgress(50, 170, 200, 30)
    ;beschriftungs labels
    GUICtrlCreateLabel("Jahr",10,17)
    GUICtrlCreateLabel("Monat",10,57)
    GUICtrlCreateLabel("Tag",10,97)
    GUICtrlCreateLabel("Stunde",10,137,39)
    GUICtrlCreateLabel("Minute",10,177)
    ;prozentlabels
    $jahrl = GUICtrlCreateLabel("00,00%",260,17)
    $monatl = GUICtrlCreateLabel("00,00%",260,57)
    $tagl = GUICtrlCreateLabel("00,00%",260,97)
    $stundel = GUICtrlCreateLabel("00,00%",260,137,39)
    $minutel = GUICtrlCreateLabel("00,00%",260,177)

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

    GUISetState()
    $sec = 98
    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    if $sec <> @SEC Then
    ;progressbarset
    GUICtrlSetData($jahr,@YDAY*$jahrkonstat)
    GUICtrlSetData($monat,@MDAY*$monatkonstat)
    GUICtrlSetData($tag,@HOUR*$daykonstat)
    GUICtrlSetData($stunde,@MIN*$stundekonstat)
    GUICtrlSetData($minute,@SEC*$minutekonstat)
    ;labelset
    GUICtrlSetData($jahrl,@YDAY*$jahrkonstat & " %")
    GUICtrlSetData($monatl,@MDAY*$monatkonstat & " %")
    GUICtrlSetData($tagl,@HOUR*$daykonstat & " %")
    GUICtrlSetData($stundel,@MIN*$stundekonstat & " %")
    GUICtrlSetData($minutel,@SEC*$minutekonstat & " %")
    $sec = @SEC
    EndIf
    WEnd

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

  • Funktion SEND und Bildschirmschoner

    Zitat von TheDude


    Noch eine Frage wegen der Control-ID, bitte: Ist die denn immer gleich oder ändert die sich, wenn ich das Programm oder den Rechner neu gestartet habe (sorry, bin da wirklich ein Newbie :S )?

    Danke euch!

    Grüße
    Thomas

    die Conttrol ID bleibt eigentlich immer gleich... außer, du machst ein Softwareupdate, dann kann Sie sich ändern (war bei mir einmal so)

    l.g. Jonathan

  • Funktion SEND und Bildschirmschoner

    Ich kapier nicht ganz, was du willst ^^
    wenn du den bildschirmschoner beenden willst:
    Dann mach vorher einmal mausmove ODER Deaktivire den bildschirmschoner: rechtsklick auf Desktop Eigenschaften -> Bildschirmschoner und als bildschirmschoner wählst du "kein" aus.
    Wenn du trotz Bildschirmschoner eingaben senden willst, ohne ihn zu beenden:
    Probier mal ControlSend, weiß nciht ob es geht, aber ien versuch ist es wert... ;)

    p.s. es würde mir und den anderen helfen, wenn du dein Programmscript hier reinstellen würdest, und sagen könntest, um welches Programm es sich handelt.

    l.g. Jonathan

  • Kleiner Webradioplayer

    vllt wenn du

    [autoit]

    if _Singleton("Skript",1) = 0 Then Exit

    [/autoit]

    in folgendes änderst:

    [autoit]

    if _Singleton("webradio1.0",1) = 0 Then Exit

    [/autoit]


    Ansonsten minimiert sich das nach dem Start in die Taskleiste und kann über das Traymenü bedient werden.

  • Kleiner Webradioplayer

    Hi,
    Lange ists her, aber endllich kann ich mal wieder ein Script vorstellen. Es ist nichts besonderes, aber tut was es soll, und lässt sich komplett über das Traymenü steuern. Es ist ein kleiner Webradioplayer, dem ich mal Harderbase TechnoBase und 1Live in die Senderliste gepackt habe... Sehts euch an, und staunt^^

    Spoiler anzeigen
    [autoit]


    ;Copyright by Jonathan Möwe
    ;~ #RequireAdmin
    #include <Misc.au3>
    #include <IE.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    if _Singleton("Skript",1) = 0 Then Exit
    Opt("TrayAutoPause",0)
    Opt("TrayMenuMode",1)

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

    $sendermenue = TrayCreateMenu("Sender")
    $harderbase = TrayCreateItem("HardeBase",$sendermenue)
    $technobase = TrayCreateItem("TechnoBase",$sendermenue)
    $1live = TrayCreateItem("1 Live",$sendermenue)
    TrayCreateItem("")
    $ueber = TrayCreateItem("Über")
    TrayCreateItem("")
    $exit = TrayCreateItem("Exit")

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()
    $gui = GUICreate("EmbeddedWebControl-Test", 10, 10, 10,10)
    $GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 600, 360)
    GUISetState(@SW_HIDE,$gui)

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

    ;Adressen
    $harderbaseurl = "http://www.hardbase.fm/wmplayer.php"
    $technobaseurl = "http://www.technobase.fm/wmplayer.php"
    $1liveurl = "http://www.einslive.de/multimedia/livestream_popup/player_stream_mp3.html"

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

    TraySetToolTip("WebRadio 1.0" & @LF & "by Alexander Imka" & @LF & "Have Fun")
    While 1
    $nMsg = TrayGetMsg()
    Switch $nMsg
    Case $exit
    Exit
    Case $harderbase
    TraySetToolTip("WebRadio 1.0" & @LF & "Radio Sender wird geladen...")
    _IENavigate($oIE,$harderbaseurl,1)
    TraySetToolTip("WebRadio 1.0" & @LF & "Sender Geladen!" & @LF & "HarderBase" & @LF & "www.harderbase.fm")
    Case $technobase
    TraySetToolTip("WebRadio 1.0" & @LF & "Radio Sender wird geladen...")
    _IENavigate($oIE,$technobaseurl,1)
    TraySetToolTip("WebRadio 1.0" & @LF & "Sender Geladen!" & @LF & "TechnoBase" & @LF & "www.technobase.fm")
    Case $1live
    TraySetToolTip("WebRadio 1.0" & @LF & "Radio Sender wird geladen...")
    _IENavigate($oIE,$1liveurl,1)
    TraySetToolTip("WebRadio 1.0" & @LF & "Sender Geladen!" & @LF & "1 Live" & @LF & "www.einslive.de")
    Case $ueber
    MsgBox(64,"Copyright","Copyright by Jonathan")

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

    EndSwitch
    WEnd

    [/autoit]