StreamPlayer

Molaynox

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

[autoit]

#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>

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

If Ping("178.63.25.144") = 0 Then
MsgBox(48, "ERROR", "No Network Connection." & @CRLF & "Error: " & @error)
Exit
EndIf

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

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

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

Func Speak($Text, $Rate, $Vol)
$voice.Rate = $Rate
$voice.Volume = $Vol
$voice.Speak($Text)
EndFunc

[/autoit]

Install script:

Spoiler anzeigen

[autoit]

#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>

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

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

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

#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 ###

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

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

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

$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

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

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

[/autoit]

Programmscript:

Spoiler anzeigen

[autoit]

#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>

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

If Ping("178.63.25.144") = 0 Then
MsgBox(48, "ERROR", "No Network Connection." & @CRLF & "Error: " & @error)
Exit
EndIf

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

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"

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

If RegRead("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer", "Registrate") = "" Then
_Senden()
ShellExecute("http://www.black-eyes-soft.square7.ch/")
EndIf

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

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

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

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

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

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

[/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-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)

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

GUICtrlSetImage($IMG, $Wallpaper)

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

;~ $Pos, $MousePosX, $Diff, $Stellung, $Stellung_alt
;~ $0Prozent = 30
;~ $100Prozent = 200

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

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...'

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

$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

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

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

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

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

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

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

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

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

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

Func _show()
GUISetState(@SW_SHOW, $GUI)
EndFunc ;==>_show

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

Func _toTray()
GUISetState(@SW_HIDE, $GUI)
EndFunc ;==>_toTray

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

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

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

Func _lauter()
$ReadV = GUICtrlRead($Volume)
GUICtrlSetData($Volume, $ReadV - 10)
EndFunc ;==>_lauter
Func _leiser()
$ReadV = GUICtrlRead($Volume)
GUICtrlSetData($Volume, $ReadV + 10)
EndFunc ;==>_leiser

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

Func _stop()
$oWMP.controls.stop()
EndFunc ;==>_stop

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

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

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

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

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

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

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

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

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

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

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

Func _stylestandard()
RegDelete("HKEY_CURRENT_USER\Software\Black-Eyes-Soft\BlackEyes-StreamPlayer\Konfig", "Wallpaper")
GUICtrlSetImage($IMG, "")
EndFunc ;==>_stylestandard

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

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

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

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

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

Func _konfig()
Run(@ScriptDir & "\Konfig.exe")
EndFunc ;==>_konfig

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

Func _homepage()
ShellExecute("http://www.black-eyes-soft.square7.ch/")
EndFunc ;==>_homepage

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

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

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

Func _update()
Run(@ScriptDir & "\Updater.exe")
Exit
EndFunc ;==>_update

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

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

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

Func _exit()
Exit
EndFunc ;==>_exit

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

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

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

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

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

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

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

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

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

$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

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

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

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

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

[/autoit]

Konfigurationsscript:

Spoiler anzeigen

[autoit]

#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>

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

Opt("GUIOnEventMode", 1)
HotKeySet("{ESC}", "_exit")

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

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")

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

$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)

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

While 1
Sleep(50)
WEnd

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

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

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

Func _Check1()
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox2, $GUI_ENABLE)
Else
GUICtrlSetState($Checkbox2, $GUI_DISABLE)
EndIf
EndFunc ;==>_Check1

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

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

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

Func _exit()
Exit
EndFunc ;==>_exit

[/autoit]

Download (x64 & x86) hier: Download (Version 4.2)

Aktuell Bekannte Bugs von Version 4.2:
- Keine

Kleiner

Hi!

Ansich nicht schlecht, hir gibt es schon sehr viele darum ( nicht schlecht )
Was ich nicht gut finde ist das beim Install die datenin dem Ordner geschmissen werden den man wählt nur sollten die daten in ein EIGENEN Ordner mit den Bildern zusammen, Fehler abfragen ( wenn kein Bild vom User ausgewählt wurde, solte sich die Einstellung nicht auf standart stellen) und wenn mann die einstellungen löschen will Beendet sich das Skript bei mir!

LG Kleiner

Molaynox

Zitat

beim Install die datenin dem Ordner geschmissen werden den man wählt nur sollten die daten in ein EIGENEN Ordner mit den Bildern zusammen,

Wie meinst du das???? Kannste das noch mal anders erklären???

Zitat

Fehler abfragen ( wenn kein Bild vom User ausgewählt wurde, solte sich die Einstellung nicht auf standart stellen)

