POST y visua basic

[satan69]

como puedo hacer un comportamiento de un POST  con winsock.sendData o desde e Inet hacia un servidor web


alguien me podria ayudar ... gracias de antemano

[yeikos]

Código [Seleccionar] Expandir

strData = "POST /pagina.php HTTP/1.0" & VbCrLf
strData = strData & "Host: www.ejemplo.com" & VbCrLf
strData = strData & "User-Agent: ¿Mozilla?" & VbCrLf
strData = strData & "Content-Type: multipart/form-data" & VbCrLf
strData = strData & "variable1=valor1&variable2=valor2" & VbCrLf  & VbCrLf
Winsock1.SendData strData

[Mad Antrax]

Respuesta clara, sencilla y efectiva.

Simplemente genial,

[satan69]

Respuesta clara, sencilla y efectiva.

Simplemente genial,

.

la ves pasada te mande un MP pidiendote esa ayuda y no me contesatste

[satan69]

Código [Seleccionar] Expandir

strData = "POST /pagina.php HTTP/1.0" & VbCrLf
strData = strData & "Host: www.ejemplo.com" & VbCrLf
strData = strData & "User-Agent: ¿Mozilla?" & VbCrLf
strData = strData & "Content-Type: multipart/form-data" & VbCrLf
strData = strData & "variable1=valor1&variable2=valor2" & VbCrLf  & VbCrLf
Winsock1.SendData strData

lo probe pero no me funciona...

y desde el Inet...?

[Freeze.]

Como asi crear post con un winsock????????

si es asi cuidado con que caiga en manos mal intencionadas

[yeikos]

lo probe pero no me funciona...

y desde el Inet...?

Sí funciona, escribe el código para que te podamos ayudar.

[satan69]

lo probe pero no me funciona...

y desde el Inet...?

Sí funciona, escribe el código para que te podamos ayudar.

mejor te voy a enviar un mp.. porque no quiero que caiga en malos intensinadas

[Freeze.]

mejor te voy a enviar un mp.. porque no quiero que caiga en malos intensinadas

Que quieres decir q de verdad crea post en cualquier foro?????

[yeikos]

lo probe pero no me funciona...

y desde el Inet...?

Sí funciona, escribe el código para que te podamos ayudar.

mejor te voy a enviar un mp.. porque no quiero que caiga en malos intensinadas

No comparto esa misma opinión, esto es un foro, y como tal, los conocimientos aprendidos aquí deben de ser compartidos...

Código [Seleccionar] Expandir

Private Sub Form_Load()
Winsock1.Close
Winsock1.RemoteHost = "web.movistar.com.ni"
Winsock1.RemotePort = "80"
Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()
strVar = "txtParaNumero=&txtMensaje=&txtDeQuien=&txtDeNumero=&txtContador=0&para=XXXXXX&men=sms&dnom=s0cratex&dnum=XXXXXX&contador=23&btnEnviar.x=17&btnEnviar.y=15"
strData = "POST /cgi-bin/sms.cgi HTTP/1.0" & vbCrLf
strData = strData & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*" & vbCrLf
strData = strData & "Referer: http://sms.movistar.com.ni/" & vbCrLf
strData = strData & "Accept-Language: es-mx" & vbCrLf
strData = strData & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
strData = strData & "Proxy-Connection: Keep-Alive" & vbCrLf
strData = strData & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; InfoPath.2)" & vbCrLf
strData = strData & "Host: web.movistar.com.ni" & vbCrLf
strData = strData & "Content-Length: " & Len(strVar) & vbCrLf
strData = strData & "Pragma: no-cache" & vbCrLf & vbCrLf
strData = strData & strVar & vbCrLf & vbCrLf
Winsock1.SendData strData
End Sub