DESABILITAR ALT F4
E ae pessoal "Manico" td blz?
Faz muito tempo que não entro no site, desde que ele foi transferido para outro server.
é o seguinte galera, alguém aà manja de desabilitar os comando ALT F4, CTRL + ALT + DEL, ALT+TAB, CTRL+ESC.
Se isso for possÃvel por favor me deem um help.
Um Abraço!
Faz muito tempo que não entro no site, desde que ele foi transferido para outro server.é o seguinte galera, alguém aà manja de desabilitar os comando ALT F4, CTRL + ALT + DEL, ALT+TAB, CTRL+ESC.
Se isso for possÃvel por favor me deem um help.
Um Abraço!
'em um módulo
public declare function postmessage lib "user32" alias "postmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, byval lparam as long) as long
public declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
'no form
'crie um botão....
private sub command1_click()
desbarratarefas
end sub
public sub desbarratarefas()
dim hwnd as long
hwnd = findwindow("shell_traywnd", "")
postmessage hwnd, 2, 0, 0
end sub
mjstudios
public declare function postmessage lib "user32" alias "postmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, byval lparam as long) as long
public declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
'no form
'crie um botão....
private sub command1_click()
desbarratarefas
end sub
public sub desbarratarefas()
dim hwnd as long
hwnd = findwindow("shell_traywnd", "")
postmessage hwnd, 2, 0, 0
end sub
mjstudios
Tópico encerrado , respostas não são mais permitidas