Problem mit 2D Array

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <Misc.au3>
#include <GuiButton.au3>
#include <file.au3>
#include <WinAPI.au3>
#include <GuiStatusBar.au3>
#include <Array.au3>

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

Global $Wallpaper = RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper")
Global $LastWallpaper = $Wallpaper

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

Dim $aSender[7][2]
$aSender[0][0] = "TechnoBase.FM"
$aSender[0][1] = "http://listen.technobase.fm/tunein-dsl-asx"
$aSender[1][0] = "Top100Station"
$aSender[1][1] = "http://www.top100station.de/switch/r3472.asx"
$aSender[2][0] = "Planet Radio"
$aSender[2][1] = "http://lsd.newmedia.nacamar.net/bb/redirect.lsc?stream=planetradio$livestream.mp3&content=live&media=mp3"
$aSender[3][0] = "YouFM"
$aSender[3][1] = "http://metafiles.gl-systemhaus.de/hr/youfm_1.asx"
$aSender[4][0] = "HouseTime.FM"
$aSender[4][1] = "http://listen.housetime.fm/dsl.asx"
$aSender[5][0] = "CoreTime.FM"
$aSender[5][1] = "http://listen.coretime.fm/dsl.asx"
$aSender[6][0] = "HardBase.FM"
$aSender[6][1] = "http://listen.hardbase.fm/dsl.asx"

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

If Not FileExists(@ScriptDir & "\data\sender\streams.ini") Then
For $i = 0 To 6 Step 1
IniWrite(@ScriptDir & "\data\sender\streams.ini", $aSender[$i][0], "URL", $aSender[$i][1])
Next
EndIf

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

Opt("TrayMenuMode", 3)
Opt("GUIOnEventMode", 1)
Opt("TrayAutoPause", 0)
Opt("TrayOnEventMode", 1)

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

AdlibRegister("_konfig_check")

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

Global Const $aParts[3] = [140, 370, 650]

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

$Picture = RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper")
$oWMP = ObjCreate("WMPLayer.ocx")
$GUI = GUICreate("BlackEyes StreamPlayer", 602, 442, -1, -1)
GUISetOnEvent(-3, "_exit")
Global $IMG = GUICtrlCreatePic($Picture, 0, 0, 533, 401, BitOR($WS_GROUP, $WS_CLIPSIBLINGS))
$HauptMenu = GUICtrlCreateMenu("Datei")
$KonifgDel = GUICtrlCreateMenuItem("Konfiguration löschen", $HauptMenu)
GUICtrlSetOnEvent(-1, "_konfigdelete")
$Update = GUICtrlCreateMenuItem("Update", $HauptMenu)
GUICtrlSetOnEvent(-1, "_update")
$HMenuE = GUICtrlCreateMenuItem("Beenden", $HauptMenu)
GUICtrlSetOnEvent(-1, "_exit")
$Konf = GUICtrlCreateMenuItem("Einstellungen", $HauptMenu)
GUICtrlSetOnEvent(-1, "_konfig")
$HOME = GUICtrlCreateMenuItem("Black-Eyes-Soft Homepage besuchen", $HauptMenu, 1)
GUICtrlSetOnEvent(-1, "_homepage")
$SMenu = GUICtrlCreateMenu("Stream URLs")
$SMenu1 = GUICtrlCreateMenuItem("Anzeigen", $SMenu)
GUICtrlSetOnEvent(-1, "_showURLs")
$StyleM = GUICtrlCreateMenu("Styles")
$Style2 = GUICtrlCreateMenuItem("Standard", $StyleM)
GUICtrlSetOnEvent(-1, "_stylestandard")
$StyleEE = GUICtrlCreateMenuItem("Planets in Night", $StyleM)
GUICtrlSetOnEvent(-1, "_styleP")
$StyleEEE = GUICtrlCreateMenuItem("Stripes", $StyleM)
GUICtrlSetOnEvent(-1, "_styleS")
$StyleE = GUICtrlCreateMenuItem("Eigenes Bild", $StyleM)
GUICtrlSetOnEvent(-1, "_OWNstyle")
$Menu = GUICtrlCreateMenu("Hilfe")
GUICtrlSetOnEvent(-1, "_help")
$MenuE = GUICtrlCreateMenuItem("About", $Menu)
GUICtrlSetOnEvent(-1, "_about")
$Combo1 = GUICtrlCreateCombo("Bitte auswählen", 160, 168, 217, 25)
$aComboData = IniReadSectionNames(@ScriptDir & "\data\sender\streams.ini")
If @error Then
MsgBox(48, "FATAL ERROR", "Konnte Streams nicht lesen")
Exit
EndIf
$Streams = "Stream-Auswahl"
For $i = 1 To $aComboData[0] Step 1
$Streams &= "|" & $aComboData[$i]
Next
GUICtrlSetData($Combo1, $Streams)
$hStatus = _GUICtrlStatusBar_Create($GUI, -1, "", $SBARS_TOOLTIPS)
_GUICtrlStatusBar_SetParts($hStatus, $aParts)
_GUICtrlStatusBar_SetText($hStatus, "Gestoppt...", 1)
_GUICtrlStatusBar_SetText($hStatus, @MDAY & "." & @MON & "." & @YEAR, 0)
$Icon1 = GUICtrlCreateIcon(@ScriptDir & "\Icons.dll", 1, 536, 336, 64, 64, BitOR($SS_NOTIFY, $WS_GROUP))
GUICtrlSetOnEvent(-1, "_play")
GUICtrlSetTip(-1, "Play")
$Icon2 = GUICtrlCreateIcon(@ScriptDir & "\Icons.dll", 2, 536, 272, 64, 64, BitOR($SS_NOTIFY, $WS_GROUP))
GUICtrlSetOnEvent(-1, "_stop")
GUICtrlSetTip(-1, "Stop")
$Progress1 = GUICtrlCreateProgress(24, 40, 41, 297, $PBS_VERTICAL)
GUICtrlSetColor($Progress1, 0xff0000)
GUICtrlSetBkColor($Progress1, -2)
$Volume = GUICtrlCreateSlider(560, 0, 41, 273, BitOR($TBS_AUTOTICKS, $TBS_VERT))
GUICtrlSetTip(-1, "Volume")
GUICtrlSetBkColor($Volume, -2)
GUICtrlSetData(-1, $oWMP.settings.volume())
$cLizenz = GUICtrlCreateMenuItem("Lizenz", -1)
GUICtrlSetOnEvent(-1, "_ShowLicense")
$hPlay = TrayCreateItem("PlayRandomStream")
TraySetOnEvent(-1, "TrayPlayRandom")
$TR = TrayCreateItem("Fenster anzeigen")
TrayItemSetOnEvent(-1, "_show")
$MTT = TrayCreateItem("Minimize to Tray")
TrayItemSetOnEvent(-1, "_toTray")
$LA = TrayCreateItem("Lauter")
TrayItemSetOnEvent(-1, "_lauter")
$LE = TrayCreateItem("Leiser")
TrayItemSetOnEvent(-1, "_leiser")
$ST = TrayCreateItem("Stop")
TrayItemSetOnEvent(-1, "_stop")
$BE = TrayCreateItem("Beenden")
TrayItemSetOnEvent(-1, "_exit")
$MT = TrayCreateItem("Ton aus")
TrayItemSetOnEvent(-1, "_Mute")
$Start = TimerInit()
GUISetState(@SW_SHOW, $GUI)

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

GUICtrlSetImage($IMG, $Wallpaper)

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

While 1
Sleep(100)
WEnd

[/autoit]