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...
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¶=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
Autor
En línea
