Salut, et bien comme le dit si bien GandalfLeGris007, place un timer avec un interval de 60000 soit 1 minute.
Ce timer devra effectuer un 'comptage' exemple jusqu'à 15 Min
pour cela place le code suivant dedant.
'--- Dans Général ---
Dim InfosRes as integer 'Va permettre de compter les 15 Min
'--- Dans le Sub du Timer ---
InfosRes=InfosRes+1
if InfosRes=15 then end
|
Ensuite il faut placer le code suivant dans tout les controls de ta form, la form fait partie des control.
'--- Dans KeyPress ---
InfosRes=0
'--- Dans MouseMove ---
InfosRes=0
|
En fait le timer ajoute 1 à InfosRes afin de compter les minutes, vu que le timer se déclenche toute les minutes.
Si InfosRes=15 (donc 15 Min) alors on ferme le soft.
KeyPress et Mouse Move sont les 2 évênements d'un utilisateur soit utilisation du clavier ou de la souris.
Chris...Web : Firstruner -
eMail : Support