|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Реальный способ заработать!!!
Всем привет! У меня возникла небольшая проблема... За большое человеческое спасибо и за небольшое баксовое вознграждение (10 баксов) на WMZ помогите исправить проблему...
Код:
var hNet, hFTP: HINTERNET; begin hNet:=InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); hFTP:=InternetConnect(hNet, PChar('Ip адрес сервака'), 21, PChar('User'), PChar('ПАРоЛЬ), INTERNET_SERVICE_FTP, 0, 0); FtpSetCurrentDirectory(hFTP, PChar('Домен используйте какой хотите')); FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 autor'), 0); FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 bot'), 0); FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 date'), 0); FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 info'), 0); FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 src'), 0); FtpCommand(hFTP, False, FTP_TRANSFER_TYPE_ASCII, PChar('SITE CHMOD 777 vi'), 0); end; Если вы мне поможете то стучите - ICQ - 452397022 о том куда и как переводить деньги... Используем тэги |