hi hab mal ein Player versucht..
und wollte mir mal ein Paar Kritiken und so holen ^^.....
Donwload Exe
Ps.: kann sein das ich villeicht bisschen was umständlich geschreiben habt k.a...
[spoiler]
#cs ----------------------------------------------------------------------------[autoit]#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.3.6.0
Author: Supercopra
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]; Script Start - Add your code below here
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]global $dir = @ScriptDir,$d1,$d2,$d3,$was,$an,$maus,$so,$sp,$sound_stat,$walker_play,$true=0,$slider_max,$titel="Audioplayer © by Supercopra! -NORMAL-"
Global $pfad, $lv_1, $lv, $spul_time,$schaden,$waiter,$last_next,$wem, $slider_walk = 1,$time = 0,$time_0, $frage, $sufu_on, $sperre_2,$save
$walker_play = "non"
$temp = BinaryToString(IniRead($dir & "/local/einstellungen.ini","Player","spulen","Spluen|10000"))
$temp = StringSplit($temp,"|")
$spul_time = $temp[2]
#include
#include
#Include
#include
#include
#include
#include
#Include
if FileExists ( $dir & "/local" ) = 0 Then
DirCreate ( $dir & "/local" )
EndIf
if FileExists ( $dir & "/Bilder" ) = 0 Then
DirCreate ( $dir & "/Bilder" )
EndIf
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\bgimage_4.JPG",$dir & "/Bilder/bgimage_4.JPG",1)
[/autoit][autoit][/autoit][autoit]$gui_start = GUICreate("Mediaplayer by Supercopra",400,400,-1,-1,$WS_POPUP)
GUICtrlCreatePic($dir & "/Bilder/bgimage_4.JPG",0,0,400,400)
$lst = GUICtrlCreateLabel("Programm wird gestartet",0,10,400,20,$ss_center)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)
GUICtrlSetColor(-1,0xffffff)
GUISetState(@sw_show)
if FileExists ( $dir & "/Sound" ) = 0 Then
DirCreate ( $dir & "/Sound" )
EndIf
$laut = IniRead($dir & "/local/einstellungen.ini","Player","Laut",100)
SoundSetWaveVolume($laut)
if $laut > 100 or $laut < 0 Then
$laut = 100
IniWrite($dir & "/local/einstellungen.ini","Player","Laut",$laut)
EndIf
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Sound\Windows_A.wma",$dir & "/Sound/Windows_A.wma",1)
ToolTip("Startmusik © by Microsoft - Windows oder ähnlichen.",1,1)
SoundPlay($dir & "/Sound/Windows_A.wma")
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\bgimage_1.JPG",$dir & "/Bilder/bgimage_1.JPG",1)
GUICtrlSetData($lst,"bgimage_1 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\bgimage_2.JPG",$dir & "/Bilder/bgimage_2.JPG",1)
GUICtrlSetData($lst,"bgimage_2 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\bgimage_3.JPG",$dir & "/Bilder/bgimage_3.JPG",1)
GUICtrlSetData($lst,"bgimage_3 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\bgimage_lv_1.JPG",$dir & "/Bilder/bgimage_lv_1.JPG",1)
GUICtrlSetData($lst,"bgimage_4 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\icon_1.ico",$dir & "/Bilder/icon_1.ico",1)
GUICtrlSetData($lst,"icon_1 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\last_1.JPG",$dir & "/Bilder/last_1.JPG",1)
GUICtrlSetData($lst,"last_1 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\lauter_1.JPG",$dir & "/Bilder/lauter_1.JPG",1)
GUICtrlSetData($lst,"lauter_1 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\leiser_1.JPG",$dir & "/Bilder/leiser_1.JPG",1)
GUICtrlSetData($lst,"leiser_1 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\next_1.JPG",$dir & "/Bilder/next_1.JPG",1)
GUICtrlSetData($lst,"next_1 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\pause_1.JPG",$dir & "/Bilder/pause_1.JPG",1)
GUICtrlSetData($lst,"pause_1 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\play_1.JPG",$dir & "/Bilder/play_1.JPG",1)
GUICtrlSetData($lst,"play_1 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\spulen_1.JPG",$dir & "/Bilder/spulen_1.JPG",1)
GUICtrlSetData($lst,"spulen_1 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\spulen_-1.JPG",$dir & "/Bilder/spulen_-1.JPG",1)
GUICtrlSetData($lst,"spulen_-1 wird installiert")
Sleep(100)
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Bilder\stop_1.JPG",$dir & "/Bilder/stop_1.JPG",1)
GUICtrlSetData($lst,"stop_1 wird installiert")
Sleep(100)
GUICtrlSetData($lst,"Player wird gestartet!")
Sleep(700)
ToolTip("")
GUIDelete($gui_start)
[/autoit][autoit][/autoit][autoit];TRAY´s
[/autoit][autoit][/autoit][autoit]Opt("TrayMenuMode",1)
[/autoit][autoit][/autoit][autoit]$t_1 = TrayCreateMenu("Anzeige")
$t_1_1 = TrayCreateItem("Player PLUS (normal)(SHOW)",$t_1)
TrayItemSetState(-1,$tray_checked)
$t_1_2 = TrayCreateItem("Player LITTLE (SHOW)",$t_1)
$t_1_3 = TrayCreateItem("Player None (Hide)(Shortcuts)",$t_1)
TrayCreateItem("")
[/autoit][autoit][/autoit][autoit]$t_2 = TrayCreateItem("Play")
$t_3 = TrayCreateItem("Pause")
$t_4 = TrayCreateItem("Stop")
$t_5 = TrayCreateItem("Zurückspulen")
$t_6 = TrayCreateItem("Vorspulen")
$t_7 = TrayCreateItem("Nächster Song")
$t_8 = TrayCreateItem("Vorheriger Song")
TrayCreateItem("")
[/autoit][autoit][/autoit][autoit]$t_9_1 = TrayCreateItem("Lautstärke: 0")
$t_9_2 = TrayCreateItem("Lautstärke: 100")
TrayCreateItem ("Beenden")
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit];Little-------------------------------------------------------------------------------------
$gui_3 = GUICreate("Audioplayer © by Supercopra! -LITTLE-",500,120)
GUISetIcon($dir & "/Bilder/icon_1.ico")
GUISetFont(10,1000)
GUICtrlCreatePic($dir & "/Bilder/bgimage_3.JPG",0,0,500,110)
GUICtrlSetState(-1,$gui_disable)
$2m_1 = GUICtrlCreateMenu("Programm")
$2m_1_1 = GUICtrlCreateMenuItem("Beenden",$2m_1)
$2m_2 = GUICtrlCreateMenu("Erscheinungsbild")
$2m_2_1 = GUICtrlCreateMenuItem("Mediaplayer umfangreich -SHOW",$2m_2)
$2m_2_2 = GUICtrlCreateMenuItem("Mediaplayer Little -SHOW",$2m_2)
GUICtrlSetState(-1,$GUI_CHECKED)
$2m_2_3 = GUICtrlCreateMenuItem("Mediaplayer Shortcut -HIDE",$2m_2)
$l2_l = GUICtrlCreateLabel("Derzeit wird keine Audiodatei wiedergegeben",15,75,470,20,$ss_center)
GUICtrlSetColor(-1,0xffffff)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)
$lang = 60
$hight = 15
$last_l = GUICtrlCreatePic($dir & "/Bilder/last_1.JPG",$lang,$hight,50,50)
b_style($last_l,1,1)
$r_spulen_l = GUICtrlCreatePic($dir & "/Bilder/spulen_-1.JPG",$lang+60,$hight,50,50)
b_style($r_spulen_l,1,1)
$stop_l = GUICtrlCreatePic($dir & "/Bilder/stop_1.JPG",$lang+120,$hight,50,50)
b_style($stop_l,1,1)
$play_l = GUICtrlCreatePic($dir & "/Bilder/play_1.JPG",$lang+180,$hight,50,50)
b_style($play_l,1,1)
$pause_l = GUICtrlCreatePic($dir & "/Bilder/pause_1.JPG",$lang+240,$hight,50,50)
b_style($pause_l,1,1)
$v_spulen_l = GUICtrlCreatePic($dir & "/Bilder/spulen_1.JPG",$lang+300,$hight,50,50)
b_style($v_spulen_l,1,1)
$next_l = GUICtrlCreatePic($dir & "/Bilder/next_1.JPG",$lang+360,$hight,50,50)
b_style($next_l,1,1)
$lauter_l = GUICtrlCreatePic($dir & "/Bilder/lauter_1.JPG",15,15,15,15)
b_style($lauter_l,1,1)
$l1_l = GUICtrlCreateLabel($laut,15,31)
GUICtrlSetColor(-1,0xffffff)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)
$leiser_l = GUICtrlCreatePic($dir & "/Bilder/leiser_1.JPG",15,50,15,15)
b_style($leiser_l,1,1)
;Umfangreich GUI --------------------------------------------------------------------------
$ir = IniRead($dir & "/local/Tl.ini","Wiedergabeliste1",0,0)
$summe = $ir
$gui_1 = GUICreate($titel,800,650)
GUISetIcon($dir & "/Bilder/icon_1.ico")
GUICtrlSetColor($gui_1,0xffffff)
$bg = GUICtrlCreatePic($dir & "/Bilder/bgimage_1.JPG",0,0,800,650)
GUICtrlSetState($bg,$gui_disable)
GUISetState(@sw_show)
[/autoit][autoit][/autoit][autoit][/autoit][autoit];Menü
$m1 = GUICtrlCreateMenu("Programm")
$m1_2 = GUICtrlCreateMenu("Debug",$m1)
$m1_2_1 = GUICtrlCreateMenuItem("on",$m1_2)
$m1_2_2 = GUICtrlCreateMenuItem("off",$m1_2)
GUICtrlSetState(-1,$GUI_CHECKED)
$m1_3 = GUICtrlCreateMenu("Erscheinungsbild")
$m1_3_1 = GUICtrlCreateMenuItem("Mediaplayer umfangreich -SHOW",$m1_3)
GUICtrlSetState(-1,$GUI_CHECKED)
$m1_3_2 = GUICtrlCreateMenuItem("Mediaplayer Little -SHOW",$m1_3)
$m1_3_3 = GUICtrlCreateMenuItem("Mediaplayer Shortcut -HIDE",$m1_3)
$m1_4 = GUICtrlCreateMenu("Optionen",$m1)
$m1_4_1 = GUICtrlCreateMenuItem("Spul-Einstellungen",$m1_4)
$m1_1 = GUICtrlCreateMenuItem("Beenden",$m1)
$m2 = GUICtrlCreateMenu("Bei Problemen")
$m2_2 = GUICtrlCreateMenu("Steuerelemente",$m2)
$m2_2_1 = GUICtrlCreateMenuItem("anzeigen",$m2_2)
$m3 = GUICtrlCreateMenu("Audiodateien")
$m3_1 = GUICtrlCreateMenuItem("hinzufügen",$m3)
$m3_2 = GUICtrlCreateMenuItem("gesamte Liste löschen",$m3)
$m3_3 = GUICtrlCreateMenuItem("makierte Audiodatei löschen",$m3)
$m4 = GUICtrlCreateMenu("Hilfe")
$m4_1 = GUICtrlCreateMenuItem("...wenn ein Lied übersprungen wird",$m4)
$m4_2 = GUICtrlCreateMenuItem("Shortcut-Belegung",$m4)
$m4_3 = GUICtrlCreateMenuItem("SU-FU *HOT",$m4)
;Listbox
$lv = GUICtrlCreateListView("Nummer|Musiktitel|Status",10,10,780,400)
$lv_1 = GUICtrlGetHandle($lv)
GUICtrlSetBkColor($lv,0x1E1E1E)
GUICtrlSetColor($lv,0xffffff)
_GUICtrlListView_SetBkImage($lv_1,$dir & "/Bilder/bgimage_lv_1.JPG")
_GUICtrlListView_SetColumnWidth($lv_1, 1, 500)
_GUICtrlListView_SetColumnWidth($lv_1, 2, 150)
;setzen der Listviewelemente
$ir = IniRead($dir & "/local/Tl.ini","Wiedergabeliste1",0,0)
_GUICtrlListView_BeginUpdate($lv_1)
if $ir = 0 Then
Else
$stop = $ir
$walker = 0
Dim $szDrive, $szDir, $szFName, $szExt
ProgressOn("Initialisiere Audio/Tracklist","Dateien werden initialisiert","Status: wartend")
$progress = 100/$stop
Do
$walker = $walker +1
$set = $progress*$walker
ProgressSet($set,"Status: " & $walker & "/" & $stop & " wird implementiert.")
$bts = BinaryToString(IniRead($dir & "/local/Tl.ini","Wiedergabeliste1",$walker,0))
$Ps = _PathSplit($bts, $szDrive, $szDir, $szFName, $szExt)
GUICtrlCreateListViewItem($walker & "|" & $Ps[3] & $Ps[4] & "|" & "Bereit",$lv)
Until $walker = $stop
sleep(1000)
ProgressOff()
EndIf
_GUICtrlListView_EndUpdate($lv_1)
;Steuerelemente
$slider = GUICtrlCreateSlider(10,420,780,20)
GUICtrlSetBkColor(-1,0x000000)
$l_min = GUICtrlCreateLabel("00:00:00 ",350,450,50,20,$ss_right)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xffffff)
$l_max = GUICtrlCreateLabel("/ 00:00:00",400,450,100,20)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)
GUICtrlSetColor(-1,0xffffff)
$sufu = GUICtrlCreateInput("zu suchender Musiktitel eingeben...",200,500,400,20,$ss_center)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xffffff)
GUICtrlSetState(-1,$gui_hide)
$l1 = GUICtrlCreateLabel($laut,5,610)
GUICtrlSetColor(-1,0xffffff)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)
$last = GUICtrlCreatePic($dir & "/Bilder/last_1.JPG",195,570,50,50)
b_style($last,1,1)
$r_spulen = GUICtrlCreatePic($dir & "/Bilder/spulen_-1.JPG",255,570,50,50)
b_style($r_spulen,1,1)
$stop = GUICtrlCreatePic($dir & "/Bilder/stop_1.JPG",315,570,50,50)
b_style($stop,1,1)
$play = GUICtrlCreatePic($dir & "/Bilder/play_1.JPG",375,570,50,50)
b_style($play,1,1)
$pause = GUICtrlCreatePic($dir & "/Bilder/pause_1.JPG",435,570,50,50)
b_style($pause,1,1)
$v_spulen = GUICtrlCreatePic($dir & "/Bilder/spulen_1.JPG",495,570,50,50)
b_style($v_spulen,1,1)
$next = GUICtrlCreatePic($dir & "/Bilder/next_1.JPG",555,570,50,50)
b_style($next,1,1)
$lauter = GUICtrlCreateButton("+",5,570,15,15)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xffffff)
b_style($lauter,1,1)
$leiser = GUICtrlCreateButton("-",5,590,15,15)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xffffff)
b_style($leiser,1,1)
;irgendwelche Variablen die ich halt brauche xDDDD ( wegen übersteuerung und zu-stark-auslastung des programms )
$debug = 0
$sleep = 0
$sperre = TimerInit()
$time_label_1 = TimerInit()
$sperre_2 = TimerInit()
$steuer_show = 1
$waiter = 0
$last_next = 0
$sufu_on = 0
HotKeySet("{NUMPAD8}","play")
HotKeySet("{NUMPAD7}","stop")
HotKeySet("{NUMPAD9}","pause")
HotKeySet("{NUMPAD1}","last")
HotKeySet("{NUMPAD3}","next_1")
HotKeySet("{NUMPAD6}","v_spulen")
HotKeySet("{NUMPAD4}","r_spulen")
HotKeySet("{NUMPAD0}","exit_")
HotKeySet("{NUMPAD5}","lauter")
HotKeySet("{NUMPAD2}","leiser")
while 1
[/autoit][autoit][/autoit][autoit];sufu timerinit
$temp = TimerDiff($sperre_2)
if $sperre_2 > 1000 Then
$temp2 = GUICtrlRead($sufu)
$temp3 = _GUICtrlListView_FindInText($lv_1, $temp2, -1, True)
if $save = $temp3 Then
Else
if $temp3 = -1 Then
Else
_GUICtrlListView_EnsureVisible($lv_1, $temp3, False)
_GUICtrlListView_SetItemChecked($lv_1, $temp3, True)
_GUICtrlListView_SetItemSelected($lv_1, $temp3, True, True)
EndIf
EndIf
$save = $temp3
$sperre_2 = TimerInit()
EndIf
if $time = 1 Then
$time_0 = TimerInit()
$time = 2
EndIf
if $time = 2 Then
$temp = TimerDiff($time_0)
if $temp > 2000 Then
ToolTip("")
$time = 0
EndIf
EndIf
if TimerDiff($sperre) > 100 Then
$m_1 = GUIGetCursorInfo($gui_1)
if @error = 1 Then
Else
if $m_1[4] = 0 Then
if $sleep = 0 Then
$sleep = TimerInit()
Else
EndIf
EndIf
;ToolTip($m_1[4],1,1)-----------------------DEBUGZONENE
;ToolTip(WinActive ($titel),1,1)
;ToolTip($steuer_show,1,1)
if $m_1[4] = $last or $m_1[4] = $r_spulen or $m_1[4] = $stop or $m_1[4] = $play or $m_1[4] = $pause or $m_1[4] = $v_spulen or $m_1[4] = $next then
Elseif $m_1[4] not = 0 then; wenn die Maus übern fenster ist dann... oder wenn das fenster aktiv ist
$sleep = 0
if $steuer_show = 1 Then
Else
if WinActive($titel) = $gui_1 Then
$walk = 570
$debug = ControlMove("","",$last,195,$walk)
ControlMove("","",$r_spulen,255,$walk)
ControlMove("","",$stop,315,$walk)
ControlMove("","",$play,375,$walk)
ControlMove("","",$pause,435,$walk)
ControlMove("","",$v_spulen,495,$walk)
ControlMove("","",$next,555,$walk)
if $sufu_on = 1 Then
GUICtrlSetState($sufu,$gui_show)
EndIf
$steuer_show = 1
EndIf
EndIf
Else
if $steuer_show = 0 Then
Else
$sleep_1 = TimerDiff($sleep)
if $sleep_1 > 5000 then
$walk = 570
Do
;ControMove not funkt... wenn fenster Inaktiv ist.. ?!?! sinnlos xD
GUICtrlSetPos ($last, 195, $walk)
GUICtrlSetPos ($r_spulen, 255, $walk)
GUICtrlSetPos ($stop, 315, $walk)
GUICtrlSetPos ($play, 375, $walk)
GUICtrlSetPos ($pause, 435, $walk)
GUICtrlSetPos ($v_spulen, 495, $walk)
GUICtrlSetPos ($next, 555, $walk)
$walk = $walk +2
sleep(5)
until $walk = 700
GUICtrlSetState($sufu,$gui_hide)
$steuer_show = 0
$sleep = 0
EndIf
EndIf
EndIf
$sperre = TimerInit()
EndIf
EndIf
$a = GUIGetMsg()
$t = TrayGetMsg()
Select
;TRAYMENÜS
case $t = $t_1_1
TrayItemSetState($t_1_1,$tray_checked)
TrayItemSetState($t_1_2,$tray_unchecked)
TrayItemSetState($t_1_3,$tray_unchecked)
GUISetState(@sw_show,$gui_1)
GUISetState(@sw_hide,$gui_3)
case $t = $t_1_2
TrayItemSetState($t_1_1,$tray_unchecked)
TrayItemSetState($t_1_2,$tray_checked)
TrayItemSetState($t_1_3,$tray_unchecked)
GUISetState(@sw_show,$gui_3)
GUISetState(@sw_hide,$gui_1)
case $t = $t_1_3
TrayItemSetState($t_1_1,$tray_unchecked)
TrayItemSetState($t_1_2,$tray_unchecked)
TrayItemSetState($t_1_3,$tray_checked)
GUISetState(@sw_hide,$gui_3)
GUISetState(@sw_hide,$gui_1)
case $t = $t_2
play()
tray_unchecked()
TrayItemSetState($t_2,$tray_checked)
case $t = $t_3
pause()
tray_unchecked()
TrayItemSetState($t_3,$tray_checked)
case $t = $t_4
stop()
tray_unchecked()
case $t = $t_5
r_spulen()
tray_unchecked()
case $t = $t_6
v_spulen()
tray_unchecked()
case $t = $t_7
next_1()
tray_unchecked()
case $t = $t_8
last()
tray_unchecked()
;Menüoptionen
case $a = $m1_1
close()
case $a = $2m_1_1
close()
case $a = $m1_2_1
GUICtrlSetState($m1_2_1,$gui_checked)
GUICtrlSetState($m1_2_2,$gui_unchecked)
$debug = 1
case $a = $m1_2_2
GUICtrlSetState($m1_2_2,$gui_checked)
GUICtrlSetState($m1_2_1,$gui_unchecked)
$debug = 0
case $a = $m2_2_1
$walk = 570
ControlMove("","",$last,195,$walk)
ControlMove("","",$r_spulen,255,$walk)
ControlMove("","",$stop,315,$walk)
ControlMove("","",$play,375,$walk)
ControlMove("","",$pause,435,$walk)
ControlMove("","",$v_spulen,495,$walk)
ControlMove("","",$next,555,$walk)
$steuer_show = 1
$sleep = 0
case $a = $m3_1
audio_add()
case $a = $m3_2
frage("Möchten sie die gesamte" & @CRLF & "Audioliste entfernen?")
if $frage = 1 Then
FileDelete($dir & "/local/Tl.ini")
_GUICtrlListView_DeleteAllItems($lv_1)
$summe = 0
$frage = 0
EndIf
case $a = $m3_3 ; einzelnen Song aus Traclist löschen---------------------------------------- viele Fehler hir möglich
frage("Möchten sie diesen Song wirklich" & @CRLF & "löschen")
if $frage = 1 Then
$max = _GUICtrlListView_GetItemCount($lv_1)
$walker = 0
$true = 0
Do
$temp = _GUICtrlListView_GetItemSelected($lv_1,$walker)
if $temp = True Then
_GUICtrlListView_DeleteItem($lv_1, $walker)
_GUICtrlListView_SetItem($lv_1,$walker+1,$walker,0)
$true = 1
$temp2 = IniRead($dir & "/local/Tl.ini","Wiedergabeliste1",0,0)
$temp = ($temp2) - ($walker+1) ; das ergebniss sind die die noch dahinter sind...^^
$walker_1 = 0
Do
$temp2 = IniRead($dir & "/local/Tl.ini","Wiedergabeliste1",$walker+2,0)
IniWrite($dir & "/local/Tl.ini","Wiedergabeliste1",$walker+1,$temp2)
_GUICtrlListView_SetItem($lv_1,$walker,$walker-1,0)
$walker_1 = $walker_1 + 1
$walker = $walker +1
Until $walker_1 = $temp
_GUICtrlListView_SetItem($lv_1,$walker,$walker-1,0)
IniDelete($dir & "/local/Tl.ini","Wiedergabeliste1",$walker+1)
$temp = IniRead($dir & "/local/Tl.ini","Wiedergabeliste1",0,0)
IniWrite($dir & "/local/Tl.ini","Wiedergabeliste1",0,$temp -1)
ExitLoop
EndIf
$walker = $walker +1
until $walker = $max
if $true = 0 Then
MsgBox(0,"Achtung:","Es wurde keine Audiodatei markiert.")
Else
$true = 0
EndIf
$frage = 0
stop()
EndIf
;erscheinungssbild -case
case $a = $m1_3_1
GUISetState(@sw_show,$gui_1)
case $a = $m1_3_2
GUISetState(@sw_show,$gui_3)
GUISetState(@sw_hide,$gui_1)
case $a = $2m_2_1
GUISetState(@sw_hide,$gui_3)
GUISetState(@sw_show,$gui_1)
case $a = $2m_2_3
GUISetState(@sw_hide,$gui_3)
GUISetState(@sw_hide,$gui_1)
case $a = $m1_3_3
GUISetState(@sw_hide,$gui_3)
GUISetState(@sw_hide,$gui_1)
;einstellungen
case $a = $m1_4_1
$temp = MsgBox(4,"Information","Die derzeitige Sprungzeit beim Spulen beträgt: " & $spul_time/1000 & " Sekunde(n)." & @crlf & "Möchten Sie diese ändern?")
if $temp = 6 Then
$temp = InputBox("Spulsprung einstellen...","Hir können sie entscheiden wie viel Sekunden vor oder zurückgespult werden sollen. ( IN Sekunden , möglich: 1-50 )","10")
if $temp = "" Then
Else
$temp = int ($temp)
if $temp > 50 or $temp < 1 Then
MsgBox(16,"Fehler","Die angegebene Zahl passt nicht in das Intervall: 1 bis 50")
Else
$temp2 = MsgBox(4,$temp & " Sekunde(n) wurde(n) ausgewählt...","Sollen " & $temp & " Sekunde(n), zum Spulen gespeichert werden ? ")
if $temp2 = 6 Then
$spul_time = $temp*1000
$temp = "Spulen|" & $temp*1000
IniWrite($dir & "/local/einstellungen.ini","Player","spulen",binary($temp))
Else
EndIf
EndIf
EndIf
EndIf
case $a = $m4_1
$temp = "Wenn eine Audiodatei übersprungen wird kann das folgende Gründe dafür haben:" & @CRLF & @CRLF
$temp2 = "-Die Datei ist nicht mehr am selben Pfad wo sie einst implementiert wurde." & @CRLF
$temp3 = "-Die Datei kann aus Grund eingeschrenkter Möglk. nicht abgespielt werden." & @CRLF
$temp4 = "-Anderer Grund, der nicht bekannt ist."
MsgBox(0,"Warum überspingt der Player Audio-Dateien?",$temp & $temp2 & $temp3 & $temp4)
case $a = $m4_2
$temp = "Folgende Shortcuts werden eingebunden...:" & @CRLF & @CRLF
$temp2 = "Num 1: Vorheriges Lied auswählen" & @CRLF
$temp3 = "Num 3: Nächstes Lied auswählen" & @CRLF & @CRLF
$temp4 = "Num 2: Lautstärke veringern" & @CRLF
$temp5 = "Num 5: Lautstärke erhöhen" & @CRLF & @CRLF
$temp6 = "Num 6: Vor-Spulen" & @CRLF
$temp7 = "Num 4: Rück-Spulen" & @CRLF & @CRLF
$temp8 = "Num 7: Sound stoppen" & @CRLF
$temp9 = "Num 8: Sound abspielen" & @CRLF
$temp10 = "Num 9: Sound pausieren"
MsgBox(0,"Shortcuts",$temp & $temp2 & $temp3 & $temp4 & $temp5 & $temp6 & $temp7 & $temp8 & $temp9 & $temp10)
case $a = $m4_3
GUICtrlSetState($sufu,$gui_show)
$sufu_on = 1
;Steuerelemente
case $a = $last
last()
case $a = $r_spulen
r_spulen()
case $a = $stop
stop()
case $a = $play
play()
case $a = $pause
pause()
case $a = $v_spulen
v_spulen()
case $a = $next
next_1()
;little
case $a = $last_l
last()
case $a = $r_spulen_l
r_spulen()
case $a = $stop_l
stop()
case $a = $play_l
play()
case $a = $pause_l
pause()
case $a = $v_spulen_l
v_spulen()
case $a = $next_l
next_1()
case $a = $leiser
leiser()
case $a = $lauter
lauter()
case $a = $leiser
leiser_l()
case $a = $lauter
lauter_l()
case $a = $slider
$temp = GUICtrlRead($slider)
if $sound_stat = "play" Then
$temp = Int($temp /10)
_SoundSeek($so,0,0,$temp)
_SoundPlay($so)
$temp = _SoundPos($so)
ToolTip("Gespult auf Position: " & $temp)
$time = 1
EndIf
$slider_walk = 1
case $a = $gui_event_close
close()
EndSelect
if $sound_stat = "play" Then
if _SoundStatus($so) = "stopped" Then
_GUICtrlListView_SetItem($lv_1, "Bereit", $walker_play, 2)
_SoundStop($so)
_SoundClose($so)
$sound_stat = "stop"
if _GUICtrlListView_SetItemChecked($lv_1, $walker_play, True) = False Then
Else
$walker_play = $walker_play + 1
$temp = _GUICtrlListView_SetItemChecked($lv_1, $walker_play, True)
if $temp = False Then
$walker_play = 0
_GUICtrlListView_SetItemChecked($lv_1, $walker_play, True)
_GUICtrlListView_SetItemSelected($lv_1, $walker_play, True, True)
play()
Else
_GUICtrlListView_SetItemSelected($lv_1, $walker_play, True, True)
play()
EndIf
EndIf
EndIf
if $slider_walk = 1 Then
GUICtrlSetData($slider,_SoundPos($so,2)/100)
EndIf
$temp = TimerDiff($time_label_1)
if $temp > 1000 Then
GUICtrlSetData($l_min,_SoundPos($so,1) & " ")
$time_label_1 = TimerInit()
EndIf
EndIf
;spulen mit slider... das stehn bleibt
$temp = GUIGetCursorInfo()
$slider_walk = 1
if @error = 1 Then
Else
if $temp[4] = $slider Then
$slider_walk = 0
EndIf
EndIf
WEnd
[/autoit][autoit][/autoit][autoit]Func b_style($was,$an,$maus)
if $an = 1 Then
GUICtrlSetState($was,$GUI_SHOW)
EndIf
if $maus = 1 Then
GUICtrlSetCursor($was,0)
EndIf
EndFunc
func audio_add()
$gui_2 = GUICreate("Aufiodateien hinzufügen?",400,200,-1,-1,0x00800000)
GUISetFont(17,1000)
GUICtrlCreatePic($dir & "/Bilder/bgimage_2.JPG",0,0,400,200)
GUICtrlSetState(-1,$gui_disable)
GUICtrlCreateLabel("Möchten sie eiene neue Audiodatei" & @crlf & " zur Wiedergabeliste hinzufügen?",10,10)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)
GUICtrlSetColor(-1,0xffffff)
$ja = GUICtrlCreateButton("Ja",50,120,145,30)
b_style($ja,1,1)
$nein = GUICtrlCreateButton("Nein",200,120,145,30)
b_style($nein,1,1)
GUISetState(@sw_show)
[/autoit][autoit][/autoit][autoit]While 1
$a1 = GUIGetMsg()
Select
case $a1 = $ja
add_audio_1()
ExitLoop
case $a1 = $nein
ExitLoop
EndSelect
WEnd
GUIDelete($gui_2)
[/autoit][autoit][/autoit][autoit]EndFunc
[/autoit][autoit][/autoit][autoit]Func add_audio_1()
$fod = FileOpenDialog("Bitte wähle deine Musikdatei aus...!",@DesktopDir,"Audiodateien (*.mp3;*.wave;*.wma)",4)
if @error =1 or @error =2 Then
Else
$ssp = StringSplit($fod,"|") ;ssp = no Schwarzstahlpanzer
if $ssp[0] = 1 Then
$summe = $summe + 1
$speichern = Binary($ssp[1])
IniWrite($dir & "/local/Tl.ini","Wiedergabeliste1",$summe,$speichern)
Dim $szDrive, $szDir, $szFName, $szExt
$Ps = _PathSplit($ssp[1], $szDrive, $szDir, $szFName, $szExt)
$name = $PS[3] & $Ps[4]
GUICtrlCreateListViewItem($summe & "|" & $name & "|" & "Bereit",$lv)
IniWrite($dir & "/local/Tl.ini","Wiedergabeliste1",0,$summe)
Else
$walker = 0
$path = 2
$stop_2 = $ssp[0]-1
ProgressOn("Neue Titel werden implementiert","Setze neue Titel...","Status: wartet")
$prozent = 100/($ssp[0]-1)
GUICtrlSetState($lv,$gui_hide)
Do
$set = $prozent*($walker+1)
ProgressSet($set,"Status: " & $walker+1 & "/" & $stop_2 & " wird implementiert")
sleep(5)
$summe = $summe + 1
$speichern = Binary($ssp[1] & "\" & $ssp[$path])
;MsgBox(0,"",$ssp[1] & "\" & $ssp[$path])
IniWrite($dir & "/local/Tl.ini","Wiedergabeliste1",$summe,$speichern)
GUICtrlCreateListViewItem($summe & "|" & $ssp[$path] & "|" & "Bereit",$lv)
$walker = $walker +1
$path = $path +1
until $stop_2 = $walker
GUICtrlSetState($lv,$gui_show)
sleep(1000)
ProgressOff()
IniWrite($dir & "/local/Tl.ini","Wiedergabeliste1",0,$summe)
EndIf
EndIf
EndFunc
[/autoit][autoit][/autoit][autoit]Func play()
if $wem = 0 Then
EndIf
if $wem = "last" Then
$walker_play = $walker_play-1
EndIf
_GUICtrlListView_SetItem($lv_1, "Bereit", $walker_play, 2)
if $sound_stat = "pause" Then
_SoundResume($so)
$sound_stat = "play"
_GUICtrlListView_SetItem($lv_1, "spielt", $walker_play, 2)
Else
$true = 0
$walker_play = 0
$stop_3 = _GUICtrlListView_GetItemCount($lv_1)
if $stop_3 = 0 Then
Else
Do
$is = _GUICtrlListView_GetItemSelected($lv_1, $walker_play)
if $is = True Then
$true = 1
$pfad = BinaryToString(IniRead($dir & "/local/Tl.ini","Wiedergabeliste1",$walker_play+1,0))
play_1()
ExitLoop
EndIf
$walker_play = $walker_play +1
Until $walker_play = $stop_3
if $true = 0 Then ; wenn nichts makiert wurde
$pfad = BinaryToString(IniRead($dir & "/local/Tl.ini","Wiedergabeliste1",1,0))
$walker_play = 0
_GUICtrlListView_SetItemChecked($lv_1, $walker_play, True)
_GUICtrlListView_SetItemSelected($lv_1, $walker_play, True, True)
play_1()
EndIf
$sound_stat = "play"
EndIf
EndIf
if _SoundLength($so,1) = "" Then
_GUICtrlListView_SetItem($lv_1, "beschädigt - wird übersprungen", $walker_play, 2)
_SoundStop($so)
_SoundClose($so)
$sound_stat = "play"
next_1()
Else
slider_label_set()
EndIf
;ListView muss mitrücken...
_GUICtrlListView_EnsureVisible($lv_1, $walker_play, False)
$waiter = 0
$last_next = 0
EndFunc
#region -------------- play Subs
func play_1()
If $sound_stat = "play" Then
_SoundStop($so)
_SoundClose($so)
EndIf
$so = _SoundOpen($pfad)
$sp = _SoundPlay($so)
_GUICtrlListView_SetItem($lv_1, "spielt", $walker_play, 2)
EndFunc
[/autoit][autoit][/autoit][autoit]func slider_label_set()
if $sound_stat = "play" Then
$temp = _GUICtrlListView_GetItem($lv_1, $walker_play, 1)
GUICtrlSetData($l2_l,$temp[3])
$time_label = _SoundLength($so,1)
GUICtrlSetData($l_max,"/ " & $time_label)
$temp = (_SoundLength($so,2))/(100)
$slider_max = $temp
GUICtrlSetLimit($slider,$slider_max)
EndIf
EndFunc
#endregion
Func stop()
if $sound_stat = "play" or $sound_stat = "pause" Then
_SoundStop($so)
_SoundClose($so)
$sound_stat = "stop"
_GUICtrlListView_SetItem($lv_1, "Bereit", $walker_play, 2)
GUICtrlSetData($l_min,"00:00:00 ")
GUICtrlSetLimit($slider,100)
GUICtrlSetData($slider,0)
GUICtrlSetData($l2_l,"Derzeit wird keine Audiodatei wiedergegeben")
EndIf
EndFunc
[/autoit][autoit][/autoit][autoit][/autoit][autoit]func pause()
if $sound_stat = "play" Then
_SoundPause($so)
$sound_stat = "pause"
_GUICtrlListView_SetItem($lv_1, "pausiert", $walker_play, 2)
$temp = _GUICtrlListView_GetItem($lv_1, $walker_play, 1)
GUICtrlSetData($l2_l,"pausiert: " & $temp[3])
EndIf
EndFunc
func v_spulen()
if $sound_stat = "play" then
$temp = _SoundPos($so,2)
$temp2 = _SoundLength($so,2)-$spul_time
if $temp > $temp2 Then
$temp2 = _SoundLength($so,2)/1000-1
Else
$temp = $temp + $spul_time
$temp2 = $temp / 1000
EndIf
$temp = _SoundSeek($so,"","",$temp2)
_SoundPlay($so)
EndIf
EndFunc
func r_spulen()
if $sound_stat = "play" then
$temp = _SoundPos($so,2)
if $temp < $spul_time Then
$temp2 = 0
Else
$temp = $temp - $spul_time
$temp2 = $temp / 1000
EndIf
$temp = _SoundSeek($so,"","",$temp2)
_SoundPlay($so)
EndIf
EndFunc
func last()
if $waiter = 0 Then
$waiter = 1
if $sound_stat = "play" Then
_GUICtrlListView_SetItem($lv_1,"Bereit",$walker_play,2)
if $walker_play = 0 Then
$walker_play = _GUICtrlListView_GetItemCount($lv_1)-1
Else
$walker_play = $walker_play-1
EndIf
_GUICtrlListView_SetItemChecked($lv_1, $walker_play, True)
_GUICtrlListView_SetItemSelected($lv_1, $walker_play, True, True)
play()
EndIf
Else
EndIf
EndFunc
Func next_1()
if $waiter = 0 Then
$waiter = 1
if $sound_stat = "play" Then
_GUICtrlListView_SetItem($lv_1,"Bereit",$walker_play,2)
if $walker_play = _GUICtrlListView_GetItemCount($lv_1)-1 Then
$walker_play = 0
Else
$walker_play = $walker_play+1
EndIf
_GUICtrlListView_SetItemChecked($lv_1, $walker_play, True)
_GUICtrlListView_SetItemSelected($lv_1, $walker_play, True, True)
play()
EndIf
Else
EndIf
EndFunc
Func tray_unchecked()
TrayItemSetState($t_2,$tray_unchecked)
TrayItemSetState($t_3,$tray_unchecked)
TrayItemSetState($t_4,$tray_unchecked)
TrayItemSetState($t_5,$tray_unchecked)
TrayItemSetState($t_6,$tray_unchecked)
TrayItemSetState($t_7,$tray_unchecked)
TrayItemSetState($t_8,$tray_unchecked)
EndFunc
Func exit_()
Exit
EndFunc
Func leiser()
if $laut = 0 Then
Else
$laut = $laut -5
GUICtrlSetData($l1,$laut)
GUICtrlSetData($l1_l,$laut)
SoundSetWaveVolume($laut)
IniWrite($dir & "/local/einstellungen.ini","Player","Laut",$laut)
EndIf
EndFunc
Func lauter()
if $laut = 100 Then
Else
$laut = $laut +5
GUICtrlSetData($l1,$laut)
GUICtrlSetData($l1_l,$laut)
SoundSetWaveVolume($laut)
IniWrite($dir & "/local/einstellungen.ini","Player","Laut",$laut)
EndIf
EndFunc
Func frage($input_0)
$gui_2 = GUICreate("Möchten sie das tun?",400,200,-1,-1,0x00800000)
GUISetFont(17,1000)
GUICtrlCreatePic($dir & "/Bilder/bgimage_2.JPG",0,0,400,200)
GUICtrlSetState(-1,$gui_disable)
GUICtrlCreateLabel($input_0,10,10)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)
GUICtrlSetColor(-1,0xffffff)
$ja = GUICtrlCreateButton("Ja",50,120,145,30)
b_style($ja,1,1)
$nein = GUICtrlCreateButton("Nein",200,120,145,30)
b_style($nein,1,1)
GUISetState(@sw_show)
[/autoit][autoit][/autoit][autoit]While 1
$a1 = GUIGetMsg()
Select
case $a1 = $ja
$frage = 1
ExitLoop
case $a1 = $nein
$frage = 0
ExitLoop
EndSelect
WEnd
GUIDelete($gui_2)
EndFunc
func close()
FileInstall("C:\Users\Admin\JH\Spiele und Arbeiten\AUTOIT\Scripts\TEST1\Sound\Windows_B.wma",$dir & "/Sound/Windows_B.wma",1)
SplashTextOn("Aufwiedersehen","Programm wird beendet... BB :)",400,50)
SoundPlay($dir & "/Sound/Windows_B.wma",0)
if $laut = 0 Then
Else
$temp = $laut / 5
$temp = 2000 / $temp
Do
$laut = $laut -5
SoundSetWaveVolume($laut)
sleep($temp)
until $laut = 0
EndIf
Exit
EndFunc
[MSIE_newline_end ][/spoiler ]