Oke, is there a example so i can see it.
I have now add:
Gui, Show, x131 y91 h120 w280, Auto Updater
Gui, Add, Edit, vName, Name
Gui, Add, Edit, vPassword, Password
return
After Upload: Its nice but don't work
Code:
Gui, Add, Button, x5 y45 w70 h30 gchoosedir, 1 Select
Gui, Add, Button, x100 y45 w70 h30 gbat, 2 Make
Gui, Add, Button, x195 y45 w70 h30 vupload gupload, 3 Upload!
; Generated using SmartGUI Creator 4.0
Gui, Show, x131 y91 h120 w280, Auto Updater
Return
GuiClose:
ExitApp
choosedir:
FileDelete, C:\source\source.pdf
FileSelectFile, file, 3, ,
FileCopy, %file%, C:\source\source.pdf
Gui,Submit,Nohide
MsgBox,select
return
bat:
run copy.bat
MsgBox,copy ready
return
upload:
Gui, Show, x131 y91 h120 w280, Auto Updater
Gui, Add, Edit, vName, Name
Gui, Add, Edit, vPassword, Password
return
FileDelete, C:\source\ftp_script.log
FileDelete, C:\source\ftp_script.txt
ftp_script = open localhost
ftp_script = %ftp_script%`r`nname
ftp_script = %ftp_script%`r`npasword
ftp_script = %ftp_script%`r`nls -l
ftp_script = %ftp_script%`r`nput c:\source\source.pdf
ftp_script = %ftp_script%`r`nquit
FileAppend, %ftp_script%, ftp_script%value%.txt
RunWait, cmd /c ftp -s:ftp_script%value%.txt > ftp_script%value%.log,, Hide
found_ls := false
text_ls=
Loop, Read, ftp_script%value%.log
{
if ( InStr( a_LoopReadLine, "Directory send OK." ) )
break
if ( found_ls )
text_ls := text_ls "`r`n" a_LoopReadLine
if ( InStr( a_LoopReadLine, "Here comes the directory listing." ) )
found_ls := true
}
MsgBox, % text_ls
return