Soyez le premier à donner votre avis sur cette source.
Vue 5 263 fois - Téléchargée 368 fois
Il faut une form avec 2 controles Timer avec la propriété Enabled à True (Timer1 : Propriété Interval à 1000 et Timer2 avec propriété Interval à 1) Dans le code de la Form mettre le code qui suit : 'DECLARATION DES FONCTIONS 'FONCTION MISE EN VEILLE DE L'ORDINATEUR Private Declare Function SetSystemPowerState Lib "kernel32" (ByVal fSuspend As Long, ByVal fForce As Long) As Long Private Sub Timer1_Timer() Dim Pos As POINTAPI GetCursorPos Pos If Pos.Xx = X And Pos.Yy = Y Then TempsAttente = TempsAttente + 1 'Mettre le temps d'attente en secondes (ici 5 secondes) If TempsAttente = 5 Then TempsAttente = 0 'MISE EN VEILLE DE L'ORDINATEUR 'Mise en veille de l'ordinateur. Question posée sur fermeture connection réseau. 'ModeVeille 0 'Mise en veille forcée de l'ordinateur. Aucune question ne sera posée. ModeVeille 1 End If End Sub Private Sub Timer2_Timer() Dim Pos As POINTAPI GetCursorPos Pos X = Pos.Xx Y = Pos.Yy End Sub Private Sub ModeVeille(Parametre As Integer) On Error Resume Next SetSystemPowerState 1, Parametre End Sub '****************************************** 'Dans un module mettre le code suivant : Public X As Integer Public Y As Integer Public TempsAttente As Integer Declare Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long Type POINTAPI Xx As Long Yy As Long End Type
26 janv. 2002 à 22:47
26 janv. 2002 à 17:52
25 janv. 2002 à 20:53
10/10
$hîv@n
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.