Audioplayer by Supercopra ^^

Supercopra

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]

[autoit]

#cs ----------------------------------------------------------------------------[autoit]#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.0
Author: Supercopra

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

Script Function:
Template AutoIt script.

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

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

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

$temp = BinaryToString(IniRead($dir & "/local/einstellungen.ini","Player","spulen","Spluen|10000"))
$temp = StringSplit($temp,"|")
$spul_time = $temp[2]

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

#include
#include
#Include
#include
#include
#include
#include
#Include

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

if FileExists ( $dir & "/local" ) = 0 Then
DirCreate ( $dir & "/local" )
EndIf

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

if FileExists ( $dir & "/Bilder" ) = 0 Then
DirCreate ( $dir & "/Bilder" )
EndIf

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

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)

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

if FileExists ( $dir & "/Sound" ) = 0 Then
DirCreate ( $dir & "/Sound" )
EndIf

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

$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

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

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

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

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

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

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)

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

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

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

TrayCreateItem("")

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

$t_9_1 = TrayCreateItem("Lautstärke: 0")
$t_9_2 = TrayCreateItem("Lautstärke: 100")

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

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)

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

$2m_1 = GUICtrlCreateMenu("Programm")
$2m_1_1 = GUICtrlCreateMenuItem("Beenden",$2m_1)

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

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

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

$l2_l = GUICtrlCreateLabel("Derzeit wird keine Audiodatei wiedergegeben",15,75,470,20,$ss_center)
GUICtrlSetColor(-1,0xffffff)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)

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

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

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

$lauter_l = GUICtrlCreatePic($dir & "/Bilder/lauter_1.JPG",15,15,15,15)
b_style($lauter_l,1,1)

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

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

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

;Umfangreich GUI --------------------------------------------------------------------------
$ir = IniRead($dir & "/local/Tl.ini","Wiedergabeliste1",0,0)
$summe = $ir

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

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

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

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)

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

$m2 = GUICtrlCreateMenu("Bei Problemen")
$m2_2 = GUICtrlCreateMenu("Steuerelemente",$m2)
$m2_2_1 = GUICtrlCreateMenuItem("anzeigen",$m2_2)

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

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

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

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

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

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

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

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

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

;Steuerelemente
$slider = GUICtrlCreateSlider(10,420,780,20)
GUICtrlSetBkColor(-1,0x000000)

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

$l_min = GUICtrlCreateLabel("00:00:00 ",350,450,50,20,$ss_right)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xffffff)

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

$l_max = GUICtrlCreateLabel("/ 00:00:00",400,450,100,20)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)
GUICtrlSetColor(-1,0xffffff)

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

$sufu = GUICtrlCreateInput("zu suchender Musiktitel eingeben...",200,500,400,20,$ss_center)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xffffff)
GUICtrlSetState(-1,$gui_hide)

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

$l1 = GUICtrlCreateLabel($laut,5,610)
GUICtrlSetColor(-1,0xffffff)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)

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

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

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

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

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

;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

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

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

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

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

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

if $time = 1 Then
$time_0 = TimerInit()
$time = 2
EndIf

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

if $time = 2 Then
$temp = TimerDiff($time_0)
if $temp > 2000 Then
ToolTip("")
$time = 0
EndIf
EndIf

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

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

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

$a = GUIGetMsg()
$t = TrayGetMsg()

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

Select

;TRAYMENÜS

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

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)

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

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

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

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

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

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

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

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

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

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

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

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

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

if $slider_walk = 1 Then
GUICtrlSetData($slider,_SoundPos($so,2)/100)
EndIf

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

$temp = TimerDiff($time_label_1)
if $temp > 1000 Then
GUICtrlSetData($l_min,_SoundPos($so,1) & " ")
$time_label_1 = TimerInit()
EndIf
EndIf

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

;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

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

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

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

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)

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

GUICtrlCreateLabel("Möchten sie eiene neue Audiodatei" & @crlf & " zur Wiedergabeliste hinzufügen?",10,10)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)
GUICtrlSetColor(-1,0xffffff)

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

$ja = GUICtrlCreateButton("Ja",50,120,145,30)
b_style($ja,1,1)
$nein = GUICtrlCreateButton("Nein",200,120,145,30)
b_style($nein,1,1)

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

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

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

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

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

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

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

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

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

;ListView muss mitrücken...
_GUICtrlListView_EnsureVisible($lv_1, $walker_play, False)
$waiter = 0
$last_next = 0
EndFunc

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

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

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

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

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

$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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Func exit_()
Exit
EndFunc

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

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

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

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

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

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)

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

GUICtrlCreateLabel($input_0,10,10)
GUICtrlSetBkColor(-1,$gui_bkcolor_transparent)
GUICtrlSetColor(-1,0xffffff)

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

$ja = GUICtrlCreateButton("Ja",50,120,145,30)
b_style($ja,1,1)
$nein = GUICtrlCreateButton("Nein",200,120,145,30)
b_style($nein,1,1)

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

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

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

GUIDelete($gui_2)
EndFunc

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

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

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

[MSIE_newline_end ][/spoiler ]

yxyx

mach das script bitte in

Code

[spoiler][/spoiler]

JuraX

du hast am anfang nen fehler drine

[autoit]

#cs
#ce----------------------------

[/autoit]

ce ist comment end ----------------- ist also quelltext...

Gefällt mir sonst sehr gut, soltest aber auch drag/dropp und doppelklickerkennung einbauen.
Und man kann nicht vorspulen...

Supercopra

wieso kannst du net vorspulen .?
Hab das doch eingebaut ? xD k.a[MSIE_newline_end ]

JuraX

der slider Aktualisiert zu oft --> lässt sich nicht vorspulen...

Supercopra

hmm funktioniert wirklich net mehr,,,
( IM Scriptvormat hat das noch funktioniert aber nach kompiling da net mehr.. -.- )
( hatte wenn Maus drüber ist das das net mehr aktualisiert.... )[MSIE_newline_end ]

zocker5656

ist das beabsichtigt das keine includes da stehen, da steht nur

[autoit]

#include
#include
#Include
#include
#include
#include
#include
#Include

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

Supercopra

nö fehler...^^ willst das wissen ? dann em mach ich se rei n

black_skorpi

was ich auf jeden fall noch ändern würde, ist das hinzufügen von musiktiteln, einfach beim fileopendialog einstellen, dass man mehrere titel wählen kann
(wenn das dann nich funktioniert bleiben ja nur kleine änderungen)