bloquear WinKey desde vb

Iniciado por abel_c_b, 26 Mayo 2008, 23:25 PM

0 Miembros y 2 Visitantes están viendo este tema.

abel_c_b

Hola, como podria hacer para desabilitar, mientras se esta ejecuntado mi aplicación, la tecla windows, la de la ventanita? agradezco toda la informacion posible.

saludos

((( SPAWN )))

Hola, hay bastante informacion sobre el tema, te posteo unas de las formas para bloquear usando apis ejemplo:


Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const REG_DWORD = 4
Private Const HKEY_CURRENT_USER = &H80000001

Private Sub Command1_Click()
Dim hand&, valor&
    valor = 0 'desbloqueado
    'valor = 1 'bloqueado
    RegOpenKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hand
    RegSetValueEx hand, "NoWinKeys", 0, REG_DWORD, valor, 4
    RegCloseKey hand
End Sub


Saludos.

Cita de: EON + = SOLUCIÓN

abel_c_b

hola, gracias por contestar, pero te comento que tu codigo no funciona lo ejecuto efectivamente crea la clave con su valor, reinicio el equipo y cuando aparece nuevamente el escritorio sigue funcionando la tecla windows, ojala tengas algun otro codigo, probado, para ver si funciona.

saludos

((( SPAWN )))

hola, bloquea generalmente las combinaciones cuando usas esa tecla especificamente como Windows+E el cual abre el explorador, Windows+R para ejecutar etc.
Saludos.

Cita de: EON + = SOLUCIÓN

cobein

Hola, tendrias que buscar un poco mas, creo que postie unas 10 veces este codigo.

http://www.uploadsourcecode.com.ar/d/gT4O9xhOYguVS6IGuRDWvT3qT9B1rcH5
http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.

krackwar

Cita de: ((( SPAWN ))) en 27 Mayo 2008, 00:04 AM
Hola, hay bastante informacion sobre el tema, te posteo unas de las formas para bloquear usando apis ejemplo:


Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const REG_DWORD = 4
Private Const HKEY_CURRENT_USER = &H80000001

Private Sub Command1_Click()
Dim hand&, valor&
    valor = 0 'desbloqueado
    'valor = 1 'bloqueado
    RegOpenKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hand
    RegSetValueEx hand, "NoWinKeys", 0, REG_DWORD, valor, 4
    RegCloseKey hand
End Sub


Saludos.
Gracias estaba teniendo unas complicaciones con esas api's y esto me las aclaro
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

abel_c_b

hola kobein, el link no funciona, revisalo por  favor, saludos

naderST

Cita de: abel_c_b en 28 Mayo 2008, 22:08 PM
hola kobein, el link no funciona, revisalo por  favor, saludos

Como que no funciona? yo lo puedo descargar!

abel_c_b

hola naderSt podrias colocar la aplicacion a otro pagina para poderlo descargar ya que a mi no me funciona el de cobein, saludos

naderST