Beiträge von shadow667

  • if in folge

    In dem Fall funktioniert's auch so:

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>

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

    $dll = DllOpen("user32.dll")

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

    While 1
    Sleep ( 250 )
    If _IsPressed("52", $dll) Then MsgBox(0,"_IsPressed", "r wurde gedrückt.")
    If _IsPressed("54", $dll) Then MsgBox(0,"_IsPressed", "t wurde gedrückt.")
    If _IsPressed("53", $dll) Then MsgBox(0,"_IsPressed", "s wurde gedrückt.")
    WEnd
    DllClose($dll)

    [/autoit]

  • Transparenz bei MouseOver switchen

    Zitat von chip

    Nein ist kein Fehler.

    Dann probier's mal aus, indem du die GUI-Variable umbenennst...

    [autoit]

    Global $MeineGUI = GUICreate("test")

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

    _TransOffByMouseOver($MeineGUI)

    [/autoit]

    würde in dem Fall nicht funktionieren, wenn man aber das von mir angesprochene in der UDF ausbessert, dann funktioniert's

    MfG

    P.S.: Nichts desto trotz ne klasse Funktion!

  • Bug mit bild als hintergrund der GUI alle tasten sind weg wenn man das Programm startet

    Spoiler anzeigen
    [autoit]

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

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

    AutoIt Version: 3.3.8.1
    Author: Silver_Shadow97

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

    Script Function: TrackPlayer™ by Silver_shadow97™ version: [ALPHA 0.4]
    Template AutoIt script.

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

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

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

    ; Script Start - Add your code below here

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

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <SliderConstants.au3>
    #include <WindowsConstants.au3>
    #include <Sound.au3>
    Global $h_sound
    Global $max_sec
    $ver = "Noahs track Player y Silver_Shadow97"
    #Region ### START Koda GUI section ### Form=
    $GUI = GUICreate("Noahs trackPlayer By Silver_Shadow97™", 540, 440, 427, 146)

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

    $background = GUICtrlCreatePic(@ScriptDir &"\Pics\Background.jpg", 0, 0, 537, 417) ;als erstes das Hintergurndbild erstellen
    GUICtrlSetState($background, $GUI_DISABLE) ;und danach auf Status $GUI_DISABLE setzen

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

    $Settings = GUICtrlCreateMenu("&Einstellungen F1")
    $Settings_Sound = GUICtrlCreateMenu("Sound"&@TAB&"", $Settings)
    $Setings_Soundon = GUICtrlCreateMenuItem("Sound: On"&@TAB&"", $Settings_Sound)
    $Settings_Soundoff = GUICtrlCreateMenuItem("Sound: Off", $Settings_Sound)
    $CopyRight_menu = GUICtrlCreateMenu("&Kopier-Rechte F10")
    $Copyright_Trackplayer = GUICtrlCreateMenuItem("Track Player ™", $CopyRight_menu)
    $help_menu = GUICtrlCreateMenu("&Hilfe F11")
    $Bugs_helpmenu = GUICtrlCreateMenuItem("Unbehebbare Bugs", $help_menu)
    $Contact = GUICtrlCreateMenuItem("Kontakt", $help_menu)
    $Play_pause_btn = GUICtrlCreateButton("Play/Pause", 232, 200, 75, 25)
    $Stop_btn = GUICtrlCreateButton("Stop", 144, 280, 75, 41)
    $Replay_btn = GUICtrlCreateButton("Replay", 320, 280, 75, 41)
    $Options_btn = GUICtrlCreateButton("Optionen", 232, 304, 75, 25)
    $Exit_btn = GUICtrlCreateButton("Beenden", 200, 336, 139, 33)
    $Slider1 = GUICtrlCreateSlider(200, 376, 142, 29)
    $Progress1 = GUICtrlCreateProgress(0, 176, 534, 17)
    $Open = GUICtrlCreateButton("Öffnen", 232, 232, 75, 65)
    Dim $GUI_AccelTable[1][2] = [["!+{BS}", $Setings_Soundon]]
    GUISetAccelerators($GUI_AccelTable)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    MsgBox (49,"!!!Achtung!!!","ich weise darauf hin dass ein unbehebbarer bug vorhanden ist.Dieser bug bezieht sich auf das interface daher müssen sie entweder mehrmalig die pfeiltaste nach unten drücken damit die buttons sichtbar werden oder sie mit dem mauszeiger über das interfae gehen.Dies ist nur ein Hinweis.",15)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Play_pause_btn
    If _SoundStatus($h_sound) = "playing" Then
    _SoundPause($h_sound)
    ElseIf _SoundStatus($h_sound) = "paused" Then
    _SoundResume($h_sound)
    EndIf
    Case $Replay_btn
    If _SoundStatus($h_sound) = "playing" or _SoundStatus($h_sound) = "paused" Then
    _SoundStop($h_sound)
    _SoundPlay($h_sound)
    EndIf
    Case $Open ;==> Open
    $f_open = FileOpenDialog("Select Audio File",@ScriptDir,"(*.*)")
    If not @error Then
    _SoundClose($h_sound)
    $h_sound = _SoundOpen($f_open)
    $max_sec = _SoundLength($h_sound,2) *1000
    _SoundPlay($h_sound)
    WinSetTitle($GUI,"",$f_open)
    AdlibRegister("ShowSeek",250)
    AdlibRegister("GetVol",150)
    EndIf
    Case $Stop_btn
    _SoundStop($h_sound)
    GUICtrlSetData($Progress1,0)
    WinSetTitle($GUI,"",$ver)
    AdlibUnRegister("ShowSeek")
    AdlibUnRegister("GetVol")
    Case $Exit_btn
    Exit
    Case $Copyright_Trackplayer
    MsgBox (49,"TrackPlayer Kopierrechte","Dieser track palyer Wurde Erstellt von Silver_Shadow97 und ist uhrheberrechtlich geschützt.Des weiteren verbiete ich jegliche verbreitung unter 'anderen' namen und vermarktung. 2012© Silver_Shadow97™",15)
    Case $Bugs_helpmenu
    MsgBox (49,"Unbehebbare Bugs","leider habe ich ein paar Bugs oder besser einen bug der sich nicht beheben lässt.Dieser bug besteht darin sobald man den Track Player™ startet dass man nur den hinter grund sieht und erst mit dem mauszeiger drüber gehen muss über all um die buttons sichtbar zu machen.",13)
    Case $Contact
    MsgBox (0,"Kontakt"," ihr könnt mich erreichen auf meinem channel unter : http://www.Youtube.com\Users\Kiyubi97 oder über meine E-mail: [email='www.Silver_Shadow97@web.de'][/email] zu fragen stehe ich gern zu verfügung.",12)
    Case $Options_btn
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Options_GUI = GUICreate("Optionen", 284, 147, 525, 278)

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

    $background = GUICtrlCreatePic(@ScriptDir &"\Pics\Background.jpg", 0, 0, 281, 145); hier das gleiche
    GUICtrlSetState($background, $GUI_DISABLE)

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

    $soundon_btn = GUICtrlCreateButton("Sound: On", 0, 0, 75, 33)
    $soundoff_btn = GUICtrlCreateButton("Sound: Off", 0, 112, 75, 33)
    $Copyrights = GUICtrlCreateButton("Kopier-Rechte", 208, 0, 75, 33)
    $Close_btn = GUICtrlCreateButton("Schliessen", 208, 112, 75, 33)

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $soundon_btn
    SoundSetWaveVolume (100)
    Case $soundoff_btn
    SoundSetWaveVolume (0)
    Case $Copyrights
    MsgBox(0,"Kopier-Rechte","Alle tracks sind Uhrheberrechtlich kopiergeschützt und somit nicht mein Content.Ich verbiete jegliches verbreiten unter eigenen Namen!Der Track Player Wurde erstellt von Silver_Shadow97™ und der Player ist somit auch uhrheber rechtlich geschützt.2012® Silver_Shadow97™ Track Player™ version: 0.4 Alpha.",15)
    Case $Close_btn
    WinClose ($Options_GUI)
    EndSwitch
    WEnd

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

    EndSwitch
    WEnd

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

    Func ShowSeek() ;Update the Progressbar
    $pos_sec = _SoundPos($h_sound,2) * 1000
    $set = $pos_sec / $max_sec * 100
    GUICtrlSetData($Progress1,$set)
    EndFunc

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

    Func GetVol() ; Set the wave volume
    SoundSetWaveVolume(GUICtrlRead($Slider1))
    EndFunc

    [/autoit]

    So besser?

    Edit:
    Habe allerdings nur das Bild-Problem gelöst. Allerdings würde ich an deiner Stelle die beiden GUIs am Anfang erstellen und per Button die zweite nur noch einblenden. Desweiteren verwendest du Variablen für Controls mehrmals, was zu fehlern führen kann.

    Edit 2: Includes brauchst du nur einmal einzubinden, idealerweise am Anfang des Scripts

  • Programm nur einmal ausführen

    Zitat von AspirinJunkie

    Ich würde statt @ScriptName lieber empfehlen einen beliebigen konstanten String einzutragen.
    Wenn das Skript 2x existiert und einmal z.B. Skript1.au3 und ein anderes Skript2.au3 heißt kann es dennoch 2x aufgerufen werden.

    Ist zwar möglich, ich persönlich nutze lieber @ScriptName
    Gerade wenn das Script als .exe compiled ist und jemand die Datei umbenennt, wäre ein mehrfaches Starten wieder möglich

    Gruß

  • GUI ruckelt

    Also ich würde sagen (hab allerdings nicht allzuviel Erfahrung mit GDI+), daß, wenn du im Script weiter mit GDI+ arbeiten willst, es einmal am Scriptanfang zu starten und dann vor'm Exit wieder zu beenden. Die Funktion wäre dann wie in deiner V2

    Edit: Ich verwende die Funktion mit Arrays + For-Next Schleife und lösche die .jpg's beim Beenden des Scripts wieder, etwa so:

    Spoiler anzeigen
    [autoit]

    #include <GDIPlus.au3>
    Global $PNG_Bilder[4] = [@ScriptDir&"\Bild1.png", @ScriptDir&"\Bild2.png",@ScriptDir&"\Bild3.png",@ScriptDir&"\Bild4.png"]
    Global $JPG_Bilder[4]

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

    For $i = 0 to 3
    $JPG_Bilder[$i] = _PNGtoJPG($PNG_Bilder[$i])
    Next

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

    OnAutoItExitRegister("_DelJPGFiles")

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

    Func _PNGtoJPG($PNG)
    Local $hImage, $sCLSID
    Local $File = FileGetLongName($PNG)
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($File)
    $sCLSID = _GDIPlus_EncodersGetCLSID("JPG")
    Local $NewJpg = StringTrimRight($File, 4)&".jpg"
    Local $Check = _GDIPlus_ImageSaveToFileEx($hImage, $NewJpg, $sCLSID)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
    If $Check = True Then
    Return($NewJpg) ;Pfad zur neu erstellten .jpg
    ElseIf $Check = False Then
    Return(-1) ; ansonsten Rückgabewert "-1"
    EndIf
    EndFunc ;==>_PNGtoJPG

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

    Func _DelJPGFiles()
    For $i = 0 To 3
    FileDelete($JPG_Bilder[$i])
    Next
    EndFunc

    [/autoit]

  • GUI ruckelt

    Hatte gestern auch ein Problem mit einer .png-Datei. Da ich das Bild in einem Tab-Control darstellen musste, kam die GDI+ Variante (aus der Hilfe) für mich nicht in Frage.
    Hab dann etwas in Google geblättert und eine Funktion zum Umwandeln von .png in .jpg gefunden.
    Sieht, nachdem ich's für mich angepasst hatte, in etwa so aus:

    [autoit]

    #include <GDIPlus.au3>

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

    $Pic = _PNGtoJPG(@ScriptDir&"\DeinBild.png") ;Pfad zur .png

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

    Func _PNGtoJPG($PNG)
    Local $hImage, $sCLSID
    Local $File = FileGetLongName($PNG)
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($File)
    $sCLSID = _GDIPlus_EncodersGetCLSID("JPG")
    Local $NewJpg = StringTrimRight($File, 4)&".jpg"
    Local $Check = _GDIPlus_ImageSaveToFileEx($hImage, $NewJpg, $sCLSID)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
    If $Check = True Then
    Return($NewJpg) ;Pfad zur neu erstellten .jpg
    ElseIf $Check = False Then
    Return(-1) ; ansonsten Rückgabewert "-1"
    EndIf
    EndFunc ;==>_PNGtoJPG

    [/autoit]

    Edit: Wie UEZ schon sagte: Viele Wege führen nach Rom

  • Übersetzter für Online-games

    Bei diesem "Problem" würde ich anders an die Sache ran gehen:

    Du könntest dir ein kleines Script schreiben, welches per Hotkey 'ne Eingabezeile öffnet. Dort gibst du das unbekannte Wort ein.
    Jetzt liest du den Quelltext von

    [autoit]

    $String = BinaryToString(Inetread("www.dict.cc/?s="&$Suchbegriff,1))

    [/autoit]


    und filterst dir die Übersetzung aus dem Quelltext. Das Ergebnis lässt dir dann per Tooltip oder MsgBox ausgeben
    So hast du das Spielgeschehen immer im Blick und kannst trotzdem schnell unbekannte Vokabeln nachschlagen

    Gruß