Доброго времени суток, форумчане.
Необходимо посчитать upload-скорость по FTP, желательно в 4 потока(сервер поддерживает). На форуме, к сожалению, все решения по download(HTTP) на базе InetGet(), а мне надо именно upload и только по FTP.
Можно такое как-нить получить на Autoit?
Набросал простой однопоточный(как многопоточности добиться тоже пока не нарыл) клиент на базе http://autoit-script.ru/index.php/topic,3870.0.html
Спасибо за любую помощь.
Необходимо посчитать upload-скорость по FTP, желательно в 4 потока(сервер поддерживает). На форуме, к сожалению, все решения по download(HTTP) на базе InetGet(), а мне надо именно upload и только по FTP.
Можно такое как-нить получить на Autoit?
Набросал простой однопоточный(как многопоточности добиться тоже пока не нарыл) клиент на базе http://autoit-script.ru/index.php/topic,3870.0.html
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <myFTPEx.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 160, 80, 289, 97)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
$ftp_session = _FTP_Open("Test upload speed by FTP") ; открываем сессию
If @error Then
MsgBox(0, 'Test upload speed by FTP', 'Ошибка связи! Попробуйте соединиться позже.')
Else
$user = ""
$pass = ""
$ftp_session_connect = _FTP_Connect($ftp_session, "127.0.0.1", $user, $pass) ; подключаемся
If @error Then
MsgBox(0, 'Test upload speed by FTP', 'Ошибка связи2! Попробуйте соединиться позже.')
Exit
EndIf
EndIf
_FTP_ProgressUpload($ftp_session_connect, "D:\Distrib\upload_tester.bin", "incoming/upload_tester.bin") ; загружаем файл
MsgBox(0, "Status", "Ok")
Case $GUI_EVENT_CLOSE
_FTP_Close($ftp_session)
Exit
EndSwitch
WEndСпасибо за любую помощь.
