CODICE
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: Luigi96
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <Inet.au3>
#include <String.au3>
Global $id[100]
$oIE = ObjCreate("Shell.Explorer.2")
$yTube = GUICreate("yTube - Simple Youtube Player", 557, 488, 228, 231, $WS_MAXIMIZEBOX + $WS_SIZEBOX + $WS_SYSMENU)
GUISetBkColor(0x000000)
GUICtrlCreatePic(@ScriptDir&"\ico\yt_logo.jpg", 8, 8, 57, 57)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKSIZE)
$search_t = GUICtrlCreateInput("", 73, 8, 409, 57)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKRIGHT+$GUI_DOCKHEIGHT)
GUICtrlSetFont(-1, 34, 800, 0, "Bebas Neue")
GUICtrlSetColor(-1, 0x800000)
$search_b = GUICtrlCreateButton("Cerca video", 488, 8, 62, 57, $BS_ICON)
GUICtrlSetResizing(-1,$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKSIZE)
GUICtrlSetImage(-1, @ScriptDir&"\ico\search.ico", "")
;LISTVIEW
$listview = GUICtrlCreateListView("ID|Titolo|Durata|Data Caricamento|Visualizzazioni", 8, 72, 540, 360)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 25)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 185)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 110)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 100)
$watch = GUICtrlCreateButton("Guarda video", 7, 433, 542,24)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKbottom+$GUI_DOCKHEIGHT)
;ObJECT VIDEO
$video = GUICtrlCreateObj($oIE, 8, 72, 540, 382)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM)
GUISetState(@SW_SHOW)
cerca(0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $search_b
If GUICtrlRead($search_t) <> "" Then
$oIE.navigate("")
GUICtrlSetState($video, $GUI_HIDE)
GUICtrlSetState($listview, $GUI_SHOW)
GUICtrlSetState($watch, $GUI_SHOW)
cerca(GUICtrlRead($search_t))
EndIf
Case $watch
$list = GUICtrlRead(GUICtrlRead($listview))
If StringInStr($list , "|") <> 0 Then
$stringa = GUICtrlRead(GUICtrlRead($listview))
$idn = StringLeft($stringa,StringInStr($stringa, "|")-1)
GUICtrlSetState($listview, $GUI_HIDE)
GUICtrlSetState($watch, $GUI_HIDE)
GUICtrlSetState($video, $GUI_SHOW)
$oIE.navigate("http://www.youtube.com/v/"&$id[StringFormat("%d", $idn)]&"?version=3&hl=it_IT")
Else
MsgBox(64,"yTube - Info", "Devi selezionare un video dalla lista per poterlo guardare")
EndIf
EndSwitch
WEnd
Func cerca($valore)
If $valore == 0 Then
$source = _InetGetSource("http://www.youtube.com/channel/HCDjU9URR35hw")
Else
$source = _InetGetSource("http://www.youtube.com/results?search_query="&$valore)
EndIf
Local $aArray = _StringBetween($source, 'data-context-item-title="', '"')
Local $dArray = _StringBetween($source, 'data-context-item-time="', '"')
If $valore == 0 Then
Local $cArray = _StringBetween($source, 'content-item-time-created" title="', '"')
Else
Local $cArray = _StringBetween($source, '</a></li><li>', '</li><li>')
EndIf
Local $vArray = _StringBetween($source, 'data-context-item-views="', '"')
Local $iArray = _StringBetween($source, 'data-context-item-id="', '"')
Local $titolo[100]
Local $durata[100]
Local $carica[100]
Local $upload[100]
Local $views[100]
If $aArray == 0 Then
MsgBox(64,"yTube - Info","La ricerca di '"&$valore&"' non ha portato risultati")
return 1
EndIf
_GUICtrlListView_DeleteAllItems($listview)
$i = 0
For $element In $aArray
$i+=1
$titolo[$i] = StringRegExpReplace($element, "[|]", "-")
Next
$i = 0
If $dArray <> 0 Then
For $element In $dArray
$i+=1
$durata[$i] = $element
Next
EndIf
$i = 0
If $cArray <> 0 Then
For $element In $cArray
$i+=1
$carica[$i] = $element
Next
EndIf
$i = 0
If $vArray <> 0 Then
For $element In $vArray
$i+=1
$views[$i] = $element
Next
EndIf
$i = 0
If $iArray <> 0 Then
For $element In $iArray
$i+=1
$id[$i] = $element
Next
EndIf
For $ix = 1 To $i Step 1
GUICtrlCreateListViewItem($ix&"|"&$titolo[$ix]&"|"&$durata[$ix]&"|"&$carica[$ix]&"|"&$views[$ix], $listview)
Next
return 1
EndFunc
