Problema locale

[keko9]

Ciao a tutti,
sto tentando di realizzare un programmino che interagisca col mio sito web. Con una richiesta HTTP dovrebbe richiedere il testo di una determinata pagina.

Ho creato il client seguento una guida che ho trovato online (http://www.vbsimple.net/index.htm?/cliserv/clser_02.htm ) ma, quando tento di collegarmi al server che ho qua in locale, non funge!

Ho provato sia con 127.0.0.1, che con localhost che con kekko (che sarebbe il nome della mia macchina) ma non riesce a collegarsi al server!

Perchè non mi fa fare il test in locale?

[keko9]

Ecco cosa mi restituisce (e ho notato che me lo fa anche se tento di collegarmi a forum.html.it)

[dvds]

Originariamente inviato da keko9
Ecco cosa mi restituisce (e ho notato che me lo fa anche se tento di collegarmi a forum.html.it)

se non ricordo male quell'errore lo da se non sei connesso... controlla bene che la connessione sia già stabilita prima di invare dati






ps: dove l'hai trovata la guida?

[keko9]

La guida me l'hai data tu, e forse adesso capisco perchè non funziona!

eheh...skz!

Cmq, come faccio a capire se è connesso oppure no?

[keko9]

up

[keko9]

Ho implementato la parte per la lettura della stato e ho scoperto che quando mi collego in locale restituisce sempre errore (ovvero 9). Qualcuno mi sa spiegare perchè?

[giuSp]

ke server hai in locale? IIS?
cmq come hai effettuato il metodo connect?

connect("127.0.0.1",80) ??

[keko9]

Originariamente inviato da giuSp
ke server hai in locale? IIS?
cmq come hai effettuato il metodo connect?

connect("127.0.0.1",80) ??

No, ho Apache.

Si ho utilizzato il metodo connect ma host e porta li ho impostati direttamente nel componente nella scheda proprietà.

[giuSp]

posta il codice per la connessione, e la richiesta dati...(il get praticamente)

[keko9]

Private Sub butt_invia_Click() 'invia i dati
    Dim data As String
    data = txtOut.Text
    vskClient.SendData data & vbCrLf

End Sub

Private Sub puls_conn_Click() 'connette
vskClient.connect
End Sub

Private Sub vskClient_DataArrival(ByVal bytesTotal As Long) 'all'arrivo dei dati visualizza
Dim a As String
vskClient.GetData a
txtReply.Text = a & vbCrLf
End Sub