sry für den doppelpost - ich habe aber jetzt etwas experimentiert und wollte euch zumindest mal zeigen wie weit ich bin. die jetzige lösung ist noch nicht optimal, aber etwas besseres fällt mir nicht ein...
Code: Alles auswählen
; Programm zum anzeigen des aktuellen Benzin-Preises
;----------------------------------------------------------------------------------
; Get text contents of an internet site
; Text einer Internetseite auslesen
Procedure.l GB_DownloadToMem ( url.s, *lpRam, ramsize.l )
Protected agent.s, hINet.l, hData.l, bytes.l
; #INTERNET_OPEN_TYPE_DIRECT = 1
; #INTERNET_DEFAULT_HTTP_PORT = 80
; #INTERNET_SERVICE_HTTP = 3
; #INTERNET_FLAG_NO_CACHE_WRITE = $4000000
; #INTERNET_FLAG_RELOAD = $8000000
agent.s = "Mozilla/4.0 (compatible; ST)"
hINet.l = InternetOpen_ ( @agent.s,0,0,0,0 )
hData.l = InternetOpenUrl_ ( hINet, @url.s, "", 0, $4000000, 0 )
If hData > 0 : InternetReadFile_ ( hData, *lpRam, ramsize.l, @bytes.l ) : Else : bytes = -1 : EndIf
InternetCloseHandle_ (hINet)
InternetCloseHandle_ (hFile)
InternetCloseHandle_ (hData)
ProcedureReturn bytes.l
EndProcedure
*MemoryID = AllocateMemory(50000)
If *MemoryID
sitelength = GB_DownloadToMem("http://www.clever-tanken.de/showtank_payed.asp?Tankstelle=ARAL+Scharnweberstr.+12-13+Berlin&secureid=16261&typ=Super&ort=134", *MemoryID, 50000)
If sitelength > 0
Debug "Die geladene Internetseite hat eine Größe von: " + Str(sitelength) + " Bytes"
text$ = PeekS(*MemoryID)
position=FindString(text$,"Super:",1)
;Debug text$
Debug "Position: "+Str(position)
text$ = PeekS(*MemoryID + position + 63, 5)
Debug text$
Else
Debug "Konnte angeforderte Internetseite nicht laden!"
EndIf
Else
Debug "Konnte den angeforderten Speicher nicht reservieren!"
EndIf
TrayWnd = FindWindow_("Shell_TrayWnd", 0)
TrayNofifyWnd = FindWindowEx_(TrayWnd, 0, "TrayNotifyWnd", 0)
GetWindowRect_(TrayNofifyWnd,win.RECT)
x=win\left : y=win\top
w=win\right-win\left : h=win\bottom-win\top
If OpenWindow(0,x-7,y+5,27,15,"", #PB_Window_BorderLess )
CreateGadgetList(WindowID(0))
;ProgressBarGadget(1,0,0,10,h,0,100,#PB_ProgressBar_Smooth)
TextGadget(1, 0, 0, 27, 15, text$)
SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE)
EndIf
MessageRequester("","Bla",#PB_MessageRequester_Ok)
Auf Wunsch in Allgemein verschoben (Falko)