#NoTrayIcon
#include <ScreenCapture.au3>
#include <TreeViewConstants.au3>
#include <String.au3>
#include <ButtonConstants.au3>
#include <GUIConstants.au3>
#include <ComboConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <IE.au3>
#include <INet.au3>

GuiSetIcon("Yahoo.ico", 0)

Dim $Liens[32]

$Liens[0]= "Merci de ne pas m'embeter !"
$Liens[1]= "http://fr.play.yahoo.com/games/ante?room=yahoo_1015428808"
$Liens[2]= "http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_d"
$Liens[3]= "http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_19_fr_b"
$Liens[4]= "http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_aj_fr"
$Liens[5]= "http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_g"
$Liens[6]= "http://www.backdoors.to/bd.asp?p=Yahoo&r=yahoo_1041265577"
$Liens[7]= "http://www.backdoors.to/bd.asp?p=Yahoo&r=yahoo_1068802329"
$Liens[8]= "http://www.backdoors.to/bd.asp?p=Yahoo&r=yahoo_1045733391"
$Liens[9]= "http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_i"
$Liens[10]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_19_fr"
$Liens[11]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_f"
$Liens[12]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_15_fr"
$Liens[13]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_12_fr_b"
$Liens[14]="http://www.backdoors.to/bd.asp?p=Yahoo&r=yahoo_1015428541"
$Liens[15]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr"
$Liens[16]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_ab_fr"
$Liens[17]="http://www.backdoors.to/bd.asp?p=Yahoo&r=yahoo_1041265499"
$Liens[18]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_12_fr"
$Liens[19]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_h"
$Liens[20]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_k"
$Liens[21]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_c"
$Liens[22]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_35_fr"
$Liens[23]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_b"
$Liens[24]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_j"
$Liens[25]="http://www.backdoors.to/bd.asp?p=Yahoo&r=yahoo_1015428423"
$Liens[26]="http://www.backdoors.to/bd.asp?p=Yahoo&r=yahoo_1015428475"
$Liens[27]="http://www.backdoors.to/bd.asp?p=Yahoo&r=yahoo_1058948407"
$Liens[28]="http://www.backdoors.to/bd.asp?p=Yahoo&r=yahoo_1016470473"
$Liens[29]="http://www.backdoors.to/bd.asp?p=Yahoo&r=yahoo_1029320198"
$Liens[30]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_e"
$Liens[31]="http://www.backdoors.to/bd.asp?p=Yahoo&r=pool_fr_l"

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
$BackPool=GUICreate("BackPool - pOpOp99O0", 813, 575, 40, 40, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 813, 539)

$Input = GUICtrlCreateCombo("", 10, 545, 140, 100, $CBS_DROPDOWNLIST + $CBS_AUTOHSCROLL)
GUICtrlSetData(-1, "1, 2, 3 Billard|Angle Mort|Billard Academy|Billard Party|Boule en main|Brother In Arms|Cinema Billard|Francozen Gaule|La canne à ri|La couleur de l'argent|L'académie du billard|L'arnakeur|L'auberge du désespoire|Le billard hanté|Le jeu de la huit|Le Professionnel|Le Professionnel 2|Le tapis vert|Le triangle maudit|Les dieux du billard|Les maîtres-queues|Les rois de la huit|Les trois bandes|Net Bill@rd|Pool Master|Pool Position|Québec entre amis|Tom Cat's Pool|Tournoi de l'Amitié|Un billard sinon rien|World Wide Bill@rd")
$Button1= GUICtrlCreateButton("Go !", 160, 543, 75, 25)
$Button2= GUICtrlCreateButton("Refuser Invitations", 400, 543, 100, 25)
GUICtrlSetState($Button2, $GUI_DISABLE)
$Button21=GUICtrlCreateCheckbox("", 381, 546, 20, 20)
GUICtrlCreateLabel("By: pOpOp99O0 - v1.0", 700, 550)
$IEok=GUICtrlCreateCheckbox("Mode Avancé", 250, 545)
GuiCtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetState($IEok, $GUI_DISABLE)

$RefuserInvitations=0
$Code=""

_IENavigate($oIE, "http://img6.imageshack.us/img6/3098/scrat.jpg")

GUISetState(@SW_SHOW)

