DÉSACTIVER LE TASK MANAGER

Commentaire de DARKSIDIOUS le 27/06/2006 19:00:59 administrateur CS

Oui en effet, c'est loin d'être propre ton code !

Commentaire de draluorg le 27/06/2006 22:21:01

Salut a tous,

Il y a les cles de restrictions pour desactiver le gestionnaire de taches dans les regles de l'art! ;)

Voir du cote de HKUS\crosoft\vindows\currentversion\policie (DisableTaskMgr)

++

Commentaire de Renfield le 28/06/2006 10:56:21 administrateur CS

"...si tu pouvais me trouver..."

un simple FindWindow / DestroyWindow suffisent....

Commentaire de ratala le 28/06/2006 12:32:55

Ou sinon
shell "tskill tasjmgr"
y'a pas plus simple je le vous garantie !

Commentaire de adamo901 le 28/06/2006 14:33:59

Désolé chèr(e) ami(e)!! ton truc avec tskill ne fonctionne absolument pas.

Commentaire de DARKSIDIOUS le 28/06/2006 15:18:28 administrateur CS

tskill permet de fermer un processus (ici le taskmanager).

Commentaire de bouv le 28/06/2006 17:35:15

Que va-t-il se passer si l'appli plante avec que Form_Unload ne soit appelée ?

Et ne venez pas me dire mon appli ne plante pas !

Commentaire de diablamanshadow le 28/06/2006 18:15:07

je prefere la prevoyance que le risque et je suis plus a 1 ligne pres dans mon prog ^^

Commentaire de diablamanshadow le 28/06/2006 18:17:14

a ok bah alors je vire la ligne ^^
mici renfield

Commentaire de bouv le 28/06/2006 21:35:37

DACODAC !
Cependant, je reste sur ma position en disant qu'une alternative à cette méthode est préférable.

Commentaire de bouv le 29/06/2006 09:31:15

cf le commentaire de Renfield concernant FindWindow / DestroyWindow

Commentaire de diablamanshadow le 29/06/2006 14:01:06

bah moi ses un logiciel qui tournerais de tt maniere que sur xp donc sa me convient parfaitement ^^

Commentaire de diablamanshadow le 29/06/2006 21:08:25

tskill n'est pas sous les version inferieur a xp apparement ^^

Commentaire de adamo901 le 30/06/2006 12:17:33

