AutoIt : Video Searcher

Questo è il sorgente di un mio Video Searcher fatto in autoIt si basa su ben 4 motori di ricerca



#AutoIt3Wrapper_Compression=5
#AutoIt3Wrapper_Res_Description=Programma per cercare video sfruttando 4 motori di ricerca
#AutoIt3Wrapper_Res_Language=0410
#include <GuiConstants.au3><guiconstants.au3>
#include <IE.au3><ie.au3></ie.au3></guiconstants.au3></code>

Global $form = GUICreate(“VideoSearch|Red Skull 92”, 285, 198, -1, -1)
GUISetBkColor(0xD8E4F8)
Global $List = GUICtrlCreateCombo(“”, 40, 48, 185, 25)
GUICtrlSetData(-1, “GoogleVideo|YouPorn|YouTube|PornTube”)
GUICtrlSetTip(-1, “Motori di Ricerca”)
Global $label = GUICtrlCreateLabel(“Seleziona la fonte”, 56, 16, 150, 22, BitOR($SS_CENTER,$SS_RIGHT,$SS_GRAYFRAME,$SS_WHITEFRAME,$SS_SIMPLE), $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont(-1, 10, 800, 2, “Arial Black”)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $cerca = GUICtrlCreateButton(“Cerca”, 80, 152, 100, 30, $BS_FLAT)
GUICtrlSetTip(-1, “Cerca”)
GUICtrlSetCursor (-1, 0)
Global $input = GUICtrlCreateInput(“”, 16, 112, 233, 21)
GUICtrlSetTip(-1, “Parola da cercare”)
Global $Label1 = GUICtrlCreateLabel(“Immetti la parola da cercare”, 12, 77, 238, 22, BitOR($SS_CENTER,$SS_RIGHT,$SS_GRAYFRAME,$SS_WHITEFRAME,$SS_SIMPLE), $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont(-1, 10, 800, 2, “Arial Black”)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cerca
$inp=GUICtrlRead($input)
$list=GUICtrlRead($List)
If $list = “GoogleVideo” Then
_IECreate(“http://video.google.it/videosearch?q=”&$inp)
If @error Then
MsgBox(48,”ATTENZIONE”,”Il computer deve essere connesso ad internet”)
EndIf
ElseIf $list = “PornoTube” Then
_IECreate(“http://www.pornotube.com/search.php?q=”&$inp)
If @error Then
MsgBox(48,”ATTENZIONE”,”Il computer deve essere connesso ad internet”)
EndIf
ElseIf $list = “YouPorn” Then
_IECreate(“http://youporn.com/search?query=”&$inp)
If @error Then
MsgBox(48,”ATTENZIONE”,”Il computer deve essere connesso ad internet”)
EndIf
ElseIf $list = “YouTube” Then
_IECreate(“http://it.youtube.com/results?search_query=”&$inp&”&search=Cerca&#8221;)
If @error Then
MsgBox(48,”ATTENZIONE”,”Il computer deve essere connesso ad internet”)
EndIf
EndIf

EndSwitch
WEnd


Mentre Questo è il link al programma completo:
Video Searcher

Spero vi sia utile😉

Torna alla HomePage 

4 risposte a “AutoIt : Video Searcher

  1. si wordpress ha incasinato il sorgente…
    a te basta editarlo levando le librerie IE.au3 e Guiconstants in + per levare quel problema…
    cmq puoi provare il programma compilato se vuoi😉

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...