HELP!!! seite im GUI alle 5 sec aktualisieren aber wie?!

moin freaks,

komm hier grad nicht mehr weiter.

will das so haben das die seite die mir im GUI angezeit wird alle 5 sec neu läd. bekomms aber irgendwie nicht hin ohne das bei mir dann alles abkackt.

kann mir da jemand kurz helfen?!

danke

Zitat von Ashpool

Präzisiere mal "abkackt" , bei mir funktioniert das Skript ohne Änderung wie gewünscht (lädt alle 10s neu)

so wie es im moment ist läuft es bei mir auch ohne fehler. nur wenn ich die seite alle 5 sec neu laden will spinnt bei mir alles.
naja wenn ich ein normales adlibenable einbau läd der sich tot und spinnt rum. zb kann ich das script dann nicht mehr schließen usw.

die zahlen unten werden ja ganz normal alle 1o sec neu geladen nur die seite nicht da die grafik nicht unter der funktion
AdlibEnable("PicandData",10000)
mit eingebunden ist.

was kann ich machen das die seite auch alle 5-10sec neu geladen wird?

Zitat von AutoBert

Hallo flobby, du könntest dein Skript in AutoIT-Tags einschliessen, aber ich schau trotzdem einmal nach.

Edit1: versuchs mal so:

Spoiler anzeigen

[autoit]

#include <Inet.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $source1, $source2, $source3, $source4, $daten_label, $loading, $lastUpdate

[/autoit] [autoit][/autoit] [autoit]

_IEErrorHandlerRegister ()

[/autoit] [autoit][/autoit] [autoit]

$oIE = _IECreateEmbedded ()

[/autoit] [autoit][/autoit] [autoit]

$hGUI = GUICreate("Genta Inc. NoCopyright© by Phosgen", 400, 400)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 350, 360)
$daten_label = GUICtrlCreateLabel("", 10, 370, 600, 30)
GUISetState()
GUISetBkColor(0xE0FFFF)
_IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")

[/autoit] [autoit][/autoit] [autoit]

;AdlibEnable("PicandData",10000)
$lastUpdate=TimerInit()

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUICtrlDelete($GUIActiveX)
Exit
EndSwitch
$dif =TimerDiff($lastUpdate)
if $dif > 5000 Then
PicandData()
$lastUpdate = TimerInit()
EndIf
Sleep(250)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func PicandData()
if $loading then Return
$loading = True
$source1 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px 5px 3px">(.*?)</td>', 3)
$source2 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px">(.*?)</td>', 3)
$source3 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 3px 5px 0px;" align="right">(.*?)</td>', 3)
$source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #d4eed4" align="right">(.*?)</td>', 3)
If @error Then $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #eed4d4" align="right">(.*?)</td>', 3)
GUICtrlSetData($daten_label, "Letzter Kurs: " & StringReplace($source1[0], "nbsp;", " ") & " Vortag: " & StringReplace($source2[0], "nbsp;", " ") & " Umsatz: " & StringReplace($source3[0], "nbsp;", " ") & " Veränd.: " & $source4[0])
$loading = False
EndFunc ;==>PicData

[/autoit]

läßt sich aber noch nicht abbrechen, dauert nur etwas länger. Falls du oder jemand anders dies lösen bitte Thema als gelöst markieren

mfg (Auto)Bert

Alles anzeigen

erst mal danke für die schnelle hilfe. kann es jetzt leider nicht mehr testen da die börse schon zu hat. muss ja nix mehr daran verändern oder?

Zitat von AutoBert

Hallo flobby,

doch Grafik aktualisieren, z.B. so:

Spoiler anzeigen

[autoit]

#include <Inet.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $source1, $source2, $source3, $source4, $daten_label, $loading, $lastUpdate

[/autoit] [autoit][/autoit] [autoit]

_IEErrorHandlerRegister ()

[/autoit] [autoit][/autoit] [autoit]

$oIE = _IECreateEmbedded ()

[/autoit] [autoit][/autoit] [autoit]

