Beiträge von Alizame

[autoit]

#include "Bass.au3"
;~ #include <GUIConstantsEx.au3>

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

_BASS_Startup(@ScriptDir & '\bass.dll') ;Startup Bass.dll
_BASS_Init(0, -1, 44100, 0) ;Init Bass.dll
If @error Then ;All correct?
MsgBox(0, "Error", "Could not initialize audio")
Exit
EndIf

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

$stream = "http://80.237.157.64/iloveradio1.mp3" ;Your Stream
$MusicHandle = _BASS_StreamCreateURL($stream, 0, 1) ;Create Stream
OnAutoItExitRegister("_Exit") ;If Exit then call "_Exit"

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

If @error Then ;Check if we opened the URL correctly.
MsgBox(0, "Error", "Could not load audio file" & @CR & "Error = " & @error)
Exit
EndIf

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

$Form1 = GUICreate("Form1", 194, 58, 192, 124)
$Button1 = GUICtrlCreateButton("Play", 16, 16, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Pause", 104, 16, 75, 25, 0)
GUISetState()

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

_BASS_ChannelPlay($MusicHandle, 1) ;Play Stream

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3 ;ersetzt $GUI_EVENT_CLOSE
Exit
Case $Button1
_BASS_ChannelPlay($MusicHandle, 0)
Case $Button2
_BASS_ChannelPause($MusicHandle)
EndSwitch
WEnd

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

Func _Exit()
_Bass_Free()
Exit
EndFunc

[/autoit]

[autoit]

#include "Bass.au3"

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

_BASS_Startup(@ScriptDir & '\bass.dll') ;Startup Bass.dll
_BASS_Init(0, -1, 44100, 0) ;Init Bass.dll
If @error Then ;All correct?
MsgBox(0, "Error", "Could not initialize audio")
Exit
EndIf

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

$stream = "http://80.237.157.64/iloveradio1.mp3" ;Your Stream
$MusicHandle = _BASS_StreamCreateURL($stream, 0, 1) ;Create Stream
OnAutoItExitRegister("_Exit") ;If Exit then call "_Exit"

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

If @error Then ;Check if we opened the URL correctly.
MsgBox(0, "Error", "Could not load audio file" & @CR & "Error = " & @error)
Exit
EndIf

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

_BASS_ChannelPlay($MusicHandle, 1) ;Play Stream

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

While 1
Sleep (10)
WEnd

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

Func _Exit()
_Bass_Free()
Exit
EndFunc

[/autoit]

[autoit]

#NoTrayIcon

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

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

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

Opt("GUIOnEventMode", 1)

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

$iX = 100 ;Fensterposition (X) in Pixeln
$iY = 100 ;Fensterposition (Y) in Pixeln
$iWidth = 627 ;Fenstergröße (W) in Pixeln
$iHeight = 619 ;Fenstergröße (H) in Pixeln

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

$iColorBG = 0x1D1D1F ;Hintergrundfarbe RGB
$iColorFont = 0xFFF10A ;Schriftfarbe RGB

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

$sText = "Hallo Welt!" ;Anzeigetext
$iSize = 12; Schriftgröße

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

$sPass = "1234" ;Passwort

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

$hWnd = GUICreate("", $iWidth, $iHeight, $iX, $iY, $WS_POPUP, $WS_EX_TOPMOST)
GUISetBkColor(0x1D1D1F)
$Pic = GUICtrlCreatePic(@ScriptDir & "\Psc.jpg", 0, 0, $iWidth, $iHeight) ;@ScriptDir & "\DeinHintergrundBild.jpg" //Bild im gleichen Ordner wie das Script

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

$cLabel = GUICtrlCreateLabel($sText, 0, 0, $iWidth, $iHeight, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, $iSize, 400, 0, "Arial", 4)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

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

GUISetState()

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

;~ GUICtrlSetOnEvent($cLabel, "_Password") ; D;
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_Password", $hWnd) ;Funtioniert Besser (andere geht nun garnicht mehr) | Wenn die linke Maustaste auf der GUI gedrückt wird "_Password" ausführen
While Sleep(1000)
WEnd

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

Func _Password()
$sPassInput = InputBox("Passwort", "Bitte das Passwort eingeben:", "", "*", 200, 150)
If $sPassInput == $sPass Then Exit
EndFunc ;==>_Password

[/autoit]