;===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