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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Mensajes
Páginas: 1 ... 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 [37] 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 ... 55
361  Programación / Programación Visual Basic / Re: Me ayudan con la base de datos Access en: 14 Julio 2005, 01:22 am
Los controles Data ya no se usan, mejor usa el ADODC. En controles está como "Microsoft ADO Data Control 6.0".

Para agregar un nuevo registro se usa el método AddNew del Recordset. Luego de agregar el registro hay que establecer los campos mediante la propiedad Field. Luego para actualizar el origen de datos se usa el método Update.

Saludos.
362  Programación / Programación Visual Basic / Re: como me inicio en la programacion de videojuegos? en: 14 Julio 2005, 01:17 am
Visual Basic es muy bueno si sabes usar DirectX. Hay un control de ventana para DirectX que te permite crear juegos de alta calidad. Agrega en controles el archivo D3D8.DLL y listo, por google hay mucha info de su funcionamiento y varios ejemplos. Si los encuentro cuelgo algunos ejemplos del uso de esta librería.

Saludos.
363  Programación / Programación Visual Basic / Re: Ayuda con control WindowsMediaPlayer en: 13 Julio 2005, 02:52 am
Podrías crear una matriz de String con la ruta y el nombre de los archivos, cada elemento de la matriz correspondería al mismo elemento del ListBox.

Por ej:

Código:
Option Explicit

Private sFiles() As String

Sub AddFilesToPlaylist()
           Dim sPath$, i%

  sPath = Dir1.Path
  If Not Right$(sPath,1) Like "\" Then sPath = sPath & "\"

  For i = 0 To File1.ListCount -1
    ReDim Preserve sFiles(i) As String

    sFiles(i) = sPath & File1.List(i)
    Call List1.AddItem(sFiles(i))
  Next
End Sub

Private Sub List1_Click()
  If List1.ListIndex > -1 Then
    Call PlayFile(sFiles(List1.ListIndex))
  End If
End Sub


Se supone que PlayFile es un procedimiento que reproduce el archivo.

Saludos.
364  Programación / Programación Visual Basic / Re: Tomar nombres de ventana en: 13 Julio 2005, 02:07 am
El handle de la ventana activa lo obtenés con la función GetForegroundWindow.

Saludos.
365  Programación / Programación Visual Basic / Re: Transferencia de archivos, AYUDA en: 13 Julio 2005, 02:05 am
El problema no es tu RAM sino que el ancho de banda no soporta tanto, cuando se envían datagramas por la web no deben ser muy grandes porque al pasar por tantos servidores los datos se podrían perder o peor, pueden llegar corrompidos.

Primero intenta envíar menos cantidad de datos, si no funciona se buscará otra solución.

Pero igualmente esa forma de leer el archivo es media inestable, te dejo una alternativa.

Código:
Option Explicit

Private Type FileInfo
  Filename      As String
  FileSize      As Long
  TotalPieces   As Long
  BytesPerPiece As Long
  ByteRemaining As Long
End Type

Private Function ParseFile(Filename As String, BytesPerPiece As Long) As FileInfo
  With ParseFile
    .Filename = Filename
    .FileSize = FileLen(Filename)
    .TotalPieces = .FileSize \ BytesPerPiece
    .BytesPerPiece = BytesPerPiece
    .ByteRemaining = .FileSize Mod .ByteRemaining
  End With
End Function

Private Function CropFile(FileSpec As FileInfo) As Single
        Dim hFile%, snTime!
        Dim sData$, i&

  snTime = Timer
 
  With FileSpec
    hFile = FreeFile
   
    Open .Filename For Binary Lock Read Write As #hFile
   
    sData = String$(.BytesPerPiece, 0)
   
    For i = 1 To .TotalPieces
      If i < .TotalPieces Then
        Get #hFile, , sData
      Else
        sData = String$(.ByteRemaining, 0)
       
        Get #hFile, , sData
      End If
     
      'Luego acá se enviarían los datos.
      '
    Next
  End With
End Function

En resumen es lo mismo pero un poco más estructurado. Y si usas la API es dos veces más rápido.

Saludos.
366  Programación / Programación Visual Basic / Re: Guardar Base de datos en un disquete en: 13 Julio 2005, 01:31 am
Lo que podrías hacer es que el programa busque la base de datos en el diskette y si no la encuentra diga que no se puede iniciar, pero no es muy seguro porque los disquetes son muy inestables y las se escribe y lee mucho en las bases de datos.

Mejor sería copiar la base de datos del diskette a la pc y que la use desde ahi. Lo que si no vas a poder crear la conexión en tiempo de diseño porque la base de datos no va a estar en ese directorio, la conexión va a tener que ser en tiempo de ejecución usando los objetos de datos

Saludos.
367  Programación / Programación Visual Basic / Re: Tomar nombres de ventana en: 12 Julio 2005, 04:06 am
Primero podrías utilizar EnumWindows y GetWindowText para obtener el título.

Pero para hacer un keylogger no sirve de mucho, usa la función GetAsyncKeyState y busca un poco en el foro que ya se habló mucho de esto.

codigo fuente keylogger

Saludos.
368  Programación / Programación Visual Basic / Re: objetos OLE en: 12 Julio 2005, 01:58 am
Utiliza el método DoVerb para que ejecute una acción.

Saludos.
369  Programación / Programación Visual Basic / Re: cerrar procesos en: 12 Julio 2005, 01:54 am
Busca un poco en el foro y mira los temas pegados que por algo están ahi. Mira el siguiente post:

Listar procesos, threads, módulos y ventanas.

Con eso ya tenés bastante. Para usarlo desde el cliente sólo envía un comando usando sockets y cuando el server lo recibe envía la lista o termina un proceso.

Saludos.
370  Programación / Programación Visual Basic / Re: Cambiar icono en: 10 Julio 2005, 09:51 am
Mira los siguientes post que te pueden servir:

Gusano!!
Cambiar icono a un ejecutable

Saludos.
Páginas: 1 ... 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 [37] 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines