Page 1 sur 1
[Ex] Quelques Fonctions de WLM
Posté : mar. 27 janv. 2009 17:52
par GoldenSun2
Bonjour à tous ^^
J'ai fais un petit script pour Windows Live Messenger qui permet:
-D'aller dans sa boîte Hotmail
-De se déconnecter (Arrêt du script dès lors)
-De quitter Windows Live Messenger (Aussi)
-De changer de Pseudo et/ou Message Personnel
-De changer de statut
-De demander l'auto-message à configurer (Doit encore vérifier si la personne utilise Msn Plus ! Live)
Nécessite Windows Live Messenger 2008 mais ne fonctionne pas avec 2009
Besoin d'aide car il se peut qu'il ne détecte pas Windows Live Messenger dans la barre des tâches et aussi pour vérifier si la personne utilise msn plus sinon, je le ferais par fichier texte.
Scritp:
► Afficher le texteOptions Msn
Code : Tout sélectionner
;===Information Script Options Msn===
;Script by GoldenSun2
;Fait le 26 janvier 2009 à 18h26
;Modifié le 27 janvier 2009 à 17h14:
; -Ajout de la modification du pseudo et/ou message personnel
;Modifié le 27 janvier 2009 à 17h31:
; -Ajout de l'auto message (pas encore devérification si l'utilisateur à msn plus)
;Modifié le 27 janvier 2009 à 18h17:
; -Ferme WLM après avoir change le pseudo et/ou message personnel
;===HotKeySet===
HotKeySet("{ESC}", "Sortir");Quitte le script
HotKeySet("^{F1}", "Hotmail");Va dans la boîte de messagerie
HotKeySet("^{F2}", "Deconnecter");Se déconnecte
HotKeySet("^{F3}", "Quitter");Quitte Windows Live Messenger
HotKeySet("^{F4}", "Options");Modifie le Pseudo et/ou Message Perso
HotKeySet("^{numpad1}", "EnLigne");Statut: En ligne
HotKeySet("^{numpad2}", "Occupe");Statut: Occupé
HotKeySet("^{numpad3}", "DeRetour");Statut: De retour dans une minute
HotKeySet("^{numpad4}", "Absent");Statut: Absent
HotKeySet("^{numpad5}", "AuTel");Statut: Au téléphone
HotKeySet("^{numpad6}", "PartiManger");Statut: Parti manger
HotKeySet("^{numpad7}", "HorsLigne");Statut: Hors ligne
;===Variables===
Global $PixelMsn = 0x5DA84D
Global $PosMsn
Global $Pseudo
Global $MessPerso
Global $TitreAutoMess
Global $AutoMess
;===Corpus===
While 1
Sleep(10)
WEnd
Func GoMsn()
$PosMsn = PixelSearch(@DesktopWidth - 240, @DesktopHeight - 30, @DesktopWidth, @DesktopHeight, $PixelMsn)
If @error Then
$PosMsn = PixelSearch(@DesktopWidth - 240, @DesktopHeight - 30, @DesktopWidth, @DesktopHeight, 0xB5B5B5)
EndIf
MouseClick("right", $PosMsn[0], $PosMsn[1])
EndFunc
Func GoStatut()
Sleep(100)
Send("t")
EndFunc
Func GoOptions()
Send("o")
WinWaitActive("Windows Live Messenger")
Sleep(100)
Send("!o")
Sleep(100)
Send("o")
EndFunc
Func Hotmail()
GoMsn()
Sleep(100)
Send("b")
EndFunc
Func Deconnecter()
GoMsn()
Sleep(100)
Send("s")
Sleep(100)
Send("{ENTER}")
Exit 0
EndFunc
Func Quitter()
GoMsn()
Sleep(100)
Send("q")
Exit 0
EndFunc
Func EnLigne()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("l")
EndFunc
Func Occupe()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("o")
EndFunc
Func DeRetour()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("e")
EndFunc
Func Absent()
$TitreAutoMess = InputBox("Titre de l'Auto-Message", "Veuillez entrer le titre de l'auto-message qui sera affiché entre parenthèses après votre pseudo", "Pas là")
$AutoMess = InputBox("Auto-Message", "Veuillez entrer la phrase qui sera envoyée quand on vous parlera", "Pas là")
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("a")
If WinWaitActive("Statut Personnalisé - Messenger Plus!") Then
Sleep(1000)
Send($TitreAutoMess & "{TAB}{TAB}" & $AutoMess & "{ENTER}")
EndIf
EndFunc
Func AuTel()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("t")
EndFunc
Func PartiManger()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("p")
EndFunc
Func HorsLigne()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("h")
EndFunc
Func Options()
$Pseudo = InputBox("Pseudo", "Veuillez entrer le nouveau pseudo. Si vous ne voulez pas le changer, laisser le champs vide.")
$MessPerso = InputBox("Message Personel", "Veuillez entrer le nouveau message personnel. Si vous ne voulez pas le changer, laisser le champs vide.")
If $Pseudo <> "" & $MessPerso <> "" Then
GoMsn()
Sleep(100)
GoOptions()
Sleep(100)
Send($Pseudo & "{TAB}" & $MessPerso & "{ENTER}")
Send("!{F4}")
ElseIf $Pseudo <> "" & $MessPerso == "" Then
GoMsn()
Sleep(100)
GoOptions()
Sleep(100)
Send($Pseudo & "{ENTER}")
Send("!{F4}")
ElseIf $Pseudo == "" & $MessPerso <> "" Then
GoMsn()
Sleep(100)
GoOptions()
Sleep(100)
Send("{TAB}" & $MessPerso & "{ENTER}")
EndIf
EndFunc
Func Sortir()
Exit 0
EndFunc
Pouvez vous me dire si vous avez si le script plante des fois. Si oui, pouvez vous donnez l'erreur.
Merci d'avance ^^
Re: [Ex]Script Msn
Posté : mar. 27 janv. 2009 19:46
par GoldenSun2
Mise à jour:
Code : Tout sélectionner
;===Information Script Options Msn===
;Script by GoldenSun2
;Fait le 26 janvier 2009 à 18h26
;Modifié le 27 janvier 2009 à 17h14:
; -Ajout de la modification du pseudo et/ou message personnel
;Modifié le 27 janvier 2009 à 17h31:
; -Ajout de l'auto message (pas encore devérification si l'utilisateur à msn plus)
;Modifié le 27 janvier 2009 à 18h17:
; -Ferme WLM après avoir change le pseudo et/ou message personnel
;Modifié le 27 janvier 2009 à 19h24:
; -Ajout du fichier Msn Plus.txt
; -Ajout de la vérification de Msn Plus pour l'auto-message quand on se met absent
Code:
► Afficher le texteCode
Code : Tout sélectionner
;===Information Script Options Msn===
;Script by GoldenSun2
;Fait le 26 janvier 2009 à 18h26
;Modifié le 27 janvier 2009 à 17h14:
; -Ajout de la modification du pseudo et/ou message personnel
;Modifié le 27 janvier 2009 à 17h31:
; -Ajout de l'auto message (pas encore devérification si l'utilisateur à msn plus)
;Modifié le 27 janvier 2009 à 18h17:
; -Ferme WLM après avoir change le pseudo et/ou message personnel
;Modifié le 27 janvier 2009 à 19h24:
; -Ajout du fichier Msn Plus.txt
; -Ajout de la vérification de Msn Plus pour l'auto-message quand on se met absent
;===HotKeySet===
HotKeySet("{ESC}", "Sortir");Quitte le script
HotKeySet("^{F1}", "Hotmail");Va dans la boîte de messagerie
HotKeySet("^{F2}", "Deconnecter");Se déconnecte
HotKeySet("^{F3}", "Quitter");Quitte Windows Live Messenger
HotKeySet("^{F4}", "Options");Modifie le Pseudo et/ou Message Perso
HotKeySet("^{F5}", "MsnPlus");Modifie l'option du fichier MsnPlus.txt
HotKeySet("^{numpad1}", "EnLigne");Statut: En ligne
HotKeySet("^{numpad2}", "Occupe");Statut: Occupé
HotKeySet("^{numpad3}", "DeRetour");Statut: De retour dans une minute
HotKeySet("^{numpad4}", "Absent");Statut: Absent
HotKeySet("^{numpad5}", "AuTel");Statut: Au téléphone
HotKeySet("^{numpad6}", "PartiManger");Statut: Parti manger
HotKeySet("^{numpad7}", "HorsLigne");Statut: Hors ligne
;===Variables===
Global $PixelMsnOnline = 0x5DA84D
Global $PixelMsnOffline = 0xB5B5B5
Global $PosMsn
Global $Pseudo
Global $MessPerso
Global $TitreAutoMess
Global $AutoMess
Global $CheminFichierMsnPlus = @MyDocumentsDir & "\OptionsMsn\"
;===Vérification/Changement de Msn Plus ! Live===
Func FichierMsnPlus()
If not FileExists($CheminFichierMsnPlus & "Msn Plus.txt") Then
DirCreate($CheminFichierMsnPlus)
$RepMsnPlus = InputBox("Msn Plus ! Live", "Est-ce que vous possédez Msn Plus? o = oui, n = non")
If $RepMsnPlus == "o" Then
FileWrite($CheminFichierMsnPlus & "Msn Plus.txt", "o")
TrayTip("Msn Plus ! Live", "Votre réponse est oui, cette question ne vous sera plus posée.", 10000)
ElseIf $RepMsnPlus == "n" Then
FileWrite($CheminFichierMsnPlus & "Msn Plus.txt", "n")
TrayTip("Msn Plus ! Live", "Votre réponse est non, cette question ne vous sera plus posée.", 10000)
Else
TrayTip("Msn Plus ! Live", "Votre réponse n'est pas correcte. Cette question vous sera reposée.", 10000)
EndIf
TrayTip("Msn Plus ! Live", "Si vous voulez modifier votre réponse, appuyer sur CTRL+F5", 10000)
EndIf
EndFunc
Func MsnPlus()
$RepMsnPlus = InputBox("Msn Plus ! Live", "Est-ce que vous possédez Msn Plus? o = oui, n = non")
If $RepMsnPlus == "o" Then
FileDelete($CheminFichierMsnPlus & "Msn Plus.txt")
FileWrite($CheminFichierMsnPlus & "Msn Plus.txt", "o")
TrayTip("Msn Plus ! Live", "Votre réponse est oui, cette question ne vous sera plus posée.", 10000)
ElseIf $RepMsnPlus == "n" Then
FileDelete($CheminFichierMsnPlus & "Msn Plus.txt")
FileWrite($CheminFichierMsnPlus & "Msn Plus.txt", "n")
TrayTip("Msn Plus ! Live", "Votre réponse est non, cette question ne vous sera plus posée.", 10000)
Else
TrayTip("Msn Plus ! Live", "Votre réponse n'est pas correcte. Cette question vous sera reposée.", 10000)
EndIf
EndFunc
;===Corpus===
FichierMsnPlus()
While 1
Sleep(10)
WEnd
Func GoMsn()
$PosMsn = PixelSearch(@DesktopWidth - 240, @DesktopHeight - 30, @DesktopWidth, @DesktopHeight, $PixelMsnOnline)
If @error Then
$PosMsn = PixelSearch(@DesktopWidth - 240, @DesktopHeight - 30, @DesktopWidth, @DesktopHeight, $PixelMsnOffline)
EndIf
MouseClick("right", $PosMsn[0], $PosMsn[1])
EndFunc
Func GoStatut()
Sleep(100)
Send("t")
EndFunc
Func GoOptions()
Send("o")
WinWaitActive("Windows Live Messenger")
Sleep(100)
Send("!o")
Sleep(100)
Send("o")
EndFunc
Func Hotmail()
GoMsn()
Sleep(100)
Send("b")
EndFunc
Func Deconnecter()
GoMsn()
Sleep(100)
Send("s")
Sleep(100)
Send("{ENTER}")
Exit 0
EndFunc
Func Quitter()
GoMsn()
Sleep(100)
Send("q")
Exit 0
EndFunc
Func EnLigne()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("l")
EndFunc
Func Occupe()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("o")
EndFunc
Func DeRetour()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("e")
EndFunc
Func Absent()
If FileRead($CheminFichierMsnPlus & "Msn Plus.txt") = "o" Then
$TitreAutoMess = InputBox("Titre de l'Auto-Message", "Veuillez entrer le titre de l'auto-message qui sera affiché entre parenthèses après votre pseudo", "Pas là")
$AutoMess = InputBox("Auto-Message", "Veuillez entrer la phrase qui sera envoyée quand on vous parlera", "Pas là")
EndIf
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("a")
If WinWaitActive("Statut Personnalisé - Messenger Plus!") Then
Sleep(1000)
Send($TitreAutoMess & "{TAB}{TAB}" & $AutoMess & "{ENTER}")
EndIf
EndFunc
Func AuTel()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("t")
EndFunc
Func PartiManger()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("p")
EndFunc
Func HorsLigne()
GoMsn()
Sleep(100)
GoStatut()
Sleep(100)
Send("h")
EndFunc
Func Options()
$Pseudo = InputBox("Pseudo", "Veuillez entrer le nouveau pseudo. Si vous ne voulez pas le changer, laisser le champs vide.")
$MessPerso = InputBox("Message Personel", "Veuillez entrer le nouveau message personnel. Si vous ne voulez pas le changer, laisser le champs vide.")
If $Pseudo <> "" & $MessPerso <> "" Then
GoMsn()
Sleep(100)
GoOptions()
Sleep(100)
Send($Pseudo & "{TAB}" & $MessPerso & "{ENTER}")
Send("!{F4}")
ElseIf $Pseudo <> "" & $MessPerso == "" Then
GoMsn()
Sleep(100)
GoOptions()
Sleep(100)
Send($Pseudo & "{ENTER}")
Send("!{F4}")
ElseIf $Pseudo == "" & $MessPerso <> "" Then
GoMsn()
Sleep(100)
GoOptions()
Sleep(100)
Send("{TAB}" & $MessPerso & "{ENTER}")
EndIf
EndFunc
Func Sortir()
Exit 0
EndFunc
Re: [Ex] Quelques Fonctions de WLM
Posté : mar. 27 janv. 2009 21:49
par Tlem
Merci de mettre à jour le premier post seulement.
1 seul fichier et un changelog suffiront. Pas besoin de mettre le code si vous joignez l'UDF.
Re: [Ex] Quelques Fonctions de WLM
Posté : mer. 28 janv. 2009 13:58
par GoldenSun2
Ok d'accords, mais je peux mettre les mise à jour en code comme je l'i fait au post précédant?
Re: [Ex] Quelques Fonctions de WLM
Posté : mer. 28 janv. 2009 21:58
par Tlem
Comme vous voulez.
Pour faire simple, faites la description ensuite une balise Spoiler avec dedans, le texte que vous voulez pour les mises à jour puis le script en fichier joint ou le code du script (je préfère pour l'instant le fichier joint).
Re: [Ex] Quelques Fonctions de WLM
Posté : jeu. 29 janv. 2009 17:48
par GoldenSun2
J'ai remarqué un petit bug. Quand on met c'est caractères "! ^ +" il se peut qu'il ne les marques pas car ce sont des propriétés du script. Pour se faire, vous mettez juste {!}. Maintenant, si vous voulez en mettre 20, vous mettez juste {! 20}.
Merci de votre attention ^^