Hi ich bekomme bei meinem script den fehler Subscript used with non-Array variable allerdings nur wenn der script kompiliert ist wenn ich einfach in SciTe bei tools auf Go gehe funktioniert alles. Hier der Script:
Spoiler anzeigen
#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 <Constants.au3>
#include <GuiToolbar.au3>
#include <inet.au3>
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")
$License = "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- " & _
"oder Überarbeitungsleistungen seitens des Autors dieser Vereinbarung."&@CRLF
If Not FileExists(@ScriptDir & "\License.txt") Then
FileWrite("License.txt",$License)
IniWrite($IniL, "Read", "Read", "UnTrue")
EndIf
If $IniRead = "UnTrue" Then
$Lic = MsgBox(260,"Lizenbedingungen akzeptieren?","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. 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, um zu evaluieren, ob Sie eine kommerzielle Lizenz erwerben wollen. Die Lizenz für eine gewerbliche Nutzung ist eine Fallentscheidung. Der Autor ist in keiner Weise verpflichtet Lizenzen zu erteilen!"&@CRLF&"Wenn Sie die Software kostenlos unter den hier genannten Bedingungen benutzen, haben Sie keinen Anspruch auf technische Unterstützung 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, weder ausdrücklich noch konkludent, einschließlich, aber nicht beschränkt auf konkludente Gewährleistungen der Tauglichkeit, der Eignung für einen bestimmten Zweck oder des Nichtbestehens einer Rechtsverletzung. Das gesamte Risiko, das sich aus dem Verwenden oder der Leistung der Software ergibt, verbleibt bei Ihnen. In keinem Fall kann der Autor haftbar gemacht werden für irgendwelche Schäden, gleich welcher Art (einschließlich, aber nicht beschränkt auf entgangenen Gewinn, Betriebsunterbrechung, Verlust geschäftlicher Informationen oder irgendeinen anderen Vermögensschaden), die aus dem Verwenden, der Unmöglichkeit oder Fehlerhaftigkeit, die Software zu verwenden, 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.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 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- oder Überarbeitungsleistungen seitens des Autors dieser Vereinbarung."&@CRLF&""&@CRLF&"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
$Pic1 = IniRead($INIstyle,"Style","Background","")
$oWMP = ObjCreate("WMPLayer.ocx")
$GUI = GUICreate("BlackEyes StreamPlayer", 534, 401, 192, 124)
GUICtrlCreatePic($Pic1, 0, 0, 533, 401, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
$HauptMenu = GUICtrlCreateMenu("Datei")
$KonifgDel = GUICtrlCreateMenuItem("Konfiguration löschen",$HauptMenu)
$Logout = GUICtrlCreateMenuItem("Logout",$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", 160, 168, 217, 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("", 184, 136,150,20)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xff0000)
$Button1 = GUICtrlCreateButton("Play", 80, 330, 169, 33, BitOr($WS_GROUP,$BS_DEFPUSHBUTTON))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Stop", 280, 330, 169, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetState($Button2, $GUI_DISABLE)
$Progress1 = GUICtrlCreateProgress(24, 40, 41, 297,$PBS_VERTICAL)
GUICtrlSetColor($Progress1,0xff0000)
GUICtrlSetBkColor($Progress1,-2)
$Volume = GUICtrlCreateSlider(464, 32, 33, 305, 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)
$Start = TimerInit()
[/autoit] [autoit][/autoit] [autoit]While 1
If TimerDiff($Start) > 1000 Then
GUICtrlSetData($Label1,"Es ist: " & @Hour & ":" & @MIN & ":" & @SEC)
$Start = TimerInit()
EndIf
$oWMP.settings.volume = 100 - GUICtrlRead($Volume)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $KonifgDel
FileDelete(@ScriptDir & "\Style.ini")
FileDelete(@ScriptDir & "\Login.ini")
Run($BlackEyes)
Exit
Case $Logout
FileDelete(@ScriptDir & "\Style.ini")
FileDelete(@ScriptDir & "\Login.ini")
Run($BlackEyes)
Exit
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.8.0.5")
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)
ToolTip("TechnoBase.FM",0,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)
ToolTip("Top100Station",0,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)
ToolTip("Planet Radio",0,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)
ToolTip("YouFM",0,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)
ToolTip("HR3",0,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)
ToolTip("Rautemusik.fm Main",0,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)
ToolTip("1Live",0,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)
ToolTip("FFH",0,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)
ToolTip("RTL 104.6",0,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)
ToolTip("103.7 Unser Ding",0,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)
ToolTip("N-Joy",0,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
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
Edit: hat sich gelöst in dem ich die funktion AdLibRegister genau vor die GUI gesetzt habe.
