Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Qual'è il codice per disabilitare il task manager?
Forum - Visual Basic 6 - Qual'è il codice per disabilitare il task manager?

Avatar
PhO2 (Normal User)
Newbie


Messaggi: 1
Iscritto: 25/05/2006

Segnala al moderatore
Postato alle 17:19
Giovedì, 25/05/2006
Salve a tutti,sono nuovo di qui e sono anche un principiante del vb,qualcuno mi può dire quale è il codice per disabilitare il task manager da inserire nel comando click?vorrei creare un programma per disabilitarlo e riabilitarlo..:Daspetto la vostra risposta!
ps.potreste dirmi anke il codice per riattivarlo?

PM Quote
Avatar
Rand (Ex-Member)
Pro


Messaggi: 163
Iscritto: 17/05/2005

Segnala al moderatore
Postato alle 20:14
Giovedì, 25/05/2006
eccolo qua:

Codice sorgente - presumibilmente VB.NET
  1. 'dichiarazioni varie
  2. Const REG_DWORD = 4
  3. Const HKEY_CURRENT_USER = &H80000001
  4.  
  5. Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  6.  
  7. Public 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
  8.  
  9. Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  10.  
  11.  
  12. 'funzioni globali
  13. Sub SaveStringWORD(hKey As Long, strPath As String, strValue As String, strData As String)
  14.     Dim ret
  15.     RegCreateKey hKey, strPath, ret
  16.     RegSetValueEx ret, strValue, 0, REG_DWORD, CLng(strData), 4
  17.     RegCloseKey ret
  18. End Sub
  19.  
  20. Public Sub DisabilitaTask(flag As Integer)
  21.     SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableTaskMgr", Val(flag)
  22. End Sub


nell'evento "OnClick" del pulsante (o di quello che ti pare) inserisci la chiamata a questa funzione che io ti consiglio di inserire in un modulo, in modo da essere utilizzabile da più di un form alla volta, nel seguente modo:
Codice sorgente - presumibilmente VB.NET
  1. Private Sub Command1_Click()
  2.   'x disabilitare il task manager
  3.    Call DisabilitaTask(1)
  4.    'altrimenti
  5.    Call DisabilitaTask(0)
  6. End Sub


ciao! :k:

PM Quote
Avatar
Citynova (Ex-Member)
Rookie


Messaggi: 58
Iscritto: 10/12/2005

Segnala al moderatore
Postato alle 20:05
Lunedì, 29/05/2006
cmq gia l'avevo fatto come progetto,lo trovi nella sezione Visual Basic,prima di aprire topic controllate.

PM Quote