Couper le son d'1 ordinateur. (à distance si vs pouvez le lancer sur un réseau)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 151 fois - Téléchargée 42 fois

Contenu du snippet

Très pratique quand kunkun fout sa musique à fond sur un PC sur le même réseau que le sien, surtout kan il est nuche et qu'il appelle sa mère (pas mémère! ) pour s'en sortir.
Sinon, une fois de +, faut admettre que niveau code, je me suis pas foulé...

Source / Exemple :


Private Sub Form_Load()
On Error Resume Next
Dim ReturnValue
ReturnValue = Shell("sndvol32.EXE", 1)
AppActivate ReturnValue
SendKeys "%T", True
AppActivate ReturnValue
SendKeys "%{F4}", True
End
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3
Date d'inscription
lundi 29 octobre 2007
Statut
Membre
Dernière intervention
6 mars 2009

Moi aussi je suis bleu.
ce code source:

Private Sub Form_Load()
On Error Resume Next
Dim ReturnValue
ReturnValue = Shell("sndvol32.EXE", 1)
AppActivate ReturnValue
SendKeys "%T", True
AppActivate ReturnValue
SendKeys "%{F4}", True
End
End Sub

comment le faire marcher?
je suis programmeur debutant.
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007

Merci bien mais je n'ai rien compris à ton truc, je suis sur que tout cela marche parfaitement mais je ne vois pas comment le faire moi même, tu pourrait peut en faire une source non ? dans tout cas merci pour ta réponse
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
1
Pour LepTidev:
Très simple, un cheval de troie sur les bécanes des collègues, au bout d'un timer va à échéances régulières chercher un fichier texte (sur le réseau) donnant le chemin (+ ligne éventuelle de commande) du programme à éxécuter ( sur le rezo également).
C'est un cheval de troie, donc considéré comme un virus... répréhensible by the law... mais si c'est fait gentiment, ça n'abime rien.
Pour parfaire ce C.D.T ne doit pas apparaitre dans la ligne de taches, ni au CTRL ALT SUP. car il doit fonctionner tant que la bécane tourne.
Pour le lancer, si on veut qu'il soit invisible, ne pas seulement le mettre dans démarrage (bien que ...) mais en execution automatique (j'avais trouvé ce code dans un site du style de celui ci).

Dans le cadre d'un prog comme celui ci, il est tellement simple qu'un rien modifié il peut également être une macro "AUTOOPEN" d'un fichier word ou excel envoyé par mail à l'apprenti musicos...

Good luck.
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007

Et on fait comment à distance ???

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.