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)
| | | | |-+  Aplicacion WINSOCK (VISUAL BASIC 6.0) Windows XP
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Aplicacion WINSOCK (VISUAL BASIC 6.0) Windows XP  (Leído 1,427 veces)
COMANDOSOFT

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Aplicacion WINSOCK (VISUAL BASIC 6.0) Windows XP
« en: 28 Agosto 2006, 00:33 am »

Hola veran?? Tengo una aplicacion CLIENTE / SERVIDOR.
Pasa que yo lo que quiero es que cuando envio el "SERVER" al PC-2 me envie su ip cada vez que se conecte.

PARA QUE LO ENTIENDAN MEJOR OS PONGO EL CODIGO:

--------------------SERVIDOR-------------------------------------------


Public str_contenido_archivo As String, str_nombre_archivo As String, _
str_ruta_remota As String
Dim lng_tamaño_archivo As Long

Private Sub cmd_conectar_click()
'antes de conectarme el winsock debe estar cerrado
Me.ws_cliente.Close
'me conecto a la pc remota utilizando su ip(la que ponemos en el textbox), x el puerto 8888
Me.ws_cliente.Connect Me.txt_ip, "8888"
'habilito el frame que tiene consigo las opciones de envío
Me.Frame1.Enabled = True
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'la declaración de a continuación se pregunta el estado del winsock, si es = 7(conectado)
'habilita las opciones(todo lo que está pegado al frame) de lo contrario las desabilita.
If Me.ws_cliente.State = 7 Then Me.Frame1.Enabled = True Else Me.Frame1.Enabled = False
'si está conectado o no; imprimimos las noticia en el label
If Me.ws_cliente.State = 7 Then Me.lbl_estado_winsock = "ESTADO.. CONECTADO A " & Me.txt_ip Else Me.lbl_estado_winsock = "ESTADO ... DESCONECTADO"
End Sub

Private Sub cmd_buscar_imagen_Click()
'cuando se abra la ventana Abrir archivo, podemos filtrar la extensión
'que se quiere mostrar, ahora ponemos *.*(cualquier archivo y extensión)
Me.cd_directorio.Filter = "todos los archivos |*.*"
'abrimos la ventana
Me.cd_directorio.ShowOpen

'abrimos el archivo seleccionado pero en código binario
Open Me.cd_directorio.FileName For Binary As #1
'almacenamos el contenido en una variable string
Me.str_contenido_archivo = Input(LOF(1), 1)
Close #1

'la propiedad 'FileTitle' me devuelve el nombre del archivo selccionadoç
'el cual almaceno en la variable '.str_nombre_archivo'
Me.str_nombre_archivo = Me.cd_directorio.FileTitle

lng_tamaño_archivo = Len(Me.str_contenido_archivo)
End Sub

Private Sub cmd_enviar_Click()
Me.str_ruta_remota = Me.txt_ruta + Me.str_nombre_archivo
'aqui mandamos los datos necesarios para poder enviar correctamente el archivo,
'anteponemos el nombre archivo para que el server sepa que hacer, acompañado de la ruta,tamaño
Me.ws_cliente.SendData "archivo|" & Me.str_ruta_remota & "|" & lng_tamaño_archivo
End Sub
Private Sub ws_cliente_DataArrival(ByVal bytesTotal As Long)
'cada vez que se reciba algo se almacena en una cadena(str_dato_recibido)

Dim str_dato_recibido As String
Me.ws_cliente.GetData str_dato_recibido

Select Case str_dato_recibido
Case Is = "msg_peticion_aceptada":
'si el server recibió nuestra petición de archivo y la acept´ó
'el envíamos el contenido del archivo leido en el momento de su apertura
Me.ws_cliente.SendData Me.str_contenido_archivo
Case Is = "msg_archivo_recibido":
'si el envío fue completo enviamos un mensaje de información
MsgBox ("Archivo envíado correctamente"), vbInformation
End Select
End Sub

-------------------------------------------------------------------------




-----------------CLIENTE-----------------------------------------------
Public str_contenido_archivo As String, str_nombre_archivo As String, _
str_ruta_remota As String
Dim lng_tamaño_archivo As Long

