begin process at 2010 02 10 17:39:09
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Shell

 > FERMER N'IMPORTE QUEL PROCESS DEPUIS VB

FERMER N'IMPORTE QUEL PROCESS DEPUIS VB


 Information sur la source

Note :
8,5 / 10 - par 4 personnes
8,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Shell Niveau :Débutant Date de création :02/09/2003 Date de mise à jour :02/09/2003 10:49:01 Vu :10 345
Auteur : Ekinoks2

Ecrire un message privé
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

 Description

Ce petit bout de code sert à fermer n'importe quel process depuis VB ou Acess.

Source

  • Option Compare Database
  • Option Explicit
  • Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long 'API de fermeture de Process
  • Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long 'Ouverture de Process
  • 'Procedure qui tue un processus
  • Sub KillProcess()
  • 'Const PROCESS_QUERY_INFORMATION = &H400
  • Static ProcessId:
  • Dim hProcess, Termine&
  • If MsgBox("OUI = OUVRIR, NON = FERMER", vbYesNo) = vbYes Then
  • ProcessId = Shell("C:\Test.exe", vbHide)
  • Else
  • 'On le numéro de son Process
  • hProcess = OpenProcess(1, False, ProcessId)
  • ' On Ferme le process lancé par un TerminateProcess
  • Termine& = TerminateProcess(hProcess, 4)
  • End If
  • End Sub 
Option Compare Database
Option Explicit

Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long 'API de fermeture de Process
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long 'Ouverture de Process

'Procedure qui tue un processus
Sub KillProcess()

'Const PROCESS_QUERY_INFORMATION = &H400
Static ProcessId:
Dim hProcess, Termine&

If MsgBox("OUI = OUVRIR, NON = FERMER", vbYesNo) = vbYes Then

    ProcessId = Shell("C:\Test.exe", vbHide)

Else

'On le numéro de son Process
    hProcess = OpenProcess(1, False, ProcessId)
    ' On Ferme le process lancé par un TerminateProcess
    Termine& = TerminateProcess(hProcess, 4)
End If

End Sub



 Sources du même auteur

Source avec Zip DATABASE USER LISTING
Source avec Zip Source avec une capture RECHERCHER REMPLACER MULTIPLE
Toutes les sources de Ekinoks2

 Sources de la même categorie

Source avec Zip Source avec une capture LANCEUR REALVNC par Nobru59
Source avec Zip Source .NET (Dotnet) XGBLENDERCOMPRESSOR par XelectroX
Source avec Zip Source .NET (Dotnet) CONTRÔLER L'AUTORUN DE WINDOWS XP (ET SUPÉRIEUR) ET LES NOTI... par ShareVB
Source avec Zip Source .NET (Dotnet) LECTURE ET MODIFICATION DES PROPRIÉTÉS DES FICHIERS OFFICE E... par ShareVB
Source avec Zip Source avec une capture QEMUGUI - LANCEUR DE QEMU par ghuysmans99
Toutes les sources de la catégorie Shell

Commentaires et avis

Commentaire de moumoul1982 le 18/02/2004 10:27:16

j ai l impression que chez moi le VB n encaisse pas le

"Option Compare Database" il me dit qu il veut du text ou du binaire ....


Peux tu m aider ????

En tout cas il a l air bien terrible comme code et je t en remercie

Commentaire de Ekinoks2 le 18/02/2004 11:22:27

Hello,

Tu peux enlever le OPTION COMPARE DATABASE il est utilisé uniquement si tu veux utiliser cette fonction sous ACCESS.

Est-ce que sinon il fonctionne correctement mon code ?

Commentaire de moumoul1982 le 18/02/2004 11:30:58

je l ai pas tester pendant des heures mais pour le process que j ai a fermer (telnet) il marche du feu de dieu !!!!!

Merci Boc !!!

Commentaire de Ekinoks2 le 18/02/2004 11:37:29

;) ben de rien, tant mieux alors... j'ai encore pas mal de petits programmems que j'ai fais, faudrait que je pense a les mettre sur le site :)

Commentaire de WolfAryx le 05/02/2005 14:13:35

Bonjours, ton code me serai tres utile mais jarrive pas la faire fonctionner ( je débute :) ). Je linsere dans le code VB, je le lance pour tester, et il me met une erreur : "Des constantes, chaine de caractere ... types définit par l'utilisateur et instruction Declare ne sont pas autorisés comme membre Public des modules d'objets.

Commentaire de frosth le 27/02/2005 23:33:01

moi aussi je débute et ya rien qui marche...Se script est remplit derror dsl si ses moi lolll....

Commentaire de ticomic le 24/04/2005 00:10:00

On trouve comment le numéro du process?
On invoque quand la procédure Killprocess?

Il manque plein de choses la-dedans!
Fais-en un programme et met le zip pour voir si ca fonctionne, et verras p-e ce qu'il manque, parce que on peut rien faire avec ce code la sans le modifier!

Je mets pas de notes, on dirait pas un travail finit.

Commentaire de trouduc le 06/08/2005 06:36:53

'facile copier ceci et le mettre dans une form
'et ajoute un bouton Command1

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long 'API de fermeture de Process
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long 'Ouverture de Process
Dim IDProg As Integer

Private Sub Command1_Click()
Dim hProcess, Termine&
If Command1.Caption = "Start" Then
Command1.Caption = "Stop"
IDProg = Shell("calc.exe", vbNormalFocus)
Else
Command1.Caption = "Start"
    hProcess = OpenProcess(1, False, IDProg)
    Termine& = TerminateProcess(hProcess, 4)
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "Start"
End Sub

Commentaire de TITOMBOSS le 11/03/2006 22:36:35

ce code marche-t-il pour tuer un process qui etaits déjà lancé avant l'execution du code???

Commentaire de celiahd le 05/06/2008 19:05:19 4/10

Bonsoir,

Je viens de tester ce code dans VBA sous Access. Il ne ferme pas un processus déjà ouvert mais plutôt un 'programme'. Pour exemple : j'ai un processus Excel en cours que je ne peux fermer que par le gestionnaire de tâche, ce code ne le ferme pas. Il fonctionne très bien pour ouvrir un executable définit et le fermer mais pas pour ce qui est déjà ouvert.

 Ajouter un commentaire

Nos sponsors


Appels d'offres

Sondage...

Comparez les prix


Samsung Galaxy I7500 (8 Go)
Entre 129€ et 575€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,686 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)