Inviare dati a una pagina web

[Ketto93]

Salve,

So che mi prenderete per un rompi scatole


Volevo sapere se è possibile creare una form in VB6, dove cliccando su Invia, mi scrive il contenuto della Text1 e Text2 su una pagina web, per esempio http://ilmiosito.altervista.org/log.html


Grazie in anticipo.

[luisa227]

Ciao, io ho il tuo stesso problema, ma un po più avanzato...
il codice sottostante è in vba, comunque non dovrebbe essere difficile ricomporlo in vb6... vedi se ti può essere utile...

Luisa

Set oApp = CreateObject("internetExplorer.Application")
oApp.Navigate2 "http://www.sito.it"

Do
If oApp.readyState = 4 Then
Exit Do
End If
Loop
oApp.Visible = True
oApp.document.Forms(0).Item("user").Value = "pippo"

oApp.document.Forms(0).Item("password").Value = "pluto"

oApp.document.Forms(0).submit
Do
If oApp.readyState = 4 Then
Exit Do
End If
Loop
'Set oApp = Nothing

oApp.document.Forms(0).submit


End Sub

[Ketto93]

Il poblema è che il VB6 è il primo linguaggio che ho studiato e il vba non lo conosco. Vedo se con qualche "traduttore" riesco a trasformarlo in vb6

[Ketto93]

up

[Ketto93]

Vi prego, aiutatemi

[Ketto93]

Ho trovato il modo. Faccio creare un file txt con i dati inseriti tramite il codice ignoto e poi con uno script in PHP faccio visualizzare i dati nella pagina web prendendoli dal file txt.

Però il problema è il codice ignoto che mi crea il file txt

[MdE2005]

Aspetta un secondo: 1 problema alla volta; hai detto che hai trovato il modo e poi dici che non lo sai fare?!

Cmq prova a fare così: NON TI ASSICURO NIENTE PERCHE' ora non ho VB e vado a memoria...

 Set oApp = CreateObject("internetExplorer.Application")
Set myDoc = oApp.document
oApp.Navigate2 "http://www.sito.it"

Do
If oApp.readyState = 4 Then
Exit Do
End If
DoEvents
Loop

oApp.Visible = True
myDoc.Forms(0).Item("user").Value = "pippo"

myDoc.Forms(0).Item("password").Value = "pluto"

myDoc.Forms(0).submit

Do
If oApp.readyState = 4 Then
Exit Do
End If
Loop
'Set oApp = Nothing

myDoc.Forms(0).submit

Cmq se vuoi sapere come creare un file di testo, apri un altro thread..

Ciao

[Ketto93]

myDoc.Forms(0).Item("user").Value = "pippo"

myDoc.Forms(0).Item("password").Value = "pluto"

myDoc.Forms(0).submit

Scusa ma io vorrei far apparire il testo inserito nella Text1 e Text2. Cosa c'entra l'item?

[oregon]

Ma dove lo vuoi fare apparire? In quale parte di una pagina web? E poi, questo sito, e' il tuo ?

Insomma ... non si capisce ...

[Ketto93]

Vorrei fare un programma che registri gli accessi.

E' per l'azienda di mio padre.

Devo fare una form di introduzione che serve per il login e questa dati di login vadano a finire su una MIA pagina web con orario, ip, nome utente e password in modo che mio padre riesca a gestire i suoi operai.

Avete capito? Vi prego aiutatemi