Newsgroup: it.comp.lang.visual-basic
Titolo: disattivare alt f4

si puo in un programma far si che un utente una volta aperto il prog non
possa piu premere ctrl alt canc e alt f4 per terminere il programma???
se si mi deite come si fa scrivendo magari due righieěne
grazie
E' diventato di moda?
--------------
Si ti crea problemi??
-------------
In questi giorni questa domanda e' stata fatta piu' volte: ma che
c@%%0 di programmi scrivete?
Cerca nei post dell'ultima settimana, 10 giorni al massimo.
ciao, hal
------------------
cmq nn c'e spiegato come si blocca Alt F4

cmq nn c'e spiegato come si blocca Alt F4
Se non hai ancora capito come si fa allora puoi anche cambiare
mestiere o pagare qualcuno che lo sappia fare.
-- 
ciao, hal

 mestiere o pagare qualcuno che lo sappia fare.
condivido
--
David Ruscelli
Oh... My dog!

 condivido
Io non condivido tanto ci siamo passati tutti
Ciao
Alessandro
--
Morfeus®
Free Joint
:PII

 End Sub
Non perchè sia cattivo, ma oggi è una giornata di "quasi ponte" e allora ho
voglia di cazzeggiare....
Davvero questa piccola istruzione blocca il funzionamento di ctrl+alt+canc?
Salutoni
Sergio


E' una cosa che in qualche giorno si riesce a fae (o a scoprire come fare),
e non c'è bisogno di essere dei fenomeni... tutt'altro :-)
Ne deduco che il ragazzo non ci sia tanto portato alla programmazione.
Bye

 ha scritto nel messaggio
news:b8t731$d6nak$1...@ID-173193.news.dfncis.de...

Il quoting ha un suo significato, quindi se rileggi il messaggio facendo
attenzione al quoting, ti accorgi che non mi riferisco affatto a
ctr-alt-canc, ma ad alt+F4
--
David Ruscelli
Oh...My dog!

 affatto a ctr-alt-canc, ma ad alt+F4
hai ragione.
mi sono incartato con il fatto che il thread è stato riaperto.
Salutoni
Sergio

 ha scritto nel messaggio
news:b8t7nh$d990r$1...@ID-173193.news.dfncis.de...

No problem, scusa se ho risposto in modo un po' secco...
Amici come prima?
:-)


 Amici come prima?
Da quando in qua siamo amici? ;-)
Salutoni
Sergio

 Da quando in qua siamo amici? ;-)
Lo sapevo che avresti risposto cosě...

 ha scritto nel messaggio
news:b8t79a$dfu7h$1...@ID-110499.news.dfncis.de...


 Bye
non credi anche tu che suona male ?
Bye


 Sei Sicuro ;) magari potresti provare a cambiare mestiere?
Leggendo quaggiù, pare proprio che non si possa.
Per una volta, faccio anch'io il polemico, e chiedo:
Perchè, invece di polemizzare, non posti la soluzione (VB) per NT/2000/XP?
Aggiungo anche un sincero "grazie". ;-)


Anche se non mi serve mi accodo pure per curiosità, onestamente
proprio non so come si possa fare.

 ha scritto nel messaggio
news:tto4bvgfrbupg1mmd...@4ax.com...

oggi sono polemista e sinceramente molto scettico


 oggi sono polemista e sinceramente molto scettico
Potrai essere comunista o fascista, ma non certo polemista. Semmai polemico.
;-)
Alfine, se ho ben compreso, anche tu in attesa di miracolose soluzioni, no?!

 oggi sono polemista e sinceramente molto scettico
L'unica soluzione che conosco, è quella di cui si è già parlato,
agganciarsi al meccanismo di autenticazione che normalmente
viene gestito dall'ormai famigerata Gina.dll. E' quello che fanno
i programmi Norton, per esempio... e che mi hanno costretto a
reinstallare un paio di volte un server NT, quando andarono a
donnine allegre la DLL della Symantec una volta, e la chiave di
registro un'altra, al momento della disinstallazione... :-(
Bye, G.


Mi sa che aspetteremo un bel po'


 JAVAAAA????
Mi associo (con poca speranza, lo attendo da giorni e ormai le feste son
finite, o no?)

 son finite, o no?)
No, sono ancora in corso (almeno spero sia quella la ragione)
Speriamo di vederlo/sentirlo lunedě
Salutoni
Sergio

 Speriamo di vederlo/sentirlo lunedě
VEDERLO???
E non mi si dice nulla? Dove, quando?

[Lupo] scrisse:

Vederlo nel senso di leggerlo...
Salutoni
Sergio

 ha scritto nel messaggio
news:b8tnjf$dh28f$
1...@ID-174464.news.dfncis.de

Brutti bastardi ;P,
non mi posso distrarre un attimo guarda qui cosa leggo io invece....
Diciamo così de io vi posto come si fà voi cambiate mestiere?
Ciao



Naturalmente SI SCHERZA....:)  e cisto che in ogni caso non lo farete mai
eccovi quindi accontentati
Disabilita la task manager solo per Xp per eventuali funzionalità vedi ?
DA inserire in un modulo
Option Explicit
'Registro di configurazione
Const REG_SZ = 1
Const REG_BINARY = 3
Const REG_DWORD = 4
Const HKEY_CURRENT_USER = &H80000001
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long)
As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias
"RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As
Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias
"RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
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 RegQueryValueEx Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal
lpReserved As Long, lpType As Long, lpData As Any, lpcbData 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
'Funzioni per la disabilitazione dei tasti
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
(Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As
Integer
Public Declare Function SetWindowsHookEx Lib "user32" Alias
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As
Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long,
ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As
Long) As Long
Public Const HC_ACTION = 0
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
Public Const VK_TAB = &H9
Public Const VK_CONTROL = &H11
Public Const VK_ESCAPE = &H1B
Public Const VK_LWIN = &H5B
Public Const VK_RWIN = &H5C
Public Const VK_APPS = &H5D
Public Const WH_KEYBOARD_LL = 13
Public Const LLKHF_ALTDOWN = &H20
Public Type KBDLLHOOKSTRUCT
    vkCode As Long
    scanCode As Long
    Flags As Long
    time As Long
    dwExtraInfo As Long
