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
