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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Went
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 103
Зарегистрирован: 01.09.2004 (Ср) 17:25
Откуда: Rostov-on-Don

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

Сообщение Went » 10.05.2010 (Пн) 19:48

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

Если можно, программный код :)
Не все ОПЕРАТОРЫ одинаково хороши

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

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

Сообщение Хакер » 10.05.2010 (Пн) 20:28

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

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

Вот для меня так же элементарно получать письма, список файлов по FTP.
И чтобы получить помощь, тебе нужно сказать, что именно у тебя не получается. Иначе, ведь не могу я тебе полностью рассказывать как «покупать хлеб»: как открыть дверь, как поднять левую ногу, как открыть рот, задавая вопрос продавцу.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Went
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 103
Зарегистрирован: 01.09.2004 (Ср) 17:25
Откуда: Rostov-on-Don

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

Сообщение Went » 10.05.2010 (Пн) 20:42

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

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

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

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

Сообщение Хакер » 10.05.2010 (Пн) 21:34

Напоминает что-то нелегальное.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

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

Сообщение Денис » 10.05.2010 (Пн) 22:03

Хакер писал(а):Напоминает что-то нелегальное.


Да нет, напоминает изобретение чертова велосипеда.
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

Went
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 103
Зарегистрирован: 01.09.2004 (Ср) 17:25
Откуда: Rostov-on-Don

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

Сообщение Went » 10.05.2010 (Пн) 22:27

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

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

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

Сообщение Хакер » 10.05.2010 (Пн) 22:32

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

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

Ещё раз перечитай аналогию с хлебом и исправься.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Went
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 103
Зарегистрирован: 01.09.2004 (Ср) 17:25
Откуда: Rostov-on-Don

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

Сообщение Went » 10.05.2010 (Пн) 22:43

Я, конечно, прошу прощения, но придираться к формулировкам не вижу смысла. Все и так поняли, что мне нужно. Если ответ неизвестен - так и скажите.
Не все ОПЕРАТОРЫ одинаково хороши

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

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

Сообщение iGrok » 10.05.2010 (Пн) 22:58

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

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

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

Went
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 103
Зарегистрирован: 01.09.2004 (Ср) 17:25
Откуда: Rostov-on-Don

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

Сообщение Went » 10.05.2010 (Пн) 23:16

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

Запомню. Спасибо.
Не все ОПЕРАТОРЫ одинаково хороши

qwertyhp
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 156
Зарегистрирован: 07.10.2009 (Ср) 15:02
Откуда: Москва

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

Сообщение qwertyhp » 10.05.2010 (Пн) 23:20

Получение почты - смотри вложение ниже. А вообще - поиск по Сайту и поисковикам, форумам, и только если не повезёт - лобовая просьба о помощи: такой подход позволит Вам попутно встретить массу потенциально необходимого Вам кода, который - даже не сомневаюсь - пригодится Вам для решения Вашей задачи (поправьте меня, если ошибаюсь, но Вам также понадобятся : пробуждение/погружение компьютера в спячку, парсер писем (и, как следствие - декодировщик из 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).
Вложения
MailChecker.zip
Спасибо Автору этого кода за его работу.
(17.06 Кб) Скачиваний: 57
Пятачок Forever! :)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 15

    TopList