POST y visua basic

[Freeze.]

Bueno disculpen mi ignorancia pero quisiera saber la utilidad de ese codigo....

Y saber si se puede escribir en un foro mediante una aplicación...

[Xerok1!]

una pregunta,este mekanismo se podria utilizar o es el utilizado para crear el ice cold??
si no es asi debe ser algo muy parecido..
un saludo

[yeikos]

una pregunta,este mekanismo se podria utilizar o es el utilizado para crear el ice cold??
si no es asi debe ser algo muy parecido..
un saludo

Una de tantas...

[Xerok1!]

ya lo suponia...un saludo

[Hans el Topo]

la mitad de los foros no permitirán que postees nada con ese método y la otra mitad te baneará xD

[satan69]

la mitad de los foros no permitirán que postees nada con ese método y la otra mitad te baneará xD

por eso existen vulnerabilidades...    seria probar exactamente lo mismo...

[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

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


en cierta parte es verdad... pero el detalle  es que te envie la pregunta por MP.. porque la pusiste aqui.. si yo queria que nadie mas sabiera... pero bueno... de todos modos gracias.. y como la pusiste aqui.. la compañia ya bloqueo la conexion... ya no se pude enviar mas sms...   

[Hans el Topo]

si no quieres que te respondan, mejor no preguntes xD

que tu hagas la pregunta no significa que la respuesta te pertenezca xD

[yeikos]

la mitad de los foros no permitirán que postees nada con ese método y la otra mitad te baneará xD

Me da a mi que no tiene por qué haber ningún problema...

[Bourne Ultimatum]

q buena frase

que tu hagas la pregunta no significa que la respuesta te pertenezca