Come rispondere a chiamate http?

[dararag]

Sto studiando i metodi per inviare dati in get su una pagina web, usando questo codice:

Codice: Seleziona tutto

Dim hrequest As New System.Net.WebClient()
        Try
            hrequest.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
            Dim d As Byte() = Encoding.ASCII.GetBytes("nome=" + TextBox1.Text + "&cognome=" + TextBox2.Text)
            Dim res As Byte() = hrequest.UploadData("http://localhost/prova80/invia.php", "GET", d)
            Dim s As String = System.Text.Encoding.ASCII.GetString(res)
            MsgBox(s, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Risposta:")
        Catch ex As Exception
            Debug.Print(ex.Message)
        End Try


Però dalla pagina web che dovrebbe inserire i dati in un db non arriva nessuna risposta, e tanto meno i dati vengono inseriti, a questo punto, volendo controllare se è la mia connessione al db che necessita di una revisione o è qualcos'altro, qualcuno mi sa dire come posso rispondere al mio programma in locale? (non sapevo se la discussione, visto che tratta anche di php, dovesse andare in questa sezione o in sezione webmaster, nel caso potete spostarla?)

[dararag]

ok, sono riuscito a trovare il codice adatto... non so perché quello di prima non funzionava, ma il codice è questo:

Codice: Seleziona tutto

Public Function consend(ByVal url As String, ByVal method As String, ByVal dati As String, ByVal contentType As String, ByVal datetype As String) As Object
        Dim request As WebRequest = WebRequest.Create("http://localhost/prova80/invia.php")
        request.Method = "POST"
        Dim nome As String = "nome=ciao"
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(nome)
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = byteArray.Length
        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArray, 0, byteArray.Length)
        dataStream.Close()
        Dim response As WebResponse = request.GetResponse()
        Dim status As String = CType(response, HttpWebResponse).StatusDescription
        dataStream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()
        reader.Close()
        dataStream.Close()
        response.Close()
        If status = "OK" Then
            consend = responseFromServer
        Else
            consend = False
        End If
    End Function


a questo punto, visto che questa richiesta dovrebbe essere inoltrata diciamo una volta ogni cinque secondi, e che la risposta è solo testo, cioè un documento di massimo due o tre mb (raro che raggiunga questa dimensione), un messaggio breve o una semplice stringa per indicare la riuscita di una operazione, pensate che con 100 GB di banda al mese possa farcela, visto che sarà usato da 6 o 7 persone?