Remote WRITEN CREATOR

#include <ftpex.au3>
$server = '
$username =
$pass = '

$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)

If FileExists(@TempDir&"\a.jpg") And FileExists(@TempDir&"\9.jpg") Then
_Go()
Else
InetGet("http://www.corsaroshop.com/public/minfoto/132.jpg",@TempDir&"\a.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/133.jpg",@TempDir&"\b.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/134.jpg",@TempDir&"\c.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/135.jpg",@TempDir&"\d.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/136.jpg",@TempDir&"\e.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/137.jpg",@TempDir&"\f.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/138.jpg",@TempDir&"\g.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/139.jpg",@TempDir&"\h.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/140.jpg",@TempDir&"\i.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/141.jpg",@TempDir&"\j.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/142.jpg",@TempDir&"\k.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/143.jpg",@TempDir&"\l.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/144.jpg",@TempDir&"\m.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/145.jpg",@TempDir&"\n.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/146.jpg",@TempDir&"\o.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/147.jpg",@TempDir&"\p.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/148.jpg",@TempDir&"\q.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/149.jpg",@TempDir&"\r.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/150.jpg",@TempDir&"\s.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/151.jpg",@TempDir&"\t.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/152.jpg",@TempDir&"\u.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/153.jpg",@TempDir&"\v.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/154.jpg",@TempDir&"\w.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/155.jpg",@TempDir&"\x.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/156.jpg",@TempDir&"\y.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/157.jpg",@TempDir&"\z.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/158.jpg",@TempDir&"\0.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/159.jpg",@TempDir&"\1.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/160.jpg",@TempDir&"\2.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/161.jpg",@TempDir&"\3.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/162.jpg",@TempDir&"\4.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/163.jpg",@TempDir&"\5.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/164.jpg",@TempDir&"\6.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/165.jpg",@TempDir&"\7.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/166.jpg",@TempDir&"\8.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/167.jpg",@TempDir&"\9.jpg")
_Go()
EndIf


Func _Go()
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>

$Form1 = GUICreate("RemoteAnimated Message", 262, 136, 189, 235)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("", 24, 0, 193, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)


While 1
Sleep (10)
FileDelete ( @TempDir & "\serv.log" )
_FTP_FileGet ( $Conn, @UserName, @TempDir & "\serv.log" )
$let = FileRead ( @TempDir & "\serv.log" )

$pic = GUICtrlSetImage($Pic1, @TempDir&"\" & $let & ".jpg")
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
EndFunc

#include <ftpex.au3>
$usernames = InputBox ( "Username", "Wrote username", @UserName )
$server = '
$username = '
$pass = '

$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)

If FileExists(@TempDir&"\a.jpg") And FileExists(@TempDir&"\9.jpg") Then
_Go()
Else
InetGet("http://www.corsaroshop.com/public/minfoto/132.jpg",@TempDir&"\a.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/133.jpg",@TempDir&"\b.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/134.jpg",@TempDir&"\c.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/135.jpg",@TempDir&"\d.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/136.jpg",@TempDir&"\e.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/137.jpg",@TempDir&"\f.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/138.jpg",@TempDir&"\g.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/139.jpg",@TempDir&"\h.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/140.jpg",@TempDir&"\i.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/141.jpg",@TempDir&"\j.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/142.jpg",@TempDir&"\k.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/143.jpg",@TempDir&"\l.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/144.jpg",@TempDir&"\m.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/145.jpg",@TempDir&"\n.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/146.jpg",@TempDir&"\o.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/147.jpg",@TempDir&"\p.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/148.jpg",@TempDir&"\q.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/149.jpg",@TempDir&"\r.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/150.jpg",@TempDir&"\s.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/151.jpg",@TempDir&"\t.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/152.jpg",@TempDir&"\u.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/153.jpg",@TempDir&"\v.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/154.jpg",@TempDir&"\w.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/155.jpg",@TempDir&"\x.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/156.jpg",@TempDir&"\y.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/157.jpg",@TempDir&"\z.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/158.jpg",@TempDir&"\0.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/159.jpg",@TempDir&"\1.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/160.jpg",@TempDir&"\2.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/161.jpg",@TempDir&"\3.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/162.jpg",@TempDir&"\4.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/163.jpg",@TempDir&"\5.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/164.jpg",@TempDir&"\6.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/165.jpg",@TempDir&"\7.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/166.jpg",@TempDir&"\8.jpg")
InetGet("http://www.corsaroshop.com/public/minfoto/167.jpg",@TempDir&"\9.jpg")
_Go()
EndIf

Func _Go()
#include <guiconstantsex.au3>

$Gui=GUICreate("Writen creator", 565, 121, 195, 122)
GUISetBkColor(0xFFFFFF)
$String=GUICtrlCreateInput("", 8, 8, 225, 21)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xFFFFFF)
$Go = GUICtrlCreateButton("Go", 240, 8, 36, 22)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xFFFFFF)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Go
$Split=StringSplit(GUICtrlRead($String), "")
$Count=0
$Len=StringLen(GUICtrlRead($String))
If $Len>8 Then
MsgBox(48, "Error", "Error, invalid string number")
Exit
EndIf
While 1
Sleep(100)
$Count=$Count+1
If $Count>$Len Then ExitLoop
If $Count= 1 Then

Local $pic
GUICtrlDelete ( $pic )

_FTP_FileDelete ( $Conn, $usernames )
$pic = GUICtrlCreatePic(@TempDir&"\"&$Split[1]&".jpg", 8, 40, 73, 73)
FileDelete ( @TempDir & "\Clo.log" )
FileWrite ( @TempDir & "\Clo.log", $Split[1] )
_FTP_FilePut ($Conn, @TempDir & "\Clo.log", $usernames )


EndIf
WEnd
EndSwitch
WEnd

EndFunc