Unos códigos que encontré en elhacker.com, muy buenos
1-
Private declare function BlockInput (ByVal Co as long) as long
*-* Esta function blockea el (mouse y keybord)
Y se ejecuta escribiendo en un sub de commando o timer o …etc
BlockInput True O False
2-
Private declare function ShowCursor(Byval Co as long) as long
*-* Esta function pone el mouse visible o invisible
Y se ejecuta escribiendo en un sub de commando o timer o …etc
ShowCursor True O False
3-
Private declare function DeleteFile lib "kernel32" Alias "DeleteFileA" (byval fileP as string) as long
*-* Eliminar cualcier file en el pc
Y se ejecuta escribiendo en un sub de commando o timer o …etc
DeleteFile "Path"
4-
Private Declare Function SwapMouseButton Lib "user32" (ByVal Co As Long) As Long
*-*Cambia la posision del los boton del mouse
Y se ejecuta escribiendo en un sub de commando o timer o …etc
SwapMouseButton True O False
5-
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
*-*Copiar algun file
Y se ejecuta escribiendo en un sub de commando o timer o …etc
CopyFile "Ferom", "To", True ,,,,,,el True Significa que si exsiste Replasarlo Y El False alreves
6-
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
*-*Saber el tipo del disco
Y se ejecuta escribiendo en un sub de commando o timer o …etc
,,.,.,.,., usar select case para reconoser el valor regresado de la funcion y
Select Case GetDriveType("Disco")
Case 2
Msgbox "Removable"
Case 3
Msgbox "Drive Fixed"
Case Is = 4
Msgbox "Remote"
Case Is = 5
Msgbox "Cd-Rom"
Case Is = 6
Msgbox "Ram disk"
Case Else
Msgbox "Unrecognized"
End Select
Fuente: http://foro.el-hacker.com/f60/codigos-fuente-programa-hacking-vb6-58739/
