Der-Eddy/File Info.au3

## File Info.au3
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/striponlyincludes
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Crypt.au3>

Global Const $GUI_EVENT_CLOSE = -3
Global Const $ES_READONLY = 2048

If NOT @Compiled Or $CmdLine[1] = "" Then
	$file = FileOpenDialog("File Info", @DesktopDir & "\", "Alle (*.*)", 1)
Else
	$file = $CmdLine[1]
EndIf

Global $szDrive, $szDir, $szFName, $szExt

$iFile = FileOpen($file, 16)
$filename = _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
$date = FileGetTime($file, 1)
$date2 = FileGetTime($file, 0)
$md5 = _Crypt_HashFile($file, $CALG_MD5)
$md5 = StringReplace($md5, "0x", "")
$sha1 = _Crypt_HashFile($file, $CALG_SHA1)
$sha1 = StringReplace($sha1, "0x", "")
$size = Round((FileGetSize($file) / 1024))  & " Kilobyte"
$size2 = Round((FileGetSize($file) / 1048576), 2) & " Megabyte"
$bin = StringToBinary(FileRead($iFile,FileGetSize($file)))
FileClose($File)

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("[File Info]" & $filename[3] & $filename[4] & " - " & StringLower($md5), 449, 169, 349, 130)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Label1 = GUICtrlCreateLabel("Dateiname:", 8, 16, 58, 17)
$Input1 = GUICtrlCreateInput($filename[3] & $filename[4], 104, 13, 329, 21, $ES_READONLY)
$Label2 = GUICtrlCreateLabel("Erstellt am:", 8, 40, 55, 17)
$Input2 = GUICtrlCreateInput($date[3] & ":" & $date[4] & ":" & $date[5] & "  " & $date[2] & "." & $date[1] & "." & $date[0], 104, 37, 329, 21, $ES_READONLY)
$Label2 = GUICtrlCreateLabel("Verändert am:", 8, 64, 55, 17)
$Input2 = GUICtrlCreateInput($date2[3] & ":" & $date2[4] & ":" & $date2[5] & "  " & $date2[2] & "." & $date2[1] & "." & $date2[0], 104, 61, 329, 21, $ES_READONLY)
$Label2 = GUICtrlCreateLabel("Größe:", 8, 88, 55, 17)
$Input2 = GUICtrlCreateInput($size & " | " & $size2, 104, 85, 329, 21, $ES_READONLY)
$Label2 = GUICtrlCreateLabel("md5 hash:", 8, 112, 55, 17)
$Input2 = GUICtrlCreateInput(StringLower($md5), 104, 109, 329, 21, $ES_READONLY)
$Label2 = GUICtrlCreateLabel("sha1 hash:", 8, 136, 55, 17)
$Input2 = GUICtrlCreateInput(StringLower($sha1), 104, 133, 329, 21, $ES_READONLY)
GUISetState(@SW_SHOW)

While 1
	Sleep(100)
WEnd

Func _PathSplit($szPath, ByRef $szDrive, ByRef $szDir, ByRef $szFName, ByRef $szExt)
	; Set local strings to null (We use local strings in case one of the arguments is the same variable)
	Local $drive = ""
	Local $dir = ""
	Local $fname = ""
	Local $ext = ""
	Local $pos

	; Create an array which will be filled and returned later
	Local $array[5]
	$array[0] = $szPath; $szPath can get destroyed, so it needs set now

	; Get drive letter if present (Can be a UNC server)
	If StringMid($szPath, 2, 1) = ":" Then
		$drive = StringLeft($szPath, 2)
		$szPath = StringTrimLeft($szPath, 2)
	ElseIf StringLeft($szPath, 2) = "\\" Then
		$szPath = StringTrimLeft($szPath, 2) ; Trim the \\
		$pos = StringInStr($szPath, "\")
		If $pos = 0 Then $pos = StringInStr($szPath, "/")
		If $pos = 0 Then
			$drive = "\\" & $szPath; Prepend the \\ we stripped earlier
			$szPath = ""; Set to null because the whole path was just the UNC server name
		Else
			$drive = "\\" & StringLeft($szPath, $pos - 1) ; Prepend the \\ we stripped earlier
			$szPath = StringTrimLeft($szPath, $pos - 1)
		EndIf
	EndIf

	; Set the directory and file name if present
	Local $nPosForward = StringInStr($szPath, "/", 0, -1)
	Local $nPosBackward = StringInStr($szPath, "\", 0, -1)
	If $nPosForward >= $nPosBackward Then
		$pos = $nPosForward
	Else
		$pos = $nPosBackward
	EndIf
	$dir = StringLeft($szPath, $pos)
	$fname = StringRight($szPath, StringLen($szPath) - $pos)

	; If $szDir wasn't set, then the whole path must just be a file, so set the filename
	If StringLen($dir) = 0 Then $fname = $szPath

	$pos = StringInStr($fname, ".", 0, -1)
	If $pos Then
		$ext = StringRight($fname, StringLen($fname) - ($pos - 1))
		$fname = StringLeft($fname, $pos - 1)
	EndIf

	; Set the strings and array to what we found
	$szDrive = $drive
	$szDir = $dir
	$szFName = $fname
	$szExt = $ext
	$array[1] = $drive
	$array[2] = $dir
	$array[3] = $fname
	$array[4] = $ext
	Return $array
EndFunc   ;==>_PathSplit

Func _Exit()
	Exit
EndFunc

## Files.au3
#Include <File.au3>
#Include <Array.au3>
#Include <GDIPlus.au3>
#include <WinAPI.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>

Opt("GUIOnEventMode", 1)

Global $path, $i, $file, $count, $count2

_GDIPlus_Startup()
$scriptpath = @ScriptDir & "\output\"
$count = 1
$wait = 0
$s = 0

$Form1 = GUICreate("iMac Wallpaper sucher", 488, 110)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Input1 = GUICtrlCreateInput("C:\Users\Eduard\Pictures\", 16, 16, 281, 21)
$Button1 = GUICtrlCreateButton("Durchsuchen ...", 304, 14, 89, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Durchsuchen")
$Button2 = GUICtrlCreateButton("Überprüfen!", 400, 14, 73, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "image")
GUICtrlCreateLabel("Nach Auflösung suchen:", 16, 50)
$Input2 = GUICtrlCreateInput("2560", 26, 70, 35)
GUICtrlCreateLabel("x", 70, 72)
$Input3 = GUICtrlCreateInput("1440", 86, 70, 35)
$Label1 = GUICtrlCreateLabel("Warte auf Überprüfung ...", 180, 72, 200, 30, $SS_CENTER)
GUISetState(@SW_SHOW)

While 1
	Sleep (100)
WEnd

Func Durchsuchen()
	$path = FileSelectFolder("Wählen sie einen Ordner aus", @UserProfileDir, 4, @UserProfileDir & "\Pictures")
	If $path = "" Then
		Sleep (1)
	Else
	GUICtrlSetData($Input1, $path & "\")
	EndIf
EndFunc

Func image()
$path = GUICtrlRead($Input1)

$file1=_FileListToArray($path, "*", 2)

$count3 = 1
Do

$file = _FileListToArray($path & $file1[$count3] & "\")
_ArrayDisplay($file)
$count2 = 0

DirCreate($scriptpath)

Do
	 GUICtrlSetData ($Label1, "Überprüfe " & $file[$count])
	 $image = _GDIPlus_ImageLoadFromFile($path & $file[$count])
	 $hoehe = _GDIPlus_ImageGetHeight($image)
	 $breite = _GDIPlus_ImageGetWidth($image)
	 $hoehesuchen = GUICtrlRead($Input3) - 1
	 $breitesuchen = GUICtrlRead($Input2) - 1
	 If $hoehesuchen < $hoehe And $breitesuchen < $breite  Then
		 GUICtrlSetData ($Label1, "Kopiere " & $file[$count])
		 FileCopy($path & $file[$count], $scriptpath)
		 $count2 = $count2 + 1
	 EndIf
	 $count = $count + 1
 Until $count = $file[0]
 $count3 = $count3 + 1
 Until $count3 = $file1[0]

GUICtrlSetData ($Label1, $file[0] & " Bilder überprüft!")
MsgBox(64, "iMac Wallpaper Sucher", "Es wurden " & $count2 & " Bilder gefunden und nach " & $scriptpath & " kopiert!", 10)
Sleep (1000)
GUICtrlSetData ($Label1, "Warte auf Überprüfung ...")
EndFunc

Func _Exit()
	Exit
EndFunc

## Minecraft Account Checker.au3
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=UserCP_Checker\epvp.ico
#AutoIt3Wrapper_Res_Description=by Der-Eddy
#AutoIt3Wrapper_Res_LegalCopyright=by Der-Eddy
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/striponlyincludes /om
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;~ #include <Array.au3>

Global $Form1, $Edit1, $Edit2, $Edit3, $Label1, $Label2, $Button1, $i, $acc
Global $c1 = 0, $c2 = 0

Opt("GUIOnEventMode", 1)
Opt("MustDeclareVars", 1)

$Form1 = GUICreate("Minecraft Account Checker", 634, 695)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Edit1 = GUICtrlCreateEdit("-Minecraft Namen, einen pro Zeile-", 8, 16, 321, 609)
$Edit2 = GUICtrlCreateEdit("", 352, 16, 265, 361)
GUICtrlSetData(-1, "")
$Edit3 = GUICtrlCreateEdit("", 352, 416, 265, 209)
$Button1 = GUICtrlCreateButton("Check", 8, 640, 321, 41)
GUICtrlSetOnEvent(-1, "Check")
$Label1 = GUICtrlCreateLabel("Accounts mit Premium:", 352, 392, 268, 17, $SS_CENTER)
$Label2 = GUICtrlCreateLabel("Accounts ohne Premium:", 352, 648, 268, 17, $SS_CENTER)
GUISetState(@SW_SHOW)


While 1
	Sleep (100)
WEnd

Func Check()
	$acc = GUICtrlRead($Edit1)
	If $acc = "-Minecraft Namen, einen pro Zeile-" Then
		MsgBox(48, "Fehler", "Es wurde kein Account angegeben!")
		Return 0
	EndIf
	$acc = StringSplit($acc, @CRLF, 1)
;~ 	_ArrayDisplay($acc)
	For $i = 1 To $acc[0]
		If BinaryToString(InetRead("https://minecraft.net/haspaid.jsp?user=" & $acc[$i], 1)) = "True" Then
			If GUICtrlRead($Edit2) = "" Then
				GUICtrlSetData($Edit2, $acc[$i])
			Else
				GUICtrlSetData($Edit2, GUICtrlRead($Edit2) & @CRLF & $acc[$i])
			EndIf
			$c1 += 1
			GUICtrlSetData($Label1, "Accounts mit Premium: " & $c1)
		Else
			If GUICtrlRead($Edit3) = "" Then
				GUICtrlSetData($Edit3, $acc[$i])
			Else
				GUICtrlSetData($Edit3, GUICtrlRead($Edit3) & @CRLF & $acc[$i])
			EndIf
			$c2 += 1
			GUICtrlSetData($Label2, "Accounts ohne Premium: " & $c2)
		EndIf
	Next
EndFunc

Func _Exit()
	Exit 1
EndFunc

## Skype Status.au3
#Include <Misc.au3>

Global $dll32 = DllOpen("user32.dll")
AdlibRegister("_hotkey", 250)

Global $aStatus

$oSkype = ObjCreate('Skype4COM.Skype')
$oSkypeEvent = ObjEvent($oSkype,'Skype_')
$oError = ObjEvent('AutoIt.Error','MyErrFunc')
If Not $oSkype.Client.IsRunning Then
$oSkype.Client.Start()
EndIf
While 1
	Sleep(250)
	If $oSkype.CurrentUserStatus = $oSkype.Convert.TextToUserStatus('ONLINE') Then
		ExitLoop
	Else
		$oSkype.ChangeUserStatus($oSkype.Convert.TextToUserStatus('ONLINE'))
	EndIf
WEnd
$oSkype.Attach()
;~ $oSkype.ChangeUserStatus($oSkype.Convert.TextToUserStatus('BUSY'))
While 1
	$status = "Aktives Fenster: " & WinGetTitle("[ACTIVE]")
	If $status = "Aktives Fenster: VLC Media Player" Then
		$status = "Anime schauen"
		$oSkype.ChangeUserStatus($oSkype.Convert.TextToUserStatus('BUSY'))
	EndIf
	If $status <> "Aktives Fenster: " Then $oSkype.SendCommand($oSkype.Command(0, 'SET PROFILE RICH_MOOD_TEXT ' & $status))
	Sleep (1000)
WEnd

Func Skype_AttachmentStatus($aStatus)
	TrayTip("Active Status", 'Attachment status ' & $oSkype.Convert.AttachmentStatusToText($aStatus), 5, 1)
	If $aStatus = $oSkype.Convert.TextToAttachmentStatus('AVAILABLE') Then
	$oSkype.Attach()
EndIf
EndFunc

Func MyErrFunc()
	ConsoleWrite('Skype4COM Error !' & @CRLF)
EndFunc

Func _hotkey()
	If _IsPressed("1B", $dll32) Then Exit
	Sleep (100)
EndFunc

## Webradio.au3
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Const $file = @AppDataDir & "\Radio.ini"

If NOT FileExists($file) Then
	IniWrite($file, "Radio", "Eins Live", "http://www.wdr.de/wdrlive/media/einslive.asx")
	IniWrite($file, "Radio", "Radio FFN", "http://player.ffn.de/tunein_ffn.asx")
	IniWrite($file, "Radio", "WDR", "http://www.wdr.de/wdrlive/media/wdr2.asx")
	IniWrite($file, "Radio", "NDR", "http://ndr-ndr1niedersachsen-hi-wma.wm.llnwd.net/ndr_ndr1niedersachsen_hi_wma")
	IniWrite($file, "Radio", "Technobase", "http://listen.technobase.fm/dsl.asx")
EndIf

;Erstellt ein Windows Media Player Objekt (http://msdn.microsoft.com/en-us/library/bb249680(VS.85).aspx)
$oWMP = ObjCreate ( "WMPLayer.ocx" )
;Default URL:
$oWMP.URL = $url1Live ;Stellt die Eigenschaft "URL" zu dem Online-Stream
$oWMP.controls.stop()

;Array f?r die einzelnen Zustande (Info)
Dim $arrStatus[12]
$arrStatus[0] = 'Unbekannt'
$arrStatus[1] = 'Gestoppt'
$arrStatus[2] = 'Pause'
$arrStatus[3] = 'Playing'
$arrStatus[4] = 'ScanForward'
$arrStatus[5] = 'ScanReverse'
$arrStatus[6] = 'Buffering'
$arrStatus[7] = 'Warten'
$arrStatus[8] = 'MediaEnded'
$arrStatus[9] = 'Transitioning'
$arrStatus[10] = 'Bereit'
$arrStatus[11] = 'Wiederverbinden...'

; Variable f?r das Anzeigen der Info, damit ein blinken vermieden wird.
$lastStatus = 0
$list = IniReadSection($file, "Radio")

$frmMain = GUICreate("Radio by Patrick_SkiLL V0.1", 304, 140, 192, 224)
$comSender = GUICtrlCreateCombo("", 72, 8, 225, 25)
For $i = 1 To $list[0][0]
	GUICtrlSetData(-1, $list[$i][0], "Eins Live")
;~ 	GUICtrlSetData(-1, "Eins Live|Radio FFN|WDR|NDR", "Eins Live")
Next
$lblSender = GUICtrlCreateLabel("Senderliste:", 8, 8, 59, 17)
$cmdPlay = GUICtrlCreateButton("Abspielen", 72, 40, 73, 33, $WS_GROUP)
$cmdStop = GUICtrlCreateButton("Stop", 160, 40, 73, 33, $WS_GROUP)
$lblInfo = GUICtrlCreateLabel("Info...",72,80,200)
$lblPlayTime = GUICtrlCreateLabel("00:00:00",260,120)

; Das ist der Slider f?r die Lautstdrke
$slVolume = GUICtrlCreateSlider(49, 100, 200, 25)
GUICtrlSetData(-1,$oWMP.settings.volume()) ; Hier wird der Startwert gelesen, bei mir 50

GUISetState(@SW_SHOW)

; Varible zeit wir auf 0 gesetzt
$zeit = 0

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		; Hier wird die Lautstdrke gesetzt
		Case $slVolume
			$oWMP.settings.volume = GUICtrlRead($slVolume)
		Case $cmdStop
			$oWMP.controls.stop()
		Case $cmdPlay
			For $i = 1 To $list[0][0]
				If GUICtrlRead($comSender) = $list[$i][0] Then $oWMP.URL = $list[$i][1]
			Next
			$oWMP.controls.play()
			$zeit = TimerInit()
	EndSwitch
	$curStatus = $oWMP.playstate
	If $curStatus <> $lastStatus Then
		GUICtrlSetData($lblInfo, $arrStatus[$curStatus])
		$lastStatus = $curStatus
	EndIf

	; ist der Status auf gestoppt (1) oder unbekannt (0)
	; wir die Zeitanzeige wieder auf 0 gesetzt und die
	; Variable zeit auf 0
	If $curStatus = 1 or $curStatus = 0 Then
		$zeit = 0
		GUICtrlSetData($lblPlayTime,'00:00:00')
	; Wird der Stream abgespielt und ist die Variable
	; zeit auf 0, dann setze zeit auf die Init Zeit
	ElseIf $curStatus = 3 And $zeit = 0 Then
		$zeit = TimerInit()
	EndIf

	; ist zeit grf?er 0 berechne die Zeit
	; und gib sie aus
	If $zeit > 0 Then
		; wandele die Millisekunden in Sekunden um
		$diff = round(round(TimerDiff($zeit),0) / 1000,0)
		; Berechne Stunden, Minuten und Sekunken und gib sie mit
		; f?hrenden Nullen aus.
		GUICtrlSetData($lblPlayTime,StringFormat("%02d:%02d:%02d",((($diff-mod($diff,60))/60)-mod(($diff-mod($diff,60))/60,60))/60,mod(($diff-mod($diff,60))/60,60),mod($diff,60)))
	EndIf
WEnd
exit

$oWMP.URL = "http://www.wdr.de/wdrlive/media/einslive.asx" ;Stellt die Eigenschaft "URL" zu dem Online-Stream
;von hr3.de ein, sollte automatisch starten

$oWMP.controls.play() ;explizit starten

While $oWMP.playstate > 2 ;solang der Windows Media Player den Stream lddt, buffert, abspielt usw.
	Sleep ( 100 ) ;schlafen, damit AutoIt sich nicht beendet und die Musik aufhfrt
WEnd
	#Region ;** Directives created by AutoIt3Wrapper_GUI **
	#AutoIt3Wrapper_Run_Obfuscator=y
	#Obfuscator_Parameters=/striponlyincludes
	#EndRegion ;** Directives created by AutoIt3Wrapper_GUI **
	#include <Crypt.au3>

	Global Const $GUI_EVENT_CLOSE = -3
	Global Const $ES_READONLY = 2048

	If NOT @Compiled Or $CmdLine[1] = "" Then
	$file = FileOpenDialog("File Info", @DesktopDir & "\", "Alle (.)", 1)
	Else
	$file = $CmdLine[1]
	EndIf

	Global $szDrive, $szDir, $szFName, $szExt

	$iFile = FileOpen($file, 16)
	$filename = _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
	$date = FileGetTime($file, 1)
	$date2 = FileGetTime($file, 0)
	$md5 = _Crypt_HashFile($file, $CALG_MD5)
	$md5 = StringReplace($md5, "0x", "")
	$sha1 = _Crypt_HashFile($file, $CALG_SHA1)
	$sha1 = StringReplace($sha1, "0x", "")
	$size = Round((FileGetSize($file) / 1024)) & " Kilobyte"
	$size2 = Round((FileGetSize($file) / 1048576), 2) & " Megabyte"
	$bin = StringToBinary(FileRead($iFile,FileGetSize($file)))
	FileClose($File)

	Opt("GUIOnEventMode", 1)

	$Form1 = GUICreate("[File Info]" & $filename[3] & $filename[4] & " - " & StringLower($md5), 449, 169, 349, 130)
	GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
	$Label1 = GUICtrlCreateLabel("Dateiname:", 8, 16, 58, 17)
	$Input1 = GUICtrlCreateInput($filename[3] & $filename[4], 104, 13, 329, 21, $ES_READONLY)
	$Label2 = GUICtrlCreateLabel("Erstellt am:", 8, 40, 55, 17)
	$Input2 = GUICtrlCreateInput($date[3] & ":" & $date[4] & ":" & $date[5] & " " & $date[2] & "." & $date[1] & "." & $date[0], 104, 37, 329, 21, $ES_READONLY)
	$Label2 = GUICtrlCreateLabel("Verändert am:", 8, 64, 55, 17)
	$Input2 = GUICtrlCreateInput($date2[3] & ":" & $date2[4] & ":" & $date2[5] & " " & $date2[2] & "." & $date2[1] & "." & $date2[0], 104, 61, 329, 21, $ES_READONLY)
	$Label2 = GUICtrlCreateLabel("Größe:", 8, 88, 55, 17)
	$Input2 = GUICtrlCreateInput($size & " \| " & $size2, 104, 85, 329, 21, $ES_READONLY)
	$Label2 = GUICtrlCreateLabel("md5 hash:", 8, 112, 55, 17)
	$Input2 = GUICtrlCreateInput(StringLower($md5), 104, 109, 329, 21, $ES_READONLY)
	$Label2 = GUICtrlCreateLabel("sha1 hash:", 8, 136, 55, 17)
	$Input2 = GUICtrlCreateInput(StringLower($sha1), 104, 133, 329, 21, $ES_READONLY)
	GUISetState(@SW_SHOW)

	While 1
	Sleep(100)
	WEnd

	Func _PathSplit($szPath, ByRef $szDrive, ByRef $szDir, ByRef $szFName, ByRef $szExt)
	; Set local strings to null (We use local strings in case one of the arguments is the same variable)
	Local $drive = ""
	Local $dir = ""
	Local $fname = ""
	Local $ext = ""
	Local $pos

	; Create an array which will be filled and returned later
	Local $array[5]
	$array[0] = $szPath; $szPath can get destroyed, so it needs set now

	; Get drive letter if present (Can be a UNC server)
	If StringMid($szPath, 2, 1) = ":" Then
	$drive = StringLeft($szPath, 2)
	$szPath = StringTrimLeft($szPath, 2)
	ElseIf StringLeft($szPath, 2) = "\\" Then
	$szPath = StringTrimLeft($szPath, 2) ; Trim the \\
	$pos = StringInStr($szPath, "\")
	If $pos = 0 Then $pos = StringInStr($szPath, "/")
	If $pos = 0 Then
	$drive = "\\" & $szPath; Prepend the \\ we stripped earlier
	$szPath = ""; Set to null because the whole path was just the UNC server name
	Else
	$drive = "\\" & StringLeft($szPath, $pos - 1) ; Prepend the \\ we stripped earlier
	$szPath = StringTrimLeft($szPath, $pos - 1)
	EndIf
	EndIf

	; Set the directory and file name if present
	Local $nPosForward = StringInStr($szPath, "/", 0, -1)
	Local $nPosBackward = StringInStr($szPath, "\", 0, -1)
	If $nPosForward >= $nPosBackward Then
	$pos = $nPosForward
	Else
	$pos = $nPosBackward
	EndIf
	$dir = StringLeft($szPath, $pos)
	$fname = StringRight($szPath, StringLen($szPath) - $pos)

	; If $szDir wasn't set, then the whole path must just be a file, so set the filename
	If StringLen($dir) = 0 Then $fname = $szPath

	$pos = StringInStr($fname, ".", 0, -1)
	If $pos Then
	$ext = StringRight($fname, StringLen($fname) - ($pos - 1))
	$fname = StringLeft($fname, $pos - 1)
	EndIf

	; Set the strings and array to what we found
	$szDrive = $drive
	$szDir = $dir
	$szFName = $fname
	$szExt = $ext
	$array[1] = $drive
	$array[2] = $dir
	$array[3] = $fname
	$array[4] = $ext
	Return $array
	EndFunc ;==>_PathSplit

	Func _Exit()
	Exit
	EndFunc
	#Include <File.au3>
	#Include <Array.au3>
	#Include <GDIPlus.au3>
	#include <WinAPI.au3>
	#include <ButtonConstants.au3>
	#include <EditConstants.au3>
	#include <GUIConstantsEx.au3>
	#include <StaticConstants.au3>
	#include <WindowsConstants.au3>
	#include <ProgressConstants.au3>

	Opt("GUIOnEventMode", 1)

	Global $path, $i, $file, $count, $count2

	_GDIPlus_Startup()
	$scriptpath = @ScriptDir & "\output\"
	$count = 1
	$wait = 0
	$s = 0

	$Form1 = GUICreate("iMac Wallpaper sucher", 488, 110)
	GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
	$Input1 = GUICtrlCreateInput("C:\Users\Eduard\Pictures\", 16, 16, 281, 21)
	$Button1 = GUICtrlCreateButton("Durchsuchen ...", 304, 14, 89, 25, $WS_GROUP)
	GUICtrlSetOnEvent(-1, "Durchsuchen")
	$Button2 = GUICtrlCreateButton("Überprüfen!", 400, 14, 73, 25, $WS_GROUP)
	GUICtrlSetOnEvent(-1, "image")
	GUICtrlCreateLabel("Nach Auflösung suchen:", 16, 50)
	$Input2 = GUICtrlCreateInput("2560", 26, 70, 35)
	GUICtrlCreateLabel("x", 70, 72)
	$Input3 = GUICtrlCreateInput("1440", 86, 70, 35)
	$Label1 = GUICtrlCreateLabel("Warte auf Überprüfung ...", 180, 72, 200, 30, $SS_CENTER)
	GUISetState(@SW_SHOW)

	While 1
	Sleep (100)
	WEnd

	Func Durchsuchen()
	$path = FileSelectFolder("Wählen sie einen Ordner aus", @UserProfileDir, 4, @UserProfileDir & "\Pictures")
	If $path = "" Then
	Sleep (1)
	Else
	GUICtrlSetData($Input1, $path & "\")
	EndIf
	EndFunc

	Func image()
	$path = GUICtrlRead($Input1)

	$file1=_FileListToArray($path, "*", 2)

	$count3 = 1
	Do

	$file = _FileListToArray($path & $file1[$count3] & "\")
	_ArrayDisplay($file)
	$count2 = 0

	DirCreate($scriptpath)

	Do
	GUICtrlSetData ($Label1, "Überprüfe " & $file[$count])
	$image = _GDIPlus_ImageLoadFromFile($path & $file[$count])
	$hoehe = _GDIPlus_ImageGetHeight($image)
	$breite = _GDIPlus_ImageGetWidth($image)
	$hoehesuchen = GUICtrlRead($Input3) - 1
	$breitesuchen = GUICtrlRead($Input2) - 1
	If $hoehesuchen < $hoehe And $breitesuchen < $breite Then
	GUICtrlSetData ($Label1, "Kopiere " & $file[$count])
	FileCopy($path & $file[$count], $scriptpath)
	$count2 = $count2 + 1
	EndIf
	$count = $count + 1
	Until $count = $file[0]
	$count3 = $count3 + 1
	Until $count3 = $file1[0]

	GUICtrlSetData ($Label1, $file[0] & " Bilder überprüft!")
	MsgBox(64, "iMac Wallpaper Sucher", "Es wurden " & $count2 & " Bilder gefunden und nach " & $scriptpath & " kopiert!", 10)
	Sleep (1000)
	GUICtrlSetData ($Label1, "Warte auf Überprüfung ...")
	EndFunc

	Func _Exit()
	Exit
	EndFunc
	#Region ;** Directives created by AutoIt3Wrapper_GUI **
	#AutoIt3Wrapper_Icon=UserCP_Checker\epvp.ico
	#AutoIt3Wrapper_Res_Description=by Der-Eddy
	#AutoIt3Wrapper_Res_LegalCopyright=by Der-Eddy
	#AutoIt3Wrapper_Res_Language=1031
	#AutoIt3Wrapper_Run_Obfuscator=y
	#Obfuscator_Parameters=/striponlyincludes /om
	#EndRegion ;** Directives created by AutoIt3Wrapper_GUI **
	#include <ButtonConstants.au3>
	#include <EditConstants.au3>
	#include <GUIConstantsEx.au3>
	#include <StaticConstants.au3>
	#include <WindowsConstants.au3>
	;~ #include <Array.au3>

	Global $Form1, $Edit1, $Edit2, $Edit3, $Label1, $Label2, $Button1, $i, $acc
	Global $c1 = 0, $c2 = 0

	Opt("GUIOnEventMode", 1)
	Opt("MustDeclareVars", 1)

	$Form1 = GUICreate("Minecraft Account Checker", 634, 695)
	GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
	$Edit1 = GUICtrlCreateEdit("-Minecraft Namen, einen pro Zeile-", 8, 16, 321, 609)
	$Edit2 = GUICtrlCreateEdit("", 352, 16, 265, 361)
	GUICtrlSetData(-1, "")
	$Edit3 = GUICtrlCreateEdit("", 352, 416, 265, 209)
	$Button1 = GUICtrlCreateButton("Check", 8, 640, 321, 41)
	GUICtrlSetOnEvent(-1, "Check")
	$Label1 = GUICtrlCreateLabel("Accounts mit Premium:", 352, 392, 268, 17, $SS_CENTER)
	$Label2 = GUICtrlCreateLabel("Accounts ohne Premium:", 352, 648, 268, 17, $SS_CENTER)
	GUISetState(@SW_SHOW)


	While 1
	Sleep (100)
	WEnd

	Func Check()
	$acc = GUICtrlRead($Edit1)
	If $acc = "-Minecraft Namen, einen pro Zeile-" Then
	MsgBox(48, "Fehler", "Es wurde kein Account angegeben!")
	Return 0
	EndIf
	$acc = StringSplit($acc, @CRLF, 1)
	;~ _ArrayDisplay($acc)
	For $i = 1 To $acc[0]
	If BinaryToString(InetRead("https://minecraft.net/haspaid.jsp?user=" & $acc[$i], 1)) = "True" Then
	If GUICtrlRead($Edit2) = "" Then
	GUICtrlSetData($Edit2, $acc[$i])
	Else
	GUICtrlSetData($Edit2, GUICtrlRead($Edit2) & @CRLF & $acc[$i])
	EndIf
	$c1 += 1
	GUICtrlSetData($Label1, "Accounts mit Premium: " & $c1)
	Else
	If GUICtrlRead($Edit3) = "" Then
	GUICtrlSetData($Edit3, $acc[$i])
	Else
	GUICtrlSetData($Edit3, GUICtrlRead($Edit3) & @CRLF & $acc[$i])
	EndIf
	$c2 += 1
	GUICtrlSetData($Label2, "Accounts ohne Premium: " & $c2)
	EndIf
	Next
	EndFunc

	Func _Exit()
	Exit 1
	EndFunc
	#Include <Misc.au3>

	Global $dll32 = DllOpen("user32.dll")
	AdlibRegister("_hotkey", 250)

	Global $aStatus

	$oSkype = ObjCreate('Skype4COM.Skype')
	$oSkypeEvent = ObjEvent($oSkype,'Skype_')
	$oError = ObjEvent('AutoIt.Error','MyErrFunc')
	If Not $oSkype.Client.IsRunning Then
	$oSkype.Client.Start()
	EndIf
	While 1
	Sleep(250)
	If $oSkype.CurrentUserStatus = $oSkype.Convert.TextToUserStatus('ONLINE') Then
	ExitLoop
	Else
	$oSkype.ChangeUserStatus($oSkype.Convert.TextToUserStatus('ONLINE'))
	EndIf
	WEnd
	$oSkype.Attach()
	;~ $oSkype.ChangeUserStatus($oSkype.Convert.TextToUserStatus('BUSY'))
	While 1
	$status = "Aktives Fenster: " & WinGetTitle("[ACTIVE]")
	If $status = "Aktives Fenster: VLC Media Player" Then
	$status = "Anime schauen"
	$oSkype.ChangeUserStatus($oSkype.Convert.TextToUserStatus('BUSY'))
	EndIf
	If $status <> "Aktives Fenster: " Then $oSkype.SendCommand($oSkype.Command(0, 'SET PROFILE RICH_MOOD_TEXT ' & $status))
	Sleep (1000)
	WEnd

	Func Skype_AttachmentStatus($aStatus)
	TrayTip("Active Status", 'Attachment status ' & $oSkype.Convert.AttachmentStatusToText($aStatus), 5, 1)
	If $aStatus = $oSkype.Convert.TextToAttachmentStatus('AVAILABLE') Then
	$oSkype.Attach()
	EndIf
	EndFunc

	Func MyErrFunc()
	ConsoleWrite('Skype4COM Error !' & @CRLF)
	EndFunc

	Func _hotkey()
	If _IsPressed("1B", $dll32) Then Exit
	Sleep (100)
	EndFunc
	#include <ButtonConstants.au3>
	#include <ComboConstants.au3>
	#include <GUIConstantsEx.au3>
	#include <StaticConstants.au3>
	#include <WindowsConstants.au3>

	Const $file = @AppDataDir & "\Radio.ini"

	If NOT FileExists($file) Then
	IniWrite($file, "Radio", "Eins Live", "http://www.wdr.de/wdrlive/media/einslive.asx")
	IniWrite($file, "Radio", "Radio FFN", "http://player.ffn.de/tunein_ffn.asx")
	IniWrite($file, "Radio", "WDR", "http://www.wdr.de/wdrlive/media/wdr2.asx")
	IniWrite($file, "Radio", "NDR", "http://ndr-ndr1niedersachsen-hi-wma.wm.llnwd.net/ndr_ndr1niedersachsen_hi_wma")
	IniWrite($file, "Radio", "Technobase", "http://listen.technobase.fm/dsl.asx")
	EndIf

	;Erstellt ein Windows Media Player Objekt (http://msdn.microsoft.com/en-us/library/bb249680(VS.85).aspx)
	$oWMP = ObjCreate ( "WMPLayer.ocx" )
	;Default URL:
	$oWMP.URL = $url1Live ;Stellt die Eigenschaft "URL" zu dem Online-Stream
	$oWMP.controls.stop()

	;Array f?r die einzelnen Zustande (Info)
	Dim $arrStatus[12]
	$arrStatus[0] = 'Unbekannt'
	$arrStatus[1] = 'Gestoppt'
	$arrStatus[2] = 'Pause'
	$arrStatus[3] = 'Playing'
	$arrStatus[4] = 'ScanForward'
	$arrStatus[5] = 'ScanReverse'
	$arrStatus[6] = 'Buffering'
	$arrStatus[7] = 'Warten'
	$arrStatus[8] = 'MediaEnded'
	$arrStatus[9] = 'Transitioning'
	$arrStatus[10] = 'Bereit'
	$arrStatus[11] = 'Wiederverbinden...'

	; Variable f?r das Anzeigen der Info, damit ein blinken vermieden wird.
	$lastStatus = 0
	$list = IniReadSection($file, "Radio")

	$frmMain = GUICreate("Radio by Patrick_SkiLL V0.1", 304, 140, 192, 224)
	$comSender = GUICtrlCreateCombo("", 72, 8, 225, 25)
	For $i = 1 To $list[0][0]
	GUICtrlSetData(-1, $list[$i][0], "Eins Live")
	;~ GUICtrlSetData(-1, "Eins Live\|Radio FFN\|WDR\|NDR", "Eins Live")
	Next
	$lblSender = GUICtrlCreateLabel("Senderliste:", 8, 8, 59, 17)
	$cmdPlay = GUICtrlCreateButton("Abspielen", 72, 40, 73, 33, $WS_GROUP)
	$cmdStop = GUICtrlCreateButton("Stop", 160, 40, 73, 33, $WS_GROUP)
	$lblInfo = GUICtrlCreateLabel("Info...",72,80,200)
	$lblPlayTime = GUICtrlCreateLabel("00:00:00",260,120)

	; Das ist der Slider f?r die Lautstdrke
	$slVolume = GUICtrlCreateSlider(49, 100, 200, 25)
	GUICtrlSetData(-1,$oWMP.settings.volume()) ; Hier wird der Startwert gelesen, bei mir 50

	GUISetState(@SW_SHOW)

	; Varible zeit wir auf 0 gesetzt
	$zeit = 0

	While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $GUI_EVENT_CLOSE
	Exit
	; Hier wird die Lautstdrke gesetzt
	Case $slVolume
	$oWMP.settings.volume = GUICtrlRead($slVolume)
	Case $cmdStop
	$oWMP.controls.stop()
	Case $cmdPlay
	For $i = 1 To $list[0][0]
	If GUICtrlRead($comSender) = $list[$i][0] Then $oWMP.URL = $list[$i][1]
	Next
	$oWMP.controls.play()
	$zeit = TimerInit()
	EndSwitch
	$curStatus = $oWMP.playstate
	If $curStatus <> $lastStatus Then
	GUICtrlSetData($lblInfo, $arrStatus[$curStatus])
	$lastStatus = $curStatus
	EndIf

	; ist der Status auf gestoppt (1) oder unbekannt (0)
	; wir die Zeitanzeige wieder auf 0 gesetzt und die
	; Variable zeit auf 0
	If $curStatus = 1 or $curStatus = 0 Then
	$zeit = 0
	GUICtrlSetData($lblPlayTime,'00:00:00')
	; Wird der Stream abgespielt und ist die Variable
	; zeit auf 0, dann setze zeit auf die Init Zeit
	ElseIf $curStatus = 3 And $zeit = 0 Then
	$zeit = TimerInit()
	EndIf

	; ist zeit grf?er 0 berechne die Zeit
	; und gib sie aus
	If $zeit > 0 Then
	; wandele die Millisekunden in Sekunden um
	$diff = round(round(TimerDiff($zeit),0) / 1000,0)
	; Berechne Stunden, Minuten und Sekunken und gib sie mit
	; f?hrenden Nullen aus.
	GUICtrlSetData($lblPlayTime,StringFormat("%02d:%02d:%02d",((($diff-mod($diff,60))/60)-mod(($diff-mod($diff,60))/60,60))/60,mod(($diff-mod($diff,60))/60,60),mod($diff,60)))
	EndIf
	WEnd
	exit

	$oWMP.URL = "http://www.wdr.de/wdrlive/media/einslive.asx" ;Stellt die Eigenschaft "URL" zu dem Online-Stream
	;von hr3.de ein, sollte automatisch starten

	$oWMP.controls.play() ;explizit starten

	While $oWMP.playstate > 2 ;solang der Windows Media Player den Stream lddt, buffert, abspielt usw.
	Sleep ( 100 ) ;schlafen, damit AutoIt sich nicht beendet und die Musik aufhfrt
	WEnd