Skip to content

Instantly share code, notes, and snippets.

@Der-Eddy

Der-Eddy/File Info.au3

Created March 24, 2015 11:55
Show Gist options
  • Save Der-Eddy/720df783243261466191 to your computer and use it in GitHub Desktop.
Save Der-Eddy/720df783243261466191 to your computer and use it in GitHub Desktop.
Download ZIP
AutoIt Scripts
Raw
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
Raw
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
Raw
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
Raw
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
Raw
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment