VBS Executer un exe lorsque la souris bouge

[invitef9abb624]

Bonjour,

j'aimerais réaliser un script avec un fichier .vbs sous windows qui me permet de lancer un .exe lorsque ma souris est en mouvement.

l’état original de la souris étant bien entendu sans mouvement pendant un temps certain.

j'ai essayé avec OnMouseMove mais sans résultat.

si quelqu’un peux m’éclairer..

merci d'avance
-----

[CM63]

Bonjour,

Montre nous ce que tu as fait avec le onMouseMove. Et comme évènement à déclencher, prend d'abord quelque chose de plus simple que de lancer un exe, par exemple fait apparaître un popup avec un message, de façon à déjà faire fonctionner correctement le onMouseMove.

[invitef9abb624]

Bonjour et merci pour la réponse

voici le code :

x = 1

sub ok()

Dim objShell
Set objShell = WScript.CreateObject ("WScript.shell")
objShell.run "cmd /K CD C:\****\*** & *****.exe"
Set objShell = Nothing

end sub

Do

onmousemove = "ok()"

Loop Until x > 1

je pense que l'erreur est grosse pour un initié mais malheureusement je n'en suis pas un !

Merci d'avance

[CM63]

Ok, je regarde. Ben déjà il ne rentre pas dans la boucle d'attente, puisque x=1 il n'est pas <1 non?
Met à la place Loop While True ou un truc comme ça.
Ah non, mille excuses, c'est bon. Bon je l'essaie.

[A voir en vidéo sur Futura]

[invite44510b00]

Ce truc n'a pas trop de sens; si il marchait, il lancerait des processus à la pelle carrée et écroulerait le système en quelques dizaines de secondes.
De plus, pour obtenir un pointeur de fonction sur un handler d'évenement en VBS il faut utiliser GetRef.

Quel est le scope de capture envisagé ?
Quel est le cycle de vie de l'objet script ?

[CM63]

Est-ce que la partie script proprement dite marche, c'est-à-dire en remplaçant:

Dim objShell
Set objShell = WScript.CreateObject ("WScript.shell")
objShell.run "cmd /K CD C:\****\*** & *****.exe"
Set objShell = Nothing

...par juste un popup qui affiche un message?

[invitef9abb624]

Oui même le programme de lance si je met seulement cette partie du code.

[CM63]

Il ne faut pas faire l'affection au call-back dans la boucle, il suffit de la faire une fois avant la boucle:

onmousemove = "ok()"

Do

Loop Until x > 1

[invitef9abb624]

Concernant la boucle infini pas de problème le .exe ferme le script une fois que celui-ci s'exécute.

[CM63]

Oui, mais il faut faire l'affectation du call-back avant de rentrer dans la boucle, comme j'ai mis ci-dessus.

[CM63]

La déclaration du sub au milieu du programme principal, ça ne me plait pas,n je la mettrais soit tout au début soit tout à la fin.

[CM63]

Je n'arrive pas à lancer l'exemple juste avec onmousemove='msgbox("bonjour") ', mais en fait il ne faut rien mettre dans la boucle d'attente, juste un test qui est toujours vrai (ou until quelque chose de faux).

Et le onmousemove="ok()" il faut le faire avant la boucle d'attente, pas dedans.

[invitef9abb624]

Le script se lance mais j'ai beau bouger la souris rien ne se passe...

[CM63]

Moi non plus, j'ai l'impression que ça ne capte pas les évènements si ce n'est pas une fenêtre graphique, j'ai essayé onclick, onkeydown, rien ne marche.
Sur le web j'ai vu des exemples en html et là ça a l'air de marcher.

[CM63]

Il faut mettre :

onmousemove=GetRef("Ok")

Mais met le bien avant le loop

[CM63]

Attention parce qu'il faut prévoir une sortie du script, là je vois que mon script est lancé une vingtaine de fois, dans le gestionnaire de tâche, même ceux qui n'ont "pas marché". Donc par exemple, dans le ok, tu fais un exit()

[invitef9abb624]

Peux tu m'envoyer ton code en entier le miens ne fonctionne pas...

[CM63]

Ah je viens de l'effacer. Je le refais.

[invite44510b00]

Il faut mettre :

onmousemove=GetRef("Ok")

