Hallo Community.
Ich habe wieder ein Problem wo ich nicht weiter komme.
Mir fällt einfach nicht ein wie ich folgendes umsetzten kann.
Ich möchte eine Internetseite öffnen dort nach einem bestimmten Wort suchen dann bis dahin springen/scrollen, sodass es auf dem Bildschirm sichtbar ist und dann den Mauszeiger genau auf die Stelle positionieren.
Vielleicht kann mir einer helfen? Wäre sehr dankbar.
C
#include <IE.au3>
#include <GuiEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Internetseite = 'https://www.internet.de/'
Global $oIE, $Form1, $iInformationsFeldLinks, $iInformationsFeldRechts, $InformationsFeldText
CreateFenster()
#Region Internetseite öffnen und Bibelversionen auslesen ;----------------------------------------------------------------------------------------------- Internetseite öffnen
$OpenWebsite = _IENavigate($oIE, $Internetseite, 1)
MsgBox(0,"",'Wie kann ich jetzt auf der Seite nach unten springen z.B. wo das Wort ' & @CRLF & '"always on"' & @CRLF & ' steht springen und den Mauszeiger darüber positionieren?')
EXITEVENT()
Func EXITEVENT()
GUIDelete($Form1)
GUICtrlDelete($Form1)
Exit
EndFunc ;==>EXITEVENT
Func CreateFenster()
Global $oIE = _IECreate("", 1, 0, 1, 0)
Global $oIE = _IECreateEmbedded()
Global $Form1 = GUICreate("Test", 1232, 660, -1, -1, $WS_SYSMENU)
Global $Fenstergroesse = WinGetPos($Form1)
$IE_1_GUI = GUICtrlCreateObj($oIE, 0, 0, 1224, 435)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKBOTTOM)
_IEPropertySet($oIE, "statusbar", 1)
Local $aText2[3] = [@TAB & "", @ScriptDir, @TAB & ""]
Local $aParts2[2] = [120, 600]
$Status = _GUICtrlStatusBar_Create($Form1, $aParts2, $aText2)
$iInformationsFeldLinks = GUICtrlCreateEdit("", 0, 440, 600, 167.5, $ES_AUTOVSCROLL + $WS_VSCROLL)
_GUICtrlEdit_LineScroll($iInformationsFeldLinks, 1, 0xfffffff)
GUICtrlSetColor($iInformationsFeldLinks, 0x00FF00)
GUICtrlSetBkColor($iInformationsFeldLinks, 0x000000)
$iInformationsFeldRechts = GUICtrlCreateEdit("", 600, 440, 1226 - 600, 167.5, $ES_AUTOVSCROLL + $WS_VSCROLL)
_GUICtrlEdit_LineScroll($iInformationsFeldRechts, 1, 0xfffffff)
GUICtrlSetColor($iInformationsFeldRechts, 0x00FF00)
GUICtrlSetBkColor($iInformationsFeldRechts, 0x000000)
GUISetState(@SW_SHOW, $Form1)
EndFunc ;==>CreateFenster
Alles anzeigen