Post by gero » 01 Feb 2024, 16:35
Hallo effel
... falls du auf deinem System den IE noch zum laufen bekommst (gibt etliche Tools), dann sollte es doch so etwa gehen:
gruss
gero
Code ist AHK V1
Code: Select all
#NoEnv
#SingleInstance force
SetBatchLines -1
URL:="https://www.vrs.de/am/s/8d6f16360061f7360b9d32257184a917"
IE:= ComObjCreate("InternetExplorer.Application")
IE.Visible := false ; true
IE.Navigate(URL)
while (IE.busy)
sleep 1000
sleep 1000
Gui,Font,s12
Gui,Add,TEXT,x10 y10 w250 center,Abfahrtzeiten: Longericher Str.
Gui,Add,TEXT,x10 y+10 w240 vAZ r10 right,
Gui,Add,TEXT,x10 y+10 w250 vUZ center,
Gui,show
Loop
{
document:= IE.Document
range := document.body.createTextRange()
Loop,parse,% range.Text,`n,`r
{
Ifinstring,A_loopField,Longericher
STRING.=A_LoopField . "`n"
}
StringReplace,STRING,STRING,127,%A_Space%(B 127)%A_Space%,all
GuiControl,,AZ,% STRING
GuiControl,,UZ,%A_Hour%:%A_Min%:%A_Sec%
STRING:=""
sleep 5000
}
return
ESC::
GuiClose:
IE.quit()
exitapp
Hallo effel
... falls du auf deinem System den IE noch zum laufen bekommst (gibt etliche Tools), dann sollte es doch so etwa gehen:
gruss
gero
Code ist AHK V1
[code]
#NoEnv
#SingleInstance force
SetBatchLines -1
URL:="https://www.vrs.de/am/s/8d6f16360061f7360b9d32257184a917"
IE:= ComObjCreate("InternetExplorer.Application")
IE.Visible := false ; true
IE.Navigate(URL)
while (IE.busy)
sleep 1000
sleep 1000
Gui,Font,s12
Gui,Add,TEXT,x10 y10 w250 center,Abfahrtzeiten: Longericher Str.
Gui,Add,TEXT,x10 y+10 w240 vAZ r10 right,
Gui,Add,TEXT,x10 y+10 w250 vUZ center,
Gui,show
Loop
{
document:= IE.Document
range := document.body.createTextRange()
Loop,parse,% range.Text,`n,`r
{
Ifinstring,A_loopField,Longericher
STRING.=A_LoopField . "`n"
}
StringReplace,STRING,STRING,127,%A_Space%(B 127)%A_Space%,all
GuiControl,,AZ,% STRING
GuiControl,,UZ,%A_Hour%:%A_Min%:%A_Sec%
STRING:=""
sleep 5000
}
return
ESC::
GuiClose:
IE.quit()
exitapp
[/code]