Mensajes

Busca en el foro.

Firmado y certificado.

[Bases de Datos y Visual Basic]

Bases de Datos y Visual Basic

Saludos.

El reboot lo hace bien claro, pero la pc no se apagará si no tiene fuente ATX.

Saludos.

Si lo que querés hacer es que no se pueda usar el portapapeles del sistema para copiar una imagen, lo que podés hacer es poner un control Timer en el formulario con su propiedad Interval establecida a un valor muy bajo (como puede ser 50 o 100) y en el evento Timer borrar los datos del portapapeles, en el caso que fueran imágenes.

Código [Seleccionar] Expandir


Private Sub Timer1_Timer()
  If Clipboard.GetFormat(vbCFBitmap) Or Clipboard.GetFormat(vbCFDib) Then
    Call Clipboard.Clear
  End If
End Sub


Este es el camino más corto pero también podrías detectar la pulsación de la tecla Impr Pant con la función GetAsyncKeyState y en el caso que esté presionada borrar los datos del portapapeles.

Desactivar el hardware es mucho más dificil y no se puede hacer directamente desde VB.

Saludos.

[Funciones para manipular el registro utilizando la API]

Mira la recopilación de post interesantes, hay uno que dice Funciones para manipular el registro utilizando la API.

Vamos que los temas pegados están ahi por algo...

Saludos.

CSocketMaster debe ser un objeto.

Bueno creo que pasaste de programación estructurada a POO porque hay errores de programación muy graves.

Código [Seleccionar] Expandir


Dim myConnection As New SQLconnection(myConnectionString)
Dim myInsertQuery As String = "INSERT INTO usuario (name, apellidos) Values('Prueba', 'Solo Prueba')"
Dim myCommand As New SqlComman(myInsertQuery)


Por ejemplo no se pueden hacer esas asignaciones, todas las variables en VB se inicializan a su valor predeterminado y luego se les puede cambiar el valor, pero no cuando se declaran. Eso debería ser:

Código [Seleccionar] Expandir


Dim myConnection As New Connection
Dim myInsertQuery As String
Dim myCommand As New Command

Set myConnection = SQLconnection(myConnectionString)
myInsertQuery = "INSERT INTO usuario (name, apellidos) Values('Prueba', 'Solo Prueba')"
Set myCommand = SqlComman(myInsertQuery)


Te recomiendo que leas un curso de VB. Aprenda Visual Basic como en primero es un buen curso. O sino el del guille que hace poco lo pusieron.

Saludos.

Creo que este tema se habló 1000000E+99999 veces en el foro, MIRA LOS TEMAS PEGADOS QUE PARA ALGO ESTÁN AHI.

Saludos.

Código [Seleccionar] Expandir


HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders


En esa clave hay un valor que se llama History, ese valor tiene la ruta de acceso a la carpeta del historial. Borra todos los archivos de esa carpeta.

Saludos.