1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. slash

Beiträge von slash

  • Zufällige Daten aus ini wiedergeben.

    • slash
    • 26. September 2010 um 17:00

    Mhm ok und könntest du das code beispiel mal mit einer txt machen? Kapiere das nicht ganz mit der txt datei^^

  • Play/Pause/Stop geht nicht.

    • slash
    • 26. September 2010 um 16:54

    Thx nice kann geclosed werden!!

  • Play/Pause/Stop geht nicht.

    • slash
    • 26. September 2010 um 16:12

    sry hab vergessen das rauszumachen. die extprob.au3 kann man entnehmen..

  • Play/Pause/Stop geht nicht.

    • slash
    • 26. September 2010 um 16:00

    Okay hier habe ich mal komplett alles... also script und images. einfach entpacken und script öffnen.

  • Zufällige Daten aus ini wiedergeben.

    • slash
    • 26. September 2010 um 15:52

    Danke für die beispiele. Jedoch verstehe ich eins nicht und zwar das von Bugfix. Könntest du es etwas genauer erklären?

  • Zufällige Daten aus ini wiedergeben.

    • slash
    • 25. September 2010 um 20:04

    Guten Abend.

    Hab da ma ne frage.

    Wie kann ich bspws. zufällige daten aus einer ini in einer gui wiedergeben?

    z.B

    2 ini dateien.

    Ini1 = Normal modus
    Ini2 = Hardcore Modus

    In der Gui wird man gefragt ob modus 1 oder 2 gewählt werden soll.

    Wällt man einen dieser modies so erscheint in der Gui z.B sie sind nun im .... Modus.
    Klicken sie auf generieren um einen zufälligen text auszugeben.

    Klickt man diesen Button so wird eine zeile aus der ini ausgegeben.

    nehmen wir mal an
    Ini1:

    test1
    test2
    test3 usw...

    Ich glaube ihr versteht mich.

    Könnte mir jemand ein Beispiel nennen oder so? Also ich wüsste jetzt nicht wie ich das machen soll.....

    Thx im voraus!

  • Play/Pause/Stop geht nicht.

    • slash
    • 25. September 2010 um 18:49

    push

  • Play/Pause/Stop geht nicht.

    • slash
    • 25. September 2010 um 11:18

    Das liegt daran das du die bilder nicht hast.
    Und wegen dem Song, der wird bei der fileopen funktion angegeben.

  • Play/Pause/Stop geht nicht.

    • slash
    • 25. September 2010 um 10:56

    die kannst du raus nehmen ;) die funktion habe ich noch nicht eingebaut ;)

  • Play/Pause/Stop geht nicht.

    • slash
    • 25. September 2010 um 10:43

    Guten Morgen.

    Kann mir jemand sagen warum die Play/Pause/Stop funktion nicht geht? Das Fileopen geht aber der rest nicht.

    Hier mein Code:

    Spoiler anzeigen
    [autoit]


    #cs ============================================================================

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

    Author: Slash (Martin P)
    Script: iFlow Music Player

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

    #ce ============================================================================

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

    #NoTrayIcon
    #include <GDIPlus.au3>
    #include <File.au3>
    #include <array.au3>
    #include <WindowsConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <extprop.au3>
    #include <Sound.au3>
    #include <StaticConstants.au3>
    #include <GuiSlider.au3>
    #include <GuiToolTip.au3>

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

    Opt("MustDeclareVars", 0)

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

    $dll=DllOpen("user32.dll")

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

    Global Const $AC_SRC_ALPHA = 1
    Global $ImageDir = @ScriptDir & "\data\"

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

    ; Load PNG file as GDI bitmap
    _GDIPlus_Startup()
    $pngSrc = @ScriptDir & "\data\iflowbg.png"
    $hImage = _GDIPlus_ImageLoadFromFile($pngSrc)

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

    ; Extract image width and height from PNG
    $width = _GDIPlus_ImageGetWidth($hImage)
    $height = _GDIPlus_ImageGetHeight($hImage)

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

    ;Hauptfenster
    $GUI = GUICreate("iFlow Music Player", $width, $height, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
    SetBitmap($GUI, $hImage, 0)
    GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
    GUISetState()

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

    For $i = 0 To 255 Step 5
    SetBitmap($GUI, $hImage, $i)
    Next
    ;Ende Hauptfenster

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

    ;Keine Ahnung für was das ist??
    $GUI1 = GUICreate("ControlGUI", $width, $height, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $GUI)
    GUICtrlCreatePic($ImageDir & "grey.gif", 0, 0, $width, $height)
    GUICtrlSetState(-1, $GUI_DISABLE)
    ;Ende Keine Ahnung für was das ist??

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

    ;Fenster Titel
    GUICtrlCreateLabel("iFlow Music Player", 233, 16, 100, 32)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUISetState(@SW_SHOW)
    ;Ende Fenster Titel

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

    ;Close Button
    $hImageclose = _GDIPlus_ImageLoadFromFile("data\close.png")
    $hImageclose1 = _GDIPlus_ImageLoadFromFile("data\closehover.png")
    $hImageclose2 = _GDIPlus_ImageLoadFromFile("data\closehover.png")

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

    $Close = GUICreate("Close", 0, 0, 488,13,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Close,$hImageclose,255)
    GUISetState()
    ;Ende Close Button

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

    ;Minimier Button
    $hImagemin = _GDIPlus_ImageLoadFromFile("data\min.png")
    $hImagemin1 = _GDIPlus_ImageLoadFromFile("data\minhover.png")
    $hImagemin2 = _GDIPlus_ImageLoadFromFile("data\minhover.png")

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

    $Min = GUICreate("Minimieren", 0, 0, 469,13,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Min,$hImagemin,255)
    GUISetState()
    ;Ende Minimier Button

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

    ;Play Button
    $hImageplay = _GDIPlus_ImageLoadFromFile("data\play.png")
    $hImageplay1 = _GDIPlus_ImageLoadFromFile("data\playhover.png")
    $hImageplay2 = _GDIPlus_ImageLoadFromFile("data\playhover.png")

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

    $Play = GUICreate("Play", 0, 0, 20,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Play,$hImageplay,255)
    GUISetState()
    ;Ende Play Button

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

    ;Pause Button
    $hImagepause = _GDIPlus_ImageLoadFromFile("data\pause.png")
    $hImagepause1 = _GDIPlus_ImageLoadFromFile("data\pausehover.png")
    $hImagepause2 = _GDIPlus_ImageLoadFromFile("data\pausehover.png")

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

    $Pause = GUICreate("Pause", 0, 0, 60,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Pause,$hImagepause,255)
    GUISetState()
    ;Ende Pause Button

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

    ;Stop Button
    $hImagestop = _GDIPlus_ImageLoadFromFile("data\stop.png")
    $hImagestop1 = _GDIPlus_ImageLoadFromFile("data\stophover.png")
    $hImagestop2 = _GDIPlus_ImageLoadFromFile("data\stophover.png")

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

    $Stop = GUICreate("Stop", 0, 0, 100,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Stop,$hImagestop,255)
    GUISetState()
    ;Ende Stop Button

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

    ;Open Button
    $hImageopen = _GDIPlus_ImageLoadFromFile("data\open.png")
    $hImageopen1 = _GDIPlus_ImageLoadFromFile("data\openhover.png")
    $hImageopen2 = _GDIPlus_ImageLoadFromFile("data\openhover.png")

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

    $Open = GUICreate("Open", 0, 0, 460,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Open,$hImageopen,255)
    GUISetState()
    ;Ende Open Button

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

    ;Volume Button
    $hImagevolume = _GDIPlus_ImageLoadFromFile("data\volume.png")
    $hImagevolume1 = _GDIPlus_ImageLoadFromFile("data\volumehover.png")
    $hImagevolume2 = _GDIPlus_ImageLoadFromFile("data\volumemute.png")

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

    $VolumeBTN = GUICreate("Volume", 0, 0, 390,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($VolumeBTN,$hImagevolume,255)
    GUISetState()
    ;Ende Volume Button

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

    ;Volume Button
    $hImagevolumepopup = _GDIPlus_ImageLoadFromFile("data\volumepopup.png")
    $hImagevolumepopup1 = _GDIPlus_ImageLoadFromFile("data\volumepopuphover.png")
    $hImagevolumepopup2 = _GDIPlus_ImageLoadFromFile("data\volumepopuphover.png")

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

    $VolumeBTNPopup = GUICreate("Volume", 0, 0, 415,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($VolumeBTNPopup,$hImagevolumepopup,255)
    GUISetState()
    ;Ende Volume Button

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

    While 1
    btnclose($Close,$hImageclose,$hImageclose1,$hImageclose2)
    btnmin($Min,$hImagemin,$hImagemin1,$hImagemin2)
    btnplay($Play,$hImageplay,$hImageplay1,$hImageplay2)
    btnpause($Pause,$hImagepause,$hImagepause1,$hImagepause2)
    btnstop($Stop,$hImagestop,$hImagestop1,$hImagestop2)
    btnopen($Open,$hImageopen,$hImageopen1,$hImageopen2)
    btnvolume($VolumeBTN,$hImagevolume,$hImagevolume1,$hImagevolume2)
    btnvolumepopup($VolumeBTNPopup,$hImagevolumepopup,$hImagevolumepopup1,$hImagevolumepopup2)
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd

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

    GUIDelete($GUI)

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

    ;Bild aufbauen
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImageclose, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImagemin, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImageplay, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImagepause, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImagestop, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImageopen, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImagevolume, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImagevolumepopup, $i)
    Next

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

    ; Release resources
    _WinAPI_DeleteObject($hImageclose)
    _WinAPI_DeleteObject($hImagemin)
    _WinAPI_DeleteObject($hImageplay)
    _WinAPI_DeleteObject($hImagepause)
    _WinAPI_DeleteObject($hImagestop)
    _WinAPI_DeleteObject($hImageopen)
    _WinAPI_DeleteObject($hImagevolume)
    _WinAPI_DeleteObject($hImagevolumepopup)
    _WinAPI_DeleteObject($hImage)
    _GDIPlus_Shutdown()

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

    Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
    If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
    EndFunc ;==>WM_NCHITTEST

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

    ;Minimier Button Hover
    func btnmin($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Exit
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Minimier Button Hover

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

    ;Close Button Hover
    func btnclose($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Exit
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Close Button Hover

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

    ;Play Button Hover
    func btnplay($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    _SoundPlay($Song)
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Play Button Hover

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

    ;Pause Button Hover
    func btnpause($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    _SoundPause($Song)
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Pause Button Hover

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

    ;Stop Button Hover
    func btnstop($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    _SoundStop($Song)
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Stop Button Hover

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

    ;Open Button Hover
    func btnopen($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    $Song = FileOpenDialog("Bitte Musik Datei auswählen", @DesktopDir & "", "Musik Dateien(*.mp3;*.wav;*.wma;)",1)
    _SoundPlay($Song)
    SoundSetWaveVolume(5)
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Open Button Hover

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

    ;Volume Button Hover
    func btnvolume($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    SoundSetWaveVolume(0)
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Volume Button Hover

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

    ;VolumePopup Hover
    func btnvolumepopup($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    _CreateSliderGUI()
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende VolumePopup Button Hover

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

    Func _CreateSliderGUI($Min = 0, $Max = 100, $GuiWidth = 200, $GuiHeight = 50)
    Local $MousePos = MouseGetPos()
    Local $Mouse[2]
    $Mouse[0] = $MousePos[0]
    $Mouse[1] = $MousePos[1]
    Local $sGUI = GUICreate("Slider GUI", $GuiWidth, $GuiHeight, $MousePos[0] - $GuiWidth/2, $MousePos[1] - $GuiHeight/2, $WS_POPUP)
    Local $sSlider = GUICtrlCreateSlider(0, 0, $GuiWidth, $GuiHeight)
    GUICtrlSetBkColor(-1, 0x333333)
    GUICtrlSetLimit(-1, $Max, $Min)
    GUISetState(@SW_SHOW)
    While (($MousePos[0] >= $Mouse[0] - $GuiWidth/2 And $MousePos[0] <= $Mouse[0] + $GuiWidth/2) And ($MousePos[1] >= $Mouse[1] - $GuiHeight/2 And $MousePos[1] <= $Mouse[1] + $GuiHeight/2))
    $MousePos = MouseGetPos()
    WEnd
    GUISetState(@SW_HIDE)
    Return GUICtrlRead($sSlider)
    EndFunc ;==>_CreateSliderGUI

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

    ;Funktion für Transparentes GUI
    Func SetBitmap($hGUI, $hImage, $iOpacity)
    Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend

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

    $hScrDC = _WinAPI_GetDC(0)
    $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
    $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
    $tSize = DllStructCreate($tagSIZE)
    $pSize = DllStructGetPtr($tSize)
    DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
    DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
    $tSource = DllStructCreate($tagPOINT)
    $pSource = DllStructGetPtr($tSource)
    $tBlend = DllStructCreate($tagBLENDFUNCTION)
    $pBlend = DllStructGetPtr($tBlend)
    DllStructSetData($tBlend, "Alpha", $iOpacity)
    DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
    _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
    _WinAPI_ReleaseDC(0, $hScrDC)
    _WinAPI_SelectObject($hMemDC, $hOld)
    _WinAPI_DeleteObject($hBitmap)
    _WinAPI_DeleteDC($hMemDC)
    EndFunc
    ;Ende Funktion für Transparentes GUI

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

    ;Funktion für Button Hover
    Func hander()
    Local $iRet = DllCall("user32.dll", "int", "WindowFromPoint", "long", MouseGetPos(0), "long", MouseGetPos(1))
    If IsArray($iRet) Then Return HWnd($iRet[0])
    Return SetError(1, 0, 0)
    EndFunc

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

    Func event($sHexKey="01", $vDLL = $dll)
    Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
    If @error Then Return SetError(@error, @extended, False)
    Return BitAND($a_R[0], 0x8000) <> 0
    EndFunc
    ;Ende Funktion für Button Hover

    [/autoit]
  • Slider als Popup

    • slash
    • 25. September 2010 um 10:39

    Okay mach ich ;) DANKE!

  • Slider als Popup

    • slash
    • 25. September 2010 um 10:28

    Jo hammer ;)
    Genauso habe ich mir das Vorgestellt^^
    Cool wäre wenn er anzeigt wieviel % volume. Ich denke du weist was ich meine^^

    Und weist du villt mein Problem wegen dem Play/Pause/Stop usw?

  • Slider als Popup

    • slash
    • 25. September 2010 um 10:02

    Nice ;) 100% getroffen^^.

    Wenn ich schon hier den post offen habe kann ich auch noch was anderes fragen.

    Und zwar.

    Spoiler anzeigen
    [autoit]


    #cs ============================================================================

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

    Author: Slash (Martin P)
    Script: iFlow Music Player

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

    #ce ============================================================================

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

    #NoTrayIcon
    #include <GDIPlus.au3>
    #include <File.au3>
    #include <array.au3>
    #include <WindowsConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <extprop.au3>
    #include <Sound.au3>
    #include <StaticConstants.au3>
    #include <GuiSlider.au3>
    #include <GuiToolTip.au3>

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

    Opt("MustDeclareVars", 0)

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

    $dll=DllOpen("user32.dll")

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

    Global Const $AC_SRC_ALPHA = 1
    Global $ImageDir = @ScriptDir & "\data\"

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

    ; Load PNG file as GDI bitmap
    _GDIPlus_Startup()
    $pngSrc = @ScriptDir & "\data\iflowbg.png"
    $hImage = _GDIPlus_ImageLoadFromFile($pngSrc)

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

    ; Extract image width and height from PNG
    $width = _GDIPlus_ImageGetWidth($hImage)
    $height = _GDIPlus_ImageGetHeight($hImage)

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

    ;Hauptfenster
    $GUI = GUICreate("iFlow Music Player", $width, $height, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
    SetBitmap($GUI, $hImage, 0)
    GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
    GUISetState()

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

    For $i = 0 To 255 Step 5
    SetBitmap($GUI, $hImage, $i)
    Next
    ;Ende Hauptfenster

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

    ;Keine Ahnung für was das ist??
    $GUI1 = GUICreate("ControlGUI", $width, $height, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $GUI)
    GUICtrlCreatePic($ImageDir & "grey.gif", 0, 0, $width, $height)
    GUICtrlSetState(-1, $GUI_DISABLE)
    ;Ende Keine Ahnung für was das ist??

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

    ;Fenster Titel
    GUICtrlCreateLabel("iFlow Music Player", 233, 16, 100, 32)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUISetState(@SW_SHOW)
    ;Ende Fenster Titel

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

    ;Close Button
    $hImageclose = _GDIPlus_ImageLoadFromFile("data\close.png")
    $hImageclose1 = _GDIPlus_ImageLoadFromFile("data\closehover.png")
    $hImageclose2 = _GDIPlus_ImageLoadFromFile("data\closehover.png")

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

    $Close = GUICreate("Close", 0, 0, 488,13,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Close,$hImageclose,255)
    GUISetState()
    ;Ende Close Button

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

    ;Minimier Button
    $hImagemin = _GDIPlus_ImageLoadFromFile("data\min.png")
    $hImagemin1 = _GDIPlus_ImageLoadFromFile("data\minhover.png")
    $hImagemin2 = _GDIPlus_ImageLoadFromFile("data\minhover.png")

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

    $Min = GUICreate("Minimieren", 0, 0, 469,13,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Min,$hImagemin,255)
    GUISetState()
    ;Ende Minimier Button

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

    ;Play Button
    $hImageplay = _GDIPlus_ImageLoadFromFile("data\play.png")
    $hImageplay1 = _GDIPlus_ImageLoadFromFile("data\playhover.png")
    $hImageplay2 = _GDIPlus_ImageLoadFromFile("data\playhover.png")

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

    $Play = GUICreate("Play", 0, 0, 20,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Play,$hImageplay,255)
    GUISetState()
    ;Ende Play Button

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

    ;Pause Button
    $hImagepause = _GDIPlus_ImageLoadFromFile("data\pause.png")
    $hImagepause1 = _GDIPlus_ImageLoadFromFile("data\pausehover.png")
    $hImagepause2 = _GDIPlus_ImageLoadFromFile("data\pausehover.png")

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

    $Pause = GUICreate("Pause", 0, 0, 60,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Pause,$hImagepause,255)
    GUISetState()
    ;Ende Pause Button

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

    ;Stop Button
    $hImagestop = _GDIPlus_ImageLoadFromFile("data\stop.png")
    $hImagestop1 = _GDIPlus_ImageLoadFromFile("data\stophover.png")
    $hImagestop2 = _GDIPlus_ImageLoadFromFile("data\stophover.png")

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

    $Stop = GUICreate("Stop", 0, 0, 100,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Stop,$hImagestop,255)
    GUISetState()
    ;Ende Stop Button

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

    ;Open Button
    $hImageopen = _GDIPlus_ImageLoadFromFile("data\open.png")
    $hImageopen1 = _GDIPlus_ImageLoadFromFile("data\openhover.png")
    $hImageopen2 = _GDIPlus_ImageLoadFromFile("data\openhover.png")

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

    $Open = GUICreate("Open", 0, 0, 460,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($Open,$hImageopen,255)
    GUISetState()
    ;Ende Open Button

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

    ;Open Button
    $hImagevolume = _GDIPlus_ImageLoadFromFile("data\volume.png")
    $hImagevolume1 = _GDIPlus_ImageLoadFromFile("data\volumehover.png")
    $hImagevolume2 = _GDIPlus_ImageLoadFromFile("data\volumemute.png")

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

    $VolumeBTN = GUICreate("Volume", 0, 0, 420,305,$WS_POPUP,BitOR($WS_EX_LAYERED,$WS_EX_MDICHILD),$GUI)
    SetBitmap($VolumeBTN,$hImagevolume,255)
    GUISetState()
    ;Ende Open Button

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

    While 1
    btnclose($Close,$hImageclose,$hImageclose1,$hImageclose2)
    btnmin($Min,$hImagemin,$hImagemin1,$hImagemin2)
    btnplay($Play,$hImageplay,$hImageplay1,$hImageplay2)
    btnpause($Pause,$hImagepause,$hImagepause1,$hImagepause2)
    btnstop($Stop,$hImagestop,$hImagestop1,$hImagestop2)
    btnopen($Open,$hImageopen,$hImageopen1,$hImageopen2)
    btnvolume($VolumeBTN,$hImagevolume,$hImagevolume1,$hImagevolume2)
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd

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

    GUIDelete($GUI)

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

    ;Bild aufbauen
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImageclose, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImagemin, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImageplay, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImagepause, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImagestop, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImageopen, $i)
    Next
    For $i = 0 To 255 Step 10
    SetBitmap($GUI, $hImagevolume, $i)
    Next

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

    ; Release resources
    _WinAPI_DeleteObject($hImageclose)
    _WinAPI_DeleteObject($hImagemin)
    _WinAPI_DeleteObject($hImageplay)
    _WinAPI_DeleteObject($hImagepause)
    _WinAPI_DeleteObject($hImagestop)
    _WinAPI_DeleteObject($hImageopen)
    _WinAPI_DeleteObject($hImagevolume)
    _WinAPI_DeleteObject($hImage)
    _GDIPlus_Shutdown()

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

    Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
    If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
    EndFunc ;==>WM_NCHITTEST

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

    ;Minimier Button Hover
    func btnmin($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Exit
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Minimier Button Hover

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

    ;Close Button Hover
    func btnclose($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Exit
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Close Button Hover

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

    ;Play Button Hover
    func btnplay($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Exit
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Play Button Hover

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

    ;Pause Button Hover
    func btnpause($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Exit
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Pause Button Hover

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

    ;Stop Button Hover
    func btnstop($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Exit
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Stop Button Hover

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

    ;Open Button Hover
    func btnopen($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    $Song = FileOpenDialog("Bitte Musik Datei auswählen", @DesktopDir & "", "Musik Dateien(*.mp3;*.wav;*.wma;)",1)
    _SoundPlay($Song)
    SoundSetWaveVolume(5)
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Open Button Hover

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

    ;Open Button Hover
    func btnvolume($guicanset,$anh1,$anh2,$anh3)
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    Do
    if event() then
    Do
    if hander()<>$guicanset then
    SetBitmap($guicanset,$anh1,255)
    Else
    SetBitmap($guicanset,$anh3,255)
    EndIf
    Until not event()
    if hander()=$guicanset then
    SetBitmap($guicanset,$anh2,255)
    SoundSetWaveVolume(0)
    EndIf
    EndIf
    Until hander()<>$guicanset
    SetBitmap($guicanset,$anh1,255)
    EndIf
    EndFunc
    ;Ende Open Button Hover

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

    ;Funktion für Transparentes GUI
    Func SetBitmap($hGUI, $hImage, $iOpacity)
    Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend

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

    $hScrDC = _WinAPI_GetDC(0)
    $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
    $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
    $tSize = DllStructCreate($tagSIZE)
    $pSize = DllStructGetPtr($tSize)
    DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
    DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
    $tSource = DllStructCreate($tagPOINT)
    $pSource = DllStructGetPtr($tSource)
    $tBlend = DllStructCreate($tagBLENDFUNCTION)
    $pBlend = DllStructGetPtr($tBlend)
    DllStructSetData($tBlend, "Alpha", $iOpacity)
    DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
    _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
    _WinAPI_ReleaseDC(0, $hScrDC)
    _WinAPI_SelectObject($hMemDC, $hOld)
    _WinAPI_DeleteObject($hBitmap)
    _WinAPI_DeleteDC($hMemDC)
    EndFunc
    ;Ende Funktion für Transparentes GUI

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

    ;Funktion für Button Hover
    Func hander()
    Local $iRet = DllCall("user32.dll", "int", "WindowFromPoint", "long", MouseGetPos(0), "long", MouseGetPos(1))
    If IsArray($iRet) Then Return HWnd($iRet[0])
    Return SetError(1, 0, 0)
    EndFunc

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

    Func event($sHexKey="01", $vDLL = $dll)
    Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
    If @error Then Return SetError(@error, @extended, False)
    Return BitAND($a_R[0], 0x8000) <> 0
    EndFunc
    ;Ende Funktion für Button Hover

    [/autoit]

    Wo soll ich das einbauen für play/stop/pause? hab es zwar schon versucht in die jeweiligen function rein zu machen aber das funktioniert iwie nicht -.-
    irgendwie geht nur das Fileopendialog lol.
    Also nicht denken ich weis die funktion nicht NEIN! ich hab keine ahnung wo ich es sonst einbauen soll.

  • Slider als Popup

    • slash
    • 25. September 2010 um 09:35

    Guten Morgen.

    Habe mal wieder eine Frage.
    Ist es möglich den Volume slider so zu bauen das er bei klick auf einen button als Popup erscheint? und beim weggehen der maus wieder verschwindet?

    Wenn nicht, geht es wenn man den Slider komplett custom macht? also aus eigenen bildern erstellt?

  • Share Funktion?

    • slash
    • 24. September 2010 um 16:05

    wenn man dazu php/mysql/html oder andere web sprachen wäre es kein problem da es ja eine facebook api gibt mit der das online sharing funktioniert.

    Nur bin ich die ganze zeit am grübeln wie das funtzen soll wen man es über ein script macht^^

  • Share Funktion?

    • slash
    • 24. September 2010 um 14:16

    Hi leute.
    Ich habe gerade einen gedanken gehabt.
    Ist es möglich über ein Script eine Share funktion zu bauen?
    z.B das Script ermittelt was du gerade machst. Und dann veröffentlicht es deine Aktion bei Facebook.

    z.B ich höre gerade ein lied und dann klick ich share und es veröffentlicht es auf fb....

    Denke mal ihr wisst was ich meine...

  • Icon als Button / Transparent und Hover.

    • slash
    • 24. September 2010 um 10:19

    Guten Morgen.

    Als erstes , ja ich weis ich stell viel fragen =P

    Also ich habe hier den Code für mein Icon Button.

    [autoit]


    $Open = GUICtrlCreateIcon($ImageDir & 'open.ico', 300, 300, 60, 41)
    GUICtrlSetOnEvent(-1, '_OpenTitle')

    [/autoit]

    Aber iwie zeigt der mir das nicht Transparent an lol?

    Dann möchte ich noch ein Hover machen jedoch weis ich nicht wie ich das anstellen soll mit den Icons.

    Im anhang ist das Icon.

    Dateien

    open.zip 618 Byte – 301 Downloads
  • Code Anpassung

    • slash
    • 23. September 2010 um 23:35

    Natürlich habe ich nicht nur Copy & Paste gemacht, jedoch manche Funktionen sind via Copy & Paste da ich sie nachschreiben wollte und etwas abändern wollte und es dann doch net geklappt hat.

    Damit ihr ma seht was ich eigentlich mache:

    Dateien

    screen1.jpg 73,37 kB – 0 Downloads screen2.jpg 72,61 kB – 0 Downloads screen3.jpg 72,62 kB – 0 Downloads
  • Code Anpassung

    • slash
    • 23. September 2010 um 23:11

    Das Ding ist ja, das ich nicht wirklich den Perfekten Coderstil suche, sondern einfach nur anpassungen weil bei manchen GDI funktionen denk ich nur bahnhof.

    Ich versuche es zu verstehen aber versteh es nicht wirklich, wenn ich denke die funktion is überflüssig und ich sie raus nehme , geht es nicht mehr^^.

    Am besten wäre halt wenn sich jemand einen kurzen Moment (Jetz wo das Script eher klein gehalten ist) zeit nimmt und mir die Funktionen aufteilt und kommentiert... Sodass ich in der Zukunft weis was ich damals für Funktionen benutze.

    Wenn ihr überzeugt werden wollt das es ein Größeres Projekt wird dann werde ich euch nur einen Screen des Projektes(nicht des Quellcodes) zeigen.

  • Code Anpassung

    • slash
    • 23. September 2010 um 22:01

    Guten Abend.

    Ich hätte da eine Frage.
    Könnte sich jemand evntl ein wenig zeit nehmen und mir helfen meinen Code anzupassen?
    Ansich verstehe ich einiges in Autoit. Jedoch weis ich nicht genau ob die Codes so ok sind. Es gibt zwar keine Errors oder so jedoch möchte ich es ordentlicher gestalten, aber jedesmal wenn ich das versuche funktioniert etwas danach nicht mehr.

    Es wäre eine GROSSE Hilfe für mich wenn sich jemand die Zeit nimmt.

    Das ding ist, ich möchte den Sourcecode nicht gerade Public machen zumindest jetzt noch nicht.... Daher könnte sich ja ein Erfahrener AutoITler bei mir melden.

    Ich weis es ist etwas viel verlangt, jedoch wenn mein Projekt fertig ist werdet ihr sehen warum ;)

    Ich danke schonmal im voraus.
    @Admin/Mod sollte das Thema an der Falschen stelle sein pls Moven ;)

    Mfg Slash

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™