Vise webside på formular

Jeg tror at du kan nøjes med at bruge Winsock (til at hente "last modified" fra headeren) og Webbrowser control'en (til at vise siden).

Det burde sådan set være nok..

Jeg programmerer ikke længere i VB, så jeg kan ikke give dig koden..

Men kig på Winsock og Webbrowser control'en..

Hvis Microsoft Winsock Control er for avanceret, kan du bruge Microsoft Internet Transfer Control..

Jeg synes ikke jeg kan finde webbrowser control'en i min toolbox, eller den anden for den sags skyld.
I øvrigt er den side der skal opdateres bare en datalist, der skal opdateres.

Eksempel: http://www.freevbcode.com/ShowCode.asp?ID=362

Der bruges Microsoft Internet Transfer Control (tryk CTRL+T og find den i listen)..

Det er god ikke alle servere, der sender "last-modified".. prøv med din side..

Eller: http://www.devx.com/tips/Tip/13327

Ellers kunne du downloade filen (via Inet) og sammenligne den med den tidligere..

Selvom jeg tilføjer den der reference microsoft internet controls, kan jeg ikke finde komponenten i min toolbox...

Ok, nu har jeg fundet den... Prøver mig lidt frem

Som jeg skrev i 02/11-2006 13:23:41, er det ikke alle servere der sender "last-modifed" med..

Dvs, Inet1.GetHeader("Last-modified") kan returnere en tom streng..

Koden fra http://www.freevbcode.com/ShowCode.asp?ID=362 :

' #VBIDEUtils#****************************************************
' * Programmer Name  : Waty Thierry
' * Web Site        : www.geocities.com/ResearchTriangle/6311/
' * E-Mail          : waty.thierry@usa.net
' * Date            : 28/07/99
' * Time            : 16:40
' **************************************************************
' * Comments      : Determine when a web page was last modified
' *
' *
' *************************************************************

'set a reference to the Microsoft Internet Control and then use
'the below
Public Function PageLastModified(URL as string) as String
Dim strHeader As String

'set protocol to HTTP
Inet1.Protocol = icHTTP

'open URL
On Error Resume Next
Inet1.OpenURL (URL)
if Err.Number > 0 then Exit Function

' Retrieve the date page was last modified
strHeader = Inet1.GetHeader("Last-modified")
PageLastModified = strHeader

End Function

Kaldes f.eks. med:

dim dato as string

dato = PageLastModified("http://www.eksperten.dk")

msgbox dato

Forresten.. browser-control'en hedder "Microsoft Internet Controls" og er af type "WebBrowser"..

Hvis du ikke kan få det til at virke med datoen, kan du prøve med forslaget i 02/11-2006 13:28:04:

"Ellers kunne du downloade filen (via Inet) og sammenligne den med den tidligere.."

Kan du ikke sende et svar så du kan få point...

Jo, det kan jeg godt :-)