$hGUI = GUICreate("Genta Inc. NoCopyright© by Phosgen", 400, 400)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 350, 360)
$daten_label = GUICtrlCreateLabel("", 10, 370, 600, 30)
GUISetState()
GUISetBkColor(0xE0FFFF)
_IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")
PicandData()

[/autoit] [autoit][/autoit] [autoit]

;AdlibEnable("PicandData",10000)
$lastUpdate=TimerInit()

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUICtrlDelete($GUIActiveX)
Exit
EndSwitch
$dif =TimerDiff($lastUpdate)
if $dif > 500 Then
PicandData()
$lastUpdate = TimerInit()
EndIf
Sleep(5)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func PicandData()
if $loading then Return
$loading = True
$source1 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px 5px 3px">(.*?)</td>', 3)
$source2 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px">(.*?)</td>', 3)
$source3 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 3px 5px 0px;" align="right">(.*?)</td>', 3)
$source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #d4eed4" align="right">(.*?)</td>', 3)
If @error Then $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #eed4d4" align="right">(.*?)</td>', 3)
GUICtrlSetData($daten_label, "Letzter Kurs: " & StringReplace($source1[0], "nbsp;", " ") & " Vortag: " & StringReplace($source2[0], "nbsp;", " ") & " Umsatz: " & StringReplace($source3[0], "nbsp;", " ") & " Veränd.: " & $source4[0])
$dif = TimerDiff($lastUpdate)
if $dif > 600000 then _IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")
$loading = False
EndFunc ;==>PicData

[/autoit]

im ersten Script gings mir nur darum dir zu zeigen, dass es auch ohne AdLib geht. Jetzt wird alle 1/2 Sekunde das Label geändert, und alle 10 Minuten die Graphik, die Werte kannst du aber noch austesten (Wobei bei der kleinen Graphik, man den Unterschied voher warscheins eh nicht bemerkt,

mfg (Auto)Bert

Alles anzeigen

ok vielen dank erst mal. ist es auch möglich die grafik oder besser gesagt den die seite größer anzeigen zu lassen zb 600x600 da es schwer ist auf der kleinen grafik zu erkennen wenn sich da was tut?

Zitat von AutoBert

Hallo flobby,

Natürlich ist das möglich, schau dir dazu die Hilfe an, Stichwörter GuiCreate und GuiCreateObj, danach kannst du ds selber in der von dir gewünschten Größe erstellen,

mfg (Auto)Bert

hehe danke für den tip das war mir aber klar das man das machen kann. ich meine nur das was drin steckt also die seite

Zitat von AutoBert

Edit: aber wichtiger erscheint mir, das du dir COPYRIGHT UND LIMITIERTE REPRODUKTION durchliest, ebenso die Geschäftsbedingungen von ADVFN,

also ganz ehrlich ob ich jetzt den ganzen tag auf F5 dück oder mir das so mach kommt doch aufs gleich raus oder meint ihr nicht? meiner meinung nach ist das nicht verboten was ich mache. ist wer anderer meinung?

Zitat von AutoBert

Hallo flobby,

ich habe dabei hauptsächlich an diesen Abschnitt gedacht:

sprich du musst bei einer Weitergabe auf jedenfall die Datenquelle nennen und darauf hinweisen, dass für den Benutzer auch die Geschäftsbedingungen der ADVN nennen, ob eine Wetergabe überhaupt zulässich ist kann ich nicht beurteillen. Ebenso wenig ob deine Nutzung gegen die Geschäftsbedingungen de ADVN verstößt.

mfg (Auto)Bert

also das toll ist lediglich zu meiner eigenen benutzung gedacht. daher denke ich das es halb so wild ist da ich jau meinen zuganz jeden monat auch bezahle. was ich dann damit mache ist denke ich meine sache und somit kanns denen ja egal sein. aber danke das du mich darauf aufmerksam gemacht hast.

es läuft soweit ganz gut.

nur hab würde ich noch gerne ein kleines icon oben rechts in die ecke einbinden das es jedesmal kurz aufblinkt wenn die seite aktualisiert wird. kann mir da jemand helfen?

habe es schon versucht aber leider nicht hinbekommen