Mais met le bien avant le loop

cf. message #5

[CM63]

Dans ma version actuelle, il appelle tout de suite le ok(), il n'attend pas que je déplace la souris, je n'arrive pas à refaire ce que j'ai fait auparavant. Voila ce que j'ai fait:

Sub Ok
    msgbox("On est dans la routine ok")
    wscript.Quit
End Sub

OnMouseMove=GetRef("Ok")

x=1
Do
Loop Until x > 1

[CM63]

Bon désolé, je dois y aller, essaie peut-être avec onclick.

[invitef9abb624]

Merci pour ton aide je vais essayer de rectifier.

[invitef9abb624]

Bon je n'arrive pas ... si tu peux m’éclairer à nouveau je t'en serais reconnaissant

[CM63]

Bonjour,

J'ai l'impression que ce n'est pas possible dans un script vbs tout seul, ou alors il faut rajouter un include pour qu'il charge les dll qu'il faut, mais je ne sais pas comment on fait. Hier j'ai eu l'impression que ça marchait, mais j'ai du me tromper, en fait il lançait la procédure, il n'attendait pas que je bouge la souris.
Par contre ça pourrait marcher depuis un fichier html, où là il a tout l'environnement. Je vais faire l'essai, je te tiens au courant, car ça me titille, j'ai envie que ça marche.

[invitef9abb624]

Bonjour,

j'ai essayé en JS mais même la ça ne fonctionne pas, pourtant j'ai chopé le code est la personne dit clairement que ça fonctionne... du mal à comprendre.

<script type="text/javascript">
<!--
function CallVBFunc(){
VBFunc();
//alert("Called");
}
//-->
</script>
<script type="text/VBScript">
<!--
sub VBFunc()
document.write "Hello From VBScript"
end sub
//-->
</script>
</head>
<body>
<input type="button" value="Call VB Function" onclick="CallVBFunc();"/>

[CM63]

C'est un bon début, mais en fait ls VBScript ne connaît pas l'objet document. Je vais regarder d'autres exemples.

[umfred]

Chez moi, la console de chrome me dit que la fonction VBFunc n'est pas déclaré. il semblerait que VBScript ne fonctionne que sous Internet Explorer (<=10)

[CM63]

Ah oui, ça s'est possible, il faudrait le faire en Javascript alors, juste pour faire marcher le msgbox (alert en Javascript), après on verrait comment lancer le process.

[Ikhar84]

Si le but est de detecter le déplacement du curseur indépendament de toute fenêtre ou page web, vous vous trompez de piste... les évenements js sont limités au document ou à la fenêtre (window) et heureusement pour notre sécurité.

Vbs est plus indiqué mais il va falloir charger une dll qui intercepte les appels système, ou un langage plus "évolué" avec une fenêtre cachée qui fera la même chose.

Quel est exactement le but de la manoeuvre ?

[CM63]

Voici un exemple, en javascript, qui trace un rectangle et qui affiche les coordonnées de la souris lorsqu'on passe sur le rectangle:

<HTML> 
 
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> 
<SCRIPT LANGUAGE='Javascript'> 
function positionSouris(event) { 
   var posX; 
   var posY; 
   posX = event.clientX; 
   posY = event.clientY; 
   document.getElementById('divPosition').innerHTML = 'Coordonn&eacute;es de la souris : X = ' + posX + 'Y = ' + posY; 
} 
</SCRIPT> 
 
</HEAD> 
 
<BODY onmousemove="positionSouris(event);"> 
 
<div id="divPosition" 
   style="border:solid 1px black; width:220px; height:100px; padding:10px; margin: auto; margin-top: 100px;"> 
</div> 
 
</BODY> 
 
</HTML>

Après, il faut voir comment lancer un shell script à partir du javascript. Ou alors tu fais comme dans l'exemple que tu as donné: le script Javascript lance un script VBScript, contenu lui aussi dans le html, ça ne va marcher que sous IE, et dans ce sript VBScript tu lances le process externe, là on sait comment faire.

Mais attention au lancement intempestif de process, si tu les lances suite à un simple survol de la souris, ça risque de planter la machine. Il faudrait une variable qui contrôle qu'on a déjà lancé le process, Pour cela utiliser le onload .