elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Duda sobre winsock y http
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Duda sobre winsock y http  (Leído 1,900 veces)
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Duda sobre winsock y http
« en: 19 Noviembre 2006, 19:10 pm »

Wenas.
Me gustaria saber si se puede poner de alguna forma el winsock en escucha al puerto 80 y kuando winsock note algunja conexion que envie datos html.
Gracias. (no se si me he explicado bien)

Karcrack


En línea

WarGhost
I love basket


Desconectado Desconectado

Mensajes: 1.070



Ver Perfil WWW
Re: Duda sobre winsock y http
« Respuesta #1 en: 19 Noviembre 2006, 21:01 pm »

claro que se puede mira este código que acabo de hacer, ya se que es básico que por lo menos... :

Código:
Private Const Port As String = 80

Private Sub Form_Load()
Socket(0).LocalPort = Port
Socket(0).Listen
End Sub

Private Sub Socket_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Socket(Index).Close
Socket(Index).Accept requestID
Load Socket(Socket.Count)
Socket(Socket.UBound).LocalPort = Port
Socket(Socket.UBound).Listen
End Sub

Private Sub Socket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim buffer As String
Dim Respuesta As String: Dim ruta As String: Dim data As String
Socket(Index).GetData buffer

ruta = App.Path & Replace(Mid(buffer, 5, InStr(1, buffer, "HTTP") - 6), "/", "\")

If ruta = App.Path & "\" Then ruta = ruta & "index.htm"

If Dir(ruta, vbArchive) <> "" Then
Respuesta = "HTTP/1.1 200 OK" & vbCrLf & _
"Server: WarGhost WebServer" & vbCrLf & vbCrLf

Open ruta For Binary As #1
data = Space(LOF(1))
Get #1, , data
Close #1
Respuesta = Respuesta & data
Socket(Index).SendData Respuesta
Else
Respuesta = "HTTP/1.1 404 Not Found" & vbCrLf & _
"Server: WarGhost WebServer" & vbCrLf & vbCrLf

Respuesta = Respuesta & "Error..."
Socket(Index).SendData Respuesta
End If

End Sub

Private Sub Socket_SendComplete(Index As Integer)
Socket(Index).Close
End Sub

;D Salu2


En línea

ranslsad


Desconectado Desconectado

Mensajes: 492


Dim Ranslsad as String * :P - Que Vicio!


Ver Perfil WWW
Re: Duda sobre winsock y http
« Respuesta #2 en: 20 Noviembre 2006, 15:04 pm »

Hola, quisiera saber que hace esto exactamente?
y tambien si esto sirve por ejemplo para hacer un mini Server es decir que yo quiero hacer un exe y una carpeta para que la gente pueda ahcer su MiniWeb cada vez que quiera (El ejemplo del guru no me sirve porque cuando entro a la web se traba el programa, es decir y veo el log y recibe pero al enviar datos se pone (No Responde)

Bueno espero que sepas responderme ;)

Salu2

Ranslsad
En línea

WarGhost
I love basket


Desconectado Desconectado

Mensajes: 1.070



Ver Perfil WWW
Re: Duda sobre winsock y http
« Respuesta #3 en: 22 Noviembre 2006, 13:29 pm »

es un tipo server apache ,donde se aloja el fichero es como si fuera la carpeta www de apache.

;D Salu2
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Cabecera HTTP + Winsock + strcat()
Programación C/C++
Riki_89D 5 3,946 Último mensaje 6 Octubre 2011, 11:43 am
por madpitbull_99
Duda sobre http request
Dudas Generales
gelvez16 5 3,560 Último mensaje 28 Noviembre 2014, 07:12 am
por engel lex
Duda sobre HTTP y P2P
Redes
Kaxperday 0 2,528 Último mensaje 29 Marzo 2016, 17:13 pm
por Kaxperday
Duda sobre HTTP proxy « 1 2 »
Redes
OfTheVara 11 7,487 Último mensaje 6 Junio 2016, 14:50 pm
por HdM
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines