Hallo!
Ich habe mir das Scriptbeispiel _IECreateEmbedded mal angeschaut und etwas verändert, um es als "Teletext-Viewer" zu verwenden.
Hier der momentanige Code:
ORF Teletext
; *******************************************************
; ORF1 TeleText v1.0
; *******************************************************
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
_IEErrorHandlerRegister ()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded ()
GUICreate("ORF1 Teletext", 505, 490)
GUICtrlCreateLabel ("ORF Teletext by tobi_girst", 340, 455)
$GUIActiveX = GUICtrlCreateObj($oIE, -40, -10, 595, 450)
$GUI_Button_Home = GUICtrlCreateButton("Seite 100", 10, 450, 100, 30)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]_IENavigate ($oIE, "http://teletext.orf.at/100/100_0001.htm")
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
_IENavigate ($oIE, "http://teletext.orf.at/100/100_0001.htm")
EndSelect
WEnd
GUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit]
Man soll die Seiten aber auch ansteuern können. (Am liebsten durch ein Inputfeld mit "GO!"-Button neben dem "Seite 100"-Button, also ca. so:
Spoiler anzeigen
; *******************************************************
; ORF1 TeleText v1.0 by tobi_girst
; *******************************************************
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
_IEErrorHandlerRegister ()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded ()
GUICreate("ORF1 Teletext", 505, 490)
GUICtrlCreateLabel ("ORF Teletext by tobi_girst", 340, 455)
GUICtrlCreateInput ("Seite", 120, 450, 30) ;Nur 3-Stellige Zahlen erlauben
GUICtrlCreateButton ("GO!", 150, 450) ;Wenn man hier klickt, soll die Seite aufgerufen werden. (http://teletext.orf.at/[Seite]/[Seite]_0001.htm) Statt [Seite] muss die 3Stellige Zahl stehen. (Seite 234 = http://teletext.orf.at/234/234_0001.htm)
$GUIActiveX = GUICtrlCreateObj($oIE, -40, -10, 595, 450)
$GUI_Button_Home = GUICtrlCreateButton("Seite 100", 10, 450, 100, 30)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]_IENavigate ($oIE, "http://teletext.orf.at/100/100_0001.htm")
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
_IENavigate ($oIE, "http://teletext.orf.at/100/100_0001.htm")
EndSelect
WEnd
GUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit]Geht das?