Общение с интернетом

[Went]

Вопросов сразу 3:
1. Есть мыльный аккаунт (скажем, на Яндексе). Как программно через него отправить письмо с вложением?
2. Есть ftp-сервер. Как получить список файлов на нем и скачать что-либо с него?
3. Взять тот же аккаунт с почтой. Как получить с него список писем и загрузить какое-либо?

Если можно, программный код

[Хакер]

Есть магазин, в котором продают продукты. Как в нём купить хлеб?
Есть театр, в котором идут спектакли. Как получить список спектаклей, идущих там, и посмотреть какие-либо из них?

Думаю, не ошибусь, что для тебя не представляет сложности купить хлеб. Что у тебя вызывает недоумение вопрос «Как купить хлеб?».
— Да, господи, это же элементарно — идёшь и покупаешь.

Вот для меня так же элементарно получать письма, список файлов по FTP.
И чтобы получить помощь, тебе нужно сказать, что именно у тебя не получается. Иначе, ведь не могу я тебе полностью рассказывать как «покупать хлеб»: как открыть дверь, как поднять левую ногу, как открыть рот, задавая вопрос продавцу.

[Went]

Вручную - это все легко. Я хочу это сделать программно. То есть, нужен кусок программы (точнее, три куска), который:
1. Обращается к почтовому серверу, отправляет с него сообщение с вложением. Образец нужен кода, который я заточу под себя.
2. Соединяется с ftp-сервером, запрашивает его содержимое, скачивает некоторый файл.
3. Соединяется с почтовым сервером, запрашивает перечень писем, загружает определенное.

Суть примерно такова. Человек фиг знает где, с компом толком не обращается, нужно продиагностировать некоторые части системы, отправить мне по почте результаты (текстовый файл, как вложение). Потом по почте (в ответном письме) получить команду, согласно которой загрузить с ftp файл на замену нерабочему. Команда не будет содержать имени файла, только индекс в списке файлов на ftp. Целевой пользователь только запустит программу, она сама все сделать должна автоматически.

[Хакер]

Напоминает что-то нелегальное.

[Денис]

Напоминает что-то нелегальное.

Да нет, напоминает изобретение чертова велосипеда.

[Went]

Ничего нелегального писать не собираюсь. Вредоносного - тем более. Программа просто в помощь. На начальных парах. Потом по этим принципах можно будет выстраивать систему интернет-обновлений и отчетов об ошибках своих программ. Сейчас это стало модным.

[Хакер]

по этим принципах можно

По этим — точно не нужно.

Ещё раз перечитай аналогию с хлебом и исправься.

[Went]

Я, конечно, прошу прощения, но придираться к формулировкам не вижу смысла. Все и так поняли, что мне нужно. Если ответ неизвестен - так и скажите.

[iGrok]

Здесь не дают образцы кода. Запомни это.
Есть конкретный вопрос, ты что-то сделал для его решения, но у тебя - не получается - спрашивай. Тут помогут.
А "дайте код" - это не на этот форум. Ответы на твои вопросы всем известны, но все они находятся простым запросов к гуглю. Перепечатывать всё это для тебя тут никто не будет. Запомни это.

Вкратце:
1) SMTP
2) FTP
3) POP3

Описания протоколов есть в интернете. Общаться с серверами - по TCP/IP, через сокеты. Winsock, CSocket или ещё как.

[Went]

Здесь не дают образцы кода. Запомни это...

Запомню. Спасибо.

[qwertyhp]

Получение почты - смотри вложение ниже. А вообще - поиск по Сайту и поисковикам, форумам, и только если не повезёт - лобовая просьба о помощи: такой подход позволит Вам попутно встретить массу потенциально необходимого Вам кода, который - даже не сомневаюсь - пригодится Вам для решения Вашей задачи (поправьте меня, если ошибаюсь, но Вам также понадобятся : пробуждение/погружение компьютера в спячку, парсер писем (и, как следствие - декодировщик из Base64), авто-подключение/отключение соединения с Интернет, UnZip/UnRar почтовых вложений в консольном (т.е. безинтерфейсном) исполнении.
По поводу отправления почты -

Код: Выделить всё

Private Sub Form_Load()
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration") 'Конфигурация CDO...
   With cdoConfig.Fields 'Вносим изменения в поля...
     .Item(sch & "sendusing") = 2 'Устанавливаем протокол SMTP
     .Item(sch & "smtpserver") = "SMTP.mail.ru" 'имя SMTP-Сервера или IP адрес
     'Согласно новым правилам указываем, что сервер SMTP требует авторизации...
     .Item(sch & "smtpauthenticate") = 1
     'Авторизируемся...
     .Item(sch & "sendusername") = "ТвойЛогин" 'Логин
     .Item(sch & "sendpassword") = "ПарольЯщика" 'Пароль
     .Update 'Сохраняем измененную конфигурацию
   End With

   Set cdoMessage = CreateObject("CDO.Message") 'Модель CDO...
   With cdoMessage
      Set .Configuration = cdoConfig
      .From = "alex@mail.ru"    'От кого... здесь указываем свой ящик в качестве отправителя!!!
      .To = "alex@mail.ru" 'Кому
      .BodyPart.Charset = "windows-1251" 'Устанавливаем кириллицу для текста сообщения
      .Subject = "Отправка почты" 'Тема сообщения
      .TextBody = "Сообщение по SMTP из объектной модели CDO.Message" 'Сообщение
      '.AddAttachment "D:\1.txt" 'Добавляем вложение
      .Send 'Отправка
   End With
 
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
End Sub

- скажи спасибо awl100Alex, он мне очень помог не так давно (и зайди по http://bbs.vbstreets.ru/viewtopic.php?f=1&t=40827&start=0&st=0&sk=t&sd=a&hilit=smtp).