Problème pour arrêter un programme dans le gestionnaire des tâche!!!!!HELP ME

Signaler
Messages postés
5
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
4 juillet 2002
-
Messages postés
60
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
1 novembre 2011
-
Je voudrais savoir quel est le code pour pouvoir arrêter un programme quelquonque dans la barre des tâches ou si vous préférez, dans le gestionnaire des tâches.

Xfile
Je suis webmaster du site: http://www.tommyking.fr.st

1 réponse

Messages postés
60
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
1 novembre 2011

ok en vb.net c'est plus simple...
ex:

dim Prc() as process = process.getprocess()
for each p as process in Prc
if p.ProcessName = "Explorer" then p.kill ' repere si le nom du process est explorer. Si oui, termine le process (Quit)
next

en vb6 c'est pomal plus compliquer
la syntax est de vb.net mais si tu fait du vb6 tu vas te reconaitre unpeut

pour commencer on demmende la liste de hanlde ouvert avec un Delegate CallBack
Win32API.EnumWindowsDllImport(

New Win32API.EnumWindowsCallback(
AddressOf _FillActiveWindowsList), 0)

'Pour chaque handle present, cette function ceras appeler
Function

FillActiveWindowsList(
ByVal hWnd
As
Integer,
ByVal lParam
As
Integer)
As
Boolean

Dim ClassName
As
New StringBuilder(STRING_BUFFER_LENGTH)Win32API.GetClassName(hWnd, ClassName, STRING_BUFFER_LENGTH)

Dim str
As
String = ClassName.ToString

Dim windowText
As
New StringBuilder(STRING_BUFFER_LENGTH)

' Get the Window Caption.Win32API.GetWindowText(hWnd, windowText, STRING_BUFFER_LENGTH)

dim FormCaption as string = windowtext.tostring
if FormCaption <> "" then
   'si la caption n'est pas null on sait que c'est une Fenetre
'voici commen le fermer :
SendMessage(hWnd, &H10
, 0&, 0&)

end if

enfin voici les declaration dans win32api

<DllImport(

"user32.dll", EntryPoint:=
"EnumWindows", SetLastError:=
True, _CharSet:=CharSet.Ansi, ExactSpelling:=

True, _CallingConvention:=CallingConvention.StdCall)> _

Public
Shared
Function EnumWindowsDllImport(
ByVal callback
As EnumWindowsCallback, _

ByVal lParam
As long
)
As
Integer

End
FunctionPublic

Declare
Function GetClassName
Lib
"user32.dll" _

Alias
"GetClassNameA" (
ByVal hwnd
As Long
, _

ByVal lpClassName
As StringBuilder, _

ByVal cch
As long
)
As
IntegerPublic

Declare
Sub GetWindowText
Lib
"user32.dll" _

Alias
"GetWindowTextA" (
ByVal hWnd
As
Long, _

ByVal lpString
As StringBuilder, _

ByVal nMaxCount
As
Long)

Private

Declare
Function SendMessage
Lib
"user32"
Alias
"SendMessageA" (
ByVal hWnd
As Long,
ByVal wMsg
As
Long,
ByVal wParam
As
Long,
ByVal lParam
As
Long)
As
Integer
et voila c'est pomal sa
jespere que jai bien repondu a ta question
RNsoft.cjb.net<>