Delphi (TWebBrowser)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Kandi, 24 Nov 2009.

  1. Kandi

    Kandi Member

    Joined:
    18 Nov 2009
    Messages:
    344
    Likes Received:
    17
    Reputations:
    0
    Hello всем...
    Я недавно сделал себе левенький спамер ВКонтакте с TWebBrowser сделал поиск, потом сделал парс страницы ну и собственно вытаскивал на парсе такой код:
    из
    Code:
    <li><a href="mail.php?act=write&amp;to=13555100">Сообщение</a>
    Вытаскиваем это:
    Code:
    mail.php?act=write&amp;to=13555100
    ну и собственно сохраняем....затем просто подставляем в ссылку http://vkontakte.ru/ ну и получается собственно http://vkontakte.ru/mail.php?act=write&to=58723152

    Сообщения отправлял таким образом...:
    Code:
    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.....но тут возникает первый вопрос как? :eek:
    Код на Инвайт в группу такой:
    Code:
    <a href="#invite" onclick="inviteMemberToGroup([COLOR=Red]IDGROUP[/COLOR] , [COLOR=DarkOrange]IDUSER[/COLOR]); return false;">Выслать приглашение</a>
    Здесь задействован JavaScript...сюда собственно и обращаюсь за помощью, мб кто нить может помочь, что нить придумать? :rolleyes:
    Я просто даже не могу понять...что к чему...!?!? :confused:

    Прошу помощи.... :(

    З.Ы. delphi особо не знаю....
     
    #1 Kandi, 24 Nov 2009
    Last edited: 24 Nov 2009
  2. WoOoT

    WoOoT Banned

    Joined:
    12 Nov 2009
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    Ну тогда юзай готовый софт для инвайта, а изучение делфи начни с чего попроще.
     
    1 person likes this.
  3. Kandi

    Kandi Member

    Joined:
    18 Nov 2009
    Messages:
    344
    Likes Received:
    17
    Reputations:
    0
    Я думал услышать более достойную подсказку :D
    Был бы бесплатный....юзал бы :)
     
  4. WoOoT

    WoOoT Banned

    Joined:
    12 Nov 2009
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    Если делаешь через WB, то по идее яваскрипт можно заюзать так:

    WB.Navigate('javascript: inviteMemberToGroup(IDGROUP , IDUSER); return false;');
    Лично я не проверял, но попробуй поэксперементируй =)
     
  5. Kandi

    Kandi Member

    Joined:
    18 Nov 2009
    Messages:
    344
    Likes Received:
    17
    Reputations:
    0
    Спасибо за совет, попробую :)
     
  6. DeaD_MoroZ

    DeaD_MoroZ Banned

    Joined:
    3 Nov 2009
    Messages:
    102
    Likes Received:
    7
    Reputations:
    0
    постори что браузер передаёт в момент инвайта-по моему IDGROUP , IDUSER. И в строку подставь свои значения
     
  7. DeaD_MoroZ

    DeaD_MoroZ Banned

    Joined:
    3 Nov 2009
    Messages:
    102
    Likes Received:
    7
    Reputations:
    0
    вот передаётся friends=номер друга&gid=номер группы&hash=и вот ещё какая то ерунда
    передаётся всё в vkontakte.ru/groups_ajax.php?act=a_invite_friends