#include <FTPEx.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#Region ### START Koda GUI section ### Form=
$Progress = GUICreate("Получение данных c ftp...", 267, 43, -1, -1)
$Progress1 = GUICtrlCreateProgress(8, 8, 246, 25)
#EndRegion ### END Koda GUI section ###
if FileExists(StringTrimRight(@ScriptFullPath,4)&'_log.txt')=0 then
if FileExists(StringTrimRight(@ScriptFullPath,4)&'.ini')=1 then
else
IniWrite(StringTrimRight(@ScriptFullPath,4)&'.ini','parameter','mask','*3400*')
EndIf
$mask=IniRead(StringTrimRight(@ScriptFullPath,4)&'.ini','parameter','mask','')
IniWrite(StringTrimRight(@ScriptFullPath,4)&'.ini','parameter','mask',$mask)
if $mask='' then $mask='*'
if FileExists('c:\result.txt')=1 then FileDelete('c:\result.txt')
$file = FileOpen('c:\ftp.txt', 2)
If $file = -1 Then
MsgBox(0, "Ошибка", "Не могу создать файл.")
Exit
EndIf
FileWriteLine($file, "open ftp.server")
FileWriteLine($file, "User")
FileWriteLine($file, "Password")
FileWriteLine($file, "cd obmen")
FileWriteLine($file, 'dir '&$mask&' c:\result.txt')
FileWriteLine($file, "close")
FileWriteLine($file, "quit")
FileClose($file)
;======================================================================
$file = FileOpen('c:\ftp2.cmd', 2)
If $file = -1 Then
MsgBox(0, "Ошибка", "Не могу создать файл.")
Exit
EndIf
FileWriteLine($file, 'ftp.exe -s:c:\ftp.txt')
;FileWriteLine($file, 'start /b notepad c:\result.txt')
FileWriteLine($file, "exit")
FileClose($file)
_RunDos('c:\ftp2.cmd')
GuiCtrlCreateProgress(60, 80, 150, 20)
GuiCtrlSetData(-1, 60)
GuiCtrlCreateLabel("Progress:", 5, 82)
GUISetState(@SW_SHOW)
for $i=1 to 100
GUICtrlSetData($progress1, $i)
sleep(100)
next
GUIDelete()
$super=FileReadLine('c:\result.txt',1) ; -r--r--r-- 1 ftp ftp 682 Mar 04 08:24 Message_ПВ3400110_ЦУ.zip
$super=StringTrimLeft($super,36) ;Mar 04 08:24 Message_ПВ3400110_ЦУ.zip
$fftp=$super
$File=StringTrimLeft($super,13) ;Message_ПВ3400110_ЦУ.zip
$super=StringLeft($super,12) ;Mar 04 08:24
$Mon=StringLeft($super,3) ;Mar
$Day=StringTrimLeft($super,4) ;04 08:24
$Time=StringTrimLeft($Day,3) ;08:24
$TimeHour=StringTrimRight($Time,3) ;08
$TimeMin=StringTrimLeft($Time,3) ;24
$Day=StringTrimRight($Day,6) ;04
$TimeHour=Number($TimeHour)
$TimeMin=Number($TimeMin)
$AllTime=$TimeHour*60+$TimeMin
$CurTime=@HOUR*60+@MIN
$Raznica=$CurTime-$AllTime
if $Raznica<0 then MsgBox(0,'Внимание!','Файл на ftp был загружен '&$Raznica&' мин. назад, на компьютере не верная дата-время или последний обмен был вчера-позавчера!')
if $Raznica>30 then MsgBox(0,'Внимание!','Файл на ftp был загружен '&$Raznica&' мин. назад, возможно есть проблемы с обменом!')
if $Raznica<30 and $Raznica>=0 then MsgBox(0,'Внимание!','Файл на ftp был загружен '&$Raznica&' мин. назад, дата-время актуальные - обмен успешный!')
$super='Файл обмена на ftp создан: '&$Day&' '&$Mon&' '&$Time;&' ';&$super3
MsgBox(0,$file,$super)
$failik=StringTrimRight(@ScriptFullPath,4)&'_log.txt'
;msgbox(0,'',$failik)
$file = FileOpen($failik, 1)
If $file = -1 Then
MsgBox(0, "Ошибка", "Log файл не открывается.")
Exit
EndIf
FileWriteLine($file, @hour&':'&@min&':'&@sec&' '&@MDAY&'.'&@mon&'.'&@YEAR&' - проверка обмена, файл на ftp - '&$fftp)
FileClose($file)
if FileExists('c:\ftp2.cmd')=1 then FileDelete('c:\ftp2.cmd')
if FileExists('c:\ftp.txt')=1 then FileDelete('c:\ftp.txt') |
