bloquear WinKey desde vb

[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:

Código [Seleccionar] Expandir


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.

[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.

[cobein]

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

http://www.uploadsourcecode.com.ar/d/gT4O9xhOYguVS6IGuRDWvT3qT9B1rcH5

[krackwar]

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

Código [Seleccionar] Expandir


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

[abel_c_b]

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

[naderST]

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]

aca esta te lo subi a rapidshare
http://rapidshare.com/files/118398074/Disable_Winkey.zip.html