maxim_porsche
Новичок
- Сообщения
- 25
- Репутация
- 0
Версия AutoIt: 3.3.12.0
Описание: Собственно,имеется код
Примечания:
Необходимо реализовать переход на следующую/предыдущую ссылку из некого списка ссылок после нажатия кнопки "Вперед"/"Назад". Сам список ссылок должен храниться в коде скрипта.
Как пример,список ссылок:
ya.ru
vk.com
u.to
Благодарю за любую помощь
Описание: Собственно,имеется код
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; Простой пример: Встраивание объекта Internet Explorer внутри AutoIt GUI
;
; Смотрите также: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
; и функцию _IECreateEmbedded
Local $oIE, $GUIActiveX, $iBtn_Back, $iBtn_Forward, $iBtn_Refresh
$oIE = ObjCreate("Shell.Explorer.2")
; Создаёт простое GUI-окно для вывода
GUICreate("Test Browser", 640, 480, -1, -1, _
BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN), $WS_EX_COMPOSITED)
$GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 630, 405)
GUICtrlSetResizing(-1, 2 + 4 + 32 + 64)
Opt("GUIResizeMode", 2 + 64 + 256 + 512) ; Для кнопок
$iBtn_Back = GUICtrlCreateButton("Назад", 10, 420, 60, 30)
$iBtn_Forward = GUICtrlCreateButton("Вперёд", 80, 420, 60, 30)
$iBtn_Refresh = GUICtrlCreateButton("Обновить", 290, 420, 60, 30)
GUISetState() ; показывает созданное окно
$oIE.navigate("http://www.autoitscript.com")
; Запускается цикл опроса GUI до тех пор пока окно не будет закрыто
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $iBtn_Back
$oIE.GoBack
Case $iBtn_Forward
$oIE.GoForward
Case $iBtn_Refresh
$oIE.document.execCommand("Refresh")
EndSwitch
WEnd
GUIDelete()
Примечания:
Необходимо реализовать переход на следующую/предыдущую ссылку из некого списка ссылок после нажатия кнопки "Вперед"/"Назад". Сам список ссылок должен храниться в коде скрипта.
Как пример,список ссылок:
ya.ru
vk.com
u.to
Благодарю за любую помощь