J'ai une erreur sur API, habituellement ça marchait cette API, c'est
pour fermer un programme appelé ???
hProcess = variable non définie (av av dernière ligne)???
Voici ce que j'ai fait:
Private Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long _
) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess
As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As
Long) As Long
Private Const PROCESS_TERMINATE = &H1
Option Explicit
Dim RC As Long
Dim numprocess As Long
.....
numprocess = Shell(nom, 1)
.....
hProcess = OpenProcess(PROCESS_TERMINATE, -1&, numprocess)
RC = TerminateProcess(hProcess, 0&)
RC = CloseHandle(hProcess)
--
Merci, @+, bye, Joe : ng75@noos.fr
----------------------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison.
----------------------------------------------------------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
D'apres le code que je vois, tu as mis Option explicit, tu dois donc déclarer explicitement toutes tes variables or hProccess n'est déclarée nulpart !
Rajoute donc Dim hProcess as Long.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"le_troll" a écrit dans le message de news: OsHjpYB#
Bonjour,
J'ai une erreur sur API, habituellement ça marchait cette API, c'est pour fermer un programme appelé ??? hProcess = variable non définie (av av dernière ligne)???
Voici ce que j'ai fait: Private Declare Function OpenProcess Lib "kernel32" ( _ ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long _ ) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Const PROCESS_TERMINATE = &H1 Option Explicit Dim RC As Long Dim numprocess As Long ..... numprocess = Shell(nom, 1) ..... hProcess = OpenProcess(PROCESS_TERMINATE, -1&, numprocess) RC = TerminateProcess(hProcess, 0&) RC = CloseHandle(hProcess) -- Merci, @+, bye, Joe : ---------------------------------------------------------- Avec une hache, celui qui tient le manche a toujours raison. ----------------------------------------------------------
Salut,
D'apres le code que je vois, tu as mis Option explicit, tu dois donc
déclarer explicitement toutes tes variables or hProccess n'est déclarée
nulpart !
Rajoute donc Dim hProcess as Long.
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"le_troll" <le_trol@paris.fr> a écrit dans le message de news:
OsHjpYB#DHA.3860@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai une erreur sur API, habituellement ça marchait cette API, c'est
pour fermer un programme appelé ???
hProcess = variable non définie (av av dernière ligne)???
Voici ce que j'ai fait:
Private Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long _
) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess
As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As
Long) As Long
Private Const PROCESS_TERMINATE = &H1
Option Explicit
Dim RC As Long
Dim numprocess As Long
.....
numprocess = Shell(nom, 1)
.....
hProcess = OpenProcess(PROCESS_TERMINATE, -1&, numprocess)
RC = TerminateProcess(hProcess, 0&)
RC = CloseHandle(hProcess)
--
Merci, @+, bye, Joe : ng75@noos.fr
----------------------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison.
----------------------------------------------------------
D'apres le code que je vois, tu as mis Option explicit, tu dois donc déclarer explicitement toutes tes variables or hProccess n'est déclarée nulpart !
Rajoute donc Dim hProcess as Long.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"le_troll" a écrit dans le message de news: OsHjpYB#
Bonjour,
J'ai une erreur sur API, habituellement ça marchait cette API, c'est pour fermer un programme appelé ??? hProcess = variable non définie (av av dernière ligne)???
Voici ce que j'ai fait: Private Declare Function OpenProcess Lib "kernel32" ( _ ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long _ ) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Const PROCESS_TERMINATE = &H1 Option Explicit Dim RC As Long Dim numprocess As Long ..... numprocess = Shell(nom, 1) ..... hProcess = OpenProcess(PROCESS_TERMINATE, -1&, numprocess) RC = TerminateProcess(hProcess, 0&) RC = CloseHandle(hProcess) -- Merci, @+, bye, Joe : ---------------------------------------------------------- Avec une hache, celui qui tient le manche a toujours raison. ----------------------------------------------------------
le_troll
Bonjour, Merci, c'est peut être ça, le pire c'est que je croyais qu'avec les API on pouvait utiliser leur variable dans les redéclarer, donc je vais mettre la variable en général, et je présume que la fonction de l'API la reprendra en local? Je vais voir... -- Merci, @+, bye, Joe : ---------------------------------------------------------- Avec une hache, celui qui tient le manche a toujours raison. ----------------------------------------------------------
"ng" a écrit dans le message de news: #Yv9ivE#
Salut,
D'apres le code que je vois, tu as mis Option explicit, tu dois donc déclarer explicitement toutes tes variables or hProccess n'est déclarée nulpart !
Rajoute donc Dim hProcess as Long.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"le_troll" a écrit dans le message de news: OsHjpYB# > Bonjour, > > J'ai une erreur sur API, habituellement ça marchait cette API, c'est > pour fermer un programme appelé ??? > hProcess = variable non définie (av av dernière ligne)??? > > Voici ce que j'ai fait: > Private Declare Function OpenProcess Lib "kernel32" ( _ > ByVal dwDesiredAccess As Long, _ > ByVal bInheritHandle As Long, _ > ByVal dwProcessId As Long _ > ) As Long > Private Declare Function TerminateProcess Lib "kernel32" (ByVal
hProcess
> As Long, ByVal uExitCode As Long) As Long > Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As > Long) As Long > Private Const PROCESS_TERMINATE = &H1 > Option Explicit > Dim RC As Long > Dim numprocess As Long > ..... > numprocess = Shell(nom, 1) > ..... > hProcess = OpenProcess(PROCESS_TERMINATE, -1&, numprocess) > RC = TerminateProcess(hProcess, 0&) > RC = CloseHandle(hProcess) > -- > Merci, @+, bye, Joe : > ---------------------------------------------------------- > Avec une hache, celui qui tient le manche a toujours raison. > ---------------------------------------------------------- > > > >
Bonjour,
Merci, c'est peut être ça, le pire c'est que je croyais qu'avec les API on
pouvait utiliser leur variable dans les redéclarer, donc je vais mettre la
variable en général, et je présume que la fonction de l'API la reprendra en
local?
Je vais voir...
--
Merci, @+, bye, Joe : ng75@noos.fr
----------------------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison.
----------------------------------------------------------
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
#Yv9ivE#DHA.3648@TK2MSFTNGP11.phx.gbl...
Salut,
D'apres le code que je vois, tu as mis Option explicit, tu dois donc
déclarer explicitement toutes tes variables or hProccess n'est déclarée
nulpart !
Rajoute donc Dim hProcess as Long.
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"le_troll" <le_trol@paris.fr> a écrit dans le message de news:
OsHjpYB#DHA.3860@TK2MSFTNGP09.phx.gbl...
> Bonjour,
>
> J'ai une erreur sur API, habituellement ça marchait cette API, c'est
> pour fermer un programme appelé ???
> hProcess = variable non définie (av av dernière ligne)???
>
> Voici ce que j'ai fait:
> Private Declare Function OpenProcess Lib "kernel32" ( _
> ByVal dwDesiredAccess As Long, _
> ByVal bInheritHandle As Long, _
> ByVal dwProcessId As Long _
> ) As Long
> Private Declare Function TerminateProcess Lib "kernel32" (ByVal
hProcess
> As Long, ByVal uExitCode As Long) As Long
> Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As
> Long) As Long
> Private Const PROCESS_TERMINATE = &H1
> Option Explicit
> Dim RC As Long
> Dim numprocess As Long
> .....
> numprocess = Shell(nom, 1)
> .....
> hProcess = OpenProcess(PROCESS_TERMINATE, -1&, numprocess)
> RC = TerminateProcess(hProcess, 0&)
> RC = CloseHandle(hProcess)
> --
> Merci, @+, bye, Joe : ng75@noos.fr
> ----------------------------------------------------------
> Avec une hache, celui qui tient le manche a toujours raison.
> ----------------------------------------------------------
>
>
>
>
Bonjour, Merci, c'est peut être ça, le pire c'est que je croyais qu'avec les API on pouvait utiliser leur variable dans les redéclarer, donc je vais mettre la variable en général, et je présume que la fonction de l'API la reprendra en local? Je vais voir... -- Merci, @+, bye, Joe : ---------------------------------------------------------- Avec une hache, celui qui tient le manche a toujours raison. ----------------------------------------------------------
"ng" a écrit dans le message de news: #Yv9ivE#
Salut,
D'apres le code que je vois, tu as mis Option explicit, tu dois donc déclarer explicitement toutes tes variables or hProccess n'est déclarée nulpart !
Rajoute donc Dim hProcess as Long.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"le_troll" a écrit dans le message de news: OsHjpYB# > Bonjour, > > J'ai une erreur sur API, habituellement ça marchait cette API, c'est > pour fermer un programme appelé ??? > hProcess = variable non définie (av av dernière ligne)??? > > Voici ce que j'ai fait: > Private Declare Function OpenProcess Lib "kernel32" ( _ > ByVal dwDesiredAccess As Long, _ > ByVal bInheritHandle As Long, _ > ByVal dwProcessId As Long _ > ) As Long > Private Declare Function TerminateProcess Lib "kernel32" (ByVal
hProcess
> As Long, ByVal uExitCode As Long) As Long > Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As > Long) As Long > Private Const PROCESS_TERMINATE = &H1 > Option Explicit > Dim RC As Long > Dim numprocess As Long > ..... > numprocess = Shell(nom, 1) > ..... > hProcess = OpenProcess(PROCESS_TERMINATE, -1&, numprocess) > RC = TerminateProcess(hProcess, 0&) > RC = CloseHandle(hProcess) > -- > Merci, @+, bye, Joe : > ---------------------------------------------------------- > Avec une hache, celui qui tient le manche a toujours raison. > ---------------------------------------------------------- > > > >
François Picalausa
Bonjour/soir,
Comme je te le disais dans un post précédent: Pour le reste, ce n'est jamais que la question que de passer des variables d'une form à une autre (cfr la faq: http://faq.vb.free.fr/index.php?question5). De cette manière, tu récupère un handle ou une valeur lors de l'exécution du process et qui permettra de l'arrêter, et tu fais juste passer la variable.
"le_troll" a écrit dans le message de news:ezxjmbG%
Bonjour, Merci, c'est peut être ça, le pire c'est que je croyais qu'avec les API on pouvait utiliser leur variable dans les redéclarer, donc je vais mettre la variable en général, et je présume que la fonction de l'API la reprendra en local?
Bonjour/soir,
Comme je te le disais dans un post précédent:
Pour le reste, ce n'est jamais que la question que de passer des variables
d'une form à une autre (cfr la faq:
http://faq.vb.free.fr/index.php?question5). De cette manière, tu récupère
un handle ou une valeur lors de l'exécution du process et qui permettra de
l'arrêter, et tu fais juste passer la variable.
"le_troll" <le_trol@paris.fr> a écrit dans le message de
news:ezxjmbG%23DHA.2168@TK2MSFTNGP12.phx.gbl
Bonjour,
Merci, c'est peut être ça, le pire c'est que je croyais qu'avec les
API on pouvait utiliser leur variable dans les redéclarer, donc je
vais mettre la variable en général, et je présume que la fonction de
l'API la reprendra en local?
Comme je te le disais dans un post précédent: Pour le reste, ce n'est jamais que la question que de passer des variables d'une form à une autre (cfr la faq: http://faq.vb.free.fr/index.php?question5). De cette manière, tu récupère un handle ou une valeur lors de l'exécution du process et qui permettra de l'arrêter, et tu fais juste passer la variable.
"le_troll" a écrit dans le message de news:ezxjmbG%
Bonjour, Merci, c'est peut être ça, le pire c'est que je croyais qu'avec les API on pouvait utiliser leur variable dans les redéclarer, donc je vais mettre la variable en général, et je présume que la fonction de l'API la reprendra en local?
