Skip to content

Commit

Permalink
Listen: Bind listening window to parent
Browse files Browse the repository at this point in the history
  • Loading branch information
devnoname120 committed Dec 16, 2014
1 parent 64954c7 commit 3ff5998
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 6 deletions.
6 changes: 3 additions & 3 deletions Data/Reinhören GUI.au3
Expand Up @@ -11,7 +11,7 @@ FileClose ($exitfile)


;MsgBox (0,"",$CmdLineRaw )
If $cmdline[0] <> 6 Then
If $cmdline[0] <> 7 Then
Exit
EndIf
$Datei = $cmdline[1]
Expand All @@ -20,11 +20,11 @@ $Spieldauer = $cmdline[3]
$Dateigroesse = $cmdline[4]
$reinhoerenPID = $cmdline[5]
$Fenstertitel = $cmdline[6]

$HauptGUI = $cmdline[7]

$dateigroessefuerlabel = Round($Dateigroesse / 1048576, 2)

$Player = GUICreate($Fenstertitel, 330, 75, 0, 0, -1, $WS_EX_TOOLWINDOW + $WS_EX_COMPOSITED)
$Player = GUICreate($Fenstertitel, 330, 75, 0, 0, -1, $WS_EX_TOOLWINDOW + $WS_EX_COMPOSITED, $HauptGUI)

GUISetBkColor(0xFFFFFF)
$Wasspielt = GUICtrlCreateLabel($Musiktitel, 13, 8, 308, 23)
Expand Down
4 changes: 2 additions & 2 deletions Data/Reinhören.au3
Expand Up @@ -14,6 +14,7 @@ $StreamKey = FileReadLine ("Reinh
$Musiktitel = FileReadLine ("Reinhören.txt",3)
$Spieldauer = FileReadLine ("Reinhören.txt",4)
$Fenstertitel = FileReadLine ("Reinhören.txt",5)
$HauptGUI = FileReadLine ("Reinhören.txt",6)
$Dateigroesse = "-1"

If $StreamIP = "" Or $StreamKey = "" Then
Expand Down Expand Up @@ -56,8 +57,7 @@ $dlfertig = 0
$puffer = 0
$current = "Blub"
$bytesread = IniRead("config.ini", "Downloadeinstellungen", "NumberOfBytesToRead", 150000)

ShellExecute ("AutoIt3.exe",'"Reinhören GUI.au3" "'&$file&'" "'&$Musiktitel&'" "'&$Spieldauer&'" "'&$Dateigroesse&'" "'&@AutoItPID&'" "'&$Fenstertitel&'"')
ShellExecute ("AutoIt3.exe",'"Reinhören GUI.au3" "'&$file&'" "'&$Musiktitel&'" "'&$Spieldauer&'" "'&$Dateigroesse&'" "'&@AutoItPID&'" "'&$Fenstertitel&'" "'&$HauptGUI&'"')

While 1
If $dlfertig = 2 Then
Expand Down
2 changes: 1 addition & 1 deletion GrooveLoad.au3
Expand Up @@ -800,7 +800,7 @@ While 1
$StreamIP = $StreamIP[0]
$StreamKey = $StreamKey[0]
FileDelete("Data\Reinhören.txt")
FileWrite("Data\Reinhören.txt", $StreamIP & @CRLF & $StreamKey & @CRLF & $SongInfo[$o][1] & @CRLF & $spieldauer & @CRLF & sprache ("GR_GUI_PREVIEW"))
FileWrite("Data\Reinhören.txt", $StreamIP & @CRLF & $StreamKey & @CRLF & $SongInfo[$o][1] & @CRLF & $spieldauer & @CRLF & sprache ("GR_GUI_PREVIEW") & @CRLF & $HauptGUI)
ShellExecute ("Data\AutoIt3.exe",'"'&@ScriptDir&'\Data\Reinhören.au3"')
EndIf
EndIf
Expand Down

0 comments on commit 3ff5998

Please sign in to comment.