CODICE
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: x-H4ck3r-x
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#AutoIt3Wrapper_Compression=5
#AutoIt3Wrapper_Res_Description=Programma per cercare video sfruttando 4 motori di ricerca
#AutoIt3Wrapper_Res_Language=0410
#include <GUIConstants.au3>
#include<IE.au3>
#Region ### START Koda GUI section ### Form=
Global $form = GUICreate("MP3 By Okrim", 285, 198, -1, -1)
GUISetBkColor(0xD8E4F8)
Global $List = GUICtrlCreateCombo("", 40, 48, 185, 25)
GUICtrlSetData(-1, "Google MP3")
GUICtrlSetTip(-1, "MP3")
Global $label = GUICtrlCreateLabel("Modo di cercare MP3", 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, "Nome cantante o canzone")
Global $Label1 = GUICtrlCreateLabel("Nome del MP3", 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)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cerca
$inp=GUICtrlRead($input)
$list=GUICtrlRead($List)
If $list = "Google MP3" Then
_IECreate("http://www.google.it/search?hl=it&q=%3Fintitle%3Aindex.of%3F+mp3+&btnG=Cerca&meta="&$inp)
If @error Then
MsgBox(48,"ATTENZIONE","Il computer deve essere connesso ad internet")
EndIf
EndIf
EndSwitch
WEnd