Что нового

Как поставить лайк вконтакте?

SHoCK13666

Новичок
Сообщения
108
Репутация
0
Решил создать бота для snebes.ru Сейчас есть вот это
Код:
;#include <Array.au3>
#include <IE.au3>

$oIE = _IECreate('http://snebes.ru/tasks.php?c=1')

sleep(5000)
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
 If StringInStr($oLink.href, "http://snebes.ru/go.php?tid=") Then
  _IEAction($oLink, "click")
ExitLoop
Endif
 Next
 sleep(5000)
$oDiv = $oIEe.document.getElementById("pv_like_wrap")
$oDiv.Click()

Последние 2 строчки отвечают за то, что скрипт должен поставить лайк, а он этого не делает.
Помогите, что не так?
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
SHoCK13666
Может быть вы не полное имя объекта указываете?
Попробуйте использовать
Код:
_IEGetObjById()

Может быть команда возвратит ошибку
 
Автор
S

SHoCK13666

Новичок
Сообщения
108
Репутация
0
Этот код ставит мне нравится
Код:
#include <IE.au3>
$oIE = _IECreate("http://vk.com/groups#/photo-45187021_292269215")
$oDiv = $oIE.document.getElementById("pv_like_link")
$oDiv.Click()

Мой вроде тоже должен тогда...
 

mysres

Новичок
Сообщения
6
Репутация
0
Писал этот для себя, вроде работает :D
Код:
$Tag = _IEGetObjById($oIE2,'pv_like_count')
If @error = 0 Then
_IEAction($Tag,'click')
EndIf
If @error = 7 Then
$body = _IEBodyReadHTML($oIE2)
$z = StringRegExp($body,'id="([0-9a-zA-Z-_]*)">Мне',3)
$Tag = _IEGetObjById($oIE2,$z[0])
_IEAction($Tag,'click')
EndIf



Добавлено:
Сообщение автоматически объединено:

а в вашем коде ошибка -
Код:
$oDiv = $oIEe.document.getElementById("pv_like_wrap")
, почему $oIEe - когда вы создаете $oIE, это раз.

Во вторых там вы лайкаете фотку, а тут чаще всего попадают записи на стене, у которых id не - "pv_like_wrap", смотрите мой код выше
 
Автор
S

SHoCK13666

Новичок
Сообщения
108
Репутация
0
mysres, --> IE.au3 V2.4-0 Warning from function _IEGetObjById, $_IEStatus_NoMatch (pv_like_count)
E:\Autoit\??????? 2.au3 (22) : ==> Subscript used with non-Array variable.:
$Tag = _IEGetObjById($oIE, $z[0])
$Tag = _IEGetObjById($oIE, $z^ ERROR
>Exit code: 1 Time: 16.976
 

mysres

Новичок
Сообщения
6
Репутация
0
Так вы добавьте переключение на новую вкладку с вк.
Примерно так.
Код:
Sleep(4000)
$oIE2 = _IEAttach("vk.com","URL")
 
Автор
S

SHoCK13666

Новичок
Сообщения
108
Репутация
0
mysres, точно такая же ошибка. Открывает задание, но лайк не нажимает :( :scratch:
 
Верх