Visual Basic 6 - controllo/blocco di un programmino

mi spiace ho provato ma non va nulla

la mia pagina a.html è qui: veronamania . it/a.html

contiene il testo: massimo
senza tag ne altro

ma non mi va nulla.
per favore non riesci a mandarmi un esempio di sorgente via mail?

Allora, tu sul tuo spazio web hai uppato il file a.html (il nome lo puoi pure cambiare). Dentro questo file ci sta scritto "massimo" giusto?

allora scrivi il codice in questo modo


Sub CaricaPag(Url)
Dim HTML As Object
Dim testoPag As String
Set HTML = CreateObject("microsoft.xmlhttp"
HTML.Open "GET", "veromania.it/…;, False 'pagina da dove prendere il sorgente
HTML.send
testoPag = HTML.responseText
Set HTML = Nothing
Close #1: Open "C:\controllo.html" For Output As #1
Print #1, testoPag: Close #1
End Sub

Private Sub Form_Load()
RichTextBox1.text = "massimo"
CaricaPag (Url)
RichTextBox2.LoadFile "C:\controllo.html"
If RichTextBox2.Text <> RichTextBox1.Text Then
MsgBox "La tua versione è scaduta. Per favore contatta il provider oppure richiedi un aggiornamento", vbCritical
End
else
form2.show
unload me
End If
End Sub


Con questo codice il programma va sul sito veromania.it/… e ne legge il sorgente. Il sorgente lo salva sotto forma di file .html sul pc di chi esegue il programma, in questo caso il sorgente che ha appena letto lo salva in C:\controllo.html


nel frattempo il programma nella RichTextBox1 ha scritto il testo "massimo", che identificherebbe la versione del programma

ora il programma va a controllare il file controllo.html precedentemente salvato, e il suo contenuto, ovvero "massimo", lo scrive nella RichTextBox2

a questo punto il programma confronta il testo nella RichTextBox1 (che hai dichiarato nel sorgente, ed ogni volta che cambi versione cambia la dichiarazione (es "massimo123")con quello della RichTextBox2 e se risultano diversi, dà il messaggio di errore, con conseguente uscita dal programma. Se invece sono uguali, e quindi il programma risulta ancora valido, il programma lancia il secondo form e chiude il primo.

p.s. ricordati di aggiungere al tuo progetto un altro form : Progetto --> Inserisci Form

ciao ciao

spiegazione che non fa una piega.
incredibile..
sono senza parole..


ho fatto tutto ma il progetto non decolla.
mi da errore

run-time 424
Object required

dove sbaglio?

PS. ho corretto anche tuoi probabile errore tipo:

il percorso della pagina che manca www....

ma non va lo stesso

Precisamente in che stringa ti da errore

object required = necessario oggetto
premi su debug quando esce l'errore e controlla di aver creato tutti gli oggetti (richtextbox)

tutti gli oggetti devono chiamarsi esattamente come scritto nel codice.
sei sicuro di aver creato le richtextbox???

io ho creato il form e dentro 2 oggetti come segue

Private Sub RichTextBox1_Click()

End Sub

Private Sub RichTextBox2_Click()

End Sub

e sotto incollato il codice da te messo.
sbagliato qualcosa perche non va

mmm... molto strano..
ho fatto uno screen del mio progetto, guardalo
img528.imageshack.us/img528/7040/…

fai esattamente cosi come ho fatto io e vedi che funge