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