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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  AYUDA PARA EXPLICAR ESTE CODIGO DE SERVIDOR DE PAGINA
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: AYUDA PARA EXPLICAR ESTE CODIGO DE SERVIDOR DE PAGINA  (Leído 2,301 veces)
dyanyta21

Desconectado Desconectado

Mensajes: 1


Ver Perfil
AYUDA PARA EXPLICAR ESTE CODIGO DE SERVIDOR DE PAGINA
« en: 20 Noviembre 2005, 17:05 pm »

Código:
Option Explicit

Dim PATH As String
Dim PAGINA As String

Private Sub Estado_Click()
If Estado.Caption = "Iniciar" Then
   PATH = DRaiz.Text    ' Path indica una ruta de acceso
   Estado.Caption = "Detener"
   WS.LocalPort = 80    ' Devuelve o establece el puerto local que desea usar.
   WS.Listen            'Deja a la escucha el puerto
   LEventos.Clear
   Me.Caption = "XServer - Iniciado en http://" & WS.LocalIP & "/"
Else
   Estado.Caption = "Iniciar"
   Me.Caption = "XServer - Detenido"
   WS.Close 'necesario para aceptar la conexion
End If
End Sub

Private Sub Eventos(Texto As String)
   LEventos.AddItem Texto 'introducir texto
   LEventos.ListIndex = LEventos.NewIndex 'Indica el número de la lista más recientemente seleccionado
End Sub


Private Sub Form_Load()
DRaiz = App.PATH & "\" 'identifica el directorio en el cuál está el archivo de nuestra pagina
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long) 'cuando se intente conectar a este (servicio,puerto,socket,o etc..) recojera su ip y ejecutara el siguiente codigo:
   Eventos "Solicitud de conexion..." & requestID
   If WS.RemoteHostIP = "198.23.33.33" Then                'esto hara que se ponga la ip remota del servidor, en este caso se indica nuestra direccin ip.
      Eventos "conexion " & requestID & " Denegada"
      Exit Sub
   End If
   
   If WS.State <> sckClosed Then WS.Close 'Comprueba el estado de la red, si se está conectado a ninguna red no arranca la vigilancia del puerto

   WS.LocalPort = 0 'El número de puerto
   WS.Accept requestID  'acepta cualquier conexion entrante
   
   Eventos "conexion " & requestID & " Aceptada"
   Eventos "Enviando Datos..."
   
   
   DoEvents
   
   If ExisteArchivo(PATH & "/" & PAGINA) Then
      WS.SendData AbrirArchivo(PATH & "/" & PAGINA)
   Else
      WS.SendData "<html><font face='Verdana' size='1'><b>NO SE ENCUENTRA - " & PAGINA & "</b></font></html>" 'ERROR 404
   End If
End Sub


Private Sub WS_DataArrival(ByVal bytesTotal As Long) 'es la llegada de datos

  Dim DATA As String
  Dim STRAUX As String
  Dim BUSCAR_ENVIAR As String
  Dim BUSCAR_RECIBIR As String

  WS.GetData DATA   'metemos en la variable DATA los datos que nos lleguen


  If Mid(DATA, 1, 3) = "GET" Then 'coger el tamaño del 1 al 3 caracter de la variable data
     BUSCAR_ENVIAR = InStr(DATA, "GET ")
     STRAUX = InStr(BUSCAR_ENVIAR + 5, DATA, " ")
     PAGINA = Mid(DATA, BUSCAR_ENVIAR + 4, STRAUX - (BUSCAR_ENVIAR + 4))
  ElseIf Mid(DATA, 1, 4) = "POST" Then
     BUSCAR_RECIBIR = InStr(DATA, "POST ")
     STRAUX = InStr(BUSCAR_RECIBIR + 5, DATA, " ")
     PAGINA = Mid(DATA, BUSCAR_RECIBIR + 5, STRAUX - (BUSCAR_RECIBIR + 5))
  End If
End Sub


Private Sub WS_SendComplete()
   Eventos "Datos Enviados (" & PAGINA & ")"
   
   WS.Close
   WS.LocalPort = 80
   WS.Listen
End Sub


« Última modificación: 21 Noviembre 2005, 13:41 pm por Slasher-K » En línea

Xpeed


Desconectado Desconectado

Mensajes: 472


Res Publica Non Dominetur


Ver Perfil
Re: AYUDA PARA EXPLICAR ESTE CODIGO DE SERVIDOR DE PAGINA
« Respuesta #1 en: 21 Noviembre 2005, 04:42 am »

tio... si lo metes en los tags code intento ayudarte, así me empieza a doler la cabeza :/


un saludo.


En línea

Slasher-K


Desconectado Desconectado

Mensajes: 1.477


Ver Perfil
Re: AYUDA PARA EXPLICAR ESTE CODIGO DE SERVIDOR DE PAGINA
« Respuesta #2 en: 21 Noviembre 2005, 13:45 pm »

Tutorial y referencia del control WinSock
http://foro.elhacker.net/index.php/topic,75832.0.html

Antes de preguntar leete todo eso, si  no entendés algo expones tu duda, pero nada de venir a pedir explicación de un código.

Saludos.
En línea



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
codigo para controlar luces desde servidor web [arduino]
Electrónica
gabrielmellace 4 11,964 Último mensaje 18 Mayo 2015, 10:24 am
por Hurdano
ayuda con este código para tomar asistencias
PHP
chury666 0 3,195 Último mensaje 31 Enero 2013, 08:46 am
por chury666
| Ayuda | - | Me Pueden Hacer El Favor De Explicar Este Código Detalladamente? |
Java
JADP 3 6,956 Último mensaje 19 Diciembre 2013, 23:59 pm
por dainodaibouken
Ayuda para migrar pagina web a un servidor
Desarrollo Web
hckcrck 0 1,946 Último mensaje 9 Marzo 2017, 15:50 pm
por hckcrck
Ayuda para instertar una redirección en este codigo
Programación C/C++
itzprox 0 1,816 Último mensaje 11 Abril 2019, 17:59 pm
por itzprox
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines