Sieht wirklich nach was aus , aber das Icon in der Taskleiste muss weg.
Zum Fade Out: Du versuchtst, von 0 auf 255 zu kommen, indem du immer 1 abziehst - das funktioniert nicht . Zeile 57 muss also heißen:
For $i = 255 to 0 step -1Und nochwas: Das Fenster sollte keinen Focus bekommen, da es sonst z.B. Schreiben in einem anderen Fenster behindert.
Und mal so eine allgemeine Frage: Wo zur Hölle liegt die Hometaste?
Danke, wurde alles ausgebessert 
HOME ist bei uns die POS1 Taste 
*Jetzt unten über Taskleiste angedockt
*Ein paar Verbesserungen
*Screenshot hinzugefügt
Wär super wenn mir wer bei Fade Out helfen könnte!
Hey,
hab vor einiger Zeit einen iTunes Controller geschrieben.
Ich hab ihn mal auf die neue API upgedated und ne schöne GUI gebastelt 
*Liest aktuelles Lied aus und zeigt es an
*Man kann folgendes machen:
HOME + Bild auf: Nächstes Lied
HOME + Bild runter: Voriges Lied
HOME + Ende: Pause/Play
#include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <File.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GdiPlus.au3>
#Region ### START Koda GUI section ### Form=
Opt("WinTitleMatchMode", 4)
$pos = WinGetPos("classname=Shell_TrayWnd")
$s_gui = GUICreate("iCTRL", @DesktopWidth, 70, 0, @DesktopHeight-$pos[3]-70,$WS_POPUP,BitOR($WS_EX_TOPMOST, $ws_ex_controlparent))
$s_song = GUICtrlCreateLabel("", 90, 25)
$s_inter = GUICtrlCreateLabel("", 90, 25)
$s_album = GUICtrlCreateLabel("", 90, 25)
$s_artwork = GUICtrlCreatePic("", 0, 0,70,70)
WinSetTrans($s_gui,"",0)
GUISetBkColor(0xe1e1e1)
GUISetState(@SW_HIDE)
$file = ''
$o_file = ''
Global $k,$l,$r
#EndRegion ### END Koda GUI section ###
;~ GDI+
_GDIPlus_Startup() ;Starten
Global $hBrush = _GDIPlus_BrushCreateSolid(0xFFA4A4A4) ;Brush setzen
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($s_gui)
$iTunesApp = ObjCreate("iTunes.Application")
$Library_Tracks = $iTunesApp.LibraryPlaylist.Tracks
Global $track = "no"
AdlibRegister("_Song_Refresh",2000)
If @Error Then
TrayTip("iCTRL","Error! Code:"&@CRLF&hex(@error,8),30)
Exit
Endif
While 1
If _IsPressed("24") and _IsPressed("21") Then
$iTunesApp.NextTrack
Sleep(500)
_Song_Refresh()
EndIf
If _IsPressed("24") and _IsPressed("22") Then
$iTunesApp.PreviousTrack
Sleep(500)
_Song_Refresh()
EndIf
[/autoit] [autoit][/autoit] [autoit]If _IsPressed("24") and _IsPressed("23") Then $iTunesApp.PlayPause
WEnd
Func _FadeIn( $form = $s_gui)
For $a = 0 to 180 Step 1
Sleep(5)
WinSetTrans($form,$form,$a)
Next
EndFunc
Func _FadeOut( $form = $s_gui)
For $i = 180 to 0 step -1
Sleep(5)
WinSetTrans($form,$form,$i)
Next
GUISetState(@SW_HIDE,$s_gui)
Sleep(1000)
EndFunc
Func _Song_Refresh()
$state=$iTunesApp.PlayerState
$curtrack= $iTunesApp.CurrentTrack
;~ ConsoleWrite($state & " " & $curtrack.name & @CRLF) ;DEBUG
If $curtrack.name <> $track and $state = 1 and ProcessExists("iTunes.exe")Then
$track = $curtrack.name
GUICtrlDelete($s_artwork)
GUICtrlDelete($s_album)
GUICtrlDelete($s_inter)
GUICtrlDelete($s_song)
$s_artwork = GUICtrlCreatePic("", 0, 0,70,70)
$Album = ""
$Album = $curtrack.Album
_Write($Album)
$i = _GetTextLabelWidth($curtrack.name,"Arial",15,200)
$s_song = GUICtrlCreateLabel($curtrack.name, 90, 25,$i,25)
GUICtrlSetColor($s_song,0x2E2E2E)
GUICtrlSetFont($s_song,15,200,Default,"Arial")
GUICtrlSetData($s_song,$curtrack.name)
$hwd_song = GUICtrlGetHandle($s_song)
$pos_song = ControlGetPos($s_gui,$s_gui,$hwd_song)
ConsoleWrite("Width song: "&$pos_song[2]&@CRLF)
$s_inter = GUICtrlCreateLabel($curtrack.Artist,100+$pos_song[2],25,_GetTextLabelWidth($curtrack.Artist,"Arial",15,800),25)
GUICtrlSetColor($s_inter,0x2E2E2E)
GUICtrlSetFont($s_inter,15,800,Default,"Arial")
GUICtrlSetData($s_inter,$curtrack.Artist)
If $Album <> "" Then
$hwd_inter = GUICtrlGetHandle($s_inter)
$pos_inter = ControlGetPos($s_gui,$s_gui,$hwd_inter)
ConsoleWrite("Width interpret: "&$pos_inter[2]&@CRLF)
$s_album = GUICtrlCreateLabel($Album,120+$pos_song[2]+$pos_inter[2],25,_GetTextLabelWidth($curtrack.Album,"Arial",15,200),25)
GUICtrlSetColor($s_album,0x2E2E2E)
GUICtrlSetFont($s_album,15,200,Default,"Arial")
EndIf
_Write($Album)
;~ GUICtrlSetData($s_song,$curtrack.name & Chr(014)& $curtrack.Artist &Chr(014)& $Album)
$file = @ScriptDir & '\cover_cache_'&Random(0,900,1)&'.jpg'
$curtrack.Artwork(1).SaveArtworkToFile($file)
If FileExists($file) Then GUICtrlSetImage($s_artwork,$file)
GUISetState(@SW_SHOWNOACTIVATE,$s_gui)
;~ ConsoleWrite($file & @CRLF & $curtrack.Artwork(1).SaveArtworkToFile($file))
$k = 0
FileDelete($file)
$file = ""
Local Const $sCLSID_TaskbarList = "{56FDF344-FD6D-11D0-958A-006097C9A090}"
Local Const $sIID_ITaskbarList = "{56FDF342-FD6D-11D0-958A-006097C9A090}"
Local Const $sTagITaskbarList = "HrInit hresult(); AddTab hresult(hwnd); DeleteTab hresult(hwnd); ActivateTab hresult(hwnd); SetActiveAlt hresult(hwnd);"
Local $oTaskbarList = ObjCreateInterface($sCLSID_TaskbarList, $sIID_ITaskbarList, $sTagITaskbarList)
$oTaskbarList.HrInit()
Local $hGui = WinGetHandle($s_gui)
$oTaskbarList.DeleteTab($hGui)
_FadeIn()
$o = 0
$l = 0
$r = 0
Do
Sleep(50)
_Balk()
Until $k = 100
_WinAPI_RedrawWindow($s_gui)
_FadeOut()
EndIf
EndFunc
Func _Balk()
_WinAPI_RedrawWindow($s_gui)
$l = $r
$r = Random(0,200,1)
If Abs($l - $r) > 5 Then _GDIPlus_GraphicsFillRect($hGraphic,@DesktopWidth -$r ,0,$r,70,$hBrush)
;~ ConsoleWrite($r & "-"& $k & @CRLF)
$k = $k +1
EndFunc
Func _Write($string)
ConsoleWrite($string & @CRLF)
EndFunc
Func _GetTextLabelWidth($s_WinText, $s_TextFont, $i_FontSize, $i_FontWeight = -1)
Local Const $DEFAULT_CHARSET = 0 ; ANSI character set
Local Const $OUT_CHARACTER_PRECIS = 2
Local Const $CLIP_DEFAULT_PRECIS = 0
Local Const $PROOF_QUALITY = 2
Local Const $FIXED_PITCH = 1
Local Const $RGN_XOR = 3
Local Const $LOGPIXELSY = 90
$h_WinTitle = "Get Label Width"
If $i_FontWeight = "" Or $i_FontWeight = -1 Then $i_FontWeight = 600 ; default Font weight
Local $h_GUI = GUICreate($h_WinTitle, 10, 10, -100, -100, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW)
Local $hDC = DllCall("user32.dll", "int", "GetDC", "hwnd", $h_GUI)
Local $intDeviceCap = DllCall("gdi32.dll", "long", "GetDeviceCaps", "int", $hDC[0], "long", $LOGPIXELSY)
$intDeviceCap = $intDeviceCap[0]
Local $intFontHeight = DllCall("kernel32.dll", "long", "MulDiv", "long", $i_FontSize, "long", $intDeviceCap, "long", 72)
$intFontHeight = -$intFontHeight[0]
Local $hMyFont = DllCall("gdi32.dll", "hwnd", "CreateFont", "int", $intFontHeight, _
"int", 0, "int", 0, "int", 0, "int", $i_FontWeight, "int", 0, _
"int", 0, "int", 0, "int", $DEFAULT_CHARSET, _
"int", $OUT_CHARACTER_PRECIS, "int", $CLIP_DEFAULT_PRECIS, _
"int", $PROOF_QUALITY, "int", $FIXED_PITCH, "str", $s_TextFont)
DllCall("gdi32.dll", "hwnd", "SelectObject", "int", $hDC[0], "hwnd", $hMyFont[0])
Local $res = DllStructCreate("int;int")
[/autoit] [autoit][/autoit] [autoit]Local $ret = DllCall("gdi32.dll", "int", "GetTextExtentPoint32", "int", $hDC[0], "str", $s_WinText, "long", StringLen($s_WinText), "ptr", DllStructGetPtr($res))
[/autoit] [autoit][/autoit] [autoit]Local $intLabelWidth = DllStructGetData($res,1)
[/autoit] [autoit][/autoit] [autoit]GUIDelete($h_GUI)
Return $intLabelWidth
EndFunc
Viel Spaß!
[Blockierte Grafik: http://abload.de/img/screenshot5833s39.png]
Oder... YouTube Playlist :O
Vorallem für meine Schwester seeehr hilfreich, ekelt sich vor neuem
Happy, Happy, Happy Birthday
Vorschlag:
In den Downloadeinstellungen eine Checkbox fürs Automatische Öffnen von Playlists.
Steve
Happy Happy Happy Birthday
Ist noch immer da. Mein Lieblingseasteregg (bau ich überall ein): "Computer sagt nein. *HUST*" 
Steve
Was für eine nervige Meldung denn? Da sollte eigentlich nix kommen...
Meinetwegen darfst du eine eigene Version ruhig erstellen und veröffentlichen, solange du sie nicht kommerziell vertreibst. Auch die Lizenzierung deiner Version und die Art der Weitergabe ist mir im Grunde egal (also ob mit oder ohne Code).
Allerdings: Es sollte in den Credits klar ersichtlich sein, dass die Version von dir kommt und du der Ansprechpartner dafür bist, meinen Namen ruhig in den Hintergrund rücken. Also schreib bitte so etwas ähnliches hin:Name_des_modifizierten_Programms von Nachid
Das Programm baut auf Cheater Dieters (https://autoit.de/www.autoit.de) "GrooveLoad" auf. Dabei haben mitgewirkt (und dann halt die paar Namen, die jetzt in den Credits stehen)
Des weiteren bitte die Geheimwortabfrage über den eigenen Server laufen, das veränderte Programm soll keine Verbindung zu hegi.tk und/oder limesoft-solutions.com aufbauen.Alle Updates, die ich rausbringe, darfst du in dein Programm integrieren, sofern ich das nicht eines Tages ausdrücklich verbiete.
"Vertrauen Sie diesem Program?" dieses Windoof Übertreibungsfenster 
Nachid: einfach Hakerl setzen
Hi, ich habe das Skript jetzt nicht ausgeführt sondern nur in den Code geguckt. (Bin zu faul bei meiner Bambusleitung mir die Bass.dll runter zu laden ^^)
Ist die FPS Anzeige richtig?
Soweit ich weiß steht FPS für Frames per Second oder so ähnlich. Müsste so korrekt sein. (Obwohl ich persönlich auf den Gebrauch von AdlibRegister verzichten würde...)Uuund wie findet ihr meinen Schreibstil?
[autoit]
Nagut, jeder hat einen eigenen mit der Zeit entwickelt. Solange man den Code leicht verfolgen kann ist dieser also nicht schlecht. Alles abdere hängt an den persönlichen Vorzügen ab. Ich beispielsweise setze vor jeder Variable noch einen Präfix. Dann unterteile ich meinen Code in sinnvolle Codeabschnitte und mache dies sehr deutlich (Benutze das + Zeichen zum trennen):; ++++++++++ +++++++++ ++++++++ +++++++ +++++ ++++ +++ ++ +
[/autoit]Zudem setze ich nach und vor einen Mathematischen Operator immer ein Leerzeichen. Da gibts aber auch wieder eine ausnahme wo ich das nicht mache...
(Könnte ich stundenlang drüber schreiben ^^)
KK, danke
Steve
Es ist kein Schritt, es bringt gar nichts. Es wird nur der Interpreter gecrypted, das kann zu Problemen und Bugs führen. Lass es und such dir einen guten Obcusfactor
Steve
Paar Änderungen:
//Max Werte
//Vollbild
//Werte unter Balken
//FPS
Ist die FPS Anzeige richtig?
Uuund wie findet ihr meinen Schreibstil?
Danke für zukünftiges Feedback
Steve
Sry, bin am Handy. Hat InetRead nicht eine Hintergrundoption? Dann
InetRead (Hintergrund)
Sleep(3000)
Auswerten, weiterarbeiten.
Wie gesagt, sry wegen Handy.
LOL warscheinlich der größte Fail aller Zeiten im AutoIt Forum
Könnt sie sperren, nehme an, er wollte fremden Source deobfuscaten...
Steve
Ja:
übersetz alles. Gibt warscheinlich unobfuscator (?), aber denk mal, keiner will diese Frage beantworten
Steve
Konventier das mal in ein unkomprimiertes AVI.
http://www.dvdvideosoft.com/products/dvd/F…o-Converter.htm
Steve
Hallo, habs so gelöst:
[autoit];~ GUI
$hGUI = GUICreate("Saunch "&$ver, 645, 278, -1,-1,$ws_popupwindow, $ws_ex_controlparent)
$name = IniRead(@AppDataDir & "\Saunch\config-erp", "General", "name","ERROR")
;~ Hintergund definieren
$Back = @AppDataDir & "\Saunch"&$sn&"\bg.jpg"
If $debug = 1 Then $Back = "bgs\scrg\5.jpg"
GUICtrlCreatePic($Back,0,0,645,278,0x08000000 + BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
$ws_popupwindows deaktiviert die Windows "Leiste" oben.
Steve
Speichert er das nicht im Temp Ordner?
Dann kannst du ihn löschen und danach wieder erzeugen.
Ok, so was ähnliches hab ich am Pc oben, kanns dir nachher schreiben
Aber glaub bis dahin antwortet dir schon wer
Speicher den Ordnerinhalt im Array und führe mit For If Abfragen durch.
Kleiner Denkanstoß, bin am Handy 
