Что нового

[Сеть, интернет] Подмена HTML кода при загрузке

NoMad73rus

Продвинутый
Сообщения
124
Репутация
80
Загружаю в свой GUI игру используя такой принцип.
Код:
#include <GUIConstantsEx.au3>

$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("Радио", 636, 130, -1, -1)
$GUIActiveX = GUICtrlCreateObj($oIE, -3, -73, 640, 205)
GUISetState()
$oIE.navigate("http://audio.rambler.ru/export/radio_player.html")
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Вопрос - можно ли внести изменения в HTML код перед тем как он будет загружен в браузер?
Пробовал использовать InetGet, и потом загружать локальную страницу, но ни какие компоненты страницы тогда не подгружаются(только сохранённый код).
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 320
NoMad73rus
Попробуйте так, у меня работает, насчет игры - не уверен:
Код:
#include <INet.au3>

If Not FileExists(@AppDataDir & "\radio.html") Then
	$hFile = FileOpen(@AppDataDir & "\radio.html", 2)
	$sResult = _INetGetSource("http://audio.rambler.ru/export/radio_player.html")
	FileWrite($hFile, $sResult)
	FileClose($hFile)
EndIf
;здесь можно внести необходимые Вам изменения в файл
$uRL = "file://localhost/" & @HomeDrive & "/Documents%20and%20Settings/" & @UserName & "/Application%20Data/radio.html"

$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("Радио", 636, 130, -1, -1)
$GUIActiveX = GUICtrlCreateObj($oIE, -3, -73, 640, 205)
GUISetState()
$oIE.navigate($uRL)
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd
 
Верх