CODES SOURCES - UTILISATION API-     Exercice : Ce programme utilise une feuille Form et un module. On déclare l'API Windows, permettant de d'éteindre la machine, dans un module que l'on nommera "ModuleRedémarre". Derrière un bouton de commande de la feuille principale, on appel le module contenant la déclaration de l'API est on transmet lors de cet appel les paramètres de l'API permettant de spécifier l'extinction de la machine. Dès que l'on cliquera sur le bouton de commande "EteindreCmd", on éteindra la machine. Des informations sur l'utilisation des API et des modules, notamment sur le moyen de trouver les déclarations de ces API sont indiquées dans la rubrique "cours".   L'interface : L'interface est ici très basic : une simple feuille sur laquelle est positionnée un bouton de commande que l'on nommera "EteindreMachineCmd".       Le code source du module "Module1" 'Général 'Déclaration de l'API windows Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long   Le code source du bouton "EteindreMachineCmd" : Private Sub EteindreMachineCmd_Click()   Dim Action As Variant   'Appel de l'API déclarée dans le module, 1 et 0 sont les paramètres permettant de spécifier l'arrêt de l'ordinateur.   Action = ModuleRedémarre.ExitWindowsEx(1, 0) End Sub                         ©Copyright Webmaster 2002