While 1
	
	If GUICtrlRead($Button21)=$GUI_CHECKED Then
		$RefuserInvitations=1
	Else
		$RefuserInvitations=0
	EndIf
	
	If GUICtrlRead($Button21)=$GUI_CHECKED And $RefuserInvitations=1 Then
		GUICtrlSetState($Button2, $GUI_ENABLE)
	Else
		GUICtrlSetState($Button2, $GUI_DISABLE)
	EndIf
	
	If $RefuserInvitations=1 Then
		WinActivate("Invité(e)")
		MsgBox(0, "", "Invitee !")
		; FINIR *****************************************************
	EndIf
	
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				_IEQuit($oIE)
				Exit 0
			
		    Case $Button2
			    $BackPool1=GUICreate("BackPool - pOpOp99O0", 300, 70, 0, 0, -1, -1, $BackPool)
				$Input2=GUICtrlCreateInput($Liens[0], 60, 20, 200, 20)
				$Button3=GUICtrlCreateButton("Valider", 113, 42, 75, 25)
				GUICtrlCreateLabel("Message De Refus:", 100, 8, 100, 11)
				$Checkbox1=GUICtrlCreateCheckbox("", 35, 20, 20, 20)
				GuiCtrlSetState(-1, $GUI_CHECKED)
				$Boucle=1
				$test=1
				GUISetState(@SW_SHOW)
				
				While $Boucle
					
					If GUICtrlRead($Checkbox1)=$GUI_CHECKED Then
						If $test=0 Then
						  GUICtrlSetState($Input2, $GUI_ENABLE)
						  $test=1
						EndIf
					Else
						If $test=1 Then
						  GUICtrlSetState($Input2, $GUI_DISABLE)
						  $test=0
						EndIf
					EndIf
					
					$nMsg = GUIGetMsg()
		            Switch $nMsg
						Case $GUI_EVENT_CLOSE
							$Boucle=0
						
					    Case $Button3
						    If $test=1 Then
							   $Liens[0]=GUICtrlRead($Input2)
						    Else
							   $Liens[0]=""
						    EndIf
						   $Boucle=0
						
					EndSwitch
				WEnd
				GUIDelete($BackPool1)
			    
		    Case $Button1
			    If GUICtrlRead($Input)=="" Then
					
				Else
					$str=GUICtrlRead($Input)
					 Switch $str
						Case "1, 2, 3 Billard"
							_IENavigate ($oIE, $Liens[1])
							
						Case "Angle Mort"
							_IENavigate ($oIE, $Liens[2])
						    
						Case "Billard Academy"
							_IENavigate ($oIE, $Liens[3])
							
						Case "Billard Party"
							_IENavigate ($oIE, $Liens[4])
							
						Case "Boule en main"
							_IENavigate ($oIE, $Liens[5])
							
						Case "Brother In Arms"
							_IENavigate ($oIE, $Liens[6])
							
						Case "Cinema Billard"
							_IENavigate ($oIE, $Liens[7])
							
						Case "Francozen Gaule"
							_IENavigate ($oIE, $Liens[8])
							
						Case "La canne à ri"
							_IENavigate ($oIE, $Liens[9])
							
						Case "La couleur de l'argent"
							_IENavigate ($oIE, $Liens[10])
							
						Case "L'académie du billard"
							_IENavigate ($oIE, $Liens[11])
							
						Case "L'arnaqueur"
							_IENavigate ($oIE, $Liens[12])
							
						Case "L'auberge du désespoire"
							_IENavigate ($oIE, $Liens[13])
							
						Case "Le billard hanté"
							_IENavigate ($oIE, $Liens[14])
							
						Case "Le jeu de la huit"
							_IENavigate ($oIE, $Liens[15])
							
						Case "Le Professionnel"
							_IENavigate ($oIE, $Liens[16])
							
						Case "Le Professionnel 2"
							_IENavigate ($oIE, $Liens[17])
							
						Case "Le tapis vert"
							_IENavigate ($oIE, $Liens[18])
							
						Case "Le triangle maudit"
							_IENavigate ($oIE, $Liens[19])
							
						Case "Les dieux du billard"
							_IENavigate ($oIE, $Liens[20])
							
						Case "Les maîtres-queues"
							_IENavigate ($oIE, $Liens[21])
							
						Case "Les rois de la huit"
							_IENavigate ($oIE, $Liens[22])
							
						Case "Les trois bandes"
							_IENavigate ($oIE, $Liens[23])
							
						Case "Net Bill@rd"
							_IENavigate ($oIE, $Liens[24])
							
						Case "Pool Master"
							_IENavigate ($oIE, $Liens[25])
							
						Case "Pool Position"
							_IENavigate ($oIE, $Liens[26])
							
						Case "Québec entre amis"
							_IENavigate ($oIE, $Liens[27])
							
						Case "Tom Cat's Pool"
							_IENavigate ($oIE, $Liens[28])
							
						Case "Tournoi de l'Amitié"
							_IENavigate ($oIE, $Liens[29])
							
						Case "Un billard sinon rien"
							_IENavigate ($oIE, $Liens[30])
							
						Case "World Wide Bill@rd"
							_IENavigate ($oIE, $Liens[31])
							
							
				     EndSwitch
				EndIf
			
		EndSwitch
	
WEnd

Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then 
    Return 1
  Else
    Return 0
  EndIf

EndFunc