1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
Local $TitreFilm = InputBox("Double Chrome", "Entrer est le titre du film ou de la série ?")
Local $TitreFilm2 = StringReplace($TitreFilm, " ", "%2b") ; remplace les ESPACE par des +
Sleep(1000)
Run("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe")
Sleep(1000)
Send("https://fr.wiktionary.org/wiki/machin-chose{ENTER}")
Local $hWnd = WinWait("[CLASS:Chrome_WidgetWin_1]", "", 10) ; identifie la fenetre chrome
WinSetState($hWnd, "", @SW_RESTORE) ; restore la fenetre si jamais elle est maximisée
WinMove($hWnd, "", 1073, 840, 1244, 1087) ; repositionne et redimentionne la fenetre
Run("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe")
Sleep(1000)
Send("http://www.imdb.com/find?s=all&q=" &$TitreFilm2& "{ENTER}" )
Local $hWnd = WinWait("[CLASS:Chrome_WidgetWin_1]", "", 10)
WinMove($hWnd, "", 2303, 840, 704, 1087)
Sleep(500)
Send("^t") ; ouvre un nouvel onglet dans Chrome
Send("http://www.allocine.fr/recherche/?q=" &$TitreFilm2& "{ENTER}" )
Sleep(500)
Send("^t")
Send("http://www.themoviedb.org/search?query=" &$TitreFilm2& "{ENTER}" )
Sleep(500)
Send("^t")
Send("https://fr.wikipedia.org/w/index.php?title=Spécial:Recherche&search=" &$TitreFilm2& "{ENTER}" )
Send("^+{TAB 3}") ; retourne sur le premier Onglet |
Partager