End Type
Dim p As KBDLLHOOKSTRUCT
Public Sub DisabilitaTask(flag As Integer)
    SaveStringWORD HKEY_CURRENT_USER,
"software\microsoft\windows\currentversion\policies\system",
"DisableTaskMgr", Val(flag)
End Sub
Sub SaveStringWORD(hKey As Long, strPath As String, strValue As String,
strData As String)
    Dim ret
    RegCreateKey hKey, strPath, ret
    RegSetValueEx ret, strValue, 0, REG_DWORD, CLng(strData), 4
    RegCloseKey ret
End Sub
Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As
Long, ByVal lParam As Long) As Long
   Dim fEatKeystroke As Boolean
   If (nCode = HC_ACTION) Then
      If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP
Or wParam = WM_SYSKEYUP Then
         CopyMemory p, ByVal lParam, Len(p)
         fEatKeystroke = _
            ((p.vkCode = VK_TAB) And ((p.Flags And LLKHF_ALTDOWN) <> 0)) Or
_
            ((p.vkCode = VK_ESCAPE) And ((p.Flags And LLKHF_ALTDOWN) <> 0))
Or _
            ((p.vkCode = VK_ESCAPE) And ((GetKeyState(VK_CONTROL) And
&H8000) <> 0)) Or _
            (p.vkCode = VK_LWIN) <> 0 Or (p.vkCode = VK_RWIN) <> 0 Or
(p.vkCode = VK_APPS) <> 0
        End If
    End If
    If fEatKeystroke Then
        LowLevelKeyboardProc = -1
    Else
        LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal
lParam)
    End If
End Function
DA inserire in un form con un pulsante e una Label
Private Sub Command1_Click()
    If Command1.Caption = "Disabilita" Then
        Command1.Caption = "Abilita"
        Label1 = "Tastiera e task manager disabilitati"
        hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf
LowLevelKeyboardProc, App.hInstance, 0)
        Call DisabilitaTask(1)
    Else
        Command1.Caption = "Disabilita"
        Label1 = "Tastiera e task manager abilitati"
        If hhkLowLevelKybd <> 0 Then UnhookWindowsHookEx hhkLowLevelKybd
        hhkLowLevelKybd = 0
        Call DisabilitaTask(0)
    End If
End Sub
ditemi se con xp vedete la taskmanager?
[!]Con .Net si fà molto più facilmente è già implementato un certo oggettino


 Diciamo così de io vi posto come si fà voi cambiate mestiere?
No, io so fare (pure maluccio) solo questo, ma perchè invece di menar il
lupo per l'aia, non ce lo dici che noi, a nostra volta, ti diciamo bravo?
;-)

 bravo? ;-)
Io bravo mica l'ho inventato io
comunque già fatto e in ogni caso sottolineo che scherzavo più che altro mi
aveva dato fastidio una "risposta secca" ma in fondo oggi ,me compreso, è
difficile essere gentili se non si è fatto Ponte


 Naturalmente SI SCHERZA....:)
Mica tanto. Se davvero il tuo codice funziona anche su NT/2000/XP (e non ne
dubito, ma non ho provato) ci troveremo tanti programmilli che (anche se non
serve a nulla) ci segheranno il Ctrl+Alt+canc
Il primo che incontro lo azzanno e stringo forte. Sì, proprio laggiù.

 >
mi dispiace se sono stato scorbutico, forse me lo merito un "brutto stronzo"
fai pure, potresti avere ragione mentre lo dici.
Però volevo fare notare a tutti una cosa.
La soluzione che morpheus ha proposto sotto Xp non funziona, provare per
credere.

 credere.
Ahhh, allora è tutto normale...


Non credo funzioni sotto NT in quanto questa voce del group policy non
esisteva, inoltre devi avere i diritti di amministratore per
eseguirlo, in ogni caso per riabiitarlo vai sui criteri di gruppo e lo
riabiliti quando vuoi.

credere.
Teoricamente potrebbe funzionare, se hai di diritti di amministratore,
fai un logout e un logon in modo che vengano rilette le policies e cmq
se sei dentro a un dominio con policies aziendali non funziona.

 per credere.
non è colpa mia se non sai copiare e incollare
Questo è il mio ultimo post anche perchè oggi non ho lavorato per niente ma
funziona altrimenti non mi andava proprio di fare una figuraccia


 funziona altrimenti non mi andava proprio di fare una figuraccia
ah beh! allora...

impostazioni del pc su cui gira è un programma sbagliato.
Cito da 
mvps.org
:
Note: It is not possible using this code to the trap CTRL+ALT+DEL
under either 9x or NT-based operating systems. To do so under NT
requires writing and installing a new GINA for the system to handle
the security exception, a monumental task only possible for the most
adept, and only using C. Under loosey-goosey 9x, where security is a
joke and where CTRL+ALT+DEL brings up the Shutdown/Task List, C is
still required to write a filter device driver to properly handle this
task.
-- 
ciao, hal