Отсылка E-Mail+attach через web-интерфейс. yandex\rambler.

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
xenomorph
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 508
Зарегистрирован: 18.04.2004 (Вс) 11:41
Откуда: это не важно - на сегодня у меня есть алиби ...

Отсылка E-Mail+attach через web-интерфейс. yandex\rambler.

Сообщение xenomorph » 15.05.2006 (Пн) 20:54

Привет всем!

Subj:
Отсылка E-Mail+attach через web-интерфейс. yandex\rambler.

Кто нибудь уже автоматизировал этот процесс?
Опыта работы с вэб у меня нет.
Особо буду признателен за направление куда копать :-)

з.ы.
1. SMTP не предлагать - этот секс у меня уже был :-).
2. Особо интересует авторизация.
3. Ответы по-существу.
... Dpkjvfnm dc`xnj itdtkbnmcz, f tckb yt itdtkbnmcz hfcitdtkbnm b dpkjvfnm !!! ...

Lumen
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 841
Зарегистрирован: 03.12.2005 (Сб) 16:09
Откуда: Брянск

Сообщение Lumen » 16.05.2006 (Вт) 8:43

А чем собственно SMTP не устраивает?

CodeName33
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 297
Зарегистрирован: 01.09.2004 (Ср) 13:25
Откуда: SPb

Сообщение CodeName33 » 16.05.2006 (Вт) 8:59

Авторизация на яндексе (но в моём примере небезопасная - пароль прямо в ссылке): http://passport.yandex.ru/passport?mode ... p=0&login=МОЙ_ЛОГИН&passwd=МОЙ_ПАРОЛЬ&alien=yes

После авторизации можно перейди на страницу отправки и заполнять формы. Но поле с файлом для аттача заполнить не удастся (из за безопасности), но можно немного извратившись обойти это (если это объект WebBrowser) то можно устанвить фокус на это поле. И посылать объекту WB нажатия клавиш через SendMessage с константой WM_CHAR. Вот код:
Код: Выделить всё
Private Function InsertText(ByVal hwnd As Long, ByVal Text As String) As Long
Dim i As Long, IC As Long

IC = Len(Text)
For i = 1 To IC
    SendMessage hwnd, WM_CHAR, Asc(Mid$(Text, i, 1)), ByVal 0
Next
End Function
Программисты не глючат - глючат компиляторы...

xenomorph
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 508
Зарегистрирован: 18.04.2004 (Вс) 11:41
Откуда: это не важно - на сегодня у меня есть алиби ...

Сообщение xenomorph » 16.05.2006 (Вт) 23:21

2 CodeName33: Большое спасибо!
ИМХО BASE64 шифрацией назвать язык не поворачиваеться.
Защиты здесь нету по определению.

Я планирую юзать сокеты. Не контрол експлорера. ...
хотя икс.три. :-)

2 Lumen:

Да просто админ ботов палит по нестандартным портам и режит в капусту :-).
... Dpkjvfnm dc`xnj itdtkbnmcz, f tckb yt itdtkbnmcz hfcitdtkbnm b dpkjvfnm !!! ...


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

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

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

    TopList  
cron