Что нового

[Сеть, интернет] Preview Download 1.1

M

max1300

Гость
AutoIt: v3.3.14.2
Версия: 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
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Re: Preview Download 1.1

max1300 [?]
при таком условии все время будет появляться сообщение о том, что инет не подключен. почему? потому, что эта функция, в случае ошибки, возвращает нуль.
а значит должно быть так
Код:
If _WinAPI_IsNetworkAlive() = 0  Then

желательно, тут выложить инструкцию.
сообщение об ошибки еще тот "шедевр". просто взрыв мозга
"Эта программа не сможет работать так у вас нет интеренета,подключите интернет" & @CRLF & "Программы при своей работе использующие интернет требуют наличие интернета,а эта программа ипользует при своей работе интернет,следовательно она будет требовать поключения интернета"
ты извини, но смех тут закономерен. можно(нужно!) гораздо проще - "Нет подключения к интернету" или "Нет доступа к интернету"
В итоге, я не понял как работает программа
 
Автор
M

max1300

Гость
Re: Preview Download 1.1

Если тебе что то не понятно,рекомендую пожалуйста просмотри это видео https://www.youtube.com/watch?v=_Ah8ncifmWM,насчёт твоей критики я с тобой согласен,будет исправлено.


Добавлено:
Сообщение автоматически объединено:


"Эта программа не сможет работать так у вас нет интеренета,подключите интернет" & @CRLF & "Программы при своей работе использующие интернет требуют наличие интернета,а эта программа ипользует при своей работе интернет,следовательно она будет требовать поключения интернета"
так будет лучше и логичнее "Работа программы не возможна,потому как нет подключения к интернету"
 
Верх