17/04/08 8:36
sined
Ciao ,
avrei l'esigenza di effettuare una POST ad URL attraverso vb6 dove l' URL è simile a questo SITOINTERNET.it/script/…
In pratica devo inviare una stringa alla pagina sendsms.php con dei parametri ben precisi per ottenere l'invio di un sms
Qui sotto riporto un esempio di stringa
Esempio:
SITOINTERNET.it/script/… &Destinatario=%2B39348xxxx &Testo=prova & GatewayUtente=1&Data=2005-10-27 00:00:00 &Ora=2005-10-27 00:00:00
Qualcuno saprebbe dirmi come fare?magari con qualche esempio di codice?
Attualmente ho provato utilizzando il codice che riporto in fondo al messaggio e che utilizza l'oggetto WINSOCK (nel codice lo chiamo wskClient)
Probabilmente sbaglio qualcosa nell'invio della stringa (Private Sub Invia_Click())
In quanto se incollo manualmente nella barra degli indirizzi la stringa
SITOINTERNET.it/script/… &Destinatario=%2B39348xxxx &Testo=prova & GatewayUtente=1&Data=2005-10-27 00:00:00 &Ora=2005-10-27 00:00:00
Ottengo come valore di ritorno SMS ACCODATO OK
Mentre attraverso il metodo wskClient.SendData ottengo
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>302 Found</title>
</head><body>
<h1>Found</h1>
<p>The document has moved <a href="SITOINTERNET.it/">here</a>.</…;
</body></html>
Qui Sotto riporto il codice che sto utilizzando:
ciao e grazie mille a tutti
' Mi connetto al sito utilizzando l'indirizzo IP del Server a cui mi voglio collegare utilizando la porta 80
Private Sub Connetti_Click()
wskClient.RemoteHost = "11.22.33.44"' IP di esempio non esistente
wskClient.RemotePort = 80
wskClient.Connect
End Sub
' Controllo lo stato della connessione
Private Sub wskClient_Connect()
If wskClient.State = sckConnected Then
MsgBox "CONNESSO"
End If
End Sub
'Eseguo il post cliccando sul bottone invia
Private Sub Invia_Click()
Dim data As String
data = "SITOINTERNET.it/script/… &Destinatario=%2B39348xxxx &Testo=prova & GatewayUtente=1&Data=2005-10-27 00:00:00 &Ora=2005-10-27 00:00:00"
wskClient.SendData data & vbCrLf
End Sub
'Ricevo la stringa di ritorno dal server
Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
Dim a As String
wskClient.GetData a
txtReply = a & vbCrLf
End Sub
la risposta che ottengo dal server è la seguente:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>302 Found</title>
</head><body>
<h1>Found</h1>
<p>The document has moved <a href="SITOINTERNET.it/">here</a>.</…;
</body></html>
aaa