вот видео урок :
(для просмотра ссылки Вам необходимо авторизоваться)
11. ivantu - 21 Августа, 2019 - 01:59:31 - перейти к сообщению
12. 007wan - 21 Августа, 2019 - 02:02:41 - перейти к сообщению
Кажется разобрался с паролями. А как мне туда добавить программу и подключиться и скачать ее?
(Добавление)
Блин) ничего не понимаю) Ну я понял посмотрю видео.
(Добавление)
ivantu , Как мне создать фтп и подключиться или как скачать файл? я только нахожу как сделать сайт и домен и всё. А то как файлы передавать и куда их сохранять, что бы скачать я не вижу. может напишешь инструкцию или видео снимешь? Если не сложно.
(Добавление)
Не понимаю. Нахрена мне эта база данных? Мне не нужно создавать сайт. а просто пустая страница для загрузки файла и всё
(Добавление)
Блин) ничего не понимаю) Ну я понял посмотрю видео.
(Добавление)
ivantu , Как мне создать фтп и подключиться или как скачать файл? я только нахожу как сделать сайт и домен и всё. А то как файлы передавать и куда их сохранять, что бы скачать я не вижу. может напишешь инструкцию или видео снимешь? Если не сложно.
(Добавление)
Не понимаю. Нахрена мне эта база данных? Мне не нужно создавать сайт. а просто пустая страница для загрузки файла и всё
13. ivantu - 21 Августа, 2019 - 05:05:18 - перейти к сообщению
Я использую такой вариант:
CODE:
string ftp="****.zzz.com.ua"; // фтп, исправить на свой
string login="****"; // исправить на свой
string pass="****"; // исправить на свой
int open, _close, connect, file, catalog;
external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll" );
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll" );
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll" );
external(INT, "FtpSetCurrentDirectory", "FtpSetCurrentDirectoryA", "Wininet.dll" );
external(INT, "FtpGetFile", "FtpGetFileA", "Wininet.dll" );
open=InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
connect=InternetConnect(open, ftp, 21, login, pass, 1, 134217728, 0);
catalog=FtpSetCurrentDirectory(connect, ftp);
file=FtpGetFile(connect, "Имя_файла_на_сервере.exe", "назвать файл и положить в папку с кибор.exe", 0, 0, 0); // скачать файл в папку с кибор
_close=InternetCloseHandle(connect);
if(file==0){sleep(500);}
else messagebox("Файл успешно скачан");
string ftp="****.zzz.com.ua"; // фтп, исправить на свой
string login="****"; // исправить на свой
string pass="****"; // исправить на свой
int open, _close, connect, file, catalog;
external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll" );
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll" );
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll" );
external(INT, "FtpSetCurrentDirectory", "FtpSetCurrentDirectoryA", "Wininet.dll" );
external(INT, "FtpGetFile", "FtpGetFileA", "Wininet.dll" );
open=InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
connect=InternetConnect(open, ftp, 21, login, pass, 1, 134217728, 0);
catalog=FtpSetCurrentDirectory(connect, ftp);
file=FtpGetFile(connect, "Имя_файла_на_сервере.exe", "назвать файл и положить в папку с кибор.exe", 0, 0, 0); // скачать файл в папку с кибор
_close=InternetCloseHandle(connect);
if(file==0){sleep(500);}
else messagebox("Файл успешно скачан");
14. 007wan - 21 Августа, 2019 - 07:18:37 - перейти к сообщению
ivantu пишет:
Я использую такой вариант:
Спасибо огромное. Сработало. Молодец. Уважуха.
CODE:
string ftp="****.zzz.com.ua"; // фтп, исправить на свой
string login="****"; // исправить на свой
string pass="****"; // исправить на свой
int open, _close, connect, file, catalog;
external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll" );
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll" );
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll" );
external(INT, "FtpSetCurrentDirectory", "FtpSetCurrentDirectoryA", "Wininet.dll" );
external(INT, "FtpGetFile", "FtpGetFileA", "Wininet.dll" );
open=InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
connect=InternetConnect(open, ftp, 21, login, pass, 1, 134217728, 0);
catalog=FtpSetCurrentDirectory(connect, ftp);
file=FtpGetFile(connect, "Имя_файла_на_сервере.exe", "назвать файл и положить в папку с кибор.exe", 0, 0, 0); // скачать файл в папку с кибор
_close=InternetCloseHandle(connect);
if(file==0){sleep(500);}
else messagebox("Файл успешно скачан");
string ftp="****.zzz.com.ua"; // фтп, исправить на свой
string login="****"; // исправить на свой
string pass="****"; // исправить на свой
int open, _close, connect, file, catalog;
external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll" );
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll" );
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll" );
external(INT, "FtpSetCurrentDirectory", "FtpSetCurrentDirectoryA", "Wininet.dll" );
external(INT, "FtpGetFile", "FtpGetFileA", "Wininet.dll" );
open=InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
connect=InternetConnect(open, ftp, 21, login, pass, 1, 134217728, 0);
catalog=FtpSetCurrentDirectory(connect, ftp);
file=FtpGetFile(connect, "Имя_файла_на_сервере.exe", "назвать файл и положить в папку с кибор.exe", 0, 0, 0); // скачать файл в папку с кибор
_close=InternetCloseHandle(connect);
if(file==0){sleep(500);}
else messagebox("Файл успешно скачан");
15. ivantu - 21 Августа, 2019 - 07:52:41 - перейти к сообщению
007wan пишет:
Спасибо огромное. Сработало. Молодец. Уважуха.
Zireael помог в свое время, я просто зафиксировал в памяти )
16. 007wan - 21 Августа, 2019 - 08:32:37 - перейти к сообщению
ivantu пишет:
Zireael помог в свое время, я просто зафиксировал в памяти )
Я находил его код, но там была отправка файла на сервер фтп, а не скачивание и у меня просто мозг "встал". я как-то хотел его переделать, но как-то вдруг ослаб)
17. Dantes3000 - 21 Августа, 2019 - 08:36:32 - перейти к сообщению
007wan пишет:
у меня просто мозг "встал"
я же написал, что надо просто все слова Get в скрипте поменять на Set....и всё работать будет
18. 007wan - 21 Августа, 2019 - 08:57:50 - перейти к сообщению
Dantes3000 пишет:
007wan пишет:
у меня просто мозг "встал"
я же написал, что надо просто все слова Get в скрипте поменять на Set....и всё работать будет
19. 007wan - 23 Августа, 2019 - 07:08:55 - перейти к сообщению
Странно. Не хочет скачивать второй файл, а первый читает отлично, я думаю это из-за флажков в функциях.
(Добавление)
(Добавление)
Если
(Добавление)
Почему тогда после дублирование работает?
(Добавление)
Ищите коменты, я там показал почему работает если продублировать эти строчки
Код (Отобразить)
(Добавление)
ivantu пишет:
Я использую такой вариант:
Хотя это работаетCODE:
string ftp="****.zzz.com.ua"; // фтп, исправить на свой
string login="****"; // исправить на свой
string pass="****"; // исправить на свой
int open, _close, connect, file, catalog;
external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll" );
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll" );
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll" );
external(INT, "FtpSetCurrentDirectory", "FtpSetCurrentDirectoryA", "Wininet.dll" );
external(INT, "FtpGetFile", "FtpGetFileA", "Wininet.dll" );
open=InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
connect=InternetConnect(open, ftp, 21, login, pass, 1, 134217728, 0);
catalog=FtpSetCurrentDirectory(connect, ftp);
file=FtpGetFile(connect, "Имя_файла_на_сервере.exe", "назвать файл и положить в папку с кибор.exe", 0, 0, 0); // скачать файл в папку с кибор
_close=InternetCloseHandle(connect);
if(file==0){sleep(500);}
else messagebox("Файл успешно скачан");
string ftp="****.zzz.com.ua"; // фтп, исправить на свой
string login="****"; // исправить на свой
string pass="****"; // исправить на свой
int open, _close, connect, file, catalog;
external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll" );
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll" );
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll" );
external(INT, "FtpSetCurrentDirectory", "FtpSetCurrentDirectoryA", "Wininet.dll" );
external(INT, "FtpGetFile", "FtpGetFileA", "Wininet.dll" );
open=InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
connect=InternetConnect(open, ftp, 21, login, pass, 1, 134217728, 0);
catalog=FtpSetCurrentDirectory(connect, ftp);
file=FtpGetFile(connect, "Имя_файла_на_сервере.exe", "назвать файл и положить в папку с кибор.exe", 0, 0, 0); // скачать файл в папку с кибор
_close=InternetCloseHandle(connect);
if(file==0){sleep(500);}
else messagebox("Файл успешно скачан");
(Добавление)
Если
CODE:
Поместить сразу после Catalog То сработает. Видимо он не видит, потому что условия закрывают его, я пробовал продублировать каталог и тоже не сработалоGet_File = FtpGetFile(Connect_Internet, "prog2.exe", "prog2.exe", 0, 0, 0);
if (Get_File == 0)
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удалось скачать ", "prog", MB_OK | MB_ICONERROR | MB_TOPMOST);
}
if (Get_File == 0)
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удалось скачать ", "prog", MB_OK | MB_ICONERROR | MB_TOPMOST);
}
(Добавление)
Почему тогда после дублирование работает?
Код (Отобразить)
(Добавление)
Ищите коменты, я там показал почему работает если продублировать эти строчки
20. 007wan - 26 Августа, 2019 - 04:28:16 - перейти к сообщению
Короче вот доделал. По-моему так это почти идеал)
(Добавление)
(Добавление)
Работает шикарно.
(Добавление)
Если понравилось, ставьте "-" репутацию и карму. Для меня минус, это как плюс. Если поставите "+", то мне не понравится, поэтому ставьте "-", пожалуйста.
(Добавление)
Спасибо всем, кто помогали!)
В основной код бота (Отобразить)
(Добавление)
Для модуля обновления (Отобразить)
(Добавление)
Работает шикарно.
(Добавление)
Если понравилось, ставьте "-" репутацию и карму. Для меня минус, это как плюс. Если поставите "+", то мне не понравится, поэтому ставьте "-", пожалуйста.
(Добавление)
Спасибо всем, кто помогали!)