Détection périphérique

Soyez le premier à donner votre avis sur cette source.

Vue 9 817 fois - Téléchargée 517 fois

Description

oui, c vrai, tu peux savoir à tout moment avec une bonne exploitation de ce code si qq1 a travaillé sur ta machine, normalement si qq1 travail sur un PC il manipule soit souris, soit clavier, alors le code détecte en permanance les mouvement des ces perepheriques.

dit moi ce que t'en pense, seedorf@altavista.com

merci, et bonne surveillence :-)

Source / Exemple :


'***********************************************************
'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

Conclusion :


La derniere fois j'avais des prob à deposé ma source .zip, cette fois je met le code et le .zip au cas ou le .zip marche pas !

a+

Codes Sources

A voir également

Ajouter un commentaire Commentaires
ouh là là, vous etiez pas généreux coté NOTE !! :-) ça merite un peu mieux que ça qd même.

merci
la question peut se prendre pour un compliment .
Joli coup sidorf .!!
cool comme idée et prog, pour rép à thor on est dans vbfrance et pas dans languefrance ;-)

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.