Что нового
Автор:
Фильтры

Создание HTML страницы в скрипте и переход на эту страницу

T

Trans

Знающий
Сообщения
257
Репутация
6
Предполагаю, что тут всё очень просто, но почему-то у меня не получается сделать :(

Код: 
;~~~~~~~~~~~~~~
Func My_HTML_Page()
Global $My_Page = ""
$My_Page & = '<?xml version="1.0" encoding="UTF-8"?>'
$My_Page & = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
$My_Page & = '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">'
$My_Page & = '<body>'
$My_Page & = '<a href="http://autoit-script.ru">Ссылка №1</a>'
$My_Page & = '<a href="http://ya.ru">Ссылка №2</a>'
$My_Page & = '<a href="http://google.com">Ссылка №3</a>'
$My_Page & = '</body>'
$My_Page & = '</html>'
EndFunc

_IENavigate($oIE, $My_Page)
;~~~~~~~~~~~~~~~~
 
V

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Код: 
#Include <IE.au3>

_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()

$hForm = GUICreate('', 300, 300)
$hActiveX = GUICtrlCreateObj($oIE, 0, 0, 300, 300)
_IENavigate($oIE, 'about:blank')
GUISetState()

$oIE.document.Write(My_HTML_Page())
$oIE.document.close()

While 1
	Switch GUIGetMsg()
	    Case -3
		    Exit
	EndSwitch
Wend	

Func My_HTML_Page()
    Local $My_Page = "" & @CRLF & _
        '<?xml version="1.0" encoding="UTF-8"?>' & @CRLF & _
        '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' & @CRLF & _
        '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">' & @CRLF & _
        '<body>' & @CRLF & _
        '<a href="http://autoit-script.ru">Ссылка №1</a>' & @CRLF & _
        '<a href="http://ya.ru">Ссылка №2</a>' & @CRLF & _
        '<a href="http://google.com">Ссылка №3</a>' & @CRLF & _
        '</body>' & @CRLF & _
        '</html>'
	Return $My_Page
EndFunc
 
Zaramot

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Или так:
Код: 
_IEBodyWriteHTML($oIE, My_HTML_Page())

Func My_HTML_Page()
    Local $My_Page= '<?xml version="1.0" encoding="UTF-8"?>' & @CRLF & _
					'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' & @CRLF & _
					'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">' & @CRLF & _
					'<body>' & @CRLF & _
					'<a href="http://autoit-script.ru">Ссылка №1</a>' & @CRLF & _
					'<a href="http://ya.ru">Ссылка №2</a>' & @CRLF & _
					'<a href="http://google.com">Ссылка №3</a>' & @CRLF & _
					'</body>' & @CRLF & _
					'</html>'
    Return $My_Page
EndFunc
 
Автор
T

Trans

Знающий
Сообщения
257
Репутация
6
всё вроде работает, вот только возникает вопрос, а мне сделать, чтоб данная страница открывалась как сслыка через _IENavigate($oIE,$My_Page)? или вместо данной функции выполнять функцию $oIE.document.Write(My_HTML_Page()) ?


Добавлено:
Сообщение автоматически объединено:

в принципе суть понята :smile: всем спасибо за подсказки :smile:
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
G Создание ярлыков на рабочем столе Стол заказов 1
D Создание файл (книги) excel с именованными листами Общие вопросы по AutoIt 2
D Создание бота для автоматихированного сбора ресурсов Разработка ботов 3
W Создание ярлыка Общие вопросы по AutoIt 0
Detre Создание отчета конфигурации ПК Стол заказов 5
Похожие темы
Создание ярлыков на рабочем столе
Создание файл (книги) excel с именованными листами
Создание бота для автоматихированного сбора ресурсов
Создание ярлыка
Создание отчета конфигурации ПК
Верх