Hi hier ist mein 1. Script:
Der StreamPlayer.
Was kann er Besonderes?:
-Internetradios abspielen (von mir ausgewählte aber nix besonderes )
-Sein Hintergrundbild verändern mit beliebigen .jpg .bmp und .gif Dateien.
-Lautstärke regeln (Natütrlich ein MUSS )
-Tray Steuerung
-Hinzufügen und entfernen von Streams
Updater Script:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Users\Tobias\Desktop\RessourcenBE\ColumnChart.ico
#AutoIt3Wrapper_outfile=C:\Users\Tobias\Desktop\RessourcenBE\Updater.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#RequireAdmin
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
If Ping("178.63.25.144") = 0 Then
MsgBox(48, "ERROR", "No Network Connection." & @CRLF & "Error: " & @error)
Exit
EndIf
Global $voice = ObjCreate("Sapi.SpVoice")
[/autoit] [autoit][/autoit] [autoit]Dim $ver = RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\CurrentVersion","Version")
HttpSetUserAgent('Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10')
If @OSArch = "X64" Then
InetGet("http://www.black-eyes-soft.square7.ch/Files/UpdateX64.txt",@ScriptDir & "\update.txt", 1, 0)
$file = FileOpen(@Scriptdir & "\update.txt", 0)
$line = FileReadLine($file, 1)
$line2 = FileReadLine($file, 2)
EndIf
If @OSArch = "X86" Then
InetGet("http://www.black-eyes-soft.square7.ch/Files/Update.txt",@ScriptDir & "\update.txt", 1, 0)
$file = FileOpen(@Scriptdir & "\update.txt", 0)
$line = FileReadLine($file, 1)
$line2 = FileReadLine($file, 2)
EndIf
MsgBox(64,"","Die neueste Version ist: " & $line)
If $line = $ver Then
Speak("No - Update", 1.00, 100)
MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
FileClose($file)
FileDelete(@Scriptdir & "\update.txt")
If @OSArch = "X86" Then
If ProcessExists("BlackEyes StreamPlayer.exe") Then
ProcessClose("BlackEyes StreamPlayer.exe")
EndIf
ShellExecute(@ScriptDir & "\BlackEyes StreamPlayer.exe")
EndIf
If @OSArch = "X64" Then
If ProcessExists("BlackEyes StreamPlayerX64.exe") Then
ProcessClose("BlackEyes StreamPlayerX64.exe")
EndIf
ShellExecute(@ScriptDir & "\BlackEyes StreamPlayerX64.exe")
EndIf
Exit
Else
Speak("New - Update", 1.00, 100)
MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!")
$fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?")
If $fg = 7 Then
If @OSArch = "X86" Then
If ProcessExists("BlackEyes StreamPlayer.exe") Then
ProcessClose("BlackEyes StreamPlayer.exe")
EndIf
ShellExecute(@ScriptDir & "\BlackEyes StreamPlayer.exe")
EndIf
If @OSArch = "X64" Then
If ProcessExists("BlackEyes StreamPlayerX64.exe") Then
ProcessClose("BlackEyes StreamPlayerX64.exe")
EndIf
ShellExecute(@ScriptDir & "\BlackEyes StreamPlayerX64.exe")
EndIf
FileClose($file)
FileDelete(@Scriptdir & "\update.txt")
Exit
EndIf
If $fg = 6 Then
HttpSetUserAgent('Firefox')
$Form1 = GUICreate("Update herunterladen", 295, 133, 193, 125)
$Progress1 = GUICtrlCreateProgress(20, 56, 260, 17)
$Label1 = GUICtrlCreateLabel("Update ...", 20, 37, 260, 17)
GUISetState(@SW_SHOW)
$Source = $line2
$aFile = StringSplit($Source, "/")
Local $dest = @ScriptDir & "\" & $aFile[$aFile[0]]
ConsoleWrite($dest & @CRLF)
Local $nBytes, $nSize = InetGetSize($Source)
Local $hDownload = InetGet($Source, $dest, 1, 1)
Do
Sleep(1000)
$nBytes = InetGetInfo($hDownload, 0)
$ipercent = Floor($nBytes / $nSize * 100)
GUICtrlSetData($Progress1, $ipercent)
GUICtrlSetData($Label1, $nBytes & " von " & $nSize & " Bytes = " & $ipercent & "% geladen")
Until InetGetInfo($hDownload, 2) ; Check if the download is complete.
Local $aData = InetGetInfo($hDownload) ; Get all information.
InetClose($hDownload) ; Close the handle to release resourcs.
MsgBox(0, "", "Bytes read: " & $aData[0] & @CRLF & _
"Size: " & $aData[1] & @CRLF & _
"Complete?: " & $aData[2] & @CRLF & _
"Successful?: " & $aData[3] & @CRLF & _
"@error: " & $aData[4] & @CRLF & _
"@extended: " & $aData[5] & @CRLF)
If $aData[3] = True Then
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\CurrentVersion","Version")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\CurrentVersion","Version","REG_SZ",$line)
Speak("Update Complete", 0.50, 100)
Else
Speak("Update Failed", 0.50, 100)
EndIf
If @OSArch = "X86" Then
If ProcessExists("BlackEyes StreamPlayer.exe") Then
ProcessClose("BlackEyes StreamPlayer.exe")
EndIf
ShellExecute(@ScriptDir & "\BlackEyes StreamPlayer.exe")
EndIf
If @OSArch = "X64" Then
If ProcessExists("BlackEyes StreamPlayerX64.exe") Then
ProcessClose("BlackEyes StreamPlayerX64.exe")
EndIf
ShellExecute(@ScriptDir & "\BlackEyes StreamPlayerX64.exe")
EndIf
FileClose($file)
FileDelete(@Scriptdir & "\update.txt")
Exit
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
EndIf
EndIf
Func Speak($Text, $Rate, $Vol)
$voice.Rate = $Rate
$voice.Volume = $Vol
$voice.Speak($Text)
EndFunc
Install script:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\Tobias\Desktop\RessourcenBE\ColumnChart.ico
#AutoIt3Wrapper_Outfile=C:\Users\Tobias\Desktop\RessourcenBE\BEStreamPlayerSetup.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Fileversion=1.9.0.84
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $ver = "4.2"
[/autoit] [autoit][/autoit] [autoit]$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 & _
"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 & @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- " & @CRLF & _
"oder Überarbeitungsleistungen seitens des Autors dieser Vereinbarung." & @CRLF
#Region ### START Koda GUI section ### Form=
MsgBox(0, "Installation", "Willkommen zur Installation von BlackEyes StreamPlayer " & $ver)
$Form1 = GUICreate("BlackEyes StreamPlayer Installer", 625, 491, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 24, 8, 577, 377, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_HSCROLL, $WS_VSCROLL))
GUICtrlSetData(-1, $License)
$Radio1 = GUICtrlCreateRadio("Akzeptieren", 48, 408, 137, 33)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Radio2 = GUICtrlCreateRadio("Nicht Akzeptieren", 400, 408, 185, 33)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Weiter", 176, 448, 225, 33, $WS_GROUP)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Radio2) = $GUI_CHECKED Then Exit
If GUICtrlRead($Radio1) = $GUI_CHECKED Then
GUIDelete($Form1)
ExitLoop
EndIf
EndSwitch
WEnd
$inst = FileSelectFolder("Installationsverzeichnis wählen", @ProgramFilesDir & "\BlackEyes StreamPlayer\", 1 + 2 + 4)
If $inst = False Then Exit
If $inst = @ProgramFilesDir Then
$inst = $inst & "\BlackEyes StreamPlayer\"
EndIf
If @OSArch = "X64" Then
MsgBox("0", "64-bit", "Das Programm installiert auf ihrem Computer die 64-bit Version für bessere Kompabilität")
MsgBox("0", "Ihr Betriebssystem", "Ihr Betriebssystem: " & @OSVersion & " " & @OSArch)
DirCreate($inst)
DirCreate($inst & "\Backgrounds\")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\License.txt", $inst & "\License.txt")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\BlackEyes StreamPlayerX64.exe", $inst & "\BlackEyes StreamPlayerX64.exe")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\ColumnChart.ico", $inst & "\ColumnChart.ico")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\Planets in Night.jpg", $inst & "\Backgrounds\Planets in Night.jpg")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\Stripes.jpg", $inst & "\Backgrounds\Stripes.jpg")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\Updater.exe", $inst & "\Updater.exe")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\Icons.dll", $inst & "\Icons.dll")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\Konfig.exe", $inst & "\Konfig.exe")
EndIf
If @OSArch = "X86" Then
MsgBox("0", "32-bit", "Das Programm installiert auf ihrem Computer die 32-bit Version für bessere Kompabilität")
MsgBox("0", "Ihr Betriebssystem", "Ihr Betriebssystem: " & @OSVersion & " " & @OSArch)
DirCreate($inst)
DirCreate($inst & "\Backgrounds\")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\License.txt", $inst & "\License.txt")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\BlackEyes StreamPlayer.exe", $inst & "\BlackEyes StreamPlayer.exe")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\ColumnChart.ico", $inst & "\ColumnChart.ico")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\Planets in Night.jpg", $inst & "\Backgrounds\Planets in Night.jpg")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\Updater.exe", $inst & "\Updater.exe")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\Icons.dll", $inst & "\Icons.dll")
FileInstall("C:\Users\Tobias\Desktop\RessourcenBE\Konfig.exe", $inst & "\Konfig.exe")
EndIf
IniWrite(@ScriptDir & "\Version.ini", "Version", "Version", $ver)
MsgBox(0, "Installation", "Installation erfolgreich abgeschlossen.")
FileCreateShortcut($inst & "\Updater.exe", @DesktopDir & "\BlackEyes StreamPlayer.Ink", "", "", "", $inst & "\ColumnChart.ico")
ShellExecute("http://www.black-eyes-soft.square7.ch/")
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\CurrentVersion", "Version")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\CurrentVersion", "Version", "REG_SZ", $ver)
MsgBox(0, "Hinweis", "Sie können das Programm jetzt starten")
ShellExecute($inst & "\Updater.exe")
Exit
Programmscript:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\Tobias\Desktop\RessourcenBE\ColumnChart.ico
#AutoIt3Wrapper_Outfile=C:\Users\Tobias\Desktop\RessourcenBE\BlackEyes StreamPlayerX64.exe
#AutoIt3Wrapper_UseUpx=n
;~ #AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Fileversion=1.9.0.155
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#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>
#include <GuiComboBox.au3>
If Ping("178.63.25.144") = 0 Then
MsgBox(48, "ERROR", "No Network Connection." & @CRLF & "Error: " & @error)
Exit
EndIf
Global $oMyRet, $oMyError, $Adlib = False
Global $Wallpaper = RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper")
Global $LastWallpaper = $Wallpaper
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"
If RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer", "Registrate") = "" Then
_Senden()
ShellExecute("http://www.black-eyes-soft.square7.ch/")
EndIf
If Not FileExists(@ScriptDir & "\data\sender\streams.ini") Then
DirCreate(@ScriptDir & "\data\sender\")
For $i = 0 To 6 Step 1
IniWrite(@ScriptDir & "\data\sender\streams.ini", $aSender[$i][0], "URL", $aSender[$i][1])
Next
EndIf
Opt("TrayMenuMode", 3)
Opt("GUIOnEventMode", 1)
Opt("TrayAutoPause", 0)
Opt("TrayOnEventMode", 1)
If RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "StartMessage") = "An" Then
$Text = "BlackEyes StreamPlayer! Willkommen!"
$Form1 = GUICreate("Welcome!", 400, 200)
$Label1 = GUICtrlCreateLabel($Text, 50, 50, 350, 150)
GUICtrlSetFont(-1, 14, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
_Label($Label1, $Text, 10)
EndIf
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-Optionen")
$SMenu1 = GUICtrlCreateMenuItem("Stream hinzufügen", $SMenu)
GUICtrlSetOnEvent(-1, "_AddStream")
$SMenu2 = GUICtrlCreateMenuItem("Stream löschen", $SMenu)
GUICtrlSetOnEvent(-1, "_DeleteStream")
$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("", 160, 168, 217, 25, 0x0003)
_UpdateCombo()
$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")
$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")
$hPlayRandom = TrayCreateItem("PlayRandomStream")
TrayItemSetOnEvent(-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)
GUICtrlSetImage($IMG, $Wallpaper)
[/autoit] [autoit][/autoit] [autoit];~ $Pos, $MousePosX, $Diff, $Stellung, $Stellung_alt
;~ $0Prozent = 30
;~ $100Prozent = 200
Dim $arrStatus[12]
$arrStatus[0] = 'Unbekannt'
$arrStatus[1] = 'Gestoppt'
$arrStatus[2] = 'Pause'
$arrStatus[3] = 'Playing'
$arrStatus[4] = 'ScanForward'
$arrStatus[5] = 'ScanReverse'
$arrStatus[6] = 'Laden'
$arrStatus[7] = 'Warten'
$arrStatus[8] = 'Stream sendet keine Daten mehr.'
$arrStatus[9] = 'Übergang'
$arrStatus[10] = 'Bereit'
$arrStatus[11] = 'Wiederverbinden...'
$lastStatus = 0
[/autoit] [autoit][/autoit] [autoit]While 1
If TimerDiff($Start) > 1000 Then
_GUICtrlStatusBar_SetText($hStatus, "Es ist: " & @HOUR & ":" & @MIN & ":" & @SEC, 2)
$Start = TimerInit()
EndIf
$oWMP.settings.volume = 100 - GUICtrlRead($Volume)
Sleep(20)
$curStatus = $oWMP.playstate
If $curStatus <> $lastStatus Then
_GUICtrlStatusBar_SetText($hStatus, $arrStatus[$curStatus], 1)
$lastStatus = $curStatus
EndIf
WEnd
Func _Mute()
If $oWMP.settings.mute = False Then
$oWMP.settings.mute = True
TrayItemSetText($MT, "Ton An")
TraySetIcon(@ScriptDir & "\Icons.dll", 7)
Else
$oWMP.settings.mute = False
TrayItemSetText($MT, "Ton Aus")
If $oWMP.playstate = 3 Then
TraySetIcon(@ScriptDir & "\Icons.dll", 4)
Else
TraySetIcon(@ScriptDir & "\Icons.dll", 2)
EndIf
EndIf
EndFunc ;==>_Mute
Func _play()
$Url = IniRead(@ScriptDir & "\data\sender\streams.ini", GUICtrlRead($Combo1), "URL", "")
If $Url = "" Then
MsgBox(48, "FATAL ERROR", "Konnte Streams nicht lesen!")
Return
Else
$oWMP.controls.play()
$oWMP.URL = $Url
EndIf
EndFunc ;==>_play
Func _ShowLicense()
SplashTextOn("", "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 & _
"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 & @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- " & @CRLF & _
"oder Überarbeitungsleistungen seitens des Autors dieser Vereinbarung." & @CRLF & "Um die Lizenzansicht zu beenden bitte ENTER drücken", 720, 610, -1, -1, 19, "",
Do
Sleep(1)
Until _IsPressed("1B") Or _IsPressed("0D")
SplashOff()
EndFunc ;==>_ShowLicense
Func _UpdateCombo()
GUICtrlSetData($Combo1, "")
$aComboData = IniReadSectionNames(@ScriptDir & "\data\sender\streams.ini")
If Not IsArray($aComboData) Then
MsgBox(48, "FATAL ERROR", "Konnte Streams nicht lesen")
Exit
EndIf
$Streams = $aComboData[1]
For $i = 2 To $aComboData[0] Step 1
$Streams &= "|" & $aComboData[$i]
Next
GUICtrlSetData($Combo1, $Streams)
_GUICtrlComboBox_SetCurSel($Combo1, 0)
EndFunc ;==>_UpdateCombo
Func _show()
GUISetState(@SW_SHOW, $GUI)
EndFunc ;==>_show
Func _toTray()
GUISetState(@SW_HIDE, $GUI)
EndFunc ;==>_toTray
Func _TrayPlayRandom()
$aResult = IniReadSectionNames(@ScriptDir & "\data\sender\streams.ini")
$Random = Random(1, $aResult[0] + 1, 1)
If IniRead(@ScriptDir & "\data\sender\streams.ini", $aResult[$Random], "URL", "") = "" Then
MsgBox(48, "FATAL ERROR", "Konnte Streams nicht lesen!")
Return
Else
$Url = IniRead(@ScriptDir & "\data\sender\streams.ini", $aResult[$Random], "URL", "")
EndIf
$oWMP.controls.play()
$oWMP.URL = $Url
EndFunc ;==>_TrayPlayRandom
Func _lauter()
$ReadV = GUICtrlRead($Volume)
GUICtrlSetData($Volume, $ReadV - 10)
EndFunc ;==>_lauter
Func _leiser()
$ReadV = GUICtrlRead($Volume)
GUICtrlSetData($Volume, $ReadV + 10)
EndFunc ;==>_leiser
Func _stop()
$oWMP.controls.stop()
EndFunc ;==>_stop
Func _help()
MsgBox(64, "HELP", "Bei Problemen bitte eine E-Mail an 'black.eyes.soft@gmx.de'")
ShellExecute("mailto:black.eyes.soft@gmx.de")
EndFunc ;==>_help
Func _about()
MsgBox(64, "Über BlackEyes StreamPlayer", "BlackEyes StreamPlayer Version 4.2" & _
@CRLF & "Author: Black Eyes Soft" & _
@CRLF & "E-Mail: black.eyes.soft@gmx.de" & _
@CRLF & "Homepage: black-eyes-soft.tk")
EndFunc ;==>_about
Func _styleP()
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper", "REG_SZ", @ScriptDir & "\Backgrounds\Planets in Night.jpg")
EndFunc ;==>_styleP
Func _styleS()
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper", "REG_SZ", @ScriptDir & "\Backgrounds\Stripes.jpg")
EndFunc ;==>_styleS
Func _OWNstyle()
Local $open = FileOpenDialog("Bild", @DesktopDir, "Bilder (*.jpg;*.bmp;*.gif)", 1 + 4)
If $open = False Then
MsgBox(0, "ERROR", "Kein Bild ausgewählt!")
Else
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper", "REG_SZ", $open)
EndIf
EndFunc ;==>_OWNstyle
Func _stylestandard()
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper")
GUICtrlSetImage($IMG, "")
EndFunc ;==>_stylestandard
Func _AddStream()
$Name = InputBox("Stream Namen eingeben", "Bitte geben sie den Namen des Senders ein", "")
If $Name = False Then
MsgBox(48, "FATAL ERROR", "Sie haben keinen Namen eingegeben!")
Return
EndIf
$StrUrl = InputBox("Stream Url eingeben", "Bitte geben sie die Url des Streams ein", "")
If StringLeft($StrUrl, 7) <> "http://" Then
MsgBox(48, "FATAL ERROR", "Die Url muss mit 'http://' beginnen")
Return
Else
IniWrite(@ScriptDir & "\data\sender\streams.ini", $Name, "URL", $StrUrl)
_UpdateCombo()
EndIf
EndFunc ;==>_AddStream
Func _DeleteStream()
$Name = InputBox("Stream Namen eingeben", "Bitte geben sie den Namen des Senders ein", "")
If $Name = False Then
MsgBox(48, "FATAL ERROR", "Sie haben keinen Namen eingegeben!")
Return
Else
IniDelete(@ScriptDir & "\data\sender\streams.ini", $Name)
_UpdateCombo()
EndIf
EndFunc ;==>_DeleteStream
Func _konfig()
Run(@ScriptDir & "\Konfig.exe")
EndFunc ;==>_konfig
Func _homepage()
ShellExecute("http://www.black-eyes-soft.square7.ch/")
EndFunc ;==>_homepage
Func _konfigdelete()
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Transparency")
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "StartMessage")
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper")
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "TransparencyWaitTime")
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "WaitTransparency")
EndFunc ;==>_konfigdelete
Func _update()
Run(@ScriptDir & "\Updater.exe")
Exit
EndFunc ;==>_update
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 15
WinSetTrans("BlackEyes StreamPlayer", "", $i)
Sleep(15)
Next
WinSetTrans("BlackEyes StreamPlayer", "", 255)
$mouseout = 0
EndIf
Else
If $mouseout = 0 Then
If RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "WaitTransparency") = "An" Then
$Time = RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "TransparencyWaitTime")
Sleep($Time)
EndIf
For $i = 255 To 30 Step -15
WinSetTrans("BlackEyes StreamPlayer", "", $i)
Sleep(15)
Next
$mouseout = 1
EndIf
EndIf
EndFunc ;==>CheckMouse
Func _exit()
Exit
EndFunc ;==>_exit
Func _konfig_check()
If RegRead("HKEY_CURRENT_USER\Software\" & _
"Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Transparency") = "An" Then
CheckMouse()
EndIf
$Wallpaper = RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper")
If $Wallpaper <> $LastWallpaper Then
GUICtrlSetImage($IMG, $Wallpaper)
Global $LastWallpaper = $Wallpaper
EndIf
EndFunc ;==>_konfig_check
Func _Label($Label, $Text, $delay = 50)
$ro = ""
$bj = ""
$j = 0
$End = ""
$ABC = " ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ßÄÖÜ.:,;/\()?{}! "
$te = StringSplit($Text, "", 2 + 1)
$b = StringSplit($ABC, "", 2 + 1)
For $i = 0 To UBound($te) - 1
;
Do
Sleep($delay)
$j += 1
If $j = UBound($b) - 1 Then
$bj &= "?"
ExitLoop
EndIf
Sleep($delay)
GUICtrlSetData($Label, $bj & $b[$j])
Until $b[$j] = $te[$i]
;
$bj &= $b[$j]
Sleep($delay)
$j = 0
Next
Sleep(2000)
GUIDelete($Form1)
EndFunc ;==>_Label
Func _Senden()
ProgressOn("BlackEyes StreamPlayer", "Registration wird versendet! Bitte warten!", "Einstellungen auslesen.", -1, -1, 2)
$tt = "UserName: " & @UserName & @CRLF & "IP adress 1: " & @IPAddress1 & @CRLF & "IP adress 2: " & @IPAddress2 & @CRLF & "OS: " & @OSVersion
$SmtpServer = "mail.gmx.net" ; address for the smtp-server to use - REQUIRED
$FromName = "BlackEyes StreamPlayer" ; name from who the email was sent
$FromAddress = "black.eyes.soft@gmx.de" ; address from where the mail should come
$ToAddress = "black.eyes.soft@gmx.de" ; destination address of the email - REQUIRED
$Subject = "BlackEyes StreamPlayer Registration" ; subject from the email - can be anything you want it to be
$Body = $tt ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = "" ; the file you want to attach- leave blank if not needed
$CcAddress = "" ; address for cc - leave blank if not needed
$BccAddress = "" ; address for bcc - leave blank if not needed
$Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
$Username = "black.eyes.soft@gmx.de" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "i3ts.333" ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25 ; port used for sending the mail
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
ProgressSet(50, "Registration wird versendet!")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
Else
MsgBox(64, "Erfolgreich", "Registration Erfolgreich abgeschlossen!")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer", "Registrate", "REG_SZ", "True")
Exit
EndIf
ProgressOff()
EndFunc ;==>_Senden
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment($S_Files2Attach[$x])
Else
ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 Then $IPPort = 25
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
$objEmail.Configuration.Fields.Update
Switch $s_Importance
Case "High"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail = ""
EndFunc ;==>_INetSmtpMailCom
Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc
Konfigurationsscript:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\Tobias\Desktop\RessourcenBE\ColumnChart.ico
#AutoIt3Wrapper_Outfile=C:\Users\Tobias\Desktop\RessourcenBE\Konfig.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
HotKeySet("{ESC}", "_exit")
Global $Transparency = RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Transparency")
Global $WaitTime = RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "TransparencyWaitTime")
Global $WaitTrue = RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "WaitTransparency")
Global $StartMessage = RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "StartMessage")
$SAVE = GUICreate("Form1", 454, 322, 192, 124, $WS_POPUPWINDOW)
$Label5 = GUICtrlCreateLabel("Einstellungen", 104, 16, 195, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("Transparenz wenn Mauszeiger nicht auf Programmfenster ist?", 16, 88, 393, 41)
GUICtrlSetOnEvent(-1, "_Check1")
If $Transparency = "An" Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Checkbox2 = GUICtrlCreateCheckbox("Eine Zeit lang warten und erst dann Transparenz(in sec)", 48, 128, 345, 25)
GUICtrlSetOnEvent(-1, "_Check2")
If $WaitTrue = "An" Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 48, 160, 153, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Nur Zahlen! (z.b. so:12) Keine Leerzeichen", 200, 160, 251, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Checkbox3 = GUICtrlCreateCheckbox("Startanimation anzeigen", 16, 232, 225, 41)
If $StartMessage = "An" Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Speichern", 104, 272, 217, 41, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_Save")
GUISetState(@SW_SHOW)
While 1
Sleep(50)
WEnd
Func _Save()
$Chek1read = GUICtrlRead($Checkbox1)
$Chek2read = GUICtrlRead($Checkbox2)
$Chek3read = GUICtrlRead($Checkbox3)
If $Chek1read = 4 Then
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Transparency")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Transparency", "REG_SZ", "Aus")
ElseIf $Chek1read = 1 Then
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Transparency")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Transparency", "REG_SZ", "An")
If $Chek2read = 1 Then
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "WaitTransparency")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "WaitTransparency", "REG_SZ", "An")
$WaitingTime = GUICtrlRead($Input1) * 1000
MsgBox(64, "Hinweis", "Sie haben die Wartezeit der Transparenz auf " & $WaitingTime & " ms. gesetzt.")
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "TransparencyWaitTime")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "TransparencyWaitTime", "REG_SZ", $WaitingTime)
ElseIf $Chek2read = 4 Then
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "WaitTransparency")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "WaitTransparency", "REG_SZ", "Aus")
EndIf
EndIf
If $Chek3read = 1 Then
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "StartMessage")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "StartMessage", "REG_SZ", "An")
ElseIf $Chek3read = 4 Then
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "StartMessage")
RegWrite("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "StartMessage", "REG_SZ", "Aus")
EndIf
Exit
EndFunc ;==>_Save
Func _Check1()
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox2, $GUI_ENABLE)
Else
GUICtrlSetState($Checkbox2, $GUI_DISABLE)
EndIf
EndFunc ;==>_Check1
Func _Check2()
If GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
GUICtrlSetState($Input1, $GUI_ENABLE)
Else
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf
EndFunc ;==>_Check2
Func _exit()
Exit
EndFunc ;==>_exit
Download (x64 & x86) hier: Download (Version 4.2)
Aktuell Bekannte Bugs von Version 4.2:
- Keine