ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
24.11.2009, 22:31
|
|
Познающий
Регистрация: 18.11.2009
Сообщений: 44
Провел на форуме:
134032
Репутация:
3
|
|
Delphi (TWebBrowser)
Hello всем...
Я недавно сделал себе левенький спамер ВКонтакте с TWebBrowser сделал поиск, потом сделал парс страницы ну и собственно вытаскивал на парсе такой код:
из
Код:
<li><a href="mail.php?act=write&to=13555100">Сообщение</a>
Вытаскиваем это:
Код:
mail.php?act=write&to=13555100
ну и собственно сохраняем....затем просто подставляем в ссылку http://vkontakte.ru/ ну и получается собственно http://vkontakte.ru/mail.php?act=write&to=58723152
Сообщения отправлял таким образом...:
Код:
Web.OleObject.document.getElementById('title').Value :=title.text;
Web.OleObject.document.getElementById('message').Value :=TEXT.Text;
......
........
........
try
win.ExecScript('javascript:send_message()', Olelanguage);
Честно сказать украл этот код..особо в нём не разбирался....ну понял что работает как копи->паст->send...
(на точки не обращайте внимания...)
И вот у меня возник такой вопрос...
Я хочу написать самый простой VKInviter так же через TWebBrowser.....но тут возникает первый вопрос как? 
Код на Инвайт в группу такой:
Код:
<a href="#invite" onclick="inviteMemberToGroup(IDGROUP , IDUSER); return false;">Выслать приглашение</a>
Здесь задействован JavaScript...сюда собственно и обращаюсь за помощью, мб кто нить может помочь, что нить придумать? 
Я просто даже не могу понять...что к чему...!?!? 
Прошу помощи.... 
З.Ы. delphi особо не знаю....
Последний раз редактировалось Kandi; 24.11.2009 в 22:37..
|
|
|
25.11.2009, 09:35
|
|
Banned
Регистрация: 12.11.2009
Сообщений: 9
Провел на форуме:
99380
Репутация:
1
|
|
З.Ы. delphi особо не знаю....
Ну тогда юзай готовый софт для инвайта, а изучение делфи начни с чего попроще.
|
|
|
|
25.11.2009, 12:45
|
|
Познающий
Регистрация: 18.11.2009
Сообщений: 44
Провел на форуме:
134032
Репутация:
3
|
|
Сообщение от WoOoT
Ну тогда юзай готовый софт для инвайта, а изучение делфи начни с чего попроще.
Я думал услышать более достойную подсказку 
Был бы бесплатный....юзал бы 
|
|
|
|
29.11.2009, 11:43
|
|
Banned
Регистрация: 12.11.2009
Сообщений: 9
Провел на форуме:
99380
Репутация:
1
|
|
Если делаешь через WB, то по идее яваскрипт можно заюзать так:
WB.Navigate('javascript: inviteMemberToGroup(IDGROUP , IDUSER); return false;');
Лично я не проверял, но попробуй поэксперементируй =)
|
|
|
|
04.12.2009, 14:56
|
|
Познающий
Регистрация: 18.11.2009
Сообщений: 44
Провел на форуме:
134032
Репутация:
3
|
|
Сообщение от WoOoT
Если делаешь через WB, то по идее яваскрипт можно заюзать так:
WB.Navigate('javascript: inviteMemberToGroup(IDGROUP , IDUSER); return false;');
Лично я не проверял, но попробуй поэксперементируй =)
Спасибо за совет, попробую
|
|
|
|
04.12.2009, 23:04
|
|
Banned
Регистрация: 03.11.2009
Сообщений: 112
Провел на форуме:
98006
Репутация:
17
|
|
постори что браузер передаёт в момент инвайта-по моему IDGROUP , IDUSER. И в строку подставь свои значения
|
|
|
|
04.12.2009, 23:11
|
|
Banned
Регистрация: 03.11.2009
Сообщений: 112
Провел на форуме:
98006
Репутация:
17
|
|
вот передаётся friends=номер друга&gid=номер группы&hash=и вот ещё какая то ерунда
передаётся всё в vkontakte.ru/groups_ajax.php?act=a_invite_friends
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Литература Delphi
|
Sams |
С/С++, C#, Delphi, .NET, Asm |
2 |
19.03.2010 19:46 |
|
Скачать Delphi 7, помощь.
|
_casper_ |
С/С++, C#, Delphi, .NET, Asm |
20 |
08.12.2009 04:54 |
|
Virus.Win32.Induc.a – новый вирус для Delphi
|
ErrorNeo |
Уязвимости |
37 |
26.08.2009 00:33 |
|
Virus.Win32.Induc.a или "Снова записки новичка"
|
_=(mac)=_ |
Защита ОС: вирусы, антивирусы, файрволы. |
5 |
24.08.2009 23:34 |
|
Интересные вопросы по Delphi и не только
|
CeHoKoC |
С/С++, C#, Delphi, .NET, Asm |
4 |
20.04.2009 10:33 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