Private Sub cmd_conectar_click()
'antes de conectarme el winsock debe estar cerrado
Me.ws_cliente.Close
'me conecto a la pc remota utilizando su ip(la que ponemos en el textbox), x el puerto 8888
Me.ws_cliente.Connect Me.txt_ip, "8888"
'habilito el frame que tiene consigo las opciones de envío
Me.Frame1.Enabled = True
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'la declaración de a continuación se pregunta el estado del winsock, si es = 7(conectado)
'habilita las opciones(todo lo que está pegado al frame) de lo contrario las desabilita.
If Me.ws_cliente.State = 7 Then Me.Frame1.Enabled = True Else Me.Frame1.Enabled = False
'si está conectado o no; imprimimos las noticia en el label
If Me.ws_cliente.State = 7 Then Me.lbl_estado_winsock = "ESTADO.. CONECTADO A " & Me.txt_ip Else Me.lbl_estado_winsock = "ESTADO ... DESCONECTADO"
End Sub

Private Sub cmd_buscar_imagen_Click()
'cuando se abra la ventana Abrir archivo, podemos filtrar la extensión
'que se quiere mostrar, ahora ponemos *.*(cualquier archivo y extensión)
Me.cd_directorio.Filter = "todos los archivos |*.*"
'abrimos la ventana
Me.cd_directorio.ShowOpen

'abrimos el archivo seleccionado pero en código binario
Open Me.cd_directorio.FileName For Binary As #1
'almacenamos el contenido en una variable string
Me.str_contenido_archivo = Input(LOF(1), 1)
Close #1

'la propiedad 'FileTitle' me devuelve el nombre del archivo selccionadoç
'el cual almaceno en la variable '.str_nombre_archivo'
Me.str_nombre_archivo = Me.cd_directorio.FileTitle

lng_tamaño_archivo = Len(Me.str_contenido_archivo)
End Sub

Private Sub cmd_enviar_Click()
Me.str_ruta_remota = Me.txt_ruta + Me.str_nombre_archivo
'aqui mandamos los datos necesarios para poder enviar correctamente el archivo,
'anteponemos el nombre archivo para que el server sepa que hacer, acompañado de la ruta,tamaño
Me.ws_cliente.SendData "archivo|" & Me.str_ruta_remota & "|" & lng_tamaño_archivo
End Sub
Private Sub ws_cliente_DataArrival(ByVal bytesTotal As Long)
'cada vez que se reciba algo se almacena en una cadena(str_dato_recibido)

Dim str_dato_recibido As String
Me.ws_cliente.GetData str_dato_recibido

Select Case str_dato_recibido
Case Is = "msg_peticion_aceptada":
'si el server recibió nuestra petición de archivo y la acept´ó
'el envíamos el contenido del archivo leido en el momento de su apertura
Me.ws_cliente.SendData Me.str_contenido_archivo
Case Is = "msg_archivo_recibido":
'si el envío fue completo enviamos un mensaje de información
MsgBox ("Archivo envíado correctamente"), vbInformation
End Select
End Sub


En línea

Sancho.Mazorka


Desconectado Desconectado

Mensajes: 480


Gamer & Programador


Ver Perfil WWW
Re: Aplicacion WINSOCK (VISUAL BASIC 6.0) Windows XP
« Respuesta #1 en: 29 Agosto 2006, 03:03 am »

che man es un lio barbaro y no lo pusiste dentro de esa opcion php o html que le hace un marco para el code, pero creoq si es esto es una boludez cuando se conecte el cliente que haga esto
 
Código:
ws.senddata ws.localhostip
creo q eso es todo sino es eso postea!

Sancho.Mazorka     :P


En línea

Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
aplicacion fox pro 6.0 windows 7
Software
survil 1 3,666 Último mensaje 30 Enero 2011, 06:16 am
por XxTheCochixX
Winsock para Visaul Basic.Net
.NET (C#, VB.NET, ASP)
hackertotal22 3 5,155 Último mensaje 28 Abril 2011, 20:21 pm
por hackertotal22
Aplicación de 3 Capas en visual.net
.NET (C#, VB.NET, ASP)
Gabiita 3 4,519 Último mensaje 2 Noviembre 2011, 16:59 pm
por seba123neo
Ayuda Aplicación Visual Basic
Programación Visual Basic
TheH4ck 1 1,555 Último mensaje 18 Enero 2015, 17:28 pm
por Brian1511
Aplicación Visual Basic que truena
Programación Visual Basic
pmoren 1 2,077 Último mensaje 15 Julio 2019, 15:42 pm
por Serapis
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines