Beiträge von autoBert

  • Schlechtere Noten für Kevins

    Zitat

    Mit Vorurteilen belastete Vornamen können einen Einfluss auf Schulnoten haben. Das geht aus einer Studie an der Universität Oldenburg hervor. "Aufgaben, die unter dem Namen Maximilian verfasst wurden, erhielten zum Beispiel eine bessere Bewertung als die gleichen Aufgaben unter dem Namen Kevin", sagt die Pädagogin Astrid Kaiser.

    Quelle: http://www.stuttgarter-zeitung.de/stz/page/26037…uer-kevins.html.

    Also Kevin's & Co. Namen ändern lassen und evtl. Schule wechseln, dann gibts auch wieder bessere Noten

    mfg autoBert

  • Frage zu Combobox und Werteauswahl

    • im MsgLoop-Modus: GuiGetMsg(1)
      Zitat von Hilfe

      Wird der "advanced"-Parameter verwendet, werden die Informationen in einem Array zurückgegeben:
      $array[0] = 0 oder Ereignis-ID oder Control-ID
      $array[1] = Der Fenster-Handle des Fensters, von dem das Ereignis gemeldet wird
      $array[2] = Der Control-Handle des Controls, von dem das Ereignis gemeldet wird (gegebenenfalls)
      $array[3] = Die aktuelle X-Position des Mauszeigers (relativ zum GUI-Fenster)
      $array[4] = Die aktuelle Y-Position des Mauszeigers (relativ zum GUI-Fenster)


      im On>Event.Modus:

      Zitat von Hilfe

      @GUI_CtrlId Identifier des zuletzt geklickten GUI Controls. Nur gültig in einer Event Funktion. Siehe GUICtrlSetOnEvent-Funktion.
      @GUI_CtrlHandle Handle des zuletzt geklickten GUI Controls. Nur gültig in einer Event Funktion. Siehe GUICtrlSetOnEvent-Funktion.

    mfg autoBert

  • Mehrere Fragen/Probleme

    so z.B.:

    Spoiler anzeigen
    [autoit]

    ;----------------------------------
    #region
    #AutoIt3Wrapper_UseX64=n
    #endregion
    ;----------------------------------
    #include <GuiConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <INet.au3>
    #include <Date.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    ; GUI
    Global $lblCpuPer
    $title = "Red Dragon Tool"
    $font="Times New Roman FETT"
    $font2="Times New Roman FETT KURSIV"
    $PublicIP = _GetIP()
    $username = @UserName
    $osversion = @OSVersion & " , " & @OSType & " , " & @OSArch & " , " & @OSBuild
    GuiCreate($title, 300, 380)
    GUISetBkColor(0xff0000)

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

    ;-----------------------
    Local Const $wbemFlagReturnImmediately = 0x10
    Local Const $wbemFlagForwardOnly = 0x20
    ;-----------------------

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

    Global $blink = True
    $Label1 = GUICtrlCreateLabel("", 55, 195, 100, 12)
    $Label2 = GUICtrlCreateLabel("", 55, 210, 100, 12)
    ;---------------------------------------Datum
    _date()

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

    GUISetState(@SW_SHOW)

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

    AdlibRegister("_date", 1000)
    ;---------------------------------------Uhr
    _time()

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

    ;GUISetState(@SW_SHOW)

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

    AdlibRegister("_time", 1000)
    ;---------------------------------------

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

    ; GROUP WITH RADIO BUTTONS
    GuiCtrlCreateGroup("Spiele", 170, 25, 80, 150)
    GUICtrlSetColor(-1, 0x0000FF)
    GUICtrlSetFont (-1,8.5, -1, -1, $font)
    GuiCtrlCreateGroup("Infos", 50, 175, 200, 120)
    GUICtrlSetFont (-1,8.5, -1, -1, $font)
    ;---------------------------------------------
    $Spiel_1 = GuiCtrlCreateRadio("Cabal", 180, 40, 55)
    ;---------------------------------------------
    $spiel_2 = GuiCtrlCreateRadio("CSS", 180, 60, 55)
    ;---------------------------------------------
    $spiel_3 = GuiCtrlCreateRadio("C.A.", 180, 80, 55)
    ;---------------------------------------------
    $spiel_4 = GuiCtrlCreateRadio("Shift", 180, 100, 55)
    ;---------------------------------------------
    $spiel_5 = GuiCtrlCreateRadio("Alien S.", 180, 120, 55)
    ;---------------------------------------------
    $spiel_6 = GuiCtrlCreateRadio("Pinball", 180, 140, 55)
    ;---------------------------------------------
    GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

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

    ; BUTTON
    $button_1 = GuiCtrlCreateButton("OK", 50, 300, 100)
    $button_2 = GuiCtrlCreateButton("Schließen", 150, 300, 100)

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

    $button_3 = GuiCtrlCreateButton("C:\ (Windows)", 50, 75, 100)
    $button_4 = GuiCtrlCreateButton("D:\ (Filme)", 50, 100, 100)
    $button_5 = GuiCtrlCreateButton("E:\ (Musik)", 50, 125, 100)
    $button_6 = GuiCtrlCreateButton("F:\ (Daten)", 50, 150, 100)
    ;Menü
    $Menu1 = GUICtrlCreateMenu ("Hintergrundfarbe")
    $Menu1_1 = GUICtrlCreateMenuitem ("Rot", $Menu1)
    $Menu1_2 = GUICtrlCreateMenuitem ("Blau", $Menu1)
    $Menu1_3 = GUICtrlCreateMenuitem ("Gelb", $Menu1)
    $Menu1_4 = GUICtrlCreateMenuitem ("Schwarz", $Menu1)
    $Menu1_5 = GUICtrlCreateMenuitem ("Grün", $Menu1)
    $Menu1_6 = GUICtrlCreateMenuitem ("Pink", $Menu1)
    $Menu1_7 = GUICtrlCreateMenuitem ("Violett", $Menu1)
    $Menu1_8 = GUICtrlCreateMenuitem ("Braun", $Menu1)
    $Menu1_9 = GUICtrlCreateMenuitem ("Weiß", $Menu1)
    $Menu1_r = GUICtrlCreateMenuitem ("Random", $Menu1)
    ;Label
    GuiCtrlCreateLabel("RED DRAGON", 50, 25,120)
    GUICtrlSetFont (-1,11, -1, -1, $font2)
    GuiCtrlCreateLabel("Tool", 50, 40,100,12)
    GUICtrlSetFont (-1,10, -1, -1, $font2)
    GuiCtrlCreateLabel("IP: " & $PublicIP, 55, 265,100,12)
    GuiCtrlCreateLabel("", 55, 221,100,5)
    GuiCtrlCreateLabel($username, 55, 230,100,12)
    GuiCtrlCreateLabel($osversion, 55, 280,175,12)
    GuiCtrlCreateLabel("CPU Kerne: " & _GetCoreCount(), 55, 250,75,12)
    $lblCpuPer = GuiCtrlCreateLabel("CPU Auslastng: " & CpuAuslastung(), 155, 250,100,12)
    AdlibRegister("_ShowCpuPer",5000)

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

    ; (c)
    GuiCtrlCreateLabel("© Xilent", 120, 350,100,12)

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

    ; GUI MESSAGE LOOP
    GuiSetState()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $button_1
    If $Spiel_1 And GUICtrlRead($Spiel_1) = $GUI_CHECKED Then
    Run("C:\Program Files\Games-Masters.com\CABAL Online (EU)\cabal.exe")
    ElseIf $Spiel_2 And GUICtrlRead($Spiel_2) = $GUI_CHECKED Then
    Run("")
    ElseIf $Spiel_3 And GUICtrlRead($Spiel_3) = $GUI_CHECKED Then
    Run("C:\Nexon\Combat Arms EU\CombatArms.exe")
    ElseIf $Spiel_4 And GUICtrlRead($Spiel_4) = $GUI_CHECKED Then
    Run("C:\Program Files\Electronic Arts\Need for Speed SHIFT\shift.exe")
    ElseIf $Spiel_5 And GUICtrlRead($Spiel_5) = $GUI_CHECKED Then
    Run("C:\Users\Sascha\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Steam")
    ElseIf $Spiel_6 And GUICtrlRead($Spiel_6) = $GUI_CHECKED Then
    Run("C:\Program Files\Microsoft Games\Pinball\PINBALL.exe")
    EndIf
    Case $msg = $button_2
    Exit
    Case $msg = $button_3
    Run(@ComSpec & " /c " & 'start C:\', "", @SW_HIDE)
    Case $msg = $button_4
    Run(@ComSpec & " /c " & 'start D:\', "", @SW_HIDE)
    Case $msg = $button_5
    Run(@ComSpec & " /c " & 'start E:\', "", @SW_HIDE)
    Case $msg = $button_6
    Run(@ComSpec & " /c " & 'start F:\', "", @SW_HIDE)
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $Menu1_1
    AdlibUnRegister("_Random_BG")
    GUISetBkColor(0xff0000)
    Case $msg = $Menu1_2
    AdlibUnRegister("_Random_BG")
    GUISetBkColor(0x0000FF)
    Case $msg = $Menu1_3
    AdlibUnRegister("_Random_BG")
    GUISetBkColor(0xFFFF00)
    Case $msg = $Menu1_4
    AdlibUnRegister("_Random_BG")
    GUISetBkColor(0x000000)
    Case $msg = $Menu1_5
    AdlibUnRegister("_Random_BG")
    GUISetBkColor(0x00FF00)
    Case $msg = $Menu1_6
    AdlibUnRegister("_Random_BG")
    GUISetBkColor(0xFF00FF)
    Case $msg = $Menu1_7
    AdlibUnRegister("_Random_BG")
    GUISetBkColor(0x800080)
    Case $msg = $Menu1_8
    AdlibUnRegister("_Random_BG")
    GUISetBkColor(0x800000)
    Case $msg = $Menu1_9
    AdlibUnRegister("_Random_BG")
    GUISetBkColor(0xFFFFFF)
    Case $msg = $Menu1_r
    AdlibRegister("_Random_BG", 1000)
    _Random_BG()
    EndSelect
    WEnd

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

    Func _Random_BG()
    GUISetBkColor(Random(100, 0xFFFFFF, 1))
    EndFunc

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

    Func _ShowCpuPer()
    GUICtrlSetData($lblCpuPer,"CPU Auslastng: " & CpuAuslastung())
    EndFunc

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

    ;----------------------------------------------------------Uhr
    Func _time()
    If $blink Then
    GUICtrlSetData($Label1, @HOUR & ':' & @MIN & ':' & @SEC)
    $blink = Not $blink
    Else
    GUICtrlSetData($Label1, @HOUR & ':' & @MIN & ':' & @SEC)
    $blink = Not $blink
    EndIf
    EndFunc ;==>_time
    ;---------------------------------------------------------------Datum
    Func _date()
    If $blink Then
    GUICtrlSetData($Label2, @MDAY & '.' & @MON & '.' & @YEAR)
    $blink = Not $blink
    Else
    GUICtrlSetData($Label2, @MDAY & '.' & @MON & '.' & @YEAR)
    $blink = Not $blink
    EndIf
    EndFunc ;==>_time
    ;-------------------------------------------------------------------
    Func _GetCoreCount(Const $Computer = "127.0.0.1")
    $WMIConnect = ObjGet('winmgmts:{impersonationLevel=impersonate}!\\' & $Computer & '\root\CIMV2')
    If Not IsObj($WMIConnect) Then Return SetError(-1, @error, 0)
    $ObjList = $WMIConnect.ExecQuery('SELECT Name FROM Win32_PerfRawData_PerfOS_Processor', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If Not IsObj($ObjList) Then Return SetError(-2, @error, 0)
    $iReturn = 0
    For $ObjItem In $ObjList
    If StringInStr($ObjItem.Name, "_Total") = 0 Then $iReturn += 1
    Next
    Return $iReturn
    EndFunc ;==>_GetCoreCount
    ;---------------------------------

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

    ;==============================================
    ; Sen - CpuAuslastung
    ; Return: Cpu Auslastung (%)
    ;==============================================
    Func CpuAuslastung()
    ;Global $wbemFlagReturnImmediately = 0x10
    ;Global $wbemFlagForwardOnly = 0x20
    Global $wbemFlags = $wbemFlagReturnImmediately + $wbemFlagForwardOnly
    Global $strComputer = @ComputerName

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

    Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    Global $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlags)

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

    $n = 0
    $c = 0
    $sMsg = ""
    For $objItem In $colItems
    $sMsg &= "cpu%" & $objItem.LoadPercentage
    $n += 1
    Next

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

    $CpuAuslastung = StringSplit($sMsg, "cpu%", 1)

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

    For $n = "0" To $CpuAuslastung[0]
    $c += $CpuAuslastung[$n]
    Next

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

    Return (Round($c / $CpuAuslastung[0], 0) & "%")
    EndFunc ;==>CpuAuslastung

    [/autoit]

    an der Optik musst du noch arbeiten, da einfach nur Änderung eingefügt

    mfg autoBert

  • JaYT-DwiMP3-P (YT-Downloader) Version 0.8.7.1

    neue Version 0.8.4.8 siehe Post #1

    dank FichteFoll, der mir den entscheidenen Tipp per PN gab, funktioniert das Sownloaden wieder.

    Zitat von AutoBert

    Das dürfte das letzte Update für die nächste Zeit gewesen sein, ausser es meldet jemand noch gravierende Fehler. Für Anfang Herbst ist ein großes Update geplant, bei dem mehrere Downloads parallel durchgeführt werden können. Eventuell will ich auch die Titellänge, Interpret als ID3-Tag in die Files schreiben.
    Wenn ihr Wünsche, Anregungen habt als her damit.

    dies gilt nach natürlich immer noch


    mfg autoBert

  • IE.au3 - GMX eMailPostfach auslesen

    Zitat von zim

    Zurück zum Thema. Den "umständlchen Weg" gehe ich weil der Inhalt automatisch weiterverarbeitet werden soll. Dabei hilft mir das Programm, zu dem du mir den Link geschickt hast nicht. Die Skripte von POP-Show zu modifizieren um meinen Ansprüchen gerecht zu werden klingt für mich nach nem ziemlichen Overkill des Teilproblems.

    Du sollst ja nicht @Oscars Pop-Show anpassen, sondern anhand dieses Programmes die Einsatzmöglichkeiten der Pop.au3 von @Stigar nd @Luc HENNINOT (warscheins EN-Forum) kennenlernen und danach ein eigenes Skript nach deinen Bedürfnissen stricken.

    Bei der Automatisierung des IEs kann ich dir leider nicht helfen,

    ,mfh autoBert

  • Beim Download friert der Prozess/das GUI ein - aber nur auf Vista/Xp

    Hallo FichteFoll,

    hast du dir meinen Player (Link siehe Signatur) angesehen :?: Das Prog reagiert Self-Updates (mit Ausnahme beim Seiten auslesen mit _InetGetSorce) ach während des auf jeden Tastendruck, da ich InetGetInfo in einer AdlinRegister(t) Fuunc abfrage und nicht in einer Schleife.

    Zitat

    In der ReadMe.txt habe ich vermerkt, dass ich ffmpeg zum Konvertieren verwende, aber im "About"-Tab noch nicht. Ich muss sowieso erst noch gucken, ob ich das YT-Logo überhaupt verwenden darf.

    das mit demYT-Logo bezweifle ich.

    Zu ffmpeg du must auch mindestens die COPYING.GPLv3.txt die im Oririnalink enthalten ist beifügen (besser die ganze Dokumentation) und evetuell beim Installieren einen (einmaligen) Hinweis auf die fremde EXe, Copyright etc. einblenden, damit solltest du die Mindestanforderungen erfüllt haben

    mfg autoBert

  • Verknüpfung zum Ordner

    Hallo sentionline,

    existieren diese Ordner zum Zeitpunkt der Linkerstellung schon? Zumidest für einen der beiden. bezweifle ich das, da sie ja erst entpackt werden müssen und AutoIt ja nicht darauf wartet bis das entpacken fertig ist. Prüfe also jeweils in einer Schleife ob der Ordner existiert

    [autoit]

    while not fileexists("DeinDirectoryName")
    sleep(500)
    wend
    ;hier erst den Link erzeugen

    [/autoit]

    mfg autoBert

  • Selbst aktuellisierende Uhr

    Hallo xilent,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu

    Zitat von Xilent

    Ich habe nur noch eine Frage ^^. Könnte man so etwas auch mit dem Datum machen Sodas es um 0Uhr automatisch das Datum wechselt ? Oder ist das auch schon wieder was ganz anderes ?

    In das Beispiel von UEZ musst du nur

    [autoit]

    ;Zeile 71
    _GDIPlus_GraphicsDrawString($hBackbuffer, @MDAY & "/" & @MON & "/" & @YEAR, 0, 20)

    [/autoit]

    einfügen, denke aber du benötigst nur die Makrobezeichnungen und machst es genauso wie du es bei der Zeit gemacht hast. Leider hast du dein Skript nicht gepostet, ich vermute aber du hast AdlibRegister genommen,

    mfg autoBert

  • Beim Download friert der Prozess/das GUI ein - aber nur auf Vista/Xp

    Hallo FichteFoll,

    kann in deinem stark gekürztem Skript weder

    [autoit]

    InetGet

    [/autoit]

    noch

    [autoit]

    Addlib

    [/autoit]

    finden. Ich tendiere aber dazu das

    [autoit]

    _InetGetSource

    [/autoit]

    (finde ich zwar auch nicht) die schuldige Func ist. Solange du nicht wenigstens einen Link zum Analyse-Ergenis der Überpüfung des Files bei VirusTotal.com einstellst, wird es kaum jemanden geben der es testet. Bei meinen [Beispiel] NeMP3-P (MP3-Player) Version 0.8.4.7 habe ich es so gemacht, dort habe ich auch dass Problem das am Anfang der Update-Funktion die GUI nicht reagiert,
    Besser wäre natürlich der Source. Die Filegrösse kommt mir für eine AutoIt.exe auch übermässig gross vor.

    Edit: ich habe mich jetzt doch getraut, habe das Tool trotz der Grösse von 5 MB downgeloadet (magere INet-Verbindng derzeit 18 KB/s) habe es entpackt bei Virstotal deine Exe checken lassen siehe:
    http://www.virustotal.com/file-scan/repo…79bf-1282607482

    Mir ist aufgefallen dass du dich mit "fremden Federn schmückst" soll hsisen du benutzt ffmpeg zur Konvertierung des downgeloadeten Files erwähnst aber in keiner Weise, dass du ein Fremdprogramm benutzt. Dies ist eindeutig ein Verstoss gegen die GNU GENERAL PUBLIC LICENSE Version 3, 29 June 2007 die dem Originaldownload von ffmpeg beiliegt,

    Edit2: GPL Licence angehängt,

    mfg autoBert

  • Virus Arlam..

    Hallo Zero2q,

    wenn du deine File nicht packst und diese Exe immer wieder einmal zu Virustotal.com hochlädst, merkt irendwann auch der verschlaffenste AV-Scanner Hersteller, dass es sich dabei um keinen Virus handelt. So hat es zumindest bei meinem JaYT-DwiMP3-P (funktioniert nicht mehr) und NeMP3-P (Link siehe Signatur) geklappt,

    mfg autoBert

  • Update-Status von AviraUpdate auslesen

    Hallo WillyWu,

    hier der ultimative Lösngsvorschlag: Avira legt zu jedem Vorgang eine Reportdatei an, da diese wie eine INI-Datei angelegt ist kannst du diese mit

    [autoit]

    $sReportDir = StringReplace(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Avira\AntiVir Desktop","AppDataDirectory"),"\\","\") & "Reports\"
    $aInfo = IniReadSection($sReportDir & "d06ecd00.avl","Update") ;Dateinamen anpassen
    _ArrayDisplay($aInfo)

    [/autoit]

    Falls du StartTime und EndTime auswerten willst musst du

    [autoit]

    _DateAdd

    [/autoit]

    verwenden, schau dir dazu das Beispiel in der Hilfe an. Die Zeit weicht um 2 Stunden ab, ob die Abweichung sich beim Zurückstellen der Sommerzeit auf Normalzeit auf 1 Stunde reduziert weiss ich nicht, gehe aber stark davon aus,

    PS.: bin am überlegen dafür ein kleines Admin-Tool zu schreiben und es am Markt als ShareWare (mit nervenden MsgBoxen ;) bis zur Registration anzubieten). Wäre nett wenn du bestätigen könntest, dass die ReportDir auch in deiner Version richtig erkannt wird bzw. falls Unterschied den entsprechenden Schlüssel zu posten,

    mfg (Auto)Bert

  • textdokumente 2.

    Halo Zwockel,

    das Beispiel in der Hilfe zu _FileWriteToLine funktioniert bei mir einwandfrei also ohne nachfolgende Leerzeile. Damit man den Fehler finden kann solttest du das Skript posten, dass ihn verursacht,

    mfg autoBet

  • Update-Status von AviraUpdate auslesen

    Hallo WillyWu,

    Zitat von Hilfe zu RegRead

    Es ist möglich, Registries im Netzwerk zu bearbeiten. Dazu ist "\\Computername\Schlüsselname" zu verwenden. Um diese Funktion verwenden zu können, ist es unter Windows NT/2000/XP/2003 notwendig, die entsprechenden Zugriffsrechte zu besitzen.

    da ich selbst keine Maus -Schubs und -Klick Skripte schreibe kann ich dich nur auf die Hilfe verweisen und auf diesen Thread [ gelöst ] text an minimiertes fenster
    Wenn du es nicht über die Registry lösen willst, würde ich an deiner Stelle aber über die Ereignisanzeige
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    bzw. Berichtanzeige
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    von Avira lösen, da hier die Zeit keibnerlei Rolle spielt,

    mfg autoBert

  • Update-Status von AviraUpdate auslesen

    Ich wollte eigentlich darauf hinaus, dass du allein über die Registry feststellen kannst wann das letzte Update war, dies sollte zur Info doch reichen, Wenn ich schauen will welchen Stand mein Avira hat schau ich in den Status. Meine Update von Avira erledige ich über den Planer von AVIRA Antivir. Ich sehe also keinen Bedarf für ein solches Programm,

    mfg autoBert

  • LotW Soundboard

    Hallo SkilKor,

    du tippst wohl gerne? Ich habe das Sckript überflogen, beim Einsatz von $Form =

    [autoit]

    GUICreate("LotW Soundboard", 630, 630, 192, 124)
    GUISetBkColor(0x000000) ;<========
    GUICtrlSetDefBkColor( 0x000000,$Form) ;<========

    [/autoit]

    hättest du dir einige Zeilen sparen können. Da das ganze ja ein Copy-Paste Skript ist [lauter gleichartige Buttons mit immer der gleichen Funktion (SoundPlay)] solltest du auch über den Einsatz von Arrays (1. für Controll-IDs 2. für Beschriftung der Controls, 3. für die Musiktitel) nachdenken, dies spart sicher auch noch einige Zeilen.

    PS.: Sind die Musiktitel frei verfügbar oder hälst du selbst die Rechte daran?

    mfg autoBert