Soyez le premier à donner votre avis sur cette source.
Vue 9 918 fois - Téléchargée 532 fois
'*********************************************************** 'Bonjour, 'voilà un petit code qui t'informeras du temps que ta machine à été vraiment utilisée par une personne quelconque 'le code détecte en permanance les mouvement de la souris et du clavier 'il ne ratte rien !! :-) 'ca peut etre util, tu peux mettre le prog en arrière plan et surveillé ta machine pour voir si qq1 l'utilise en ton absence ;-) 'code réalisé par seedorf le marocain 'seedorf@altavista.com 'pour toute remarque ou suggestion 'n'hésiter pas 'seedorf '****************************************************** Dim j As Long Dim o As Integer Dim PcActive As Boolean Private Type POINTAPI x As Long y As Long End Type Dim Mx, My As Long Dim VarPointAPI As POINTAPI Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function GetAsyncKeyState Lib "user32" (ByVal uAction As Long) As Long Private Sub Form_Activate() GetCursorPos VarPointAPI Mx = VarPointAPI.x My = VarPointAPI.y End Sub Private Sub KeyBTimer_Timer() Dim Retour As Long Dim i As Integer GetCursorPos VarPointAPI 'détecte si le clavier a été utilisé ou la souris a été bougé For i = 1 To 256 'fait le tour de toutes les touche de clavier pour voir si y'en une qui a changé son état Retour = GetAsyncKeyState(i) 'ici compare la position actuelle de la souris par une position antérieur, puis regarde le resultat du control des touche de clavier If (Mx <> VarPointAPI.x Or My <> VarPointAPI.y) Or (Retour And 32768) <> 0 Then 'ton PC est en activité, le programme t'en avise Me.Label1.Caption = "PC en activité" j = 0 Else 'apres un delai de 60000 (RQ: tu peux biensur changer le temps ) il t'avise que ton pc n'est pas en action If j < 60000 Then j = j + 1 Else 'Ton pc est pas active, le programme t'en avise Me.Label1.Caption = "PC en non activité" End If End If Next Mx = VarPointAPI.x My = VarPointAPI.y End Sub Private Sub Timer1_Timer() 'affiche le temps en seconde Me.Label2.Caption = o o = o + 1 End Sub
13 juil. 2001 à 12:14
merci
8 juil. 2001 à 22:17
Joli coup sidorf .!!
2 juil. 2001 à 12:36
30 juin 2001 à 04:47
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.