#include <IE.au3> Func SaveAllPicFrom(ByRef $ie) ; функция сохраняет на диск все картинки с не-"плохими" именами со страницы Local $imgs = _IEImgGetCollection ($ie) For $img In $imgs If StringInStr($img.nameProp, "ggmain") > 0 Then InetGet($img.src, $img.nameProp) EndIf Next EndFunc $oIE = _IECreate ("http://www.girlgeniusonline.com/comic.php?date=20021104", 0, 0, 1, 0) SaveAllPicFrom($oIE) While _IEImgClick($oIE, "http://www.girlgeniusonline.com/!.images.page/navbuttons/nextday.jpg") == -1 ; эмулируем клик по картинке-кнопке <Next Day> SaveAllPicFrom($oIE) WEnd
_IEQuit($IE)
За два года код не потерял работоспособности - ни сайт GG, ни autoit не поменялись. Мелочь, а приятно.
ps: Два года назад я забыл вызов _IEQuit и теперь я с удовольствием исправляю эту ошибку.
Комментариев нет:
Отправить комментарий