Webpage CTRL, Oppdatere og sjekke....

[Richard87]

hvordan kan eg oppdatera og sjekka om en internett side har forandret seg via f.eks WebBroser'en eller Winsock? noen ide?

[Richard87]

e det muligt og sjekka lengden p åen kontroll? akkuratt som

Len(text1.text), er det mulig "Som way or annother" og bruke

Len(Text1)?

[Jonas]

e det muligt og sjekka lengden p åen kontroll? akkuratt som

Len(text1.text), er det mulig "Som way or annother" og bruke

Len(Text1)?

Hva mener du? Len() brukes til å sjekke lengen på et antall tegn. Text1 er liksom ikke en samling med tegn.

 

Får å sjekke den siden kan du laste den ned, og sammenligne med den du lastet ned forrige gang du åpnet programmet.

 

For å laste ned en fil:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

 

For å åpne en fil: (fra aadnk's guide)

Dim Buff As String, Tekst As String

Open "C:\testfil.txt" For Input As #1
Do Until EOF(1) ' EOF er TRUE når VB har nådd enden av fila
Line Input #1, Buff
Tekst = Tekst & Buff & vbNewLine
Loop
Close #1

MsgBox Tekst

Endret 1. november 2004 av Jonas

[Richard87]

Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Dim lLenght As Long

Private Sub Form_Load()
URLDownloadToFile vbNull, "http://www.torrentbits.org/signup.php", App.Path & "\" & "test", 0, vbNull
Open App.Path & "\" & "test" For Input As #1
Do Until EOF(1) ' EOF er TRUE når VB har nådd enden av fila
Line Input #1, Buff
Tekst = Tekst & Buff & vbNewLine
Loop
Close #1
MsgBox Tekst
End Sub

Denne koden testa eg ut, men det virak ikke så bra(Internal error/ Crash... )

[Richard87]

arrrghhh, double post! Endret 1. november 2004 av Richard87

[Richard87]

eg får en error når eg kjøre linjå med API'en:(

[Jonas]

Prøv dette:

Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Form_Load()

Dim Buff As String, Tekst As String, Tekst2 As String

If Not Dir(App.Path & "\buff") = "" Then
   
   Open App.Path & "\buff" For Input As #1
   
       Do Until EOF(1) ' EOF er TRUE når VB har nådd enden av fila
       Line Input #1, Buff
       Tekst = Tekst & Buff & vbNewLine
       
       Loop
       
   Close #1
   
   URLDownloadToFile 0, "http://www.torrentbits.org/signup.php", App.Path & "\buff", 0, 0
   
   Open App.Path & "\buff" For Input As #1
   
       Do Until EOF(1) ' EOF er TRUE når VB har nådd enden av fila
       Line Input #1, Buff
       Tekst2 = Tekst2 & Buff & vbNewLine
       
       Loop
       
   Close #1
   
   If Not Tekst = Tekst2 Then
   
       MsgBox "Siden er endret!!!!"
       
   Else
       
       MsgBox "Siden er ikke endret ......"
       
   End If
   
Else
   
   MsgBox "Buffer filen finnes ikke. Enten er det første gang du bruker programmet, eller så er den slettet." & vbNewLine & _
          "Programmet kan ikke sjekke om filen er blitt endret."
   URLDownloadToFile 0, "http://www.torrentbits.org/signup.php", App.Path & "\buff", 0, 0
   
End If

End

End Sub

[Richard87]

ok, gløm det, eg fant ut av det:

URLDownloadToFile 0, "http://www.torrentbits.org/signup.php", App.Path & "\" & "test", 0, 0