Problème pour arrêter un programme dans le gestionnaire des tâche!!!!!HELP ME
cs_xfile
Messages postés5Date d'inscriptionsamedi 16 février 2002StatutMembreDernière intervention 4 juillet 2002
-
19 avril 2002 à 19:00
werdDomain
Messages postés60Date d'inscriptionlundi 22 octobre 2007StatutMembreDernière intervention 1 novembre 2011
-
5 janv. 2008 à 04:23
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.
werdDomain
Messages postés60Date d'inscriptionlundi 22 octobre 2007StatutMembreDernière intervention 1 novembre 2011 5 janv. 2008 à 04:23
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&)
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<>