Frage zu ProgressBar

1. offizieller Beitrag

    Ist es Möglich das die ProgressBar bei einem webradio anzeigt wie weit sie den stream schon geladen hat.(Also das wenn der stream zur hälfte geladen ist das sie 50% anzeigt und das wenn der radiostream fertig geladen ist sie 100% anzeigt.) Und wie kann man das umsetzen.
    Hier der script:

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=..\Desktop\ColumnChart.ico
    #AutoIt3Wrapper_outfile=..\Desktop\BlackEyes StreamPlayer\BlackEyes StreamPlayer.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_UseX64=n
    #AutoIt3Wrapper_Res_Fileversion=1.6.1.4
    #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <StructureConstants.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <ProgressConstants.au3>
    #include <GuiStatusBar.au3>
    #include <GUIEdit.au3>
    #include <File.au3>
    #include-once
    #include <Constants.au3>
    #include <GUIEdit.au3>
    #include <GuiToolbar.au3>
    #include <inet.au3>

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

    Global $IniL = @ScriptDir & "\License.ini"
    Global $INIstyle = @ScriptDir & "\Style.ini"
    Global $BlackEyes = @ScriptDir & "\BlackEyes StreamPlayer.exe"
    Global $IniRead = IniRead($IniL,"Read","Read","UnTrue")
    AdlibRegister("CheckMouse")

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

    If Not FileExists(@DesktopDir & "\BlackEyes StreamPlayer.Ink") Then
    FileCreateShortcut(@ScriptDir & "\BlackEyes StreamPlayer.exe",@DesktopDir & "\BlackEyes StreamPlayer.Ink")
    EndIf

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

    If Not FileExists(@ScriptDir & "\License.txt") Then
    FileWrite("License.txt","BlackEyes StreamPlayer"&@CRLF)
    FileWrite("License.txt","Alle Rechte vorbehalten."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Lizenzvereinbarung / Urheberrechtshinweise"&@CRLF)
    FileWrite("License.txt"," ")
    FileWrite("License.txt","VERTRAG FÜR ENDBENUTZER"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Die Benutzung des Programms ´´BlackEyes StreamPlayer´´ (im Folgenden ´´Software´´) setzt Ihr Einverständnis mit folgenden Punkten voraus :"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","1. ZUSICHERUNG DER LIZENZ"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Der Autor sichert Ihnen eine kostenlose Lizenz der Software zu, falls Sie die Software für nichtkommerzielle Zwecke nutzen."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Wenn Sie die Anforderungen für den kostenlosen Gebrauch der Software nicht erfüllen, dürfen Sie die Software bis zu dreißig (30) Tage benutzen,"&@CRLF)
    FileWrite("License.txt","um zu evaluieren, ob Sie eine kommerzielle Lizenz erwerben wollen. Die Lizenz für eine gewerbliche Nutzung ist eine Fallentscheidung."&@CRLF)
    FileWrite("License.txt","Der Autor ist in keiner Weise verpflichtet Lizenzen zu erteilen!"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Wenn Sie die Software kostenlos unter den hier genannten Bedingungen benutzen, haben Sie keinen Anspruch auf technische Unterstützung"&@CRLF)
    FileWrite("License.txt","irgendwelcher Art. Der Autor wird aber im Rahmen seiner Möglichkeiten technische Unterstützung leisten."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","2. BESCHRÄNKTE GEWÄHRLEISTUNG"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Die Software wird Ihnen ´´so wie sie ist´´ zur Verfügung gestellt, ohne Gewährleistung seitens des Autors irgendeiner Art, "&@CRLF)
    FileWrite("License.txt","weder ausdrücklich noch konkludent, einschließlich, aber nicht beschränkt auf konkludente Gewährleistungen der Tauglichkeit, "&@CRLF)
    FileWrite("License.txt","der Eignung für einen bestimmten Zweck oder des Nichtbestehens einer Rechtsverletzung. Das gesamte Risiko, das sich aus dem Verwenden "&@CRLF)
    FileWrite("License.txt","oder der Leistung der Software ergibt, verbleibt bei Ihnen. In keinem Fall kann der Autor haftbar gemacht werden für irgendwelche Schäden,"&@CRLF)
    FileWrite("License.txt","gleich welcher Art (einschließlich, aber nicht beschränkt auf entgangenen Gewinn, Betriebsunterbrechung, Verlust geschäftlicher Informationen "&@CRLF)
    FileWrite("License.txt","oder irgendeinen anderen Vermögensschaden), die aus dem Verwenden, der Unmöglichkeit oder Fehlerhaftigkeit, die Software zu verwenden,"&@CRLF)
    FileWrite("License.txt","entstehen, und zwar auch dann, wenn der Autor zuvor auf die Möglichkeit solcher Schäden hingewiesen worden ist."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","3. WEITERE EINSCHRÄNKUNGEN"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Sie sind nicht berechtigt, die Software zurückzuentwickeln (Reverse Engineering), zu dekompilieren oder zu disassemblieren."&@CRLF)
    FileWrite("License.txt","Eigentum und Urheberrecht an der Software liegen beim Autor."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","4. COPYRIGHT"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Die Software wird sowohl durch Urheberrechtsgesetze und internationale Urheberrechtsverträge geschützt, als auch durch andere Gesetze"&@CRLF)
    FileWrite("License.txt","und Vereinbarungen über geistiges Eigentum."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","5. WARTUNG"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Der Autor ist nicht verpflichtet, eine Wartung oder Überarbeitung der Software zu gewährleisten, allerdings unterliegen alle Wartungs- "&@CRLF)
    FileWrite("License.txt","oder Überarbeitungsleistungen seitens des Autors dieser Vereinbarung."&@CRLF)
    IniWrite($IniL, "Read", "Read", "UnTrue")
    EndIf

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

    If $IniRead = "UnTrue" Then
    Sleep(500)
    ShellExecute("notepad",@ScriptDir & "\License.txt")
    MsgBox(0,"Info","Durch das Starten des Programmes akzeptierst du die Lizenzbedingungen")
    $Lic = MsgBox(260,"Lizenbedingungen akzeptieren?","Lizenzbedingungen akzeptieren?")
    If $Lic = 7 Then
    IniDelete($IniL,"Read","Read")
    FileDelete(@ScriptDir & "\License.txt")
    Exit
    EndIf
    IniDelete($IniL,"Read","Read")
    IniWrite($IniL, "Read", "Read", "True")
    EndIf

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

    IniRead("License.ini","Read","Read","Untrue")
    $Pic1 = IniRead($INIstyle,"Style","Background","")
    $oWMP = ObjCreate("WMPLayer.ocx")
    $GUI = GUICreate("BlackEyes StreamPlayer", 498, 357, 238, 172)
    GUICtrlCreatePic($Pic1, 0, 0, 497, 353, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
    $HauptMenu = GUICtrlCreateMenu("Datei")
    $KonifgDel = GUICtrlCreateMenuItem("Konfiguration löschen",$HauptMenu)
    $HMenuE = GUICtrlCreateMenuItem("Beenden",$HauptMenu)
    $SMenu = GUICtrlCreateMenu("Stream URLs")
    $SMenu1 = GUICtrlCreateMenuItem("TechnoBase.FM",$SMenu)
    $SMenu2 = GUICtrlCreateMenuItem("Top100Station",$SMenu)
    $SMenu3 = GUICtrlCreateMenuItem("Planet Radio",$SMenu)
    $SMenu4 = GUICtrlCreateMenuItem("YouFM",$SMenu)
    $SMenu5 = GUICtrlCreateMenuItem("HR3",$SMenu)
    $SMenu6 = GUICtrlCreateMenuItem("Rautemusik.fm Main",$SMenu)
    $SMenu7 = GUICtrlCreateMenuItem("1Live",$SMenu)
    $SMenu8 = GUICtrlCreateMenuItem("FFH",$SMenu)
    $SMenu9 = GUICtrlCreateMenuItem("104.6 RTL",$SMenu)
    $Smenu10 = GUICtrlCreateMenuItem("103.7 Unser Ding",$SMenu)
    $Smenu11 = GUICtrlCreateMenuItem("N-Joy",$SMenu)
    $StyleM = GUICtrlCreateMenu("Styles")
    $Style2 = GUICtrlCreateMenuItem("Standard",$StyleM)
    $StyleE = GUICtrlCreateMenuItem("Eigenes Bild",$StyleM)
    $Menu = GUICtrlCreateMenu("Hilfe")
    $MenuE = GUICtrlCreateMenuItem("About",$Menu)
    $Combo1 = GUICtrlCreateCombo("Bitte auswählen", 144, 112, 209, 25)
    GUICtrlSetData(-1,"TechnoBase.FM|Top100Station|Planet Radio|YouFM|HR3|Rautemusik.fm Main|1Live|FFH|RTL 104.6|103.7 Unser Ding|N-Joy","Bitte auswählen")
    $Label1 = GUICtrlCreateLabel("", 144, 88, 94, 20)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xff0000)
    $Button1 = GUICtrlCreateButton("Play", 24, 304, 193, 33, BitOr($WS_GROUP,$BS_DEFPUSHBUTTON))
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Button2 = GUICtrlCreateButton("Stop", 280, 304, 193, 33, $WS_GROUP)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    GUICtrlSetState($Button2, $GUI_DISABLE)
    $Progress1 = GUICtrlCreateProgress(8, 30, 33, 265, $PBS_VERTICAL)
    GUICtrlSetColor($Progress1,0xff0000)
    GUICtrlSetBkColor($Progress1,0x1000)
    $Volume = GUICtrlCreateSlider(448, 30, 33, 265, BitOR($TBS_AUTOTICKS,$TBS_VERT))
    $Slider = IniRead($INIstyle,"Slider","Slider","-2")
    GUICtrlSetBkColor($Volume, $Slider)
    GUICtrlSetData(-1, $oWMP.settings.volume())
    GUICtrlSetState($Volume, $GUI_DISABLE)
    GUISetState(@SW_SHOW)

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

    $start = timerinit()

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

    While 1
    $oWMP.settings.volume = 100 - GUICtrlRead($Volume)
    $nMsg = GUIGetMsg()
    If timerdiff($start)>=1000 then
    $start=timerinit()
    GUICtrlSetData($Label1,"Es ist: "&@HOUR &":"&@MIN &":"& @sec)
    EndIf
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $KonifgDel
    FileDelete(@ScriptDir & "\Style.ini")
    MsgBox(0,"Information","Änderung wirkt sich erst nach Programmneustart aus.")
    Case $Style2
    IniDelete($INIstyle,"Style","")
    IniDelete($INIstyle,"Slider","")
    IniWrite($INIstyle,"Slider","Slider","-2")
    Run($BlackEyes)
    Exit
    Case $StyleE
    $open = FileOpenDialog("Bild",@DesktopDir,"Bilder (*.jpg)",1+4)
    IniDelete($INIstyle,"Style","")
    IniDelete($INIstyle,"Slider","")
    IniWrite($INIstyle,"Slider","Slider","-2")
    IniWrite($INIstyle,"Style","Background",$open)
    Run($BlackEyes)
    Exit
    Case $HMenuE
    Exit
    Case $SMenu1
    MsgBox(0,"TechnoBase.FM","http://listen.technobase.fm/tunein-dsl-asx")
    Case $SMenu2
    MsgBox(0,"Top100Station","http://www.top100station.de/switch/r3472.asx")
    Case $SMenu3
    MsgBox(0,"Planet Radio","http://lsd.newmedia.nacamar.net/bb/redirect.lsc?stream=planetradio$livestream.mp3&content=live&media=mp3")
    Case $SMenu4
    MsgBox(0,"YouFM","http://metafiles.gl-systemhaus.de/hr/youfm_1.asx")
    Case $SMenu5
    MsgBox(0,"HR3","http://metafiles.gl-systemhaus.de/hr/hr3_2.m3u")
    Case $SMenu6
    MsgBox(0,"Rautemusik.fm Main","http://main-high.rautemusik.fm/listen.asx")
    Case $SMenu7
    MsgBox(0,"1Live","http://www.wdr.de/wdrlive/media/einslive.asx")
    Case $SMenu8
    MsgBox(0,"FFH","http://tiscali.project-fx.de/play.wma?radio=ffh128")
    Case $SMenu9
    MsgBox(0,"RTL 104.6","http://tiscali.project-fx.de/play.wma?radio=rtl1046")
    Case $SMenu10
    MsgBox(0,"103.7 Unser Ding","http://streaming01.sr-online.de/unserding_2.m3u")
    Case $SMenu11
    MsgBox(0,"N-Joy","http://ndr.ic.llnwd.net/stream/ndr_n-joy_hi_mp3")
    Case $MenuE
    MsgBox(0,"About BlackEyes StreamPlayer","BlackEyes StreamPlayer Version 1.6.1.3")
    Case $Button1
    $readcombo1 = GUICtrlRead($Combo1)
    $oWMP.controls.play()
    GUICtrlSetState($Volume, $GUI_ENABLE)
    GUICtrlSetState($Button2, $GUI_ENABLE)
    Switch $Button1
    Case $readcombo1 = "TechnoBase.FM"
    $oWMP.URL = 'http://listen.technobase.fm/tunein-dsl-asx'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "Top100Station"
    $oWMP.URL = 'http://www.top100station.de/switch/r3472.asx'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "Planet Radio"
    $oWMP.URL = 'http://lsd.newmedia.nacamar.net/bb/redirect.lsc?stream=planetradio$livestream.mp3&content=live&media=mp3'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "YouFM"
    $oWMP.URL = 'http://metafiles.gl-systemhaus.de/hr/youfm_1.asx'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "HR3"
    $oWMP.URL = 'http://metafiles.gl-systemhaus.de/hr/hr3_2.m3u'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "Rautemusik.fm Main"
    $oWMP.URL = 'http://main-high.rautemusik.fm/listen.asx'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "1Live"
    $oWMP.URL = 'http://www.wdr.de/wdrlive/media/einslive.asx'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "FFH"
    $oWMP.URL = 'http://tiscali.project-fx.de/play.wma?radio=ffh128'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "RTL 104.6"
    $oWMP.URL = 'http://tiscali.project-fx.de/play.wma?radio=rtl1046'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "103.7 Unser Ding"
    $oWMP.URL = 'http://streaming01.sr-online.de/unserding_2.m3u'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "N-Joy"
    $oWMP.URL = 'http://ndr.ic.llnwd.net/stream/ndr_n-joy_hi_mp3'
    For $i = 1 To 100 Step 1
    GUICtrlSetData($Progress1, $i)
    Sleep(20)
    Next
    GUICtrlSetData($Progress1, 0)
    Case $readcombo1 = "Bitte auswählen"
    MsgBox(0,"ERROR","Kein Sender ausgewählt!")
    EndSwitch
    Case $Button2
    $oWMP.controls.stop()
    GUICtrlSetState($Volume, $GUI_DISABLE)
    GUICtrlSetState($Button1, $GUI_ENABLE)
    GUICtrlSetState($Button2, $GUI_DISABLE)
    GUICtrlSetState($Combo1, $GUI_ENABLE)
    GUICtrlSetData($Progress1, 0)
    EndSwitch
    WEnd

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

    Func CheckMouse()
    Local Static $mouseout=0
    $aMpos = MouseGetPos()
    $aWpos = WinGetPos("BlackEyes StreamPlayer")
    If $aMpos[0] > $aWpos[0] And $aMpos[0] < $aWpos[0] + $aWpos[2] And $aMpos[1] > $aWpos[1] And $aMpos[1] < $aWpos[1] + $aWpos[3] Then
    If $mouseout = 1 Then
    For $i=30 to 255 Step 30
    WinSetTrans("BlackEyes StreamPlayer", "", $i)
    sleep(50)
    Next
    WinSetTrans("BlackEyes StreamPlayer", "", 255)
    $mouseout=0
    EndIf
    Else
    If $mouseout=0 Then
    For $i=255 to 30 Step -30
    WinSetTrans("BlackEyes StreamPlayer", "", $i)
    sleep(50)
    Next
    $mouseout=1
    EndIf
    EndIf
    EndFunc

    [/autoit]

    Einmal editiert, zuletzt von Molaynox (12. Oktober 2010 um 10:07)

    Spoiler anzeigen
    [autoit]

    If Not FileExists(@ScriptDir & "\License.txt") Then
    FileWrite("License.txt","BlackEyes StreamPlayer"&@CRLF)
    FileWrite("License.txt","Alle Rechte vorbehalten."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Lizenzvereinbarung / Urheberrechtshinweise"&@CRLF)
    FileWrite("License.txt"," ")
    FileWrite("License.txt","VERTRAG FÜR ENDBENUTZER"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Die Benutzung des Programms ´´BlackEyes StreamPlayer´´ (im Folgenden ´´Software´´) setzt Ihr Einverständnis mit folgenden Punkten voraus :"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","1. ZUSICHERUNG DER LIZENZ"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Der Autor sichert Ihnen eine kostenlose Lizenz der Software zu, falls Sie die Software für nichtkommerzielle Zwecke nutzen."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Wenn Sie die Anforderungen für den kostenlosen Gebrauch der Software nicht erfüllen, dürfen Sie die Software bis zu dreißig (30) Tage benutzen,"&@CRLF)
    FileWrite("License.txt","um zu evaluieren, ob Sie eine kommerzielle Lizenz erwerben wollen. Die Lizenz für eine gewerbliche Nutzung ist eine Fallentscheidung."&@CRLF)
    FileWrite("License.txt","Der Autor ist in keiner Weise verpflichtet Lizenzen zu erteilen!"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Wenn Sie die Software kostenlos unter den hier genannten Bedingungen benutzen, haben Sie keinen Anspruch auf technische Unterstützung"&@CRLF)
    FileWrite("License.txt","irgendwelcher Art. Der Autor wird aber im Rahmen seiner Möglichkeiten technische Unterstützung leisten."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","2. BESCHRÄNKTE GEWÄHRLEISTUNG"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Die Software wird Ihnen ´´so wie sie ist´´ zur Verfügung gestellt, ohne Gewährleistung seitens des Autors irgendeiner Art, "&@CRLF)
    FileWrite("License.txt","weder ausdrücklich noch konkludent, einschließlich, aber nicht beschränkt auf konkludente Gewährleistungen der Tauglichkeit, "&@CRLF)
    FileWrite("License.txt","der Eignung für einen bestimmten Zweck oder des Nichtbestehens einer Rechtsverletzung. Das gesamte Risiko, das sich aus dem Verwenden "&@CRLF)
    FileWrite("License.txt","oder der Leistung der Software ergibt, verbleibt bei Ihnen. In keinem Fall kann der Autor haftbar gemacht werden für irgendwelche Schäden,"&@CRLF)
    FileWrite("License.txt","gleich welcher Art (einschließlich, aber nicht beschränkt auf entgangenen Gewinn, Betriebsunterbrechung, Verlust geschäftlicher Informationen "&@CRLF)
    FileWrite("License.txt","oder irgendeinen anderen Vermögensschaden), die aus dem Verwenden, der Unmöglichkeit oder Fehlerhaftigkeit, die Software zu verwenden,"&@CRLF)
    FileWrite("License.txt","entstehen, und zwar auch dann, wenn der Autor zuvor auf die Möglichkeit solcher Schäden hingewiesen worden ist."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","3. WEITERE EINSCHRÄNKUNGEN"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Sie sind nicht berechtigt, die Software zurückzuentwickeln (Reverse Engineering), zu dekompilieren oder zu disassemblieren."&@CRLF)
    FileWrite("License.txt","Eigentum und Urheberrecht an der Software liegen beim Autor."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","4. COPYRIGHT"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Die Software wird sowohl durch Urheberrechtsgesetze und internationale Urheberrechtsverträge geschützt, als auch durch andere Gesetze"&@CRLF)
    FileWrite("License.txt","und Vereinbarungen über geistiges Eigentum."&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","5. WARTUNG"&@CRLF)
    FileWrite("License.txt"," "&@CRLF)
    FileWrite("License.txt","Der Autor ist nicht verpflichtet, eine Wartung oder Überarbeitung der Software zu gewährleisten, allerdings unterliegen alle Wartungs- "&@CRLF)
    FileWrite("License.txt","oder Überarbeitungsleistungen seitens des Autors dieser Vereinbarung."&@CRLF)
    IniWrite($IniL, "Read", "Read", "UnTrue")
    EndIf

    [/autoit]

    warum nimmst Du nicht das

    [autoit]

    If Not FileExists(@ScriptDir & "\License.txt") FileInstall("C:\License.txt", @ScriptDir & "\License.txt")

    [/autoit]

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o

    stayawayknight
    Könntest du das nochmal genauer erklären hab nicht ganz verstanden was du meinst
    Edit: Es muss nicht unbedingt als text zb 20% irgendwo stehen ich meinte einfach das die ProgressBar zu 50% voll ist wenn der stream zu 50% geladen ist.

    Dietmar
    Ich hab das so gemacht damit Benutzer nur diese eine exe brauche sozusagen wie ein Setup. Denn Mit setup erstellungsprogs wie InnoSetup oder EasySetup funktionierte nach der Installation die IniWrite Funktion leider nicht mehr

    Einmal editiert, zuletzt von Molaynox (6. Oktober 2010 um 18:48)

    Zitat

    Ich hab das so gemacht damit Benutzer nur diese eine exe brauche sozusagen wie ein Setup


    Mir ist schon klar warum Du das gemacht hast, aber Du hast Dir nicht die Hilfe zu der Funktion angesehen.
    Du musst die Datei bei Dir ablegen und dann wird die beim Kompilieren mit eingepackt und bei Bedarf wieder ausgepackt....

    und nen eigenen Installer geht auch:
    Beim Scriptstart prüfen auf Erstaufruf (Regeintrag oder Datei die da sein muss)?
    ja -> Fileopendialog mit Frage wo man hininstallieren möcht.
    Ordner erstellen
    Fileinstall auf das Verzeichnis loslassen
    Evtl. noch was registrieren...
    Die eigentliche Exe kopieren und mit den Koordinaten starten wo es schon läuft.(Wingetpos())
    Alte Exe beenden.
    nein > Programmstart mit evtl. zusätzlicher Prüfung ob noch alles da ist...

    Einziges Manko 2 Prg ist ganz kurz 2x zu sehen in der Taskbar aber so what. :thumbup:

    Gruß Dietmar

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o

    Hio!


    Ein Vorschlag habe ich warum nicht ein String:

    [autoit]

    $File_wirte = "BlackEyes StreamPlayer" & @CRLF & "Alle Rechte vorbehalten." & @CRLF & " " & @CRLF & "Lizenzvereinbarung / Urheberrechtshinweise" & @CRLF & " " & @CRLF & _
    "VERTRAG FÜR ENDBENUTZER" & @CRLF & " " & @CRLF & "Die Benutzung des Programms ´´BlackEyes StreamPlayer´´ (im Folgenden ´´Software´´) setzt Ihr Einverständnis mit folgenden Punkten voraus :" & @CRLF & _
    " " & @CRLF & "1. ZUSICHERUNG DER LIZENZ" & @CRLF & " " & @CRLF & "Der Autor sichert Ihnen eine kostenlose Lizenz der Software zu, falls Sie die Software für nichtkommerzielle Zwecke nutzen." & @CRLF & _
    " " & @CRLF & "Wenn Sie die Anforderungen für den kostenlosen Gebrauch der Software nicht erfüllen, dürfen Sie die Software bis zu dreißig (30) Tage benutzen," & @CRLF & _
    "um zu evaluieren, ob Sie eine kommerzielle Lizenz erwerben wollen. Die Lizenz für eine gewerbliche Nutzung ist eine Fallentscheidung." & @CRLF & _
    "Der Autor ist in keiner Weise verpflichtet Lizenzen zu erteilen!" & @CRLF & " " & @CRLF & _
    "Wenn Sie die Software kostenlos unter den hier genannten Bedingungen benutzen, haben Sie keinen Anspruch auf technische Unterstützung" & @CRLF & _
    "irgendwelcher Art. Der Autor wird aber im Rahmen seiner Möglichkeiten technische Unterstützung leisten." & @CRLF & " " & @CRLF & "2. BESCHRÄNKTE GEWÄHRLEISTUNG" & @CRLF & " " & @CRLF & _
    "Die Software wird Ihnen ´´so wie sie ist´´ zur Verfügung gestellt, ohne Gewährleistung seitens des Autors irgendeiner Art, " & @CRLF & _
    "weder ausdrücklich noch konkludent, einschließlich, aber nicht beschränkt auf konkludente Gewährleistungen der Tauglichkeit, " & @CRLF & _
    "der Eignung für einen bestimmten Zweck oder des Nichtbestehens einer Rechtsverletzung. Das gesamte Risiko, das sich aus dem Verwenden " & @CRLF & _
    "oder der Leistung der Software ergibt, verbleibt bei Ihnen. In keinem Fall kann der Autor haftbar gemacht werden für irgendwelche Schäden," & @CRLF & _
    "gleich welcher Art (einschließlich, aber nicht beschränkt auf entgangenen Gewinn, Betriebsunterbrechung, Verlust geschäftlicher Informationen " & @CRLF & _
    "oder irgendeinen anderen Vermögensschaden), die aus dem Verwenden, der Unmöglichkeit oder Fehlerhaftigkeit, die Software zu verwenden," & @CRLF & _
    "entstehen, und zwar auch dann, wenn der Autor zuvor auf die Möglichkeit solcher Schäden hingewiesen worden ist." & @CRLF & " " & @CRLF & "3. WEITERE EINSCHRÄNKUNGEN" & @CRLF & " " & @CRLF & _
    "Sie sind nicht berechtigt, die Software zurückzuentwickeln (Reverse Engineering), zu dekompilieren oder zu disassemblieren." & @CRLF & _
    "Eigentum und Urheberrecht an der Software liegen beim Autor." & @CRLF & " " & @CRLF & "4. COPYRIGHT" & @CRLF & " " & @CRLF & _
    "Die Software wird sowohl durch Urheberrechtsgesetze und internationale Urheberrechtsverträge geschützt, als auch durch andere Gesetze" & @CRLF & _
    "und Vereinbarungen über geistiges Eigentum." & @CRLF & " " & @CRLF & "5. WARTUNG" & @CRLF & " " & @CRLF & _
    "Der Autor ist nicht verpflichtet, eine Wartung oder Überarbeitung der Software zu gewährleisten, allerdings unterliegen alle Wartungs- "

    [/autoit]


    Und nur einmal in die Datei schreiben!

    LG Kleiner

    ich versteh immer noch noch warum man ein fileopen/filewrite bemühen soll wenn man die Datei einfach includieren kann.
    Als nächtes merkt man das die Systemicons die man evtl. genommen hat bei jedem OS anders aussehen und will vielleicht selber Icons beilegen...
    Fileinstall ist wrklich schon sehr praktisch, ich habe bis ich es kannte auch so gemacht aber, wozu einem Roman in den Code schreiben, wenn es auch anders geht.
    Zum Beispiel kannst Du ja auch einen Text in 5 Sprachen hinterlegen und dann passend zur Antwort der language() Funktion die richtige auspacken.

    Wie gesagt man müllt sich nicht das Script zu und hält es leserlicher und kann es bei Bedarf zum Mini-Installer mutieren lassen. ^^

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o

    Label über ne Progressbar legen geht mit

    [autoit]

    GUICtrlSetBkColor($label, $GUI_BKCOLOR_TRANSPARENT)

    [/autoit]

    falls es hilft

    Dietmar
    Kannst du mir das nochmal genauer erkären oder am besten mir ein beispiel zeigen:

    dann solltest Du das ganze unter Programmieranfragen einstellen
    und mit dem entsprechender Löhnung gibt es sowas sicher auch frei Haus ;)

    MfG Schnuffel

    "Sarkasmus ist die niedrigste Form des Witzes, aber die höchste Form der Intelligenz."
    Val McDermid

    ein paar Infos ...

    Wer mehr als "nur" Hilfe benötigt, kann sich gern im Forum "Programmieranfragen" an uns wenden. Wir helfen in allen Fällen, die die Forenregeln zulassen.

    Für schnelle Hilfe benötigen wir ein ! lauffähiges ! Script, dass wir als Demonstration des Problems testen können. Wer von uns erwartet ein Teilscript erstmal lauffähig zu bekommen, der hat
    1. keine wirkliche Not
    2. keinen Respekt vor Menschen die ihm in ihrer Freizeit Ihre Hilfe anbieten
    3. oder ist einfach nur faul und meint wir coden das für ihn

    In solchen Fällen erlaube ich mir, die Anfrage einfach zu ignorieren. ;)

    hatte nur die pm gesehen aber nicht das hier noch was geschrieben wurde.
    So in etwa hatte ich es mal mittlerweile sind die Sprachen auch alle in der ini und der passende Block wird dann genutzt.
    Aber zum besseren Verständnis leichterem Lesen ist das denke ich ausreichend.
    Dazwischen fehlt natürlich einiges aber von der Idee her ist es so wie beschrieben.

    Spoiler anzeigen
    [autoit]

    Dim $setupdir
    Dim $scriptdir = @ScriptDir
    If StringRight($scriptdir, 1) <> "\" Then $scriptdir &= "\"

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

    If Not FileExists($scriptdir & "Bin\dd.exe") Then
    _Setup()
    Else
    $setupdir = $scriptdir
    EndIf

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

    If Not FileExists($setupdir & "Bin\dd.exe") Then FileInstall("C:\Autoit\Eigene Scripte\Dietmar\DD-Gui\Bin\dd.exe", $setupdir & "Bin\dd.exe")
    If Not FileExists($setupdir & "Bin\dd-gui.ini") Then FileInstall("C:\Autoit\Eigene Scripte\Dietmar\DD-Gui\Bin\dd-gui.ini", $setupdir & "Bin\dd-gui.ini")
    If Not FileExists($setupdir & "Bin\diskio.dll") Then FileInstall("C:\Autoit\Eigene Scripte\Dietmar\DD-Gui\Bin\diskio.dll", $setupdir & "Bin\diskio.dll")
    If Not FileExists($setupdir & "Bin\dd-icons.dll") Then FileInstall("C:\Autoit\Eigene Scripte\Dietmar\DD-Gui\Bin\dd-icons.dll", $setupdir & "Bin\dd-icons.dll")
    If Not FileExists($setupdir & "Media\utopiawi.wav") Then FileInstall("C:\Autoit\Eigene Scripte\Dietmar\DD-Gui\Media\utopiawi.wav", $setupdir & "Media\utopiawi.wav")
    If Not FileExists($setupdir & "Media\linux.jpg") Then FileInstall("C:\Autoit\Eigene Scripte\Dietmar\DD-Gui\Media\linux.jpg", $setupdir & "Media\linux.jpg")
    If Not FileExists($setupdir & "Media\dd For windows.htm") Then FileInstall("C:\Autoit\Eigene Scripte\Dietmar\DD-Gui\Media\dd For windows.htm", $setupdir & "Media\dd For windows.htm")

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

    If $setupdir <> $scriptdir Then
    FileCopy(@ScriptFullPath,$setupdir & "DD-Gui.exe")
    FileCreateShortcut($setupdir & "DD-Gui.exe",@DesktopDir & "\DD-Gui.lnk")
    FileCreateShortcut($setupdir & "DD-Gui.exe",@StartMenuCommonDir & "\DD-Gui.lnk")
    Run($setupdir & "DD-Gui.exe")
    Exit
    EndIf

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

    Func _Setup()
    If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
    If _Language() = "German" Then
    $iMsgBoxAnswer = MsgBox(33,"DD-Gui Installationsprüfung","DD-Gui wird zum ersten Mal gestartet." & @CRLF & @CRLF & "Möchten Sie DD-Gui installieren?" & @CRLF & @CRLF & "Es werden nur Dateien in das Zielverzeichnis kopiert," & @CRLF & "es werden keine Dateien registriert." & @CRLF & @CRLF & "[OK] startet die Installation und anschliessend DD-Gui" & @CRLF & "[ABBRECHEN] beendet das Programm. ")
    Else
    $iMsgBoxAnswer = MsgBox(33,"DD-Gui Installations check","DD-Gui starts the first time." & @CRLF & @CRLF & "Would you like to install DD-Gui?" & @CRLF & @CRLF & "Only files will copied to your target dir," & @CRLF & "the files won`t be registerd. " & @CRLF & @CRLF & "[OK] starts the installation and afterwards DD-Gui" & @CRLF & "[CANCEL] terminate this program. ")
    EndIf

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

    Select
    Case $iMsgBoxAnswer = 1 ;OK
    If _Language() = "German" Then
    $setupdir = FileSelectFolder("Bitte Zielverzeichnis erzeugen/auswählen.", "",1)
    Else
    $setupdir = FileSelectFolder("Create or choose a folder.","",1)
    EndIf
    If @error = 1 Then
    _Setup()
    Else
    If StringRight($setupdir, 1) <> "\" Then $setupdir &= "\"
    If Not FileExists($setupdir & "Bin") Then DirCreate($setupdir & "Bin")
    If Not FileExists($setupdir & "Media") Then DirCreate($setupdir & "Media")
    If Not FileExists($setupdir & "Help") Then DirCreate($setupdir & "Help")
    EndIf
    Return $setupdir
    Case $iMsgBoxAnswer = 2 ;Cancel
    Exit
    EndSelect
    EndFunc

    [/autoit]

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o