run=\Windows\solitare.exe
run="\Program files\something.exe" "\My Documents\My Document.doc"
run="\Windows\StartMenu\Inbox.lnk"

#
# Download.mscr
#

# Check connection
testConnect = InternetConnected("http://pda.yandex.ru")
If not (testConnect = 1)
Message ("Отсутствует подключение к сети","Download :: Error")
exit
EndIf

# Check clipboard
templ = Split("zip,rar,cab,tsk,exe,mpg,pdf,txt,fb2,swf,chm ,wmv,mp3,avi,ogg,html,htm,",",")
clipb = Split(ClipText(),".")
default = "http://........"

ForEach i in array (templ)
match = Find(i,clipb[MaxIndex(clipb)])
If not (match = 0)
default = ClipText()
EndIf
EndForEach

# Input section
url = Input("Укажите другой или оставьте \
^NL^выделенный URL файла","Download :: URL",0,0,default)

If(url eq "http://........")
Exit
ElseIf(url eq "")
Exit
EndIf

# Check for file existence
file = Split(url,"/")
file = file[MaxIndex(file)]
file = Input("Сохранить файл с таким именем?","Download :: Save",0,0,file)

If (file eq "")
Exit
EndIf

pathfile = "\My Documents\" & file

If (FileExists(pathfile))
Message (pathfile & "уже существует^NL^файл будет сохранен как new-" \
& file,"Download :: Warning")
pathfile = "\My Documents\new-" & file
EndIf

# Download section
Download(url,pathfile)

Run("\Windows\fexplore.exe","\My Documents")

#
# EOF
#