oki... here is the code...
Put 1 thing.. PLZ DONT TELL ME ALL MY FAULTS,WRONGS AND OTHER STUPID THINGS DONE BY MY!! Just look at the end!
rem Definerer hvilken skrifttype programet skal bruke
set text font "arial" : set text size 20
rem Får inn bruker navn,passord og ftp adresse.
input "Address:",adress$
text 40,90,adress$
input "User name:",name$
text 40,105,name$
input "Password:",pass$
text 40,120,pass$
wait 2000
rem Min lang loading
cls
Text 270,200,"Connecting"
wait 500
cls
text 270,200,"Connecting."
wait 500
cls
text 270,200,"Connecting.."
wait 500
cls
text 270,200,"Connecting..."
wait 500
cls
Text 270,200,"Connecting"
wait 500
cls
text 270,200,"Connecting."
wait 500
cls
text 270,200,"Connecting.."
wait 500
cls
text 270,200,"Connecting..."
wait 500
cls
Text 270,200,"Connecting"
wait 500
cls
text 270,200,"Connecting."
wait 500
cls
text 270,200,"Connecting.."
wait 500
cls
text 270,200,"Connecting..."
wait 500
cls
rem HER SKAL DET VÆRE NY LABEL!
time#=timer()
ftp connect adress$,name$,pass$
if get ftp failure()=0
time#=timer()-time#
print "Connection established in ";time#/1000.0;" seconds."
else
print "Could not connect to ";adress$
print "ERROR"
Print "Press ESC to exit."
_viewfiles:
print "View each FTP file in a folder."
if get ftp status()=1
print "FTP dir: ";get ftp dir$();"..." : sync
ftp find first
while get ftp file type()>-1
print "Type: ";get ftp file type();
print " Name: ";get ftp file name$();
print " Size: ";get ftp file size()
ftp find next
endif
end
btw i know that the connection... thing is pretty long xD
Mess with the bests, die like the restes!