[решено] Отправка заполненой формы в IE.

timsky · Отправлено: **16:09, 02-09-2009** | #2

Держи, спамер

Код:

#include <IE.au3>
;=======авторизация=====================
$new_wind = _IECreate("http://vkontakte.ru/index.php")
_IELoadWaitTimeout(60000 * 2)
$oForm = _IEFormGetObjByName($new_wind, "login")
$login = _IEFormElementGetObjByName($oForm, "email")
$pass = _IEFormElementGetObjByName($oForm, "pass")
_IEFormElementSetValue($login, "windows-media-player@yandex.ru")
_IEFormElementSetValue($pass, "R255G0B0H0S100V100")
_IEFormSubmit($oForm)
_IELoadWaitTimeout(60000 * 2)
;===============================================
;======Кого добавляем=========================
_IENavigate($new_wind, "http://vkontakte.ru/id1458553?94229")
_IELoadWaitTimeout(60000 * 2)
_IELinkClickByText($new_wind, "Добавить в друзья")
If @error <> 7 Then
    Sleep(3000)
    If _IELinkClickByText($new_wind, "Добавить личное сообщение") <> 7 Then
        $message = _IEGetObjByName($new_wind, "message")
        _IEPropertySet($message, "innertext", "Так просто текст")
        Sleep(3000)
        $submit = _IEGetObjById($new_wind, 'button0_2')
        _IEAction($submit, 'click')
        If @error Then MsgBox(16, @error, @extended)

    EndIf
EndIf
_IELoadWaitTimeout(60000 * 2)

У тебя, кстати, и текст не прописывался этот: Так просто текст

Вот на такие даже спамерские вопросы с четким, готовым к отладке кодом очень интересно и приятно отвечать.
Слипы добавил для себя, для наглядности

HORRIBLE · Отправлено: **19:11, 02-09-2009** | #3

Странно, у меня текст (Так просто текст) добавлялся..........но бывало и обратное...........
Не знал, что можно так нажать:

Код:

$submit = _IEGetObjById($new_wind, 'button0_2')
        _IEAction($submit, 'click')

У меня немного другая цель,не спам, просто добавление людей для приложения в контакте, хотя и для спама тоже пойдет, только мне не зачем.
Спасибо.

timsky · Отправлено: **21:54, 02-09-2009** | #4

Да лана, не особо важно, для чего тебе это.
Ты бы пароль сменил теперь от акка на всякий случай

Цитата HORRIBLE:

Не знал, что можно так нажать: »

Ну у тебя _IEFormSubmit не срабатывал потому что эта кнопка вне формы. Т.е. после закрывающего тега </form>

evg64 · Отправлено: **18:45, 05-09-2009** | #5

Почему если я меняю открываемую анкету, скрипт перестает вносить данные в поле "Добавить сообщение"? Вот пример с другой анкетой. При запуске этого скритпа у меня не работает _IEPropertySet.

Код:

#include <IE.au3>
$new_wind=_IECreate("http://vkontakte.ru/id49650550")

_IELinkClickByText($new_wind, "Добавить в друзья")
If @error <> 7 Then
    Sleep(3000)
    If _IELinkClickByText($new_wind, "Добавить личное сообщение") <> 7 Then
        $message = _IEGetObjByName($new_wind, "message")
        sleep(1000)
        _IEPropertySet($message, "innertext", "Так просто текст")
        Sleep(3000)
        $submit = _IEGetObjById($new_wind, 'button0_2')
        ;_IEAction($submit, 'click')
        If @error Then MsgBox(16, @error, @extended)

    EndIf
EndIf

timsky · Отправлено: **01:50, 07-09-2009** | #6

Ну твой скрипт же не авторизуется. У меня нет акка ни на одной социалке, так что тестить не на чем.

HORRIBLE · Отправлено: **19:06, 08-09-2009** | #7

Чтобы добавлялся текст, когда страничка открыта или закрыта надо добавить:

PHP код:


$new_wind=_IECreate("http://vkontakte.ru/id49650550")

_IELoadWaitTimeout(60000 * 2)

_IELinkClickByText($new_wind, "Добавить в друзья")

If @error <> 7 Then

    Sleep(3000)

    If _IELinkClickByText($new_wind, "Добавить личное сообщение") <> 7 Then

       sleep(1000)

      $oform = _IEFormGetObjByName ($new_wind, "addFriend")    <--------- новая строка

      $message =_IEFormElementGetObjByName ($oForm, "message") <--------- новая строка

      _IEPropertySet($message, "innertext", "Так просто текст")

       sleep(1000)

      $submit = _IEGetObjById($new_wind, 'button0_2')

      _IEAction($submit, 'click')

      If @error Then MsgBox(16, @error, @extended)

    EndIf

EndIf

_IELoadWaitTimeout(60000 * 2)

evg64 · Отправлено: **20:54, 09-09-2009** | #8

HORRIBLE, спасибо за дополнение. Есть вопрос по этому коду: как вы узнали, что форма называется именно addFriend, а не FriendАdd или Аdd?

HORRIBLE · Отправлено: **21:38, 09-09-2009** | #9

Не за что

.
Я такое же вопрос задал.вот в этой теме ...мне beve посоветовал вот эту програму: DebagBar. Программа может показать сколько форм на странице, какие элементы находятся в форме...и т.д. в общем любую интересующую информацию. Это через что можно узнать.

А само название формы: выдрал кусок....из страницы.

HTML код:

<FORM id=addFriendForm method=post name=addFriend>
тут куча текста......
</form>

Форма имеет имя=addFriend

evg64 · Отправлено: **23:05, 09-09-2009** | #10

Еще раз спасибо)