Товарищи, второй день, бьюсь над решением проблемы сохранения полной странице из контакта. Если открывать страницу (например друзей) вручую, то при листании вниз,у нас автоматом происходит подгрузка страницы и срабатывание метода "показать больше друзей". Как это реализовать средствами 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 &="§ion=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