Virenwarnung

#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Wmp_Yt.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_LegalCopyright=JeJe
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <File.au3>
$input_link = ""
$playlist = ""
$tempfile = @TempDir & "/wmpliste.m3u"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wmp - Youtube", 466, 406, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 8, 265, 21)
$Button1 = GUICtrlCreateButton("Play", 280, 8, 89, 25)
$Button2 = GUICtrlCreateButton("Zur Playlist", 376, 8, 81, 25)
$Edit1 = GUICtrlCreateEdit($playlist, 8, 40, 289, 345, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$ES_NUMBER,$WS_VSCROLL))
GUICtrlSetData(-1, "")
$Button3 = GUICtrlCreateButton("Liste Speichern", 312, 120, 89, 25)
$Button4 = GUICtrlCreateButton("Liste Abspielen", 312, 152, 89, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $youtube = "http://www.youtube.com/v/"
Global $WMp = "C:\Program Files (x86)\Windows Media Player\wmplayer.exe"
main()
Func main()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete($tempfile)
Exit
Case $Button1
$video = convertlink()
ShellExecute($WMp,$video)
GUICtrlSetData($Input1,"")
Case $Button2
$video = convertlink()
$playlist = $playlist & $video & @CRLF
GUICtrlSetData($Edit1,$playlist)
GUICtrlSetData($Input1,"")
Case $Button4
FileWrite($tempfile,$playlist)
ShellExecute($WMp,$tempfile)
Case $Button3
Local $MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
Local $var = FileSaveDialog("Choose a name.", $MyDocsFolder, "Playlists (*.m3u)", 2)
If @error Then
MsgBox(4096, "", "Fehler beim Speichern")
Else
FileWrite($var,$playlist)
EndIf
EndSwitch
WEnd
EndFunc

Func convertlink()
$input_link = GUICtrlRead($Input1)
IF Linkpruefen() = 0 Then
MsgBox(0,"Fehler","Fehlerhafter Link!")
main()
EndIf
$link = StringSplit($input_link,'=',1)
If @error = not 0 Then MsgBox(0,"Fehler","Fehlerhafter Link!")
$link1 = StringSplit($link[2],"&",1)
If @error = not 0 Then MsgBox(0,"Fehler","Fehlerhafter Link!")
$output_link = $youtube & $link1[1]
Return $output_link
EndFunc

Func Linkpruefen()
$Test = StringInStr($input_link,"http://www.youtube.com/watch?v=")
If $Test = 0 Then Return 0
If $test = 1 Then Return 1
EndFunc