################################### ########04.10.2014 03:04 am######## ################################### #########Made by Lunetikk########## ################################### ####Use: Write playing VLC song#### ######automatic into a txtfile##### ################################### HotKeySet("{x}", "start") Hotkeyset("{END}", "close") MsgBox(0, "Welcome", " Write your VLC songs automatically into a .txtfile"&@CRLF& " X to start, END to close this app"&@CRLF&" Made by Lunetikk") $Title = "x" $Checktitle = "y" Func start() while 1 If $Title = $Checktitle Then $Title = StringReplace ( $Title, " - VLC media player", "" ) Sleep(3000) FileWriteLine ( "Songs.txt" , $Title ) Sleep(60000) Else AutoItSetOption ( "WinTitleMatchMode", 2 ) Sleep(50) WinActivate ( "player" ) Sleep(50) $Title = WinGetTitle("") Sleep(50) WinSetState ( $Title, "", @SW_MINIMIZE ) Sleep(50) $Checktitle = $Title Sleep(50) EndIf WEnd EndFunc Func close () Exit 0 EndFunc Sleep(1) While 1 Sleep (10) WEnd