Mensajes

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.

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.

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 [Seleccionar] Expandir


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.

[GetForegroundWindow]

El handle de la ventana activa lo obtenés con la función GetForegroundWindow.

Saludos.

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 [Seleccionar] Expandir


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.

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.

[EnumWindows]

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.

Utiliza el método DoVerb para que ejecute una acción.

Saludos.

[Listar procesos, threads, módulos y ventanas.]

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.

[Gusano!!]

Mira los siguientes post que te pueden servir:

Gusano!!
Cambiar icono a un ejecutable

Saludos.