M
max1300
Гость
AutoIt: v3.3.14.2
Версия: 1.1
Категория: Интернет
Описание: Программа для выкачивания превьюшек из видеороликов которые находятся на видеохостинге YouTube,скаченную превьюшку из чужого ролика можно использовать в своём видео,c более подробным описанием вы можете ознакомится здесь https://www.youtube.com/watch?v=_Ah8ncifmWM
Код/Пример:
Файл: http://www.fayloobmennik.net/6761507
Снимок:
История версий:
Источник: autoit-script.ru
Автор(ы): max1300
Версия: 1.1
Категория: Интернет
Описание: Программа для выкачивания превьюшек из видеороликов которые находятся на видеохостинге YouTube,скаченную превьюшку из чужого ролика можно использовать в своём видео,c более подробным описанием вы можете ознакомится здесь https://www.youtube.com/watch?v=_Ah8ncifmWM
Код/Пример:
Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=Author Website https://www.youtube.com/channel/UCbBoPVGMzLY0gCG8iM_vG5Q
#AutoIt3Wrapper_Res_Description=Preview Downloader 1.1
#AutoIt3Wrapper_Res_Fileversion=1.1
#AutoIt3Wrapper_Res_LegalCopyright=By Serpaz232
#AutoIt3Wrapper_Res_Language=1049
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <WinAPIDiag.au3>
#include <TrayConstants.au3>
#include <GDIPlus.au3>
#include <Process.au3>
Opt("TrayMenuMode", 3)
$IdMenu = TrayCreateMenu ("Информация")
$iDisplay = TrayCreateItem("Авторы", $IdMenu)
Global $iDisplay
TraySetState($TRAY_ICONSTATE_SHOW)
If _WinAPI_IsNetworkAlive() = 0 Then
MsgBox(64,"Информация","Работа программы не возможна,потому как нет подключения к интернету")
Exit
EndIf
Global $Filesaving
#Region ### START Koda GUI section ### Form=c:\users\user\documents\preview download 1.kxf
$Form1_1 = GUICreate("Preview Downloader 1.1", 1328, 757, 204, 26, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_THICKFRAME))
$Label1 = GUICtrlCreateLabel("ID Значка :", 8, 8, 110, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$PicID = GUICtrlCreateInput("", 120, 8, 585, 21)
$Button1 = GUICtrlCreateButton("Скачать", 712, 8, 113, 25)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Сохранить на компьютер", 8, 728, 275, 25)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete(@ScriptDir &"\preview3.jpg")
Exit
Case $Button2
$inputbox = InputBox("Имя сохраняемого файла","Придумайте имя файлу")
$Filesaving = FileSelectFolder("Выберите куда будете сохранять файл", @ScriptDir)
$IntGT1 = InetGet("https://i.ytimg.com/vi/" & GUICtrlRead($PicID) & "/maxresdefault.jpg", $Filesaving & "\" & $inputbox & ".jpg")
$IntGT1 = InetGet("https://i.ytimg.com/vi/" & GUICtrlRead($PicID) & "/hqdefault.jpg", $Filesaving & "\" & $inputbox & ".jpg")
Case $Button1
InetGet("https://i.ytimg.com/vi/" & GUICtrlRead($PicID) & "/maxresdefault.jpg", @ScriptDir &"\preview3.jpg")
$IntGT1 = InetGet("https://i.ytimg.com/vi/" & GUICtrlRead($PicID) & "/hqdefault.jpg",@ScriptDir &"\preview3.jpg")
$hditmap = _GDIPlus_ImageLoadFromFile(@ScriptDir &"\preview3.jpg")
$hImage = _GDIPlus_BitmapCreateFromHBITMAP($hditmap)
$Pic1 = GUICtrlCreatePic(@ScriptDir &"\preview3.jpg", 8, 40, _GDIPlus_ImageGetWidth($hImage),_GDIPlus_ImageGetHeight($hImage) )
EndSwitch
Switch TrayGetMsg()
Case $iDisplay
$msg = MsgBox(64 + 4,"Информация","Автор:Serpaz232" & @CRLF & "Сайт Автора:https://www.youtube.com/c/SerpazTamor" & @CRLF & "https://www.youtube.com/channel/UCbBoPVGMzLY0gCG8iM_vG5Q" & @CRLF & "Перейти на сайт автора ?")
If $msg = 6 Then _RunDos("start https://www.youtube.com/channel/UCbBoPVGMzLY0gCG8iM_vG5Q")
EndSwitch
WEnd
Файл: http://www.fayloobmennik.net/6761507
Снимок:
История версий:
1.1
Источник: autoit-script.ru
Автор(ы): max1300