:-( ça marche pas non plus sur Windows 2000!!

Commentaire de diablamanshadow le 30/06/2006 17:46:11

a l'ancienne sa l'arrange pas se serais bien de lui donner le code de "a l'ancienne" car moi non plus je vois pas trop ^^ m'enfin moi la premiere methode marche donc a l'ancienne m'interesse pas mais lui surement ^^

Diablaman

Commentaire de ratala le 30/06/2006 20:30:32

Voila aidez vous de sa :
c'est un mini (mais alors tres mini) antivirus qui kill une liste de processus mise dans un fichier texte, je l'ai fait parce que j'avait des virus que j'arrivai pas à enlever alors je me suis décider à tout simplement les killer voila:
http://ratala.free.fr/miniav.php (c'est la source bien sur)
@+

Commentaire de diablamanshadow le 30/06/2006 21:52:09

editer les droits sur un fichier laisse trop de trace , la bdr est sympa mais plus compliquer a utiliser que se code ^^
moi je dit que le code de base est une bonne idee et tres cours et fonctionne bien ^^ pour le fait de killer le taskmanager deja ouvert lors du logiciel ses vrai que les droit ou meme le reg ou autre serais simple mais vu que une majoritee des gens sont sous windows xp (et deja meme certain sur vista) bah ses nikel ^^ pour ceux qui sont en dessous je leur conseille de faire un listing des process et de looker apres le taskmanager ^^ et une fois qu'il est la hop il le kill je cherche apres ca et ej vous met la source ici (je l'avais fait pour msn afin d'emmerder un poto :p)

dans une form:

Public Function ProcessList()
List1.Clear
List2.Clear
Dim hSnapshot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
  hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
  If hSnapshot = 0 Then Exit Function
   uProcess.dwSize = Len(uProcess)
   r = ProcessFirst(hSnapshot, uProcess)
   Do While r
        List1.AddItem uProcess.szexeFile
        List2.AddItem uProcess.th32ProcessID
        r = ProcessNext(hSnapshot, uProcess)
    Loop
End Function

Private Sub Command2_Click()
ProcessTerminate (List2.List(List1.ListIndex))
End Sub

Private Sub Form_Load()
ProcessList
End Sub

Private Sub Timer1_Timer()
For i = 1 To List1.ListCount
    If List1.List(i) = "msnmsgr.exe" Then
        ProcessTerminate (List2.List(i))
    End If
Next i
For b = 1 To List1.ListCount
    If List1.List(i) = "MSNMSGR.EXE" Then
        ProcessTerminate (List2.List(i))
    End If
Next b
ProcessList
End Sub


dans un module :


Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long

Private Type LUID
LowPart As Long
HighPart As Long
End Type

Private Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type

Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type


Public Const MAX_PATH As Integer = 260
Public Const TH32CS_SNAPPROCESS As Long = 2&

Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szexeFile As String * MAX_PATH
    End Type


Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Function ProcessTerminate(Optional lProcessID As Long, Optional lHwndWindow As Long) As Boolean
Dim lhwndProcess As Long
Dim lExitCode As Long
Dim lRetVal As Long
Dim lhThisProc As Long
Dim lhTokenHandle As Long
Dim tLuid As LUID
Dim tTokenPriv As TOKEN_PRIVILEGES, tTokenPrivNew As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long

Const PROCESS_ALL_ACCESS = &H1F0FFF, PROCESS_TERMINAT = &H1
Const ANYSIZE_ARRAY = 1, TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8, SE_DEBUG_NAME As String = "SeDebugPrivilege"
Const SE_PRIVILEGE_ENABLED = &H2

On Error Resume Next
If lHwndWindow Then
'Get the process ID from the window handle
lRetVal = GetWindowThreadProcessId(lHwndWindow, lProcessID)
End If

If lProcessID Then
'Give Kill permissions to this process
lhThisProc = GetCurrentProcess

OpenProcessToken lhThisProc, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, lhTokenHandle
LookupPrivilegeValue "", SE_DEBUG_NAME, tLuid
'Set the number of privileges to be change
tTokenPriv.PrivilegeCount = 1
tTokenPriv.TheLuid = tLuid
tTokenPriv.Attributes = SE_PRIVILEGE_ENABLED
'Enable the kill privilege in the access token of this process
AdjustTokenPrivileges lhTokenHandle, False, tTokenPriv, Len(tTokenPrivNew), tTokenPrivNew, lBufferNeeded

'Open the process to kill
lhwndProcess = OpenProcess(PROCESS_TERMINAT, 0, lProcessID)

If lhwndProcess Then
'Obtained process handle, kill the process
ProcessTerminate = CBool(TerminateProcess(lhwndProcess, lExitCode))
Call CloseHandle(lhwndProcess)
End If
End If
On Error GoTo 0
End Function



voila voila ^^ je vient de retester et sa veut plus allez avec msn va savoir pk du me gourrer dans une lettre du nom du process ou koi m'enfin sinon suis sur que sa fonctionne ^^

Commentaire de draluorg le 01/07/2006 01:20:51

Exemple avec FindWindow:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Private Sub Command1_Click()
    Dim l As Long
    l = FindWindow(vbNullString, "Gestionnaire des tâches de Windows")
    if l > 0 Then Call SendMessage(l, &H10, 0, 0)
End Sub

Commentaire de draluorg le 01/07/2006 11:41:42

Eh le mot essayer tu connais ? lol

++

Commentaire de ratala le 01/07/2006 17:22:40

Ah c'est bien sa le click sur bouton fermer !
En plus l'API findwindows est simple à utiliser.
sinon quelqun connaît une api qui permetterai d'avoir le nom d'un executable à partir de son HWND ?

Commentaire de draluorg le 05/07/2006 13:35:16

re,

En effet Renfield, mon exemple ne marchera que pour les version francaise.

Voici la meme methode mais avec le nom de la class, en esperant que ce soit le meme sous toutes les versions...

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Private Sub Command1_Click()
    Dim l As Long
    l = FindWindow("#32770", vbNullString)
    If l > 0 Then Call SendMessage(l, &H10, 0, 0)
End Sub

A tester...

++

Commentaire de draluorg le 05/07/2006 14:27:37

Erf lol, en effet, ca marche si le gestionnaire de tache est ouvert et qu'il est le premier de la liste #32770, j'ai fait ca d'apres spy++ et j'ai ouvert le gestionnaire puis teste et ca marchait, je pensais donc que c'etait bien le nom de la classe...

++

Commentaire de Renfield le 05/07/2006 15:56:48 administrateur CS

il te l'as dit ^^

visible dans SPY++

Commentaire de vicosta le 29/10/2006 16:23:27

bonne source, il faudrait y penser

Commentaire de spike20 le 20/10/2007 03:17:04

si le programme arrete avant de faire le Close #1 il aura seulement à utiliser ENDITALL (programme arretant les processus comme avec taskmrg.exe) ou mettre un validation dans son code comme le combo ESC+ENTRE avec un timer dune intervalle de 1 milliseconde :

Dim xx As Boolean

Private Sub Timer1_Timer()
If GetAsyncKeyState(27) And GetAsyncKeyState(13) Then
    xx = True
    Unload Me
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
If xx = True Then
    End
Else
    Cancel = 1
End If
    Close #1
End Sub