script clipget

#include <FileConstants.au3>

$sFilePath= @DesktopDir & "\clip.txt"
$hFileOpen = FileOpen($sFilePath, 9)
FileWrite("New folder"&@CRLF)



$lastclip="d"
While 1
$clipget=ClipGet ()
if $clipget <> $lastclip and StringLeft($clipget,4)="http" Then
    FileWrite($hFileOpen,$clipget&@CRLF)
    $lastclip=$clipget
EndIf
sleep (1000)
WEnd