Обновление активной страницы браузера и ее сохранение

[Invasion168]

Версия AutoIt: 3.3.12.0

Описание:
Обновление активной страницы браузера раз в час (ровно в 19:00, 20:00 и тд),и сохранение ее в заданную папку.
Примечания:
Если есть возможность, то было бы неплохо если бы в это время сворачивались все активные окна, кроме браузера с нужной страницей.
Если есть возможность, сохранение части кода страницы в теге с конкретным классом.

Спойлер

<table cellpadding="0" width="100%" cellspacing="0" class="fgr6_stat"><tr>
<td>Пользователей: <span style="color:#fff;font-size:14px;padding-left:20px;">1292 Чел.</span></td>
<td>1: <span style="color:#fff;font-size:14px;padding-left:20px;">3990570</span></td>
<td>2: <span style="color:#fff;font-size:14px;padding-left:20px;">2067170</span></td>
<td>3: <span style="color:#fff;font-size:14px;padding-left:20px;">1923400</span></td>
</tr></table>

Если есть возможность, имя сохраненного файла отображало время и дату создания (например так 1-00_13_03_2015.html)

В примечании пожелания, которые совсем не обязательны, но их наличие существенно упростило бы задачу решаемую скриптом. Спасибо за отклики

 

[inververs]

Какого браузера?

 

[Invasion168]

Какого браузера?

Любого. Можно и IE(11.0.9600.17358) что будет насколько я понимаю в разы проще

 

[alex33]

Попробуй так:

Спойлер

#include <IE.au3>
$oIE = _IECreate(@ScriptDir & "\1.html");URL
_Update1()
AdlibRegister("_Update1", 3600 * 1000); 3600 секунд 1 час
While 1
	Sleep(1000)
WEnd

Func _Update1()
	If Not IsObj($oIE) Then Return SetError(1, 0, 0)
	WinSetState(_IEPropertyGet($oIE, "hwnd"), "", @SW_MAXIMIZE); развернуть окно IE на весь экран
	_IEAction($oIE, "refresh"); обновить текущую открытую строницу
	$oTable = $oIE.document.getElementsByClassName("fgr6_stat").item(0)
	If Not IsObj($oTable) Then Return SetError(2, 0, 0)
	$sFileName = @ScriptDir & "\1html_pages\" & StringFormat("%s-%s_%s_%s_%s", @HOUR, @MIN, @MDAY, @MON, @YEAR) & ".html"
	$hFile = FileOpen($sFileName, 10)
	FileWrite($hFile, $oTable.outerHTML)
	If @error Then Return SetError(3, 0, 0)
	FileClose($hFile)
	ConsoleWrite("===> Update OK! Filename: " & $sFileName & @CRLF)
	Return 1
EndFunc   ;==>_Update1