Что нового

Динамическая подгрузка вконтакте

Taw

Новичок
Сообщения
1
Репутация
0
Товарищи, второй день, бьюсь над решением проблемы сохранения полной странице из контакта. Если открывать страницу (например друзей) вручую, то при листании вниз,у нас автоматом происходит подгрузка страницы и срабатывание метода "показать больше друзей". Как это реализовать средствами autoit ?
Сейчас код такой:
Код:
#include <INet.au3>
#include <file.au3>
#include <Array.au3>
#include<IE.au3>

Dim $arr
$fr=_FileReadtoArray('список5.txt',$arr)
#массив из 1728 строк

for $i=10 to 11 
   #UBound($arr) -1
   $id=$arr[$i]
   $s_URL = "http://vkontakte.ru/friends?id="
   $s_URL &=$id
   $s_URL &="&section=all"
   $name=$s_URL
   $name &=".html"
   Opt("WinTitleMatchMode", 2)
   $oIE = _IECreate($s_URL,0,0)
   _IELinkClickByText($oIE,"показать") #не работает :(
   $hFile = FileOpen(@ScriptDir & "\" & $i & ".html",129)
   $sHTML = _IEDocReadHTML($oIE)
   FileWrite($hFile,$sHTML)
   FileClose($hFile)
   _IEQuit($oIE)
   If Not @error Then Exit
   OnAutoItExitRegister( "_Exit" )
Next

Func _Exit()
    Local $aIE = ProcessList("iexplore.exe")
    For $i = 1 to $aIE[0][0]
    ProcessClose($aIE[$i][1])
    Next
EndFunc


P.S. За код не судите строго, не программировал около 5-6 лет. Возникла необходимость т.к. хочу восстановить связь с знакомой, с которой потерял контакт. Все что знаю это ее имя да имена друзей, по которым далее отфильтрую возможные верные id
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Модератор.
 
Верх