Ver Mensaje Individual
  #2 (permalink)  
Antiguo 05/06/2011, 12:25
marcofbb
Invitado
 
Mensajes: n/a
Puntos:
Respuesta: Combinar PHP con Visual Basic

Que visual basic ? el 6 o el .net ? yo hace 4 meses cree un codigo en VB6 para enviar. Pero formatee la pc y lo perdí,

Aca hay uno que encontre
Código vb:
Ver original
  1. Option Explicit
  2. Private UrlStr As String
  3.  Private params As String
  4.  Private DomDoc As MSXML2.XMLHTTP
  5.  
  6.  Private Sub Form_Load()
  7.  Dim strHtml As String  
  8.  
  9.      UrlStr = "http://servidor/aplicacion.php"
  10.      Set DomDoc = New XMLHTTP
  11.      'Parámetros en formato URLEncode
  12.     params = "param1=hola&param2=adios"
  13.      'Metodo a usar, url, y true en caso de manejar la respuesta en modo asíncrono
  14.     DomDoc.open "POST", UrlStr, False
  15.      'encabezados
  16.     DomDoc.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
  17.      DomDoc.setRequestHeader "Content-length", Len(params)
  18.      DomDoc.setRequestHeader "Connection", "close"
  19.      DomDoc.send params
  20.      'La respuesta, en caso de existir, está en responseBody.
  21.    'También puedes especificar responseXml si tu aplicación devolviese XML
  22.     strHtml = StrConv(DomDoc.responseBody, vbUnicode)
  23.      Debug.Print strHtml
  24.  End Sub

Busca en google:

Enviar datos via post desde Vb
Enviar datos via gat desde vb
Enviar datos a php desde vb
Enviar cabeceras HTTP desde vb

Te dejo otro:
Código vb:
Ver original
  1. winsock.connect "host/ip",80
  2. Dim cuerpoHttp As String
  3. cuerpoHttp = "POST / HTTP/1.1" & vbCrLf
  4. cuerpoHttp = cuerpoHttp &  "Host: www.pagina.com" & vbCrLf
  5. cuerpoHttp = cuerpoHttp & "Accept: */*" & vbCrLf
  6. cuerpoHttp = cuerpoHttp & "Connection: close" & vbCrLf
  7. cuerpoHttp = cuerpoHttp & "<nombre cabecera>" & "<valor de cabecera>" & vbCrLf
  8. cuerpoHttp = cuerpoHttp & vbCrLf
  9.  
  10. winsock.SendData cuerpoHttp 'se envia la peticion

y te dejo algo para que leas: http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html