evg64
13-09-2009, 12:42
Есть небольшой код (впоследствии хочу сделать прогу, чтобы сама добавляла друзей из одной группы вконтакте):
$IE=_IECreate("http://vkontakte.ru/gsearch.php?from=people&basic=1&c[group]=11068474#c%5Bcountry%5D=0&c%5Bgroup%5D=11068474&c%5Bsection%5D=people&offset=40")
s(800)
if isobj($IE) then
$Links=_IELinkGetCollection($IE)
For $Link in $Links
if $Link.innertext="Добавить в друзья" then
msgbox(0,0,"innertext="&$Link.innerText)
if $Link.innertext<>0 then $Link.click
_IEAction($Link,"click")
endif
next
endif
При запуске скрипт почему-то выдает мсгбокс с сообщением innertext=0 и переходит на страницу участника вместо клика по ссылке добавить друзья. Следующий мсгбокс уже с сообщением "Добавить в друзья", но ссылки такой он не находит, потому что, понятное дело, уже перешел на другую страницу.
P.S. Вообще не пойму, как ссылка может называться "0", на той странице вообще таких ссылок нет.
P.P.S. Вдвойне удивляет, как после кода if $Link.innertext<>0 он совершает $Link.click в случаях, когда $Link.innertext=0
$IE=_IECreate("http://vkontakte.ru/gsearch.php?from=people&basic=1&c[group]=11068474#c%5Bcountry%5D=0&c%5Bgroup%5D=11068474&c%5Bsection%5D=people&offset=40")
s(800)
if isobj($IE) then
$Links=_IELinkGetCollection($IE)
For $Link in $Links
if $Link.innertext="Добавить в друзья" then
msgbox(0,0,"innertext="&$Link.innerText)
if $Link.innertext<>0 then $Link.click
_IEAction($Link,"click")
endif
next
endif
При запуске скрипт почему-то выдает мсгбокс с сообщением innertext=0 и переходит на страницу участника вместо клика по ссылке добавить друзья. Следующий мсгбокс уже с сообщением "Добавить в друзья", но ссылки такой он не находит, потому что, понятное дело, уже перешел на другую страницу.
P.S. Вообще не пойму, как ссылка может называться "0", на той странице вообще таких ссылок нет.
P.P.S. Вдвойне удивляет, как после кода if $Link.innertext<>0 он совершает $Link.click в случаях, когда $Link.innertext=0