Muchas veces es necesario enviar datos de una aplicación a un sitio web para diferentes actividades,
las solicitudes se envían desde una aplicación a un identificador URI concreto, como una página Web de un servidor. El identificador URI determina la clase descendiente adecuada que se debe crear a partir de una lista de descendientes de WebRequest registrados para la aplicación. Los descendientes de WebRequest suelen registrarse para controlar un protocolo específico, como HTTP o FTP, pero se pueden registrar para controlar una solicitud a un servidor específico o una ruta de acceso en éste.
Para programar esto se necesita algo como lo que les e puesto a continuación
ES NECESARIO PARA ESTO :
En VB.NET
IMPORTAR ESTAS LIBRERIAS:
Imports
System.Net, System.Net.Sockets
Imports
System.Web
Imports
System.IO
Imports System.Text
EN EL BOTON PROGRAMAR ESTO:
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button3.Click
‘// con esto llamo a la function usarPHP,
donde le envió como parámetro: el url, el tipo POST, y las variables nombre
edad
Dim resultadohtml
As String = usarPHP("http://localhost/socket/prueba.php", "POST", "nombre="
& TextBox1.Text & "&edad=38 ")
‘// con esto muestro mel resultado en la
caja de texto grande
TextBox2.Text = resultadohtml
End Sub
LA FUNCION usarPHP ES LA SIGUIENTE
‘//
esta función recibe los parámetros antes mencionados el url, el tipo
POST, y las variables nombre edad llegan
en cadena a la variable data
Public Function usarPHP(ByVal url As String, ByVal method As String, ByVal data As String)
Try
‘//creamos
la forma como se enviara los datos, en este caso “POST”
Dim request As System.Net.WebRequest
= System.Net.WebRequest.Create(url)
request.Method = method
‘//variable
para tomar los datos del parámetro data que llega a la funcion
Dim postData = data
‘//arreglo
de bytes codificados con UTF8 para enviar los datos
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
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()
‘//con
esto manejamos las respuestas del servidor
Dim response As WebResponse =
request.GetResponse()
dataStream
= response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Dim responseFromServer As
String = reader.ReadToEnd()
reader.Close()
dataStream.Close()
response.Close()
Return (responseFromServer)
Catch ex As Exception
Dim error1 As String = ErrorToString()
If error1 = "Direccion
Invalida!!: el formato no ha sido determinado." Then
MsgBox("ERROR! Debe de tener http:// antes
de la URL")
Else
MsgBox(error1)
End If
Return ("ERROR")
End Try
End Function
EN EL SERVIDOR WEB DEBERIA DE TENER LO SIGUIENTE
Tener una página http://localhost/socket/prueba.php
; el PHP debería tener lo siguiente
<?PHP
echo $_REQUEST["nombre"];
echo $_REQUEST["edad"];
?>
