hallo leute.ich bin ja jetzt nun schon vielmehr vertraut mit AutoIT und habe bisher auch schn an MusikPlayern gearbeitet.Aber jetzt will ich meine player in eine neue Dimension "sozusagen" heben.Wie mache ich dass ich Vorspulen kann und Zurückspulen kann im Script? und dazu noch dass unter dem Progress bar die zeit läuft (von 0:00 - 3:00 z.b.) und die genaue zeit angezeigt wird? (hab script aktualisiert es funktioniert jetzt aber vor - und zurück- Spulen funzt noch immer nicht.Ich bite darum dass mir jemand es machen könnte damit ich es bloss noch kopieren brauche danach glubsch ich mir des an und versuch mir dann diese technik zu merken)
[autoit]
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: Silver_Shadow97™
Script Function: Infinity TrackZ Player™ [Alpha 0.5]
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#include <Date.au3>
Global $h_Sound
Global $max_sec
Global $a_Sound
$ver = "Infinity trackZ Player™ by Silver_Shadow97™ [Alpha 0.5]"
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("Infinity TrackZ Player by Silver_Shadow97™", 541, 314, 408, 166)
$Exit_btn = GUICtrlCreateButton("Beenden", 224, 288, 91, 25)
$Open_btn = GUICtrlCreateButton("Öffnen", 224, 168, 91, 81, $WS_GROUP)
$Stop_btn = GUICtrlCreateButton("Stop", 136, 224, 75, 33, $WS_GROUP)
$Replay_btn = GUICtrlCreateButton("Replay", 328, 224, 75, 33, $WS_GROUP)
$Play_pause_btn = GUICtrlCreateButton("Play/Pause", 232, 136, 75, 25, $WS_GROUP)
$Forward_btn = GUICtrlCreateButton("Vorspulen", 336, 176, 83, 33)
$Reward_btn = GUICtrlCreateButton("Zurückspulen", 120, 176, 83, 33)
$options_btn = GUICtrlCreateButton("optionen", 216, 256, 107, 25)
$Progress1 = GUICtrlCreateProgress(120, 120, 294, 9)
$Slider1 = GUICtrlCreateSlider(0, 0, 150, 29)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit_btn
Exit
Case $Open_btn
$f_open = FileOpenDialog ("Suche nach Musiktiteln",@DesktopDir,"(*.*)")
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 $Replay_btn
If _SoundStatus ($h_Sound) = "Playing" or _SoundStatus ($h_Sound) = "paused" Then
_SoundStop ($h_Sound)
_SoundPlay ($h_Sound)
EndIf
Case $Play_pause_btn
If _SoundStatus($h_Sound) = "playing" Then
_SoundPause ($h_Sound)
ElseIf _SoundStatus ($h_Sound) = "paused" Then
_SoundResume($h_Sound)
EndIf
Case $Forward_btn
Case $Reward_btn
Case $options_btn
##include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Options_GUI = GUICreate("Optionen", 412, 154, 445, 294)
GUISetBkColor(0x00FF00)
$option_text = GUICtrlCreateLabel("2012® Silver_Shadow97™ Alle Rechte vorbehalten.", 0, 136, 248, 17)
$Copy_rights_btn = GUICtrlCreateButton("Kopier-Rechte", 320, 0, 91, 25)
$contact_btn = GUICtrlCreateButton("Kontakt", 320, 32, 91, 25)
$Close_btn = GUICtrlCreateButton("Schliessen", 336, 128, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Copy_rights_btn
Msgbox (49,"Kopier - Rechte","Dieser player wurde erstellt von Silver_Shadow97™.Ich verbiete jegliche verbreitungs unter 'anderen namen' und jegliche vermarktung.Dieser Player ist eine Art Free Ware noch im Entwicklungs Status. ver: [Alpha 0.5]",10)
Case $contact_btn
MsgBox (0,"Kontakt","Ihr könnt mich über meiner E-mail : [email='www.Silver_Shadow97@web.de'][/email] erreichen oder über meinem Youtubechannel: http://www.youtube.com/user/Kiyubi97?feature=mhee . Ich stehe gern für fragen oder Bug berichte zur verfügung.2012® Silver_Shadow97™",15)
EndSwitch
WEnd
EndSwitch
WEnd
Func ShowSeek()
$pos_sec = _SoundPos($h_Sound,2) *1000
$set = $pos_sec / $max_sec *100
GUICtrlSetData ($Progress1,$set)
EndFunc
Func GetVol()
SoundSetWaveVolume(GUICtrlRead($Slider1))
EndFunc
ich Hoffe ihr könnt mir helfen
Mfg kiyubi97 [alias Silver_Shadow97™]