hi
also dieser code rufe einen internet seite ab und speicher das ganze in einer variable, jetzt möchte ich später überprüfen ob sich auf der site etwas geändert hat oder nicht und so kommt der timer, und der müsste jetzt ja eigentlich die msgbox ausgeben wenn sich nichts geändert hat, das funktioniert auch bei einfachen strings aber bei dieser komplexen sache geht es nicht mehr! hat jemand ideen??
Option Explicit
Dim a As String
Dim b As String
Private Declare Function InternetOpen Lib „wininet“ Alias _
„InternetOpenA“ (ByVal sAgent As String, ByVal _
lAccessType As Long, ByVal sProxyName As String, ByVal _
sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib „wininet“ _
(ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib „wininet“ _
(ByVal hFile As Long, ByVal sBuffer As String, ByVal _
lNumBytesToRead As Long, lNumberOfBytesRead As Long) _
As Integer
Private Declare Function InternetOpenUrl Lib „wininet“ Alias _
„InternetOpenUrlA“ (ByVal hInternetSession As Long, _
ByVal lpszUrl As String, ByVal lpszHeaders As String, _
ByVal dwHeadersLength As Long, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Long
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Const UserAgent = „Wininet Test“
Private Sub Form_Load()
Dim l&, Buffer$, hOpen&, hFile&, Result&
l = 50000
Buffer = Space(l)
DoEvents
hOpen = InternetOpen(UserAgent, INTERNET_OPEN_TYPE_DIRECT, _
vbNullString, vbNullString, 0)
hFile = InternetOpenUrl(hOpen, „http://two.guestbook.de/gb.cgi?gid=409886&prot=fdmiuy“, vbNullString, _
ByVal 0&, INTERNET_FLAG_RELOAD, _
ByVal 0&:wink:
Call InternetReadFile(hFile, Buffer, l, Result&:wink:
Call InternetCloseHandle(hFile)
Call InternetCloseHandle(hOpen)
Buffer = Left$(Buffer, Result)
a = Buffer
Timer1 = True
End Sub
Private Sub Timer1_Timer()
Dim l&, Buffer$, hOpen&, hFile&, Result&
l = 50000
Buffer = Space(l)
DoEvents
hOpen = InternetOpen(UserAgent, INTERNET_OPEN_TYPE_DIRECT, _
vbNullString, vbNullString, 0)
hFile = InternetOpenUrl(hOpen, „http://two.guestbook.de/gb.cgi?gid=409886&prot=fdmiuy“, vbNullString, _
ByVal 0&, INTERNET_FLAG_RELOAD, _
ByVal 0&:wink:
Call InternetReadFile(hFile, Buffer, l, Result&:wink:
Call InternetCloseHandle(hFile)
Call InternetCloseHandle(hOpen)
Buffer = Left$(Buffer, Result)
b = Buffer
If a = b Then
MsgBox „site ist immer noch gleich!“
End If
Timer1 = False
End Sub
oder hat jemand ne idee wie ich nur die anzahl einträge auslesen kann?
gb