Имя: Пароль:
1C
 
Коллеги, как можно получить e-mail пользователя?

0 Гений 1С
 
гуру
09.02.09
18:42
Ну собственно, хочу предложить на ИС идею (не для себя, а для олла).
Суть вот в чем.
При открытии обработки определяется е-мэйл пользователя, затем создается WebBrowser и делается Navigate на нужную страницу, например www.fixin.com?work=myfirsttest&[email protected]

Таким образом, анализируя лог сервера, можно узнать, кто юзает обработку и разослать юзверям предложения dotation ware. ;-)
1 rie
 
09.02.09
18:45
(0) Троян, спам...
Форумом не ошибся?
2 Jump
 
09.02.09
18:45
(0)Я как пользователь за такое морду бить буду, ежели найду автора.
3 Гений 1С
 
гуру
09.02.09
18:46
(2) гыгыгы.... что дальше?
пока могу получить только имя домена и имя пользователя
4 vde69
 
09.02.09
18:47
Процедура ЗаполнитьПочтовыеАдресаИзAD()
   Попытка                
       conn = ПолучитьCOMОбъект("","ADODB.Connection");
       conn.Provider = "ADSDSOObject";
       conn.Open("Active Directory Provider");
   Исключение
       Предупреждение("Ошибка подключения к Active Directory!");
       Возврат;
   КонецПопытки;    
   
   Для Каждого Стр из Таблица Цикл
       Если НЕ ПустаяСтрока(Стр.Логин) Тогда
           Попытка                
               query = "SELECT ADsPath FROM 'LDAP://DC="+СокрЛП(Домен.Код)+"' WHERE SAMAccountName='"+Стр.Логин+"'";
               rs = conn.Execute(query);
               Пока НЕ rs.EOF() Цикл
                   obj = ПолучитьCOMОбъект(rs.Fields(0).Value);
                   Если obj.Class="user" Тогда
                       Стр.НоваяПочта=СокрЛП(obj.EmailAddress);
                       Если Стр.НоваяПочта<>Стр.СтараяПочта Тогда
                           Стр.Установить=Истина;
                       КонецЕсли;
                   КонецЕсли;
                   rs.MoveNext();
               КонецЦикла;
           Исключение
               Сообщить("Ошибка получения почты для логина :"+Стр.Логин);                                                                      
           КонецПопытки;
       КонецЕсли;
   КонецЦикла;
   conn.Close();    
КонецПроцедуры
5 Гений 1С
 
гуру
09.02.09
18:50
(4) АД есть только на работе у юзверей.
6 Jump
 
09.02.09
18:51
Это называется незаконный сбор информации о гражданине с применением технических средств, и рассылка спама.
Под пару статей можно будет подписать.
И следующую гениальную идею придется постить  с нетбука, с грустью глядя в зарешеченное окошко.
7 Asmody
 
09.02.09
18:53
(0) а если еще на каждый чих пользователя повесить скрипт, который будет по нужному баннеру кликать.... ууу...!
8 Гений 1С
 
гуру
09.02.09
18:55
(6) че та я сомневаюсь... можно user-license составить, где включить этот пункт. Все равно их никто не читает.
9 Asmody
 
модератор
09.02.09
18:57
(8) точно. и выводить ее 5м шрифтом светло-серым цветом на белом фоне.
10 zyto
 
09.02.09
18:58
(0)У меня в данный момент штук 5 работающих мэйлов...
Сколько не работающих - даже странно подумать.
Ни один из них не подключен в аутлуке или другой программе...

Какой адрес и откуда ты хочешь получить???

ЗЫ Как обычно - тупая ветка.
11 szhukov
 
09.02.09
18:58
думаю долго эта обработка не проживет, а слава у автора проявится очень быстро и на долго.
12 Балабес
 
09.02.09
19:00
(0)ты тоже на пути к мировому господству?
13 Asmody
 
модератор
09.02.09
19:00
(11) да ладно, тут Кусочек EULA на QIP тоже интересно написано, и ничего, все пользуются
14 zyto
 
09.02.09
19:00
(11)Стаж: 2 г. 8 мес.  
Странно...

Ты думаешь у автора недостаточно славы? :)))
15 Гений 1С
 
гуру
09.02.09
19:19
мне лично бабки не нужны, хочу для других метод опубликовать. ;-)
16 Jump
 
09.02.09
19:35
Правильно, зачем бабки, лучше бабы, а еще лучше крупную партию мобильных телефонов :)
17 Гений 1С
 
гуру
09.02.09
19:43
Можно конечно запустить полнотекстовый поиск по базе, но найдется слишком много e-mailов или заточиться на специфичную конфигурацию (УПП, там или УТ)
18 Jump
 
09.02.09
20:42
(17)Да что уж на мыло мелочится, ищи сразу номера и пины кредиток, и и паролк к кошелькам на вебмани.
19 Gepard
 
09.02.09
20:49
(10) +100
20 vde69
 
09.02.09
20:51
кстати есть вирусы специально заточенные под клиент банки разные, воруют пароли для веб сесий
21 Гений 1С
 
гуру
10.02.09
09:41
Я думаю можно юзать SendKeys чтобы заткнуть аутлук... ;-)
22 DK_L
 
11.02.09
13:14
(19)+1
Программист всегда исправляет последнюю ошибку.