Beiträge von Skilkor

  • Wiedergabelieste erstellen

    Ich hab ein weng rumgespielt und "WL Easy" erstellt... der einfach nur ein "*.m3u" File Erstellt

    Spoiler anzeigen
    [autoit]

    #Region ### include ###
    #include <Array.au3>
    #include <File.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #EndRegion ### include ###
    ;=============
    #Region ### GUI ###
    GUICreate("WL Easy", 242, 107, 652, 492)
    GUICtrlCreateGroup("", 8, 40, 225, 57)
    $Create = GUICtrlCreateButton("Create", 32, 56, 75, 25, $WS_GROUP)
    $Hilfe = GUICtrlCreateButton("Hilfe", 136, 56, 75, 25, $WS_GROUP)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Folder_Search = GUICtrlCreateButton("...", 216, 8, 19, 25, $WS_GROUP)
    $Path = GUICtrlCreateInput("Pfad", 8, 8, 209, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### GUI ###
    ;=============
    #Region ### Global ###
    Global $Path
    Global $FileSave
    #EndRegion ### Global ###
    ;=============
    #Region ### GUI Event ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Create
    _Create()
    Case $Folder_Search
    _FolderSearch()
    Case $Hilfe
    _Hilfe()
    EndSwitch
    WEnd
    #EndRegion ### GUI Event ###
    ;=============
    #Region ### FileSave ###
    Func _FileSave($FileSave)
    $MyDocs = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
    $Name = GUICtrlRead($Path)
    $FileSave = FileSaveDialog( "Speichern der Playlist",$MyDocs,"(*.m3u)",$Name,2)
    ; option 2 = dialog remains until valid path/file selected

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

    If @error Then
    MsgBox(4096,"Abbruch","Speichern Abgerochen")
    Else
    MsgBox(4096,"","Sie haben " & $FileSave & " Ausgewählt")
    EndIf
    EndFunc
    #EndRegion ### FileSave ###
    ;=============
    #Region ### _Create() ###
    Func _Create()
    $Name = GUICtrlRead($Path,1)
    $sPlaylist = _FileSave($FileSave) ;@DesktopDir & "\Test.m3u"
    $sTitle = GUICtrlRead($Path,1)
    $Folder = GUICtrlRead($Path)
    If @error Then
    _Fehler()
    EndIf

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

    $aFIles = _FileListToArray($Folder, "*.mp3", 1)
    If @error Then
    MsgBox(4096, 'Error', 'Fehler, Keine *.mp3 Dateien gefunden')
    EndIf

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

    $hFile = FileOpen($sPlaylist, 1)
    For $i = 1 To $aFIles[0]
    FileWrite($hFile,$Folder&$aFIles[$i] & @CRLF)
    Next
    EndFunc
    #EndRegion ### _Create ###
    ;=============
    #Region ### _FolderSearch() ###
    Func _FolderSearch()
    $Folder = FileSelectFolder("Wähle einen Ordner", "", 4, "","")
    ControlSetText("","",$Path,$Folder)
    EndFunc
    #Endregion ### _FolderSearch() ###
    ;=============
    #Region ### _Hilfe() ###
    Func _Hilfe()
    MsgBox(4096, 'Hilfe','Wiedergabelisten Beschreibung'&@CRLF&@CRLF&'WL Easy erstellt ein "*.m3u" File,welches von'&@CRLF&'mehreren Playern verwendet werden kann z.B.'&@CRLF&'- Windows Media Player'&@CRLF&'- Song Bird'&@CRLF&'- Real Player'&@CRLF&'- Video Lan (VLC)'&@CRLF&'- Win Amp'&@CRLF&'und viele andere'&@CRLF&@CRLF&'Ein Danke an:'&@CRLF&'i2c: Für seine Hilfe und Ideen'&@CRLF&@CRLF&'Createt by Skilkor')
    EndFunc
    #Endregion ###_Hilfe() ###
    ;=============
    #Region ### _Fehler() ###
    Func _Fehler()
    MsgBox(48, 'Fehler', 'Keine Wiedergabelieste ausgewählt')
    EndFunc
    #EndRegion ### _Fehler() ###

    [/autoit]


    Ich bin mir immernoch am überlegen wie ich bei (Create) & (FileSave) den Name richtig hinbekomme....selbst wen ich die ($Name) entferne und diese option freilasse....wird der Eingetipte Name bei (FileSave) nicht akzeptiert und eine 0 dahin gepflanzt -.-

    Skilkor

  • Wiedergabelieste erstellen

    Da siwrd mir erst jetz richtig bewusst...
    Dann muss ich allso bei
    FileWrite()
    ersteinmal das Array aufrufen und dann aus dem array heraus die gewünschte Angabe heraus schreiben
    Seh ich dass so richtig?

    **edit**
    naja ich nehem mir mal deinen starplayer inter die lupe, da musst du ja die gesuchten array's aufrufen :) falls ich dann immernochnichts kapiett habe bin ich wohl echt zu blöd für array's -.- odr finde einfach niemanden der mir das richtig schön erklären kann :) man schreibt sich sicher wider :)

    ** edit2**
    handy surfen is ja schon geil...aber die tipfehler sind ultra xD

    **Edit3**
    Ich habe mal eine plalist mit deinem "StarPlayer" erstellt
    dieses .m3u file Hat eine komplet anderen Aufbau als den ich kenne...
    Hier

    Spoiler anzeigen
    [autoit]


    E:\03_Eigene Music\969\The Beginning Of Chaos\The Beginning.mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\Wrong Time Wrong Place.mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\Politixx.mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\No One To Help Us.mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\Castel Of Desperation.mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\969 (Exactly).mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\The Power Of Death.mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\Total Hate.mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\Untitled (969).mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\I Am Your Nightmare.mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\Muzik Non Pop.mp3
    E:\03_Eigene Music\969\The Beginning Of Chaos\Demented.mp3

    [/autoit]


    Dieses .m3u File Funktioniert bis jetz mit dem "Windows Media Player"|"Real Player"|"VLC"
    Songbird hab ich Nicht getestet...werd ich aber = mal versuchen....

    **Edit4**
    Getestet....Funktioniert für die Wiedergabe...Sowie für das Importieren der Wiedergabeliste....
    Wen das so ist Benötige ich "Theoretisch" den ID3Tag garnicht.... das macht das ganze ja ihrgendwie einfach X( und langweilig

    Wobei, wen ich bedenken will dass die Wiedergabeliste nicht nach dem Namen der .mp3 geordned sein sollen sondern nacht "Titel Nr" benötige ich dafür Eigentlich nur das auslessen der "Titel Nr" des .mp3 Files
    und, ich Frage mich gerade wie ich dass anstelle OHNE ID3Tag...da ich ja "NUR" den einen Wert benötige

    Wen jmd etwas einfallt, Pls Melden :D Danke

    Skilkor

  • Wiedergabelieste erstellen

    wuhu...>_< Array´s xD
    Ich versuch mich immer so ut wie möglichst um die "Array´s" drum herum zu schlängeln :D
    Das ich sie auch janicht verwenden muss xD
    Naja bleibt mir wol nix anderes übrig.

    **Edit**
    Okey ich bekomms mit den ausgaben der Array´s nicht hin XD
    Naja dass heisst dan wohl dass ich mich wider einmal mit array´s beschäftigen muss -.- ich bekomm array´s ainfach nicht in die Birne -.-

    Danke Oscar

  • Wiedergabelieste erstellen

    wen ich das richtig sehe steht

    [autoit]

    $Folder = "C:\Programme\AutoIt3\MyProjects\MP3_Batchdownloader\Downloaded\Marius Müller Westernhagen"

    [/autoit]


    für den gewählten Pfad oder?
    und der Rest

    [autoit]

    $aFolder = StringSplit($Folder,"\")
    if IsArray($aFolder) Then $Folder = $aFolder[$aFolder[0]-1] & "\" & $aFolder[$aFolder[0]]
    ConsoleWrite($Folder & @crlf); zur Kontrolle kann gelöscht werden

    [/autoit]


    für die Kürzung oder?

    Was das mit Oscars Programm angeht... das "ID3Tag.au3" File angeht, ich muss mir das dan wohl mal genauer anschauen, da ich keine ahnung habe welche Informationen am ende ausgegeben werden... Falls ich nicht schlau draus werde, frag ich mal Oscar :D

    Aber schonmal vielen dank autoBert

    Skilkor

  • Wiedergabelieste erstellen

    Ohä, ich wahr wohl doch Müde als ich geantwortet habe.
    Das ganze funktioniert soweit wie ich das nun vorerst haben möchte...

    Bei der Wiedergabeliste erstellung des Programmes Songbird (Siehe ersten Beitrag)
    da vermutte ich das ich die mp3 tags auslessen muss, und da ich leider keinen schimmer habe wie ich dass mache, frage ich nun "Dich" i2c, ob du dass weisst und mir evt ein tip odr hilfestellung dazu geben kannst?

    Hier nochmal das Script:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ID3.au3>
    #Region ### include ###
    #EndRegion ### include ###
    ;=============
    #Region ### Wiedergabelieste ###
    $WL_Creater = GUICreate("WL Creater",242,218,743,487)
    $Group = GUICtrlCreateGroup("",8,40,225,137)
    $Windows_Media_Player = GUICtrlCreateCheckbox("Windows Meadia Player",16,48,137,17)
    $SongBird = GUICtrlCreateCheckbox("Songbird",160,48,65,17)
    $Win_AMP = GUICtrlCreateCheckbox("Win AMP",16,64,73,17)
    $VLC = GUICtrlCreateCheckbox("VLC",160,64,49,17)
    $Real_Player = GUICtrlCreateCheckbox("Real Player",16,80,81,17)
    $Label1 = GUICtrlCreateLabel("Tip: Wählt eine Widergabelisten Art aus. Seht euch die Hilfe an",16,144,203,25)
    GUICtrlCreateGroup("",-99,-99,1,1)
    $Create = GUICtrlCreateButton("Create",8,184,107,25,$WS_GROUP)
    $FolderSearch = GUICtrlCreateButton("...",208,8,19,25,$WS_GROUP)
    $Hilfe = GUICtrlCreateButton("Hilfe",120,184,107,25,$WS_GROUP)
    $Path = GUICtrlCreateInput("Path",8,8,201,21)
    GUISetState(@SW_SHOW)
    #EndRegion ### Wiedergabelieste ###
    ;=============
    #Region ### GUI_Event ###
    #Region ### While ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    #Region ### Case ####
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Create ; Create Wiedergabelieste
    _Create()
    Case $FolderSearch ; Path
    _FolderSearch()
    Case $Hilfe
    _Hilfe()
    EndSwitch
    WEnd
    #Endregion ### While ###
    #EndRegion ### Case ###
    #EndRegion ### GUI_Event ###
    ;=============
    Global $Folder
    #Region ### _FolderSearch ###
    Func _FolderSearch()
    $Folder = FileSelectFolder("Wähle einen Ordner", "", 4, "","")
    ControlSetText("","",$Path,$Folder)
    EndFunc
    #EndRegion ### _FolderSearch ###
    ;=============
    #Region### _Hilfe ###
    Func _Hilfe()
    MsgBox(4096, "Hilfe", "Zu Beachten"&@CRLF&"- Das Erste .mp3 File 'MUSS' Intakte mp3 Tag´s enthalten"&@CRLF&"- Wählt jeweils eine Kästchen für die Erstellung einer Wiedergabelieste aus."&@CRLF&"- Da man nicht 2 oder mehrere Wiedergabelisten auf einmal erstellen kann."&@CRLF&@CRLF&"Special Thanks to:"&@CRLF&"i2c: (Für die tolle Hilfestellung und Lösung meiner Fragen)"&@CRLF&@CRLF&"Oscar: (1: Fürs Korrigieren meiner Eiligen Finger, die das OffTopic erwischt"&@CRLF&" haben"&@CRLF&" 2:Für seine Hilfe :D Er mag mir zwar nicht Direkt geholfen haben,"&@CRLF&" doch habe ich noch einige Scripte von Ihm (Unter anderem den MP3"&@CRLF&" Searcher) wo ich wieder einige dinge gelehrnt habe)"&@CRLF&@CRLF&"Createt by Skilkor")
    EndFunc
    #EndRegion ### _Hilfe ###
    ;=============
    #Region ### _Fehler ### Wiedergabelieste
    Func _Fehler()
    MsgBox(48, 'Fehler', 'Keine Wiedergabelieste ausgewählt', 10)
    EndFunc
    #EndRegion ### _Fehler ### Wiedergabelieste
    ;=============
    #Region ### _FehlerPath ### Pfad
    Func _FehlerPath()
    MsgBox(48, 'Fehler', 'Keinen Musik Ordner ausgewählt', 10)
    EndFunc
    #EndRegion ### _FehlerPath ### Pfad
    ;=============
    #Region ### _FileSave ###
    Func _FileSave()
    $MyDocs = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"

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

    $FileSave = FileSaveDialog( "Speichern der Playlist", $MyDocs, "Text files (*.ini;*.txt)", 2)
    ; option 2 = dialog remains until valid path/file selected

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

    If @error Then
    MsgBox(4096,"Abbruch","Speichern Abgerochen")
    Else
    MsgBox(4096,"","Sie haben " & $FileSave & " Ausgewählt")
    EndIf
    EndFunc
    #EndRegion ### _FileSave ###
    ;=============
    #Region ### Function ###
    #Region ### _Create ###
    Func _Create()
    If BitAND(GUICtrlRead($Windows_Media_Player),$GUI_CHECKED) = $GUI_CHECKED Then
    _WMP()
    Else
    If BitAND(GUICtrlRead($SongBird),$GUI_CHECKED) = $GUI_CHECKED Then
    _SongBird()
    Else
    If BitAND(GUICtrlRead($Win_AMP),$GUI_CHECKED) = $GUI_CHECKED Then
    _WAMP()
    Else
    If BitAND(GUICtrlRead($VLC),$GUI_CHECKED) = $GUI_CHECKED Then
    _VLC()
    Else
    If BitAND(GUICtrlRead($Real_Player),$GUI_CHECKED) = $GUI_CHECKED Then
    _RPlayer()

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

    ElseIf BitAnd(GUICtrlRead($Windows_Media_Player),$GUI_CHECKED) = 0 Then
    _Fehler()
    Else
    If BitAnd(GUICtrlRead($SongBird),$GUI_CHECKED) = 0 Then
    _Fehler()
    Else
    If BitAND(GUICtrlRead($Win_AMP),$GUI_CHECKED) = 0 Then
    _Fehler()
    Else
    If BitAnd(GUICtrlRead($VLC),$GUI_CHECKED) = 0 Then
    _Fehler()
    Else
    If BitAnd(GUICtrlRead($Real_Player),$GUI_CHECKED) = 0 Then
    _Fehler()
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf
    EndFunc
    #EndRegion ### _Create ###
    ;=============
    #Region ### _WMP ###
    Func _WMP()
    GUICtrlRead($Path)
    $sPlaylist = @ScriptDir & "\Playlist.wpl"
    $sTitle = GUICtrlRead($Path,1)
    $Folder = GUICtrlRead($Path)
    If @error Then
    _Fehler()
    EndIf

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

    $aFIles = _FileListToArray($Folder, "*.mp3", 1)
    If @error Then
    MsgBox(4096, 'Error', 'Fehler, Keine *.mp3 Dateien gefunden')
    EndIf

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

    $hFile = FileOpen($sPlaylist, 1)
    FileWrite($hFile, '<?wpl version="1.0"?>' & @CRLF)
    FileWrite($hFile, '<smil>' & @CRLF)
    FileWrite($hFile, ' <head>' & @CRLF)
    FileWrite($hFile, ' <meta name="Generator" content="Microsoft Windows Media Player -- 12.0.7600.16415"/>' & @CRLF)
    FileWrite($hFile, ' <meta name="ItemCount" content="0"/>' & @CRLF)
    FileWrite($hFile, ' <meta name="IsFavorite"/>' & @CRLF)
    FileWrite($hFile, ' <meta name="ContentPartnerListID"/>' & @CRLF)
    FileWrite($hFile, ' <meta name="ContentPartnerNameType"/>' & @CRLF)
    FileWrite($hFile, ' <meta name="ContentPartnerName"/>' & @CRLF)
    FileWrite($hFile, ' <meta name="Subtitle"/>')
    FileWrite($hFile, ' <author/>' & @CRLF)
    FileWrite($hFile, ' <title>"' & $sTitle & '"</title>' & @CRLF)
    FileWrite($hFile, ' </head>' & @CRLF)
    FileWrite($hFile, ' <body>' & @CRLF)
    FileWrite($hFile, ' <seq>' & @CRLF)
    For $i = 1 To $aFIles[0]
    FileWrite($hFile, ' <media src="' & $Folder & "\" & $aFIles[$i] & '"/>' & @CRLF)
    Next
    FileWrite($hFile, ' </seq>' & @CRLF)
    FileWrite($hFile, ' </body>' & @CRLF)
    FileWrite($hFile, '</smil>' & @CRLF)
    EndFunc
    #EndRegion ### _WMP ###
    ;=============
    #Region ### _SongBird ###
    Func _SongBird()
    ;~ GUICtrlRead($Path)
    ;~ $sPlaylist = @ScriptDir & "\Playlist.pls"
    ;~ $sTitle = GUICtrlRead($Path,1)
    ;~ $Folder = GUICtrlRead($Path)
    ;~ If @error Then
    ;~ _Fehler()
    ;~ EndIf

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

    ;~ $aFIles = _FileListToArray($Folder, "*.mp3", 1)
    ;~ If @error Then
    ;~ MsgBox(4096, 'Error', 'Fehler, Keine *.mp3 Dateien gefunden')
    ;~ EndIf

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

    ;~ $hFile = FileOpen($sPlaylist, 1)
    ;~ FileWrite($hFile, '[playlist]' & @CRLF)
    ;~ FileWrite($hFile, 'NumberOfEntries=01' & @CRLF & @CRLF)
    ;~ FileWrite($hFile, 'File1=../../' & & @CRLF)
    ;~ FileWrite($hFile, '<meta name="Generator" content="Microsoft Windows Media Player -- 12.0.7600.16415"/>' & @CRLF)
    ;~ FileWrite($hFile, '<meta name="ItemCount" content="0"/>' & @CRLF)
    ;~ FileWrite($hFile, '<meta name="IsFavorite"/>' & @CRLF)
    ;~ FileWrite($hFile, '<meta name="ContentPartnerListID"/>' & @CRLF)
    ;~ FileWrite($hFile, '<meta name="ContentPartnerNameType"/>' & @CRLF)
    ;~ FileWrite($hFile, '<meta name="ContentPartnerName"/>' & @CRLF)
    ;~ FileWrite($hFile, '<meta name="Subtitle"/>')
    ;~ FileWrite($hFile, '<author/>' & @CRLF)
    ;~ FileWrite($hFile, '<title>"' & $sTitle & '"</title>' & @CRLF)
    ;~ FileWrite($hFile, '<body>' & @CRLF)
    ;~ FileWrite($hFile, '<seq>' & @CRLF)
    ;~ For $i = 1 To $aFIles[0]
    ;~ FileWrite($hFile, '<media src="' & $Folder & "\" & $aFIles[$i] & '"/>' & @CRLF)
    ;~ Next
    ;~ FileWrite($hFile, '</seq>' & @CRLF)
    ;~ FileWrite($hFile, '</body>' & @CRLF)
    ;~ FileWrite($hFile, '</smil>' & @CRLF)
    EndFunc
    #Endregion ### _SongBird ###
    ;=============
    #Region ### _WAMP ###
    Func _WAMP()
    MsgBox(4096, "Test", "WAMP", 10)
    EndFunc
    #EndRegion ### _WAMP ###
    ;=============
    #Region ### _VLC ###
    Func _VLC()
    MsgBox(4096, "Test", "VLC", 10)
    EndFunc
    #EndRegion ### _VLC ###
    ;=============
    #Region ### _RPlayer ###
    Func _RPlayer()
    MsgBox(4096, "Test", "Real Player", 10)
    EndFunc
    #EndRegion ### _RPlayer ###
    #EndRegion ### Funtion ###

    [/autoit]


    Was mir noch fehlt bei der erstellung der .wpl würd ich Gerne bei "Titel" nur die lezten 2 Ordner des Ausgewählten Pfades...gäbe es da eine Möglichkeit????

    Skilkor

  • Wiedergabelieste erstellen

    Falls Meker wegen Doppel post.... Sorry, edits werden nicht angezeigt :D

    HöHö, ich komm nicht mehr weiter X(
    Jedesml wen ich im erstellen den Pfad auslessen will den ich in meinen Input setze bekomm ich 14 zurück was er mir dan natürlich auch angiebt...
    ich hab es so gemacht das wen er Keine *.mp3 Findet das er ne MSg ausgibt

    So hier mal mein Script, ich hoffe ihr verliert euch nicht darin ^^
    Sind nur knapp 200 zeilen bis jetze :D
    Hoffe einer kann mir sagen Warum ich da 14 zurück bekomme...wen es daran liegt das ich etwas in das Input setze und dan wider auslesse, währ ich auch um hilfe froh...naja ich geh Jetze auf jeden Pennen ^^ nacht durch gefeiert und gedacht ich sizt nochn bissl drane :D

    Spoiler anzeigen
    [autoit]

    #Region ### include ###
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #EndRegion ### include ###
    ;=============
    #Region ### Wiedergabelieste ###
    $WL_Creater = GUICreate("WL Creater",242,218,743,487)
    $Group = GUICtrlCreateGroup("",8,40,225,137)
    $Windows_Media_Player = GUICtrlCreateCheckbox("Windows Meadia Player",16,48,137,17)
    $SongBird = GUICtrlCreateCheckbox("Songbird",160,48,65,17)
    $Win_AMP = GUICtrlCreateCheckbox("Win AMP",16,64,73,17)
    $VLC = GUICtrlCreateCheckbox("VLC",160,64,49,17)
    $Real_Player = GUICtrlCreateCheckbox("Real Player",16,80,81,17)
    $Label1 = GUICtrlCreateLabel("Tip: Wählt eine Widergabelisten Art aus. Seht euch die Hilfe an",16,144,203,25)
    GUICtrlCreateGroup("",-99,-99,1,1)
    $Create = GUICtrlCreateButton("Create",8,184,107,25,$WS_GROUP)
    $FolderSearch = GUICtrlCreateButton("...",208,8,19,25,$WS_GROUP)
    $Hilfe = GUICtrlCreateButton("Hilfe",120,184,107,25,$WS_GROUP)
    $Path = GUICtrlCreateInput("Path",8,8,201,21)
    GUISetState(@SW_SHOW)
    #EndRegion ### Wiedergabelieste ###
    ;=============
    #Region ### GUI_Event ###
    #Region ### While ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    #Region ### Case ####
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Create ; Create Wiedergabelieste
    _Create()
    Case $FolderSearch ; Path
    _FolderSearch()
    Case $Hilfe
    _Hilfe()
    EndSwitch
    WEnd
    #Endregion ### While ###
    #EndRegion ### Case ###
    #EndRegion ### GUI_Event ###
    ;=============
    #Region ### _FolderSearch ###
    Func _FolderSearch()
    $var = FileSelectFolder("Wähle einen Ordner", "", 4, "","")
    ControlSetText("","",$Path,$var)
    EndFunc
    #EndRegion ### _FolderSearch ###
    ;=============
    #Region### _Hilfe ###
    Func _Hilfe()
    MsgBox(4096, "Hilfe", "Zu Beachten"&@CRLF&"- Das Erste .mp3 File 'MUSS' Intakte mp3 Tag´s enthalten"&@CRLF&"- Wählt jeweils eine Kästchen für die Erstellung einer Wiedergabelieste aus."&@CRLF&"- Da man nicht 2 oder mehrere Wiedergabelisten auf einmal erstellen kann."&@CRLF&@CRLF&"Special Thanks to:"&@CRLF&"i2c:(Für die tolle Hilfestellung und Lösung meiner Fragen)"&@CRLF&@CRLF&"Oscar:(1: Fürs Korrigieren meiner Eiligen Finger, die das OffTopic erwischt"&@CRLF&" haben"&@CRLF&"2:Für seine Hilfe :D Er mag mir zwar nicht Direkt geholfen haben,"&@CRLF&"doch habe ich noch einige Scripte von Ihm (Unter anderem den MP3"&@CRLF&"Searcher) wo ich wieder einige dinge gelehrnt habe)"&@CRLF&@CRLF&"Createt by Skilkor")
    EndFunc
    #EndRegion ### _Hilfe ###
    ;=============
    #Region ### _Fehler ### Wiedergabelieste
    Func _Fehler()
    MsgBox(48, 'Fehler', 'Keine Wiedergabelieste ausgewählt', 10)
    EndFunc
    #EndRegion ### _Fehler ### Wiedergabelieste
    ;=============
    #Region ### _FehlerPath ### Pfad
    Func _FehlerPath()
    MsgBox(48, 'Fehler', 'Keinen Musik Ordner ausgewählt', 10)
    EndFunc
    #EndRegion ### _FehlerPath ### Pfad
    ;=============
    #Region ### _FileSave ###
    Func _FileSave()
    $MyDocs = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"

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

    $FileSave = FileSaveDialog( "Speichern der Playlist", $MyDocs, "Text files (*.ini;*.txt)", 2)
    ; option 2 = dialog remains until valid path/file selected

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

    If @error Then
    MsgBox(4096,"Abbruch","Speichern Abgerochen")
    Else
    MsgBox(4096,"","Sie haben " & $FileSave & " Ausgewählt")
    EndIf
    EndFunc
    #EndRegion ### _FileSave ###
    ;=============
    #Region ### Function ###
    #Region ### _Create ###
    Func _Create()
    If BitAND(GUICtrlRead($Windows_Media_Player),$GUI_CHECKED) = $GUI_CHECKED Then
    _WMP()
    Else
    If BitAND(GUICtrlRead($SongBird),$GUI_CHECKED) = $GUI_CHECKED Then
    _SongBird()
    Else
    If BitAND(GUICtrlRead($Win_AMP),$GUI_CHECKED) = $GUI_CHECKED Then
    _WAMP()
    Else
    If BitAND(GUICtrlRead($VLC),$GUI_CHECKED) = $GUI_CHECKED Then
    _VLC()
    Else
    If BitAND(GUICtrlRead($Real_Player),$GUI_CHECKED) = $GUI_CHECKED Then
    _RPlayer()

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

    ElseIf BitAnd(GUICtrlRead($Windows_Media_Player),$GUI_CHECKED) = 0 Then
    _Fehler()
    Else
    If BitAnd(GUICtrlRead($SongBird),$GUI_CHECKED) = 0 Then
    _Fehler()
    Else
    If BitAND(GUICtrlRead($Win_AMP),$GUI_CHECKED) = 0 Then
    _Fehler()
    Else
    If BitAnd(GUICtrlRead($VLC),$GUI_CHECKED) = 0 Then
    _Fehler()
    Else
    If BitAnd(GUICtrlRead($Real_Player),$GUI_CHECKED) = 0 Then
    _Fehler()
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf
    EndIf
    EndFunc
    #EndRegion ### _Create ###
    ;=============
    #Region ### _WMP ###
    Func _WMP()
    $sPlaylist = @DesktopDir & "\"&$Path&".txt" ;_FileSave()
    $sTitle = $Path
    ;~ $sFolder = ;FolderSearch()
    ;~ If $sFolder = @error Then
    ;~ _FehlerPath()
    ;~ EndIf

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

    $aFIles = _FileListToArray($Path, "*.mp3", 1)
    If @error Then
    MsgBox(4096, 'Error', 'Fehler, Keine *.mp3 Dateien gefunden')
    EndIf

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

    $hFile = FileOpen($sPlaylist, 1)
    FileWrite($hFile, '<?wpl version="1.0"?>' & @CRLF)
    FileWrite($hFile, '<smil>' & @CRLF)
    FileWrite($hFile, '<head>' & @CRLF)
    FileWrite($hFile, '<meta name="Generator" content="Microsoft Windows Media Player -- 12.0.7600.16415"/>' & @CRLF)
    FileWrite($hFile, '<meta name="ItemCount" content="0"/>' & @CRLF)
    FileWrite($hFile, '<meta name="IsFavorite"/>' & @CRLF)
    FileWrite($hFile, '<meta name="ContentPartnerListID"/>' & @CRLF)
    FileWrite($hFile, '<meta name="ContentPartnerNameType"/>' & @CRLF)
    FileWrite($hFile, '<meta name="ContentPartnerName"/>' & @CRLF)
    FileWrite($hFile, '<meta name="Subtitle"/>')
    FileWrite($hFile, '<author/>' & @CRLF)
    FileWrite($hFile, '<title>"' & $sTitle & '"</title>' & @CRLF)
    FileWrite($hFile, '<body>' & @CRLF)
    FileWrite($hFile, '<seq>' & @CRLF)
    For $i = 1 To $aFIles[0]
    FileWrite($hFile, '<media src="' & $Path & "\" & $aFIles[$i] & '"/>' & @CRLF)
    Next
    FileWrite($hFile, '</seq>' & @CRLF)
    FileWrite($hFile, '</body>' & @CRLF)
    FileWrite($hFile, '</smil>' & @CRLF)
    EndFunc
    #EndRegion ### _WMP ###
    ;=============
    #Region ### _SongBird ###
    Func _SongBird()
    MsgBox(4096, "Test", "SongBird", 10)
    EndFunc
    #Endregion ### _SongBird ###
    ;=============
    #Region ### _WAMP ###
    Func _WAMP()
    MsgBox(4096, "Test", "WAMP", 10)
    EndFunc
    #EndRegion ### _WAMP ###
    ;=============
    #Region ### _VLC ###
    Func _VLC()
    MsgBox(4096, "Test", "VLC", 10)
    EndFunc
    #EndRegion ### _VLC ###
    ;=============
    #Region ### _RPlayer ###
    Func _RPlayer()
    MsgBox(4096, "Test", "Real Player", 10)
    EndFunc
    #EndRegion ### _RPlayer ###
    #EndRegion ### Funtion ###

    [/autoit]

    Btw...Fallt nicht um wen ihr meine _Create() func seht ^^ mir is nix anderes eingefallen wie ich sonnst einzeln die Checkbox´es abfragen soll um somit die jeweilige Func zu erreichen :D

    Grüsse Skilkor

  • Wiedergabelieste erstellen

    Danke Oscar :P
    So ich bin auf gutem Fuse, ich hab die GUI und arbeite mich Stück für Stück vorran....Atm scheitere ich beim auslessen der Checkbox -.- normalerweisse sollte es ja so sein das wen man

    Spoiler anzeigen
    [autoit]


    Func _Create()
    Local $Checkbox1 = GUICtrlRead($Checkbox1,0)
    If $Checkbox1 = 1 Then
    _WMP()
    ElseIf $Checkbox1 = 0 Then
    MsgBox(4096, "Test", "Fail", 10)
    EndIf
    EndFunc

    [/autoit]


    Macht dass, dass man dan bei der verwendung der Func eine MsBox erhalten sollte....
    Nur in diesemfalle bekomm ich jedesmal 0 zurück, ob die Checkbox Aktiviert ist oder nicht -.-
    Liegt es am

    [autoit]

    ElseIf

    [/autoit]


    ??
    Wen ich das weglasse, etwa So

    Spoiler anzeigen
    [autoit]

    Func _Create()
    Local $Checkbox1 = GUICtrlRead($Checkbox1,0)
    If $Checkbox1 = 1 Then
    _WMP()
    EndIf
    EndFunc

    [/autoit]


    Bekomm ich garkeinen wert zurück X(

    Grüsse

  • Wiedergabelieste erstellen

    Ups, hab ich dass OffTopic erwischt?? Wen ma jmd gelegenheit hat, pls Verschieben wen möglich :D

    i2c
    Sieht nicht schlecht aus ^^ danke für den Tip, du hast mich da auf eine Idee gebracht :D mal sehen ob das was wird, so wie ich mir das denke...wen nicht, naja Forum ist ja auch noch da hihi :D

    LG Skilkor

  • Wiedergabelieste erstellen

    Hey Hey Leute :D
    SO sieht man sich wider ^^ wahr einige zeit abwessend.

    Soo, ich konnte leider nicht mehr mit autoit üben und frage mich nun ob es möglich ist,
    via "File Explorer" einen Musik Ordner nach wahl auszuwählen und nach den .mp3 Dateien die in diesem Ordner sind eine Widergabelieste nach wahl zu erstellen.
    z.b für den Windows Media Player,WinAMP,Real Player, VLC oder Songbird...

    Ich verwende mehr den Windows Media Player und den Songbird (Songbird aber auch nur wegen meinem Philips GoGear Muse MP4 )

    Die Widergabeliesten sehen bei den Programmen wie folgt aus

    Windows Media Player

    Spoiler anzeigen
    [autoit]

    <?wpl version="1.0"?>
    <smil>
    <head>
    <meta name="Generator" content="Microsoft Windows Media Player -- 12.0.7600.16415"/>
    <meta name="ItemCount" content="0"/>
    <meta name="IsFavorite"/>
    <meta name="ContentPartnerListID"/>
    <meta name="ContentPartnerNameType"/>
    <meta name="ContentPartnerName"/>
    <meta name="Subtitle"/>
    <author/>
    <title>Dawn of Ashes - The Crypt Injection-Euro Editi</title>
    </head>
    <body>
    <seq>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\AMIG.mp3"/>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\NGHS.mp3"/>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\YSVR.mp3"/>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\IMCV.mp3"/>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\UQWQ.mp3"/>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\TLDJ.mp3"/>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\MRCI.mp3"/>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\OKJN.mp3"/>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\UJBK.mp3"/>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\QVHA.mp3"/>
    <media src="..\Dawn of Ashes\The Crypt Injection-Euro Editi\FVZQ.mp3"/>
    </seq>
    </body>
    </smil>

    [/autoit]


    Songbird

    Spoiler anzeigen
    [autoit]

    [playlist]
    NumberOfEntries=23

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

    File1=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/AMIG.mp3
    Title1=Dawn Of Ashes - A Blade In The Dark
    Length1=290

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

    File2=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/NGHS.mp3
    Title2=Dawn Of Ashes - Torture Device
    Length2=242

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

    File3=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/YSVR.mp3
    Title3=Dawn Of Ashes - Inhuman Salvation
    Length3=282

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

    File4=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/IMCV.mp3
    Title4=Dawn Of Ashes - Psycho Therapy
    Length4=128

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

    File5=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/UQWQ.mp3
    Title5=Dawn Of Ashes - The Crypt Injection
    Length5=258

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

    File6=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/TLDJ.mp3
    Title6=Dawn Of Ashes - Where Angels Die
    Length6=295

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

    File7=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/MRCI.mp3
    Title7=Dawn Of Ashes - Blood Shattered Cross
    Length7=261

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

    File8=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/OKJN.mp3
    Title8=Dawn Of Ashes - Vengeance (When There Is Nobody To Trust)
    Length8=178

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

    File9=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/UJBK.mp3
    Title9=Dawn Of Ashes - Still Born Defect (Aslan Faction Remix)
    Length9=283

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

    File10=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/QVHA.mp3
    Title10=Dawn Of Ashes - Portrait Of Homicide (Xp8 Remix)
    Length10=290

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

    File11=../../03_Eigene Music/Dawn of Ashes/The Crypt Injection-Euro Editi/FVZQ.mp3
    Title11=Dawn Of Ashes - Portrait Of Homicide (Dioxyde Remix)
    Length11=217

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

    Version=2

    [/autoit]


    VLC

    Spoiler anzeigen
    [autoit]

    <?xml version="1.0" encoding="UTF-8"?>
    <playlist version="1" xmlns="http://xspf.org/ns/0/" xmlns:vlc="http://www.videolan.org/vlc/playlist/ns/0/">
    <title>Wiedergabeliste</title>
    <trackList>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/The%20Beginning.mp3</location>
    <title>01-The Beginning</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>1</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>0</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Wrong%20Time%20Wrong%20Place.mp3</location>
    <title>02-Wrong Time Wrong Place</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>2</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>1</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Politixx.mp3</location>
    <title>03-Politixx</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>3</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>2</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/No%20One%20To%20Help%20Us.mp3</location>
    <title>04-No One To Help Us</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>4</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>3</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Castel%20Of%20Desperation.mp3</location>
    <title>05-Castel Of Desperation</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>5</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>4</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/969%20%28Exactly%29.mp3</location>
    <title>06-969 (Exactly)</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>6</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>5</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/The%20Power%20Of%20Death.mp3</location>
    <title>07-The Power Of Death</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>7</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>6</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Total%20Hate.mp3</location>
    <title>08-Total Hate</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>8</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>7</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Untitled%20%28969%29.mp3</location>
    <title>09-Untitled (969)</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>9</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>8</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/I%20Am%20Your%20Nightmare.mp3</location>
    <title>10-I Am Your Nightmare</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>10</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>9</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Muzik%20Non%20Pop.mp3</location>
    <title>11-Muzik Non Pop</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>11</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>10</vlc:id>
    </extension>
    </track>
    <track>
    <location>file:///E:/03_Eigene%20Music/969/The%20Beginning%20Of%20Chaos/Demented.mp3</location>
    <title>12-Demented</title>
    <creator>969</creator>
    <album>The Beginning Of Chaos</album>
    <trackNum>12</trackNum>
    <image>file:///C:/Users/skilkor/AppData/Roaming/vlc/art/artistalbum/969/The%20Beginning%20Of%20Chaos/art.jpg</image>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:id>11</vlc:id>
    </extension>
    </track>
    </trackList>
    <extension application="http://www.videolan.org/vlc/playlist/0">
    <vlc:item tid="0" />
    <vlc:item tid="1" />
    <vlc:item tid="2" />
    <vlc:item tid="3" />
    <vlc:item tid="4" />
    <vlc:item tid="5" />
    <vlc:item tid="6" />
    <vlc:item tid="7" />
    <vlc:item tid="8" />
    <vlc:item tid="9" />
    <vlc:item tid="10" />
    <vlc:item tid="11" />
    </extension>
    </playlist>

    [/autoit]


    Nun, ich bin mir nicht Sicher wie ich dass Genau definieren kann und hoffe dass da jmd eine Idee hat ;D

    Grüsse
    Skilkor :D

    ***Edit***
    Hier gehts weiter

  • Internet verbindung Deaktivieren

    Zitat

    Von Mahagon
    Kommt drauf an, wie und wo du es einsetzen möchtest.
    An nem WTS wäre ein Pseudoproxy in der GPO die einfachste Lösung.
    An einem lokalem PC ist das schon ein bischen komplizierter, falls dieser Adminrechte hat.
    Du könntest (wenn er keine Adminrechte hat) ihm auch hier einen Proxy imit GPEdit zuweisen (was aber bei Firefox dann für die Katz ist), oder du gibst ihm einen falschen Gateway.

    Hey, Danke für die Antwort.
    Okay, ich hab wohl zu wenige angaben gemacht *sich entschuldigt*
    Allso, es ist an einem Privat rechner, ein Stinknormaler Home PC mit Windows 7 Ultimate 64 bit (Hardware = Signatur)
    Der über eine Lancard zugang ins Internet hat (Leider unterstütz mein Onboard Lan das Win 7 nicht. sprich, es findet keinen Treiber für win7 64bit)

    Vorgestllet hab ich mir eigentlich vollgendes.
    Da ich meinen Rechner mehrere tage (Meist und Max 1 Woche) an habe, läuft er natürlich auch über nacht.
    So, da dacht ich mir ob man evt mit autoit was bassteln könnte das etwa alle 30min überprüft ob eine Datenkomunikation vorhanden ist (Sprich wen man grade im netz gimp erhält man Datenpackete und sendet auch welche)
    Wen das nich der Fall ist soll er die internet verbindung Ausschalten.

    Es geht mir in Ehrster Linie eigentlich darum das nach 4 tagen Kein Datenvolumen von 20GB Out und 10GB in vorhanden ist.

    Im ganzen, ein Intelligentes programm das erkennt wan das internet nicht genuzt wird und es Deaktiviert und man es dan via menü wider Aktiviert oder so (ich hoffe ihr versteht was ich meine ^^)
    den es ist echt ätzend, mein rechner läuft imo seit 5 Tagen und ich habe ein Datenvolumen von 52,93GB Out und 18,18GB In...ich find das echt krass und möchte das einschränken.

    und das Internet auf die Konventionele art zu deaktivieren bringt mein "NetMeter" gadget durcheinander. löscht das verzeichniss und es läft dan ned mehr, dan muss ichs neustarten und die angaben sind dan resetet, Sprich zeigt an
    0B Out 0B In
    Und das möcht ich eben nicht :D

    Skilkor

  • Internet verbindung Deaktivieren

    Tach Leute

    Ich habe mich gefragt ob es mit autoit ne möglichkeit gibt die Internet Verbindung zu Deaktivieren.
    Ich meine Nicht auf dem Üblichen weg bei Windows 7
    "Systemsteuerung\Netzwerk und Internet\Netzwerkverbindungen"
    und dan via Rechtsklick Deaktivieren.
    Sondern eher wie eine Blockade oder so. oder anderweitig zu deaktivieren.

    Ist das möglich mit autoit? wen ja wie heisst der befehl?
    Die sufu mag mich heute ihrwie nichtso besonders :S

    Skilkor

  • Virtual Tasta

    Tach Liebe Leute

    Ich hatte leztens nen richtig viesen virus, der mir die Tastatur Blockierte.
    Da viel mir auf das ich mal eine Virtual Tasta gedownloadet hab,tja,pustekuchen...Ich versuchte das prog zu starten und erhilt promt die meldung
    "Es wuder ein fehler gefunden,worauf das programm beendet werden muss"
    auf jeden die standart Win7 Fehlermeldung....
    Zum glück hatte ich einmal eine sehr sehr einfache Art einer Virtuelen Tastatur geschrieben. die ging dan auch (Musste herreichen bis der Virus eliminiert war)
    Nachdem avira den Virus vernichtet hat,ging dan auch die Tasta wider.
    Seit dem Sitz ich an einer Neuen Virtual tasta. die siht schon ganz doll aus.
    Ich habe bereitz das Hauptscript (Welches nur zur auswahl der Tasta für das betriebssystem Dient)
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Und die Win XP o. Älter Tasta
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Features:
    Tooltip der tasten *Vorhanden*
    Shift-Ctrl-Alt-AltGr einrasten *Zukunfts Planung*

    Ich poste noch kein Script, da ich erst eure meinung wissen will.
    Könnt ihr sowas Brauchen???
    *Ich bin auf jeden froh gewessen das meine Hinzellen sich daran noch errinert haben :D :rofl: *
    Wen ja.
    Pls Feedback übers Aussehen


    *Edit*
    Verklickt...wahr noch ned fertig -.- :wacko:
    So, Jetz bin ich fertig

  • LotW Soundboard

    Zitat

    Dein Skript ist, und ich will dich damit nicht verletzen ;), nichts besonderes.
    Leider setzt du den Parameter "wait" von SoundPlay auf 1, dadurch kann man das Skript nicht über den "X" Button beenden.
    Wenn du den Parameter leer lässt, läuft das Skript weiter, während der Sound läuft.

    Ich hab nie behauptet is sei was Bessonderes :rofl:
    naja das mit dem Sound parameter, da wahr ich mir ned sicher, und hab vorab die 1 genommen :D

    *Edit*
    Ach ich komme immernoch ned drauf wie ich alle buttons mit einer Variable ne farbe gib :S