Mensajes

¿Qué tamaño tiene la DLL?

[Cambiar wallpaper]

Cambiar wallpaper

Para apagar el sistema usa la función ExitWindowsEx

Saludos.

Código [Seleccionar] Expandir


Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Function GetShortPath(PathSpec As String) As String
            Dim sPath$

  sPath = String(MAX_PATH, 0)
  If GetShortPathName(PathSpec, sPath, MAX_PATH) Then
    GetShortPath = Left$(sPath, InStr(1, sPath, vbNullChar) - 1)
  End If
End Function


Saludos.

Si las máquinas están en red sólo es cuestión de copiar el archivo a la otra PC usando FileCopy.

Código [Seleccionar] Expandir


Call FileCopy("C:\Archivo.txt", "\\PC01\Documentos\Archivo.txt")


Si lo querés transferir mediante sockets te conviene utilizar UDP ya que funciona más rápido que TCP, pero lo malo es que no tiene seguridad y los paquetess que se pierden no se pueden recuperar. Aunque en una LAN es dificil que se pierdan datos en una transferencia.

Saludos.

Ya se habló de esto en el foro y hay ejemplos de código. Hay un post que puse hace un tiempo "Ejemplo de worm en VB" y muestra como recorrer el disco usando API's.

Con el Dir/Drive/FileListBox es sencillo pero muy lento.

Saludos.

[Como transmitir webcam desde un server a su cliente]

Es problema del control, no de programación. Mejor usa las funciones de la API que es bastante sencillo .

Como transmitir webcam desde un server a su cliente

Saludos.

Ya se habló muchísimas veces de esto en el foro... no cuesta tanto darle al botón buscar pero en fin.

Si envías una cadena, sólo la tenés que obtener una vez llamando a GetData y luego verificar lo que llegó con un Select Case por ejemplo.

Saludos.

A la instrucción Put o Get según el tipo de variable que le pases es lo que va a escribir o leer en el archivo, respectivamente.

Si le pasas un Integer va a leer/escribir dos bytes, si le pasas un Long va a leer/escribir 4 bytes. Entonces si sólo querés que modifique 1 byte tendrías que guardar los datos en una variable de tipo Byte.

Código [Seleccionar] Expandir


           Dim btData As Byte

Open "programa.exe" For Binary As #1

btData = &H7E
Put #1, &H4C663, btData

Close #1


En ese caso sólo escribirá un byte.

Saludos.

Están puestos los link a MSDN online...

Código [Seleccionar] Expandir


Private Sub cmdPrint_Click()
        Dim csItem
 
  For Each csItem In ListView1.ListItems
    Printer.CurrentX = 350
    Printer.Print csItem.Text
  Next
 
  Call Printer.EndDoc
End Sub


Eso imprimiría cada elemento de la lista. No sé si era a eso a lo que te referías.

Saludos.