在线下载软件

admin

1. Name "Test Download And Convert Video"
   
2. Caption "Test Download And Convert Video"
   
3. OutFile "Test Download And Convert Video.exe"
   
4. InstallDir "$TEMP\Test Download And Convert Video"
   
5. 
   
6. # Compress
   
7. 
   
8. SetCompressor /SOLID /FINAL lzma
   
9. 
   
10. # Include
    
11. 
    
12. !include "MUI2.nsh"
    
13. !include "WinCore.nsh"
    
14. !include "LogicLib.nsh"
    
15. !include "WinMessages.nsh"
    
16. !include "FileFunc.nsh"
    
17. !insertmacro GetFileName
    
18. !insertmacro GetParameters
    
19. !insertmacro DriveSpace
    
20. !insertmacro GetParent
    
21. !insertmacro GetOptions
    
22. !insertmacro GetDrives
    
23. !insertmacro GetRoot
    
24. !insertmacro GetSize
    
25. 
    
26. # Runtime
    
27. 
    
28. RequestExecutionLevel Admin
    
29. 
    
30. ShowInstDetails hide
    
31. ShowInstDetails nevershow
    
32. XPStyle off
    
33. 
    
34. BrandingText /TRIMRIGHT " "
    
35. 
    
36. # Page
    
37. 
    
38. Page instfiles "" ""
    
39. 
    
40. !insertmacro MUI_LANGUAGE "English"
    
41. 
    
42. Function .onInit
    
43. FunctionEnd
    
44. 
    
45. var /GLOBAL LINK
    
46. var /GLOBAL YOUVIDEO
    
47. var /GLOBAL BASEFILENAME
    
48. 
    
49. Section "Main" SEC001
    
50. 
    
51. DetailPrint `Check FFMPeg if exist ...`
    
52. 
    
53. IfFileExists "$EXEDIR\FFMpeg\FFMpeg.exe" "NSIS.Detect.FFMPeg.App" "NSIS.Download.FFMPeg.App"
    
54. NSIS.Download.FFMPeg.App:
    
55. 
    
56. DetailPrint `Downloading FFMpeg ...`
    
57. 
    
58. System::Call 'kernel32::CreateDirectoryW(w "$TEMP\FFMpeg", i0)i.r0?e'
    
59. 
    
60. inetc::get "https://ffmpeg.zeranoe.com/builds/win32/static/ffmpeg-20170221-a5c1c7a-win32-static.zip" "$TEMP\FFMpeg\ffmpeg-20170221-a5c1c7a-win32-static.zip" /END
    
61. Pop $0
    
62. StrCmp $0 "OK" +3
    
63.   MessageBox MB_OK|MB_ICONEXCLAMATION "$0.Error Downloading!"
    
64. Goto Cancelled
    
65. 
    
66. System::Call 'kernel32::CreateDirectoryW(w "$EXEDIR\FFMpeg", i0)i.r0?e'
    
67. 
    
68. nsisunz::UnzipToLog "$TEMP\FFMpeg\ffmpeg-20170221-a5c1c7a-win32-static.zip" "$TEMP\FFMpeg"
    
69. Pop $0
    
70. StrCmp $0 "success" ok
    
71.   DetailPrint "$0" ;print error message to log
    
72. ok:
    
73. 
    
74. ClearErrors
    
75. 
    
76. SetShellVarContext "all"
    
77. 
    
78. nsExec::ExecToStack '"$SYSDIR\xcopy.exe" /y /r "$TEMP\FFMpeg\ffmpeg-20170221-a5c1c7a-win32-static\bin\*.*" /d "$EXEDIR\FFMpeg"' $0
    
79. Pop $0
    
80. Pop $1
    
81. 
    
82. IfFileExists "$EXEDIR\FFMpeg\FFMpeg.exe" "NSIS.Detect.FFMPeg.App" "Next.Step"
    
83. 
    
84. GoTo Next.Step
    
85. 
    
86. NSIS.Detect.FFMPeg.App:
    
87. 
    
88. GoTo Next.Step
    
89. 
    
90. Next.Step:
    
91. 
    
92. DetailPrint `Check Youtube-dl if exist ...`
    
93. 
    
94. IfFileExists "$EXEDIR\Youtube-dl\youtube-dl.exe" "NSIS.Detect.Youtube-dl.App" "NSIS.Download.Youtube-dl.App"
    
95. 
    
96. NSIS.Download.Youtube-dl.App:
    
97. 
    
98. DetailPrint `Downloading Youtube-dl ...`
    
99. 
    
100. System::Call 'kernel32::CreateDirectoryW(w "$EXEDIR\Youtube-dl", i0)i.r0?e'
     
101. 
     
102. inetc::get "https://yt-dl.org/downloads/2017.02.17/youtube-dl.exe" "$EXEDIR\Youtube-dl\youtube-dl.exe" /END
     
103. Pop $0
     
104. StrCmp $0 "OK" +3
     