Erledigt.

Zitat

wenn mann die einstellungen löschen will Beendet sich das Skript bei mir!

Bei mir komischerweise nicht

**chip**

Das Script beendet sich bei mir auch wenn ich auf "Konfiguration löschen" klicke. Und zwar weil du im entsprechenden Case-Zweig ein Exit drin hast:

[autoit]

Case $KonifgDel
FileDelete(@ScriptDir & "\Konfig.ini")
Run($BlackEyes)
Exit

[/autoit]

Des weitern sind folgenden include nicht nötig:

[autoit]

#include <StructureConstants.au3>
#include <StaticConstants.au3>
#include <GuiStatusBar.au3>
#include <File.au3>
#include <inet.au3>

[/autoit]

Es erfolgt auch keine Prüfung ob überhaupt eine Internetverbindung besteht.

Kleiner

Hi!

Beispiel habe die daten im Ordner(Programme Installieren lassen) da wird ein Ordner mit den Bildern angelegt und die Programmdatein liegen in Programme!
Alle in einen Beispiel StreamPlayer .
Ein Deinstall wehre nicht schlecht, gut wenn du das änderst mit dem einen Ordner ist es nicht schwer den zu löschen aber für andere User.
Meine meinung zum Install ich will keine Unnötigen Datein auf mein Rechner die irgendwo kreuz und Quer RUMLIGEN!

Lg Kleiner

PrideRage

Hallo.
Bei deinem Link zum Download ist ein Fehler, das letzte Zeichen im Link ( ' ) musst du entfernen, da der Link ansonsten
ungültig ist.
Zu deinem Skript: Es ist wirklich nett, könnte im Design aber ein bisschen improvisiert werden.
Wenn man mit der Maus z.B. aus dem GUI fährt, wird es sofort transparent, ein kleiner Timer wäre da nett.
MfG. PrideRage

Molaynox

Zitat

Wenn man mit der Maus z.B. aus dem GUI fährt, wird es sofort transparent, ein kleiner Timer wäre da nett.

Ab jetzt 2 sek wartezeit

Zitat

Beispiel habe die daten im Ordner(Programme Installieren lassen) da wird ein Ordner mit den Bildern angelegt und die Programmdatein liegen in Programme!
Alle in einen Beispiel StreamPlayer .
Ein Deinstall wehre nicht schlecht, gut wenn du das änderst mit dem einen Ordner ist es nicht schwer den zu löschen aber für andere User.

Alles Erledigt. Wenn man in @ProgramFilesDir installiert wird automatisch der Ordner BlackEyes StreamPlayer erstellt. (Uninstall noch in Arbeit)

Zitat

Bei deinem Link zum Download ist ein Fehler, das letzte Zeichen im Link ( ' ) musst du entfernen, da der Link ansonsten
ungültig ist.

Auch erledigt

Zitat

Das Script beendet sich bei mir auch wenn ich auf "Konfiguration löschen" klicke. Und zwar weil du im entsprechenden Case-Zweig ein Exit drin hast:
[autoit]
Case $KonifgDel
FileDelete(@ScriptDir & "\Konfig.ini")
Run($BlackEyes)
Exit
[/autoit]

Das soll das Script eigentlich neustarten. Bei mir gehts. Habt ihr fürs neu starten ne lösung???

Zitat

Es erfolgt auch keine Prüfung ob überhaupt eine Internetverbindung besteht.

Unnötige Includes gelöscht und Prüfung hinzugefügt

Ineluki

So kannst du dein Script restarten:

[autoit]

Run(@ComSpec&' /c ping 127.0.0.1 -n 2 & "'&@ScriptFullPath&'"', "", @SW_HIDE)

[/autoit]

Molaynox

***UPDATE***
NEUE GRAFIK
TRAY MENU STEUERUNG

**alpines**

Leider laggt der bei mir.
Kein dauerhafter Musikgenuss.

EDIT

Ups :pinch:
Habe nicht die Installation benutzt.

EDIT2

Änderte trotzdem nichts.
Ich versuchs lieber nicht weiter.
Ansonsten nicht schlecht

EDIT3

MAMAMIA !!
Super
Nachdem ich den Setup auf deiner Homepage probierte läufts perfekt
Gratulation

Molaynox

Ja ich hab den thread nicht mehr geupdatet. die version auf meiner home ist schon viel weiter entwickelt.

Molaynox

So jetzt habe ich endlich mal wieder wie versprochen den quellcode und download erneuert.