007wan |
Отправлено: 24 Августа, 2019 - 11:39:21
|
Эксперт
Покинул форум
Сообщений всего: 1838
Дата рег-ции: Март 2017
Репутация: -2
|
Kibor пишет: Какое фтп?
Есть файл
http: / / ocean-games.com/test
Он его считывает просто. И все. Вы его так же можете в браузере открыть, удалив пробелы. У меня нету ссылки на моего файл, я не знаю как сделать, что бы была так же прямая ссылка на файл без пароля. У меня все файлы есть только на фтп и всё с паролем.
(Добавление)
Хорошо вот пример с файлом яндекса. Код (Отобразить)CODE:char A[100];
initialarray(#A[0], 0);
string adress="https:/"+"/yadi.sk/i/01R4N5z3YFqxgA";
external(INT, "InternetOpen", "InternetOpenA", "wininet.dll");
external(INT, "InternetOpenUrl", "InternetOpenUrlA", "wininet.dll");
external(INT, "InternetReadFile", "InternetReadFile", "wininet.dll");
external(INT, "InternetCloseHandle", "InternetCloseHandle", "wininet.dll");
int hInternetSession = InternetOpen("", 0, 0, 0, 0);
int hURL = InternetOpenUrl (hInternetSession, adress, 0, 0, 0, 0);
int dwBytesRead;
InternetReadFile (hURL, address(#A[0]), 100, address(#dwBytesRead));
InternetCloseHandle(hInternetSession);
InternetCloseHandle(hURL);
messagebox (format(#A[0]));
(Добавление)
Запусти его. |
|
|
007wan |
Отправлено: 24 Августа, 2019 - 11:59:02
|
Эксперт
Покинул форум
Сообщений всего: 1838
Дата рег-ции: Март 2017
Репутация: -2
|
Kibor пишет: Так заведи бесплатный хостинг и будет ссылка. Да я заводил домен и ничего не происходит. Захожу на него и пишет, что Цитата: "Приветствуем вас на странице
******.zzz.com.ua
Загрузите все файлы в главный каталог на вашем аккаунте. "
(Добавление)
А файлы я уже давно загрузил в фтп
(Добавление)
Аккаунты бесплатные я создал и домен, но понятия не име как создать ссылку, по которой он будет скачивать файл из фтп без пароля.
(Добавление)
Вот у меня на фтп сервере можно скачать этот файл одним кликом, но копировать ссылку не удается, т.к она странная, если увидеть ее:
Цитата: javascript:submitBrowseForm('/ftp name.zzz.com.ua','name file%20Versions.txt','downloadfile',''); |
|
|
007wan |
Отправлено: 24 Августа, 2019 - 13:07:26
|
Эксперт
Покинул форум
Сообщений всего: 1838
Дата рег-ции: Март 2017
Репутация: -2
|
Zireael пишет:
CODE:char C[100000];
if (sendgetweb(#C[0], "", "GET", "http:/"+"/zireael.zzz.com.ua", "file.txt")>0)messagebox (format(#C[0])); Спасибо большое, а то думал уже сейчас начнется полная парилка) А еще вопросик: Как ты добавляешь на форум картинку? Какой формат? Просто я помню добавлял как-то раз и у меня выходили "Теги и ссылка визуально", а картинки не было.
(Добавление)
Zireael пишет:
CODE:char C[100000];
if (sendgetweb(#C[0], "", "GET", "http:/"+"/zireael.zzz.com.ua", "file.txt")>0)messagebox (format(#C[0])); А exe так же скачивать? |
|
|
007wan |
Отправлено: 24 Августа, 2019 - 13:22:47
|
Эксперт
Покинул форум
Сообщений всего: 1838
Дата рег-ции: Март 2017
Репутация: -2
|
Kibor пишет: 007wan пишет: Как ты добавляешь на форум картинку? Какой формат? Просто я помню добавлял как-то раз и у меня выходили "Теги и ссылка визуально", а картинки не было.
(Добавление)
Надо добавлять http, а не https Спасибо.
(Добавление)
Ща попробую
Нажмите для увеличения
(Добавление)
Zireael пишет:
CODE:char C[100000];
if (sendgetweb(#C[0], "", "GET", "http:/"+"/zireael.zzz.com.ua", "file.txt")>0)messagebox (format(#C[0])); А как скачать? Он же только читает эту дичь, или мне скачать буквы и цифры и преобразовать в exe?
(Добавление)
Что не так?
CODE:string adress="http:"+"/*********.zzz.com.ua";
external(INT, "InternetOpen", "InternetOpenA", "wininet.dll");
external(INT, "InternetOpenUrl", "InternetOpenUrlA", "wininet.dll");
external(INT, "InternetReadFile", "InternetReadFile", "wininet.dll");
external(INT, "InternetCloseHandle", "InternetCloseHandle", "wininet.dll");
int hInternetSession = InternetOpen("", 0, 0, 0, 0);
int hURL = InternetOpenUrl (hInternetSession, adress, 0, 0, 0, 0);
Get_File = FtpGetFile(hURL, "file.exe", "file.exe", 0, 0, 0);
if (Get_File == 0)
{
messagebox(1);
}
InternetCloseHandle(hInternetSession);
InternetCloseHandle(hURL);
Не скачивает(Отредактировано автором: 24 Августа, 2019 - 13:23:23) |
|
|
Zireael |
Отправлено: 24 Августа, 2019 - 13:45:07
|
Эксперт
Покинул форум
Сообщений всего: 4397
Дата рег-ции: Нояб. 2017
Репутация: 580
|
Цитата: А как скачать? Он же только читает эту дичь, или мне скачать буквы и цифры и преобразовать в exe?
Просто записать в файл.
CODE:char C[10000000];
int count_symbol=sendgetweb(#C[0], "", "GET", "http:/"+"/zireael.zzz.com.ua", "Kibor-exe.exe");
if (count_symbol>0)
{
if(fopen("C:\Kib.exe", "wb"))
{
fwriteb(#C[0], count_symbol);
fclose();
}
} |
|
|
|