105.   MessageBox MB_OK|MB_ICONEXCLAMATION "$0.Error Downloading!"
     
106. Goto Cancelled
     
107. 
     
108. IfFileExists "$EXEDIR\Youtube-dl\youtube-dl.exe" "NSIS.Detect.Youtube-dl.App" "Next.Step1"
     
109. 
     
110. GoTo Next.Step1
     
111. 
     
112. NSIS.Detect.Youtube-dl.App:
     
113. 
     
114. GoTo Next.Step1
     
115. 
     
116. Next.Step1:
     
117. 
     
118. DetailPrint `Downloading your video ...Please wait for a moments ...`
     
119. 
     
120. # Download
     
121. 
     
122. System::Call 'kernel32::CreateDirectoryW(w "C:\Downloads", i0)i.r0?e'
     
123. 
     
124. # YOUTUBE-DL CONFIG
     
125. 
     
126. Strcpy $LINK "https://www.youtube.com/watch?v=k85mRPqvMbE"
     
127. 
     
128. nsExec::ExecToStack '"$EXEDIR\Youtube-dl\youtube-dl.exe" --skip-download --get-filename "$LINK"' $0
     
129. pop $0
     
130. pop $1
     
131. Strcpy $YOUVIDEO "$1"
     
132. 
     
133. DetailPrint `Downloading ...$1`
     
134. 
     
135. nsExec::ExecToStack '"$EXEDIR\Youtube-dl\youtube-dl.exe" -q --continue -f mp4 --no-part "$LINK" -o "C:\Downloads\%(title)s-%(id)s.%(ext)s"' $0
     
136. pop $0
     
137. pop $1
     
138. ${GetBaseName} "C:\Downloads\$YOUVIDEO" $BASEFILENAME
     
139. IfFileExists "C:\Downloads\$BASEFILENAME.mp4" "NSIS.Done.Download.Video" "NSIS.Failed.Download.Video"
     
140. 
     
141. NSIS.Done.Download.Video:
     
142. DetailPrint `NSIS was sucessfully download your video!`
     
143. MessageBox MB_YESNO|MB_USERICON "NSIS was sucessfully download your video!$\n$\nDo you want convert this download video?" IDYES "NSIS.Yes.Convert.Video" IDNO "NSIS.Skyp.And.Continue"
     
144. Abort
     
145. 
     
146. NSIS.Yes.Convert.Video:
     
147. 
     
148. # FFMPeg CONFIG
     
149. 
     
150. System::Call 'kernel32::CreateDirectoryW(w "C:\Converts", i0)i.r0?e'
     
151. 
     
152. ${GetBaseName} "C:\Downloads\$YOUVIDEO" $BASEFILENAME
     
153. 
     
154. nsExec::ExecToStack '"$EXEDIR\FFMpeg\FFMpeg.exe" -i "C:\Downloads\$BASEFILENAME.mp4" -s hd1080 -c:v libx264 -crf 23 -c:a aac -strict -2 -pix_fmt yuv420p "C:\Converts\$BASEFILENAME.mp4"' $0
     
155. Pop $0
     
156. Pop $1
     
157. DetailPrint `Converting ... $1`
     
158. IfFileExists "C:\Converts\$BASEFILENAME.mp4" "NSIS.Done.Convert.Video" "NSIS.Failed.Convert.Video"
     
159. 
     
160. NSIS.Done.Convert.Video:
     
161. 
     
162. ${GetSize} "C:\Converts" "/M=$BASEFILENAME.mp4 /S=0K" $0 $1 $2
     
163. IfErrors 0 +2
     
164. StrCpy $0 $0 * 1024
     
165. IntCmp $0 100 +3 0 +3
     
166. IntCmp $0 0 +2 +2 0
     
167. IntOp $0 103 + 0
     
168. IntOp $0 $0 * 10
     
169. IntOp $0 $0 / 1024
     
170. StrCpy $1 "$0" "" -1
     
171. IntCmp $0 9 +3 +3 0
     
172. StrCpy $0 "$0" -1 ""
     
173. Goto +2
     
174. StrCpy $0 "0"
     
175. 
     
176. DetailPrint `NSIS was succesfully convert your video! ($0.$1 MiB)`
     
177. Abort
     
178. 
     
179. NSIS.Failed.Convert.Video:
     
180. DetailPrint `NSIS was failed convert your video!`
     
181. Abort
     
182. 
     
183. NSIS.Failed.Download.Video:
     
184. DetailPrint `NSIS was failed download your video!`
     
185. Abort
     
186. 
     
187. NSIS.Skyp.And.Continue:
     
188. DetailPrint `NSIS continue installing files ...`
     
189. Abort
     
190. 
     
191. Cancelled:
     
192. DetailPrint `NSIS was failed download files ...`
     
193. SetAutoClose true
     
194. SectionEnd
     
195. 
     
196. Function .onGUIEND
     
197. FunctionEnd  

复制代码