Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: SKL en Julio 06, 2010, 01:34:02 pm

Título: LocalHost = 127.0.0.1
Publicado por: SKL en Julio 06, 2010, 01:34:02 pm

Bueno, tengo la siguiente duda.

De que manera existe (y no me digan apache) de... personalizar la pagina 127.0.0.1 internamente, osea. que por ejemplo si alguien quiere entrar a una web lo mande a 127.0.0.1 y le diga "HOLA SOY LEANDRO ASCIERTO EL CUENTA GRANOS" por ejemplo...

alguna idea?

Título: Re:LocalHost = 127.0.0.1
Publicado por: LeandroA en Julio 06, 2010, 03:09:21 pm

Hola, si entendi bien vos queres hacer un pequeño server?

algo bien facil

pone un winsock en un form

Código: [Seleccionar]

Option Explicit

Private Sub Form_Load()
    Winsock1.LocalPort = 80
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Winsock1.SendData "<P align=center><STRONG>Hola, soy el tragasables de SKL</STRONG></P>"
End Sub

Private Sub Winsock1_SendComplete()
    Winsock1.Close
    Winsock1.Listen
End Sub


Título: Re:LocalHost = 127.0.0.1
Publicado por: ssccaann43 en Julio 06, 2010, 03:19:23 pm

Jajajaja...! El cuenta granos y el traga sables? Jajajaja...! Hey leandro no sabia que podias hacer un pequenio server asi...! Vere que tal...!

Título: Re:LocalHost = 127.0.0.1
Publicado por: coco en Julio 06, 2010, 04:21:28 pm

Cita de: LeandroA en Julio 06, 2010, 03:09:21 pm

Hola, si entendi bien vos queres hacer un pequeño server?

algo bien facil

pone un winsock en un form

Código: [Seleccionar]

Option Explicit

Private Sub Form_Load()
    Winsock1.LocalPort = 80
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Winsock1.SendData "<P align=center><STRONG>Hola, soy el tragasables de SKL</STRONG></P>"
End Sub

Private Sub Winsock1_SendComplete()
    Winsock1.Close
    Winsock1.Listen
End Sub


esta simple ahi, pero posiblemente tengas que enviar alguna cabecera para que parezca de verdad.

por ejemplo

Código: [Seleccionar]

HTTP/1.1 200 OK
Date: Tue, 06 Jul 2010 19:00:33 GMT
Server: Apache/2.2.15 (Unix) mod_ssl/2.2.15 OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4 FrontPage/5.0.2.2635
X-Powered-By: PHP/5.3.2
Pragma: no-cache
Cache-Control: private
Expires: Mon, 26 Jul 1997 05:00:00 GMT
Content-Encoding: gzip
Vary: Accept-Encoding
Last-Modified: Tue, 06 Jul 2010 19:00:33 GMT
Connection: Close
Transfer-Encoding: chunked
Content-Type: text/html; charset=UTF-8
y habria que tener en cuenta que usar csockmaster puede ser peligroso, ya que a veces anda como el traste.

salu2

Título: Re:LocalHost = 127.0.0.1
Publicado por: raul338 en Julio 06, 2010, 09:28:16 pm

Cita de: SKL en Julio 06, 2010, 01:34:02 pm

127.0.0.1 y le diga "HOLA SOY LEANDRO ASCIERTO EL CUENTA GRANOS" por ejemplo...

WTF!  :o

Cita de: ssccaann43 en Julio 06, 2010, 03:19:23 pm

Hey leandro no sabia que podias hacer un pequenio server asi...! Vere que tal...!

Un servidor web no es mas que eso, un socket en puerto 80 (comunmente)  que manda HTML (u otras cosas) con cabeceras HTTP :P

Título: Re:LocalHost = 127.0.0.1
Publicado por: SKL en Julio 09, 2010, 12:37:40 am

IDOLO MI AMIGO LEANDRO !!!! gracias IGUAL ESTAS SUPER DESAPARECIDO EH