From 3effa5792a1036c75b0e8eb0836624bb7be6d432 Mon Sep 17 00:00:00 2001 From: hama3254 <52826614+hama3254@users.noreply.github.com> Date: Sun, 1 Jan 2023 16:34:18 +0100 Subject: [PATCH] added av1 support; code clean-up added av1 enoder options for intel, nvidia and software (libsvtav1) changed old CR language values to current ones. usage of 'is_dubbed' value from the objects json --- .vs/Crunchyroll Downloader/v17/.suo | Bin 187904 -> 179712 bytes Crunchyroll Downloader/CRD-Classes.vb | 20 +- Crunchyroll Downloader/ErrorDialog.vb | 2 +- Crunchyroll Downloader/Main.vb | 537 ++--- .../My Project/Resources.Designer.vb | 2025 +++++++++-------- .../einstellungen.Designer.vb | 155 +- Crunchyroll Downloader/einstellungen.resx | 3 - Crunchyroll Downloader/einstellungen.vb | 95 +- 8 files changed, 1417 insertions(+), 1420 deletions(-) diff --git a/.vs/Crunchyroll Downloader/v17/.suo b/.vs/Crunchyroll Downloader/v17/.suo index d94077ca3e1c7195c479b212677c7b91f6ddcaac..389da81e65fdd2ed682bf8aaae70492fc3a88525 100644 GIT binary patch delta 11198 zcmeHN30RcJ-GBeXg4`gkhz1b}Dk7|a9BMq4!wXT7P`n6o69@vrf=5&qHO55S%1**0 z(W)T^a~fq6)~M07@o20y#5US^;1T=fXp$PMR&65RZ*~`4(Fo2{nfcH8 z&i|PI%=_whx#_=gT{EI*S4B}Aft&5^?T8ctw7^vU{Ii3$Rp`mUN|Mwvfj2E3DS>7a-{P0*7Rt=oRS^fX2_ngM{GEN!6ovAX3hN8o&VUJrKtNu7IzN zHVE-ZAOwg5IA9j?8bzs9uF68- zF<>Z=5A+0LfMI|);0{CsgMl$X0T2!Z06st;pbO9skWVKEQX%%oAi;U0UYz zkPid=0J&xp?aGUhe#DkP4o(gLzs}{|r>X{xU#9t<%3F8B(OP?s$}wf|M<4QWWsu`a z9?P`kvE+3Jk0nj=*b(U9v837aSoZTHJg)r*CQHHj4wE~1EIXGxP6NKn1(L~+St_)*-;Y@Gcs3w;EbDag7jt3HeL>qmKE$*muvp(mH!PWo&Y^Z!s?&%xjLQ)0gdWqI%3g!_^ zMPrTCzN@I&)1MjreJ)U=Co{}XEj0@&JPK|!dko2yFSO(&7em!X-Px6Z3 zx-nBE)$M6erO83y?Ze(vEk&Yp2!46ErIzDSh(!fo@IbO`<9lZLOK~kD z)&CTTe*lgFa=nft{v$974S4>v-NvB6HV2+Q&6|5~bmytl)I4J2cyDQNWbM9)g8<{o zjq|Cwzdz&t-p&-q`-a}fwOv)t%TOleuycBjqtUO1U-ue>TF=W`-qB9K$9QSPb1n|x z6&L-mP;PwVia<+R<~z_q!$LNOGJYXX-Q5#?V;Y^|N#uXW2VRKtcowO(w$fMRPElXs z&0o3@*!N8v@h!wHz;;{yZNxhOGt5wr-g}XH*H*F*@j+W!js$V)!K44AuKk0J_#xtB zz{9{~8%3>~rMh3a28TWmk3)>9N2iMH#4E zwiR4Kd>!ZoxY=luEwUpwEH1z35eCi-aG_dImjIm%;X3bDXFVv(Z>M&(ND;r>Rl_%h z`twl^PR{c2a_wswbxT%LW0bRDsg4COUgN)n^=AC4|0EZZvv9Ys%etUK@5wAc5$hjk zL13~wzx;Z-$S!7TW9En==T3o-`>wznFOP9oiEaIuT0HdxD-~V0Qh>NPnFR@RE4!I+ z=(Ctt^J1bi4m@$@o05RAWiKqs{MDMjz4Y;yXC(u|5RY$%f{v~M716-S2VO6F#lQS&|p+3#RxOSqs zxpF+Iq-nHU>#EhlFqv%azkZhOX zxi{8FFFzq#_miKW8qL2!^KXHhK)Z}lr*S$H&B;t_)Gjnr!x7Tc=bZdT(>lIaTPw8h zlU5v^%(BF(Qs(QH2G65PDOakMN->qQNMl4+D;dIcZgOLi>_!kdI@W_Xgtbv0ULC%w zF_#%0){!r-ez=z0_?3qzJJ9S~GC-?%b#bkeD;la4*l38OW#NCxt&xG2jpxMQeNZq$XesNlI2~Dftq0A`;uTw2e0NA z+X8}`cMhI$zIE1HD;AD@bHM}eeb#H_gfr`(^3L-geZTGj?O~|B&?Ydm_}~o+;`;3Y zLYv6U23-=1xHUtr(@k+9sc&*m@0uj?MA9#zjo>Lu=ug zXfC4wzGb#&ZQIZnzby^BRBSlI_;@csJb`owcrF24PARCwRjm{+G%ds z$nrL(1i;mT5CuqS>kNf)){dsXFWIUn3pu?S*O0&lb@`pLc1`^L{VwCA8;Cel4x! z)diDzV%I3S-kZAO4`TSiWH#HFwW5*kkvTJD>gaJ^ojKXX;y=r+rc=}@kY7OoNtX4q zFW|a|^lky5$j3$yb(2_?NFB!_q}Up_u1<9{gj}X~_?3{!mIqqRs|P-)k_WBM&fTP$ zva|+q+apvfZkEzgu_m7~L_;}+x(|nNLXH&|9NKvNE4s!2W>6=(SbQXD2ReH)>Sq3e zI9p!n^mmX`{Q1J=H)ubver$>}tfu7%*ICzb3n&@<`m9Iq!Bc#hM&KAT)aQ6Itr+&_Zq7L;jfaxW>ei#kriDFG)_0&tlJ`%sx!dLEZ@n`9Zrk2_)*0fG z`PSL)JY!3!beM(9>+u zWNoFc{&R2|ELO^Jmr(=f@Mq{7i>{21Q1BD&%{0zE0aqDglti387b{}wH8>P{BmU-g zVWC3*C+f|8ng&=nuoDd}3LwIcF}JP{7U*=vWkpq*DqEt1RXpg;Z9t{?cpF*=Hn|$L zJIo}SlbD8U4*2lH2mDmqI{VTOVcv2DyrSZUbu7Wl9i=ph>ksP1|A)t!(YT9=x-P8e z-9J{-?T^)bNKY)Mn7?r##X$3Eix)PvSV>>)yp#m z|K=2Ve^+z3_kjqX@CduGcv0lANZ#wsg&lM6X<=yRGCNGdH1r2I8G{d>qQ*+rxScf~ zRW6qR*2m$)FAxtrwfLpYcv#Ru_>wnm{sS-h--*cXL$^ibM2(MK8>6c zfFse(4FNyq?&6~0B|X)qpsF+#@H~|bmFvp)oln>uQ#3N+L(j-hzWp@TB-8H=TQ;Hp z(;4#y|87KrLrQ4Ou}`{h?2|q+K{K<!x~E4qMS@#LA43 z3FZ+KcJNt^hp+ar)<>ESb8WMltDD1Ip)cm(dZp@{3b4#b_PH zH~A5BhDTw!lNKXtXsEc@L@ME4LlI)ldZgyp(5Qw@NL;HSjWEB6)Q%b&F8a@-6FlKa zs427;9dl?}POK?_oLW}WC35pchYuk^sd5~*C~U^keLJwqqvuAx3| zwt6^O&Jp!B)XzG8<{H`|QtB~|Z#~5d^Kw#|o?J@_B%FVR{DE~e!Zhkvlt#j^0hN+B z(0HNVfD+8vM_gEMoqd9}v(^_VSLo4&sN6&&M3nrKJ&NW{6fG9MNMl9BiZsZwkV1;LIdV&x8+FSNTzFWUByzsP)tf<;<73lX30r0K%26GFA+9ZKUzM-LRA?V@QyyBl@0 z_ku@T-ys!Ulh+XqX3%g=u~K9gGJn42jIUU@2W-=uN&C}uN-jx)(CwrY;klQZg}<4W zh^0qxKbzYxz+~Plbp|ug3hleJ&$N6YedExwPZISo37E~VupR3)_N zpK0Xa6dae;U~_QPklcct$il+#sK|n$;nBJI(c!tVk&)r~Lt}>J$L177WH{hy}8Do;Dj zhQ^AyS818>P(v;(L)5C+YP)Qgqm*yj(2bQ4trBw`Se`&;%zuIbkakWh>aS6#Yh`75 zWqxr^X?c;@=E5RqznJU6R=E{?hb|9FWZ6Z)-(s}=N7jJ{zZ}I1Z!y#ahIU~sO>(EO zvo)`Fn5Q4LEnSMGc~z>cMzeJ@EZ)7hE@I6<)=va>V@{s$%3Z<|+|3`U#Ns&i$gL-_ zvL6z*5ylYJV$Ldn~8qVj%1n+Vmd=|D z!duN^ENySE9My6NwjS)<`#2jd^uL9dwSt+gTkG5tY@i5#pSpFvE(rS0E$k)Xc;Y}@ zUGXx9MZaFMWBM$IhoVnCDyA1_Ja=Epy2Tlzju7R6Pg;4#l+7ipiU*Rj{d*(BJ7A*P&JtP4r$ zIwfW5Qp0Tal||OLb5Bp00K6hnwp&a9KXE7kgfI{S`QEHAMZ^^5FP1FDv0;54J1nh2 zn5i+3oh8~L8@wzcikPd_L6U4#5$DGWofGsJ(h%i^*uziZCn87mm^s*3f=nK;uyJ=6`w!rvVStZ3 zH>yqj=d%;^uV$V}Tf!@n-xFi)#)*Rjt$P4 zxb3SC+2FSq&ql|cKFQBg#1|j2bnB-U>SJ)RCi*aK!%2pN?+N*LlHCk^>Tg#f*0p#0 zx@5o7boJStElvG0HL;(mlGJO$t9%AI9}??NvEZnNk@yS}pVq7$gAafn#hbJ#__`6^ z*K-+)^4C6iT~mWsI0Nxr&F}F3#|5u&J{Olyu@qs(INUqUNxb$1OhoQU79jL}*i=z} znhoaKr)~sh-H4uHo_&rT_L*_*w}T_1r&Y~f892Oe>Z_+*-HJX6IgO7d)V%CLAAWwM z56>Rw&QIj}ckxs6z-7MIM0^5^=gZ&EzT>4WycpE^`BBA1-yi%4<-f~px6Jaw=6?ZC Ciaq)O delta 12060 zcmeHN3s{s@`v2a;0K-*KM6?k`CAA$PBWLxX9c3uD5Zfm<*UP=xBzcUvcl`dAh&p!L~@%-kz=k}iW zyyt!2^PTfyxfEzQ7_@O{_dG>We1W#hmoFnx2p9+S=O4|A*;loetgIq*W|F>W-c5g` z$+E>pzL+hh5&SHx_uYm33cko^EI-7OLVBUI*(BR2N(d)Sw|Xro$vFb)bRZo_1qJ|F zKn5@n7zP9ZX+S2>3Frm*0qA~Nhjb*+7w8H21L1%kNCr*-Lx4Eo79bc%RFrz(M zQi!hs4e0KGWI7mWn42~tO#ns#U4g#<(LiS)28aZbfHGh>kOE|rq6Eqmko-cC=AcZ{ z^FjB)_{w`AO56=(g?ywS-cPJo{r`fV226FAz3WbIM_LFx1Iz%90mZ;Yq;r8PpvGM$+ivrsyGTRWRHc=6aBAg=8Q*OO_1<M>3`u()k7daGwU*Hh{G@etU>WtwXjJHdj!a_^%3&Jqmf;yp zI)Su|>43*Fq?z8hWnk64O(P3TawK3H(%xOBam6yE-FwW_qalw_Kgcr5!SK6GBOYyj zGRp|oX`-2;aD8BYa8D3&HZiiGE>N$L8QvIZ>M4m#lnw!g0>c1V=ES~YAF}>bd=hoP z(uFauOYAGd5;rHd@Wb~d@!CNXedvD_vBQ_eaRbxxGlLTCy*s~8)~z`KBtwP|AX+w4 zEUGnj^HxN^(3}88gJKyd+N)@|y*6|W*`ioOFrCpnioNL0KWm-H5BVg~dS1&Xi$-52MaGOy#@qD+J|yc*GX?V6nU~3**A}mF za;=UfcC**)%{6QHhv}GImwdwCTCL+c-5$+Sk33QV{ERLyfMCtaz23#X$1&YjH-?Q7Gk?J%?1e*rsTGI9D1~ChS7DT=De>+k%;A);m9cxK zcd`Am2D}cm zcQ8&qA~tQHXmP5Xh1nCwANA$C_C)fjxAs!gnwSsu+PrKW2fILJju6 z{lzW}qe}!i2rvLiKr%2GFao^gVMACJ2+3~*_}vA1Q}KfV6-e&}`nk4hL^@XXYW1jTO4gYakjde?&r0uCkBv=?LB~Ym!aPL?COa;XZZxa zaZPEE9(7XyJYv~4HqJhFMl)UGiMA4EU4F>vBkTCt<@L0h*WL%8VM%_{5*`k>Unuiq z)>1RY@Y>RPisolaoz-*)uPv+hl~H-L{i`{BwRZiRaH#nswQ}2)#aA4bTjnD?^hTN7 zIj)pj7no@SuU)XldcsTryte#aT4n$0L_JZOeNp5}64hgv$!@ycLAE+(4eQMx9-!mH zef+cru#xXL?K8KV4Qt6}VLvXgShtz|J^|YkNqq6P3-kuB-JYkFmgDC=R?thx$@dOC z;;nL4B&v3^9`=PRRuLi-x10>Khg~>D!rGbH_}-#Wd(+x{-;M%R7Psx``m+<=m=le0 zInid_gHXR*n}?9@0Cob6z%GCkGbDE#AD(VMD*jc1TM3w-Tv;prjW(L>9$ zP38ebMy8*m`wd6;@$Tq;O@Ot=>LRqzs$5(TB9Z5Y*wJC0f?n32etJ~{mkb|BE^g3#)W6){6sf%X|cAm!apx;Dm48J6uBI_3bs!*=9c z%&_beGaDTZ{MH47-WZzwYR0`|;Zm8jUFm-RJij-dwzL7MfA(A4*lt_vfjtI&ONq4F#dqVCM9H{xeb2stEPkX4B zB1uF116y}KqA`H)wpa6V`v}@2XW;L(I>G6fUYcuqkIBlQ3B_|N6X%!I-D5B`kEZ3M z83oSbl`)hq9An62Yhlb_;Nknba6@A!T~eCyihiDexFa(Q^Q-6HSvJdDW;Z?OAnV~c zd)&cR5+y+luh8#e%kE%rU+lfNzv0hphnd)~Wr;koxwF`Gp2qXWJuV~RtNfy? zvK`gfjx*aaX8p@T_uBxsb&pfy^wjE)m)-D{n4Gl9`+?QK8s0xXEkruhcI0G0d(7pK zI{s+9zE`=s@JXaHSU=^?KaEr_=?iFlQ};ve(wE(-WFwz9P}_|g6C&u3vR!~2=1*vI zo6Ob!pI2)cr=4BgKc6E1ci<%8iP`eyNXF}2_|xY|&jH?j&LjUNZ~>4}`XX=%2u6GF zcKJBIRx8DJ{|jG{?H|{jv2HBz#4aS;Np`)jd;7Py-~S7J-Om{uZq&KN^f45m28^bA zuJw^eqA1$d7WzmfF;S965%%CO;z>2tkVDfvoO)};`Z0K~#ko+`j;E(drLj~`!U4BN zhh^hvpqLy%QNl3}elCBw^^4*5;iq0C)iRD4Q&~K<1zb0PFr|@Ww`Bq`KIw9znwUvP z{YB>qv|QEXQyuZ6ZF|+d*)$1U3dq7#%M^s!=8>dfLNkr(8juyH0-B~Cn@0UuNUXmr zLeduoT3B5=stO#0F0 zD*Bv4rjn*mX2ryJkWR}BB~HEn}qfri2TxG8tR;ZntcyV zB(Zu4RtrC!#qCSTASb91kxM99yjDk}Wy4Ilz8cYj+J?n+Ld1^qfp-ZS|?GkfqIMl@oYBVVU7}wn`tKhM^i3eu`iQb_L-=aQ`87y zC_&u$?g{B6{{-hKuCcs-uO9b5V%lMOtX!;ap!p43C{j$_LIZ?p3s$0YJnJX^Drj1R zAPYY_qQCgtR=QPK1eQwQh-IzX3h)2YsT$J*=zvRtRbqGuOBRc_Q?4ixFz(8&6e>n< zqlKd40n&>6MhX+hwo^Z`=K;!>*(TNTcSO$y+#K#UeTJZE0wpZJcJup|_2}p%Z)#=? zp%~(ThYz#37WTVl7-cO)i2pVEm`+m*_!4 zcY(5iyYqui;A=|+3Sv`=)00ZmjK+jyV@6VfF==pdLP=R^Swd=Q#^Bk8SxHIhWrjf9 zHFjsEBJTiIhRmuiEvlGPV=kJ5H*4|20ch6oBCYMH{Qg7KVJEsk>h?NWV z&T)dU$_cY7ifd}hYUCOZB!@_PlGa>b?v!hm`q?46lf;{6DcP^qJZEm@aPh)n>NcPb z=MQ6cdRBINaza*0T5^IhcT{ddMoP}8gp}muWTVlTotm9$Tv9h*{O&9zdH3~m^%e8p zqYM?6SMr}H+aqU)_5SY33Da@-0W?$@P+U3Z?y{od(o&~V#pwgI_L?#kYj=$3vQ+mh zXD9LO0U9I>Ptr5ASuW1K|NbG5j$EX#avcW?Ys$>#IhDVxN%Rm{r__C@JJ>5jM2ZQs;oZVTVp)3bDo4ix378>YV$5`$x@)Wko(W z>g(a57(OA#6%}x|Ky^G^t>o&SP`X(ZoQD>k+7rS$EEO(Iq$asEaYwr_5e~E3V-Q>H z)Afb+GQH!^po4*tKWRki|9zuTB<`{zeP|8I`3Xx4^~4(>CTQ%aOcY$A{$YdD4OeMc zWE`ivr2B@7xd$lkr}LjlKe_+h$j;*BHg|~di!?^Ocb>Xk6T&(QYn_6#oS`qPv{YKo zVyESl+k>eOblqEgbe_6=zrF2eH~bg5q3Cg*{@`=%()5v@J4~#sa#2hjzayx> z?adaD{*31YfW0OF-x2P?TFHp&BNq*iC^$+wZmAzAPY2v&cF?EtWW-Ii4!T8s>|3@gkg}veCEoS&K$$Y3N9>`wzI;}k5A&?I7Ko~|@;ks3<|n89iewvsCc(1FL-Kz-8ik{P74jY9^rCJWdy^ej zL{$!(Dt6q?s-b`9%Dg{4lDB-&g96o%JJ=yc7o4LB=sKE4i8rRRzqy!0ph#a|NPEfE zAX>wsA^#ARoDy$MhlUG7SwEb7*Ojnmt|%AXdXPpgrxXLy=|ph^RIsXnBGkCe?3Ayt z<+&GPeK70nn+b*ooC*|8+gKc3!b~6Ml|>W9OAoT=)Q!7YB+p=~EY7`D->n zSRO@>t18iZiP&FA(JBPC;ofi@q&Zwa)Ol#;mX>H?EoVFA$C~;rHRl(m9+^}4^3ALF zXRi1-`n0L(i@H%+6?YDw-EHIZ+odD4--xfo;kg=@g^MysS%zE8Ee)h>!~YsaYnj6F zh3wrBro0LD>|V~40;DDXWXj99iXV89DF;yhiPlGn)?ML;oA$2G+xCST7Xw3}ivdrv zNATgdM)CNuQ-t9%#oT~D$9#uBi)B&N_h)xT6!JLm&+h!6QX1 zSn_{E1bF@nd=Zl2plxT6Sg;5G%IEn{Ij35(Z%i%tB8aHw`O4RKo}z3R*B)>>9^nTl zeu~(5p0cFW; 0 Then - For i As Integer = 0 To SoftSubs.Count - 1 - If CBool(InStr(VideoJson, Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + SoftSubs(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34))) Then - SoftSubs2.Add(SoftSubs(i)) - Else - ' - 'MsgBox("Softsubtitle for " + SoftSubs(i) + " is not avalible.", MsgBoxStyle.Information) - End If - Next - End If - Dim SoftSubMergeURLs As String = Nothing - Dim SoftSubMergeMaps As String = " -map 0:v -map 0:a" - Dim SoftSubMergeMetatata As String = Nothing - Dim IndexMoveMap As Integer = 1 - If CR_MetadataUsage = True Then - IndexMoveMap = 2 - End If - If SoftSubs2.Count > 0 Then - If MergeSubs = True And SubsOnly = False Then - Dim DispositionIndex As Integer = 69 - Debug.WriteLine("Softsubs Default: " + DefaultSubCR) - For i As Integer = 0 To SoftSubs2.Count - 1 - Debug.WriteLine("Softsubs: " + SoftSubs2(i)) - - If SoftSubs2(i) = DefaultSubCR Then - DispositionIndex = i - End If - Dim SoftSub As String() = VideoJson.Split(New String() {Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + SoftSubs2(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) - Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)}) - Dim SoftSub_3 As String = SoftSub_2(0).Replace("&", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\u0026", "&") - If SoftSubMergeURLs = Nothing Then - SoftSubMergeURLs = " -i " + Chr(34) + SoftSub_3 + Chr(34) - Else - SoftSubMergeURLs = SoftSubMergeURLs + " -i " + Chr(34) + SoftSub_3 + Chr(34) - End If - SoftSubMergeMaps = SoftSubMergeMaps + " -map " + (i + IndexMoveMap).ToString - If SoftSubMergeMetatata = Nothing Then - SoftSubMergeMetatata = " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubs2(i)) + " -metadata:s:s:" + i.ToString + " title=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) + " -metadata:s:s:" + i.ToString + " handler_name=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) - Else - SoftSubMergeMetatata = SoftSubMergeMetatata + " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubs2(i)) + " -metadata:s:s:" + i.ToString + " title=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) + " -metadata:s:s:" + i.ToString + " handler_name=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) - End If - Next - Debug.WriteLine("-disposition:s: " + DispositionIndex.ToString) - - If DispositionIndex = 69 Then - Else - SoftSubMergeMetatata = SoftSubMergeMetatata + " -disposition:s:" + DispositionIndex.ToString + " default" - End If - Else - For i As Integer = 0 To SoftSubs2.Count - 1 - Dim i2 As Integer = i - Me.Invoke(New Action(Function() As Object - Anime_Add.StatusLabel.Text = "Status: downloading subtitle file " + HardSubValuesToDisplay(SoftSubs2(i2)) - Me.Text = "Status: downloading subtitle file " + HardSubValuesToDisplay(SoftSubs2(i2)) - Me.Invalidate() - Return Nothing - End Function)) - Dim SoftSub As String() = VideoJson.Split(New String() {Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + SoftSubs2(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) - Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)}) - Dim SoftSub_3 As String = SoftSub_2(0).Replace("&", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\u0026", "&") - 'MsgBox(SoftSub_3) - Dim str0 As String = Nothing - If System.Environment.OSVersion.Version.Major < 10 Then - str0 = Curl(SoftSub_3) - Else - Dim client0 As New WebClient - client0.Encoding = Encoding.UTF8 - str0 = client0.DownloadString(SoftSub_3) 'Curl(SoftSub_3) - End If - - 'MsgBox(str0) - Dim Pfad3 As String = Pfad2.Replace(Chr(34), "") - Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + "." + GetSubFileLangName(SoftSubs2(i)) + Path.GetExtension(Pfad3)), "ass") - 'MsgBox(FN) - If i = 0 And IncludeLangName = False Then - FN = Path.ChangeExtension(Path.GetFileName(Pfad3), "ass") - 'MsgBox(FN) - End If - Dim Pfad4 As String = Path.Combine(Path.GetDirectoryName(Pfad3), FN) - 'MsgBox(Pfad4) - 'File.WriteAllText(Pfad4, str0, Encoding.UTF8) - WriteText(Pfad4, str0) - Pause(3) - Next - End If - End If -#End Region #Region "m3u8 suche" @@ -1619,19 +1539,21 @@ Public Class Main For Each MetaEntrys As JProperty In item.Values Select Case MetaEntrys.Name Case "audio_locale" - If CR_audio_locale IsNot "ja-JP" Then + If CR_audio_isDubbed = True Then Dim AudioTag As String = MetaEntrys.Value.ToString CR_audio_locale = String.Join(" ", AudioTag.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "") + Else + CR_audio_locale = "ja-JP" End If - Case "subtitles" - Dim SubtitleSubData As List(Of JToken) = MetaEntrys.Children().ToList - For Each SubtitleSubItem As JObject In SubtitleSubData - 'MsgBox(SubtitleSubItem.Children().ToList.Count.ToString) - If SubtitleSubItem.Children().ToList.Count > 2 Then - CR_audio_locale = "ja-JP" - End If - Exit For - Next + 'Case "subtitles" + ' Dim SubtitleSubData As List(Of JToken) = MetaEntrys.Children().ToList + ' For Each SubtitleSubItem As JObject In SubtitleSubData + ' 'MsgBox(SubtitleSubItem.Children().ToList.Count.ToString) + ' If SubtitleSubItem.Children().ToList.Count > 2 Then + ' CR_audio_locale = "ja-JP" + ' End If + ' Exit For + ' Next End Select Next @@ -1696,112 +1618,160 @@ Public Class Main End If #End Region -#Region "lösche doppel download" - Dim Pfad5 As String = Pfad2.Replace(Chr(34), "") - If My.Computer.FileSystem.FileExists(Pfad5) And SubsOnly = False Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung - Me.Invoke(New Action(Function() As Object - Anime_Add.StatusLabel.Text = "Status: The file video already exists." - Me.Text = "Status: The file video already exists." - Me.Invalidate() - Return Nothing - End Function)) - If MessageBox.Show("The file " + Pfad5 + " already exists." + vbNewLine + "You want to override it?", "File exists!", MessageBoxButtons.OKCancel) = DialogResult.OK Then - Try - My.Computer.FileSystem.DeleteFile(Pfad5) - Catch ex As Exception - End Try + +#Region "GetResolution" + + If Reso = 42 And HybridMode = False Then + + ffmpegInput = "-i " + Chr(34) + CR_URI_Master + Chr(34) + + Else + + Dim str As String = Nothing + + str = Curl(CR_URI_Master) + + If CBool(InStr(str, "x" + Reso.ToString + ",")) Then + ResoUsed = "x" + Reso.ToString Else - Grapp_RDY = True - Exit Sub + If CBool(InStr(str, ResoSave + ",")) Then + ResoUsed = ResoSave + Else + Me.Invoke(New Action(Function() As Object + DialogTaskString = "Resolution" + ResoNotFoundString = str + ErrorDialog.ShowDialog() + Return Nothing + End Function)) + If UserCloseDialog = True Then + Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34)) + Else + ResoUsed = ResoBackString + ResoSave = ResoBackString + End If + End If + End If + Dim ffmpeg_url_3 As String = Nothing + Dim LineChar As String = vbLf + If CBool(InStr(str, vbCrLf)) Then + LineChar = vbCrLf + ElseIf CBool(InStr(str, vbCr)) Then + LineChar = vbCr + End If + Dim ffmpeg_url_1 As String() = str.Split(New String() {LineChar}, System.StringSplitOptions.RemoveEmptyEntries) + + For i As Integer = 0 To ffmpeg_url_1.Count - 2 'Step 2 + If CBool(InStr(ffmpeg_url_1(i), ResoUsed + ",")) Then + ffmpeg_url_3 = ffmpeg_url_1(i + 1) + End If + Next + + + ffmpegInput = "-i " + Chr(34) + ffmpeg_url_3.Trim() + Chr(34) + + End If + + + +#End Region + +#Region "GetSoftsubs" + Dim SoftSubsAvailable As New List(Of String) + + Dim SoftSubsList As New List(Of CR_Subtiles) + + If SoftSubs.Count > 0 Then + For i As Integer = 0 To SoftSubs.Count - 1 + If CBool(InStr(VideoJson, Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + SoftSubs(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34))) Then + SoftSubsAvailable.Add(SoftSubs(i)) + End If + Next + End If + + If SoftSubsAvailable.Count > 0 Then + + Debug.WriteLine("Softsubs Default: " + DefaultSubCR) + + For i As Integer = 0 To SoftSubsAvailable.Count - 1 + + Dim SoftSub As String() = VideoJson.Split(New String() {Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + SoftSubsAvailable(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) + Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)}) + Dim SoftSub_3 As String = SoftSub_2(0).Replace("&", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\u0026", "&") + SoftSubsList.Add(New CR_Subtiles(SoftSubsAvailable(i), HardSubValuesToDisplay(SoftSubsAvailable(i)), " -i " + Chr(34) + SoftSub_3 + Chr(34), i.ToString, SoftSubsAvailable(i) = DefaultSubCR)) + + Next + + + If MergeSubs = True And SubsOnly = False Then + Dim DispositionIndex As Integer = 69 + Dim SoftSubMergeURLs As String = "" + Dim SoftSubMergeMaps As String = " -map 0:v -map 0:a" + Dim SoftSubMergeMetatata As String = "" + Dim IndexMoveMap As Integer = 1 + If CR_MetadataUsage = True Then + IndexMoveMap = 2 + End If + + For i As Integer = 0 To SoftSubsList.Count - 1 + + SoftSubMergeURLs = SoftSubMergeURLs + " " + SoftSubsList(i).Url + SoftSubMergeMaps = SoftSubMergeMaps + " -map " + (i + IndexMoveMap).ToString + SoftSubMergeMetatata = SoftSubMergeMetatata + " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubsList(i).SubLangValue) + " -metadata:s:s:" + i.ToString + " title=" + Chr(34) + SoftSubsList(i).SubLangName + Chr(34) + " -metadata:s:s:" + i.ToString + " handler_name=" + Chr(34) + SoftSubsList(i).SubLangName + Chr(34) + + If SoftSubsList(i).DefaultSub = True Then + DispositionIndex = i + End If + + Next + + Debug.WriteLine("-disposition:s: " + DispositionIndex.ToString) + + If DispositionIndex < 69 Then + SoftSubMergeMetatata = SoftSubMergeMetatata + " -disposition:s:" + DispositionIndex.ToString + " default" + End If + + If CR_MetadataUsage = False Then + ffmpegInput = ffmpegInput + " " + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command_temp + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + Else + ffmpegInput = ffmpegInput + " -i " + Chr(34) + Mdata_File + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " -map_metadata 1 " + ffmpeg_command_temp + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + + End If + + Else + + For i As Integer = 0 To SoftSubsList.Count - 1 + Dim i2 As Integer = i + Me.Invoke(New Action(Function() As Object + Anime_Add.StatusLabel.Text = "Status: downloading subtitle file " + SoftSubsList(i2).SubLangName + Me.Text = "Status: downloading subtitle file " + SoftSubsList(i2).SubLangName + Me.Invalidate() + Return Nothing + End Function)) + + Dim SubText As String = "" + SubText = Curl(SoftSubsList(i2).Url.Replace(" -i ", "").Replace(Chr(34), "")) + Dim Pfad3 As String = Pfad2.Replace(Chr(34), "") + Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + "." + GetSubFileLangName(SoftSubsList(i2).SubLangValue) + Path.GetExtension(Pfad3)), "ass") + If i = 0 And IncludeLangName = False Then + FN = Path.ChangeExtension(Path.GetFileName(Pfad3), "ass") + End If + Dim Pfad4 As String = Path.Combine(Path.GetDirectoryName(Pfad3), FN) + WriteText(Pfad4, SubText) + Pause(3) + Next + + If CR_MetadataUsage = False Then + ffmpegInput = ffmpegInput + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp + Else + ffmpegInput = ffmpegInput + " -i " + Chr(34) + Mdata_File + Chr(34) + " -map_metadata 1" + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp + End If End If End If + + ffmpegInput = RemoveExtraSpaces(ffmpegInput) #End Region - If SubsOnly = False Then - If Reso = 42 And HybridMode = False Then - If MergeSubs = True And CR_MetadataUsage = False Then - URL_DL = "-i " + Chr(34) + CR_URI_Master + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command_temp + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) - ElseIf MergeSubs = False And CR_MetadataUsage = False Then - URL_DL = "-i " + Chr(34) + CR_URI_Master + Chr(34) + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp - ElseIf MergeSubs = True And CR_MetadataUsage = True Then - URL_DL = "-i " + Chr(34) + CR_URI_Master + Chr(34) + "-i " + Chr(34) + Mdata_File + Chr(34) + "-map_metadata 1" + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command_temp + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) - ElseIf MergeSubs = False And CR_MetadataUsage = True Then - URL_DL = "-i " + Chr(34) + CR_URI_Master + Chr(34) + "-i " + Chr(34) + Mdata_File + Chr(34) + "-map_metadata 1" + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp - - End If - 'MsgBox(URL_DL) - Else - - Dim str As String = Nothing - - If System.Environment.OSVersion.Version.Major < 10 Then - str = Curl(CR_URI_Master) - Else - Dim client As New System.Net.WebClient - client.Encoding = Encoding.UTF8 - str = client.DownloadString(CR_URI_Master) - End If - - 'MsgBox(str) - If CBool(InStr(str, "x" + Reso.ToString + ",")) Then - ResoUsed = "x" + Reso.ToString - Else - 'MsgBox(str) - If CBool(InStr(str, ResoSave + ",")) Then - ResoUsed = ResoSave - Else - Me.Invoke(New Action(Function() As Object - DialogTaskString = "Resolution" - ResoNotFoundString = str - ErrorDialog.ShowDialog() - Return Nothing - End Function)) - 'MsgBox(ResoBackString) - If UserCloseDialog = True Then - Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34)) - Else - 'MsgBox(ResoBackString) - ResoUsed = ResoBackString - ResoSave = ResoBackString - End If - End If - End If - Dim ffmpeg_url_3 As String = Nothing - Dim LineChar As String = vbLf - If CBool(InStr(str, vbCrLf)) Then - LineChar = vbCrLf - ElseIf CBool(InStr(str, vbCr)) Then - LineChar = vbCr - End If - Dim ffmpeg_url_1 As String() = str.Split(New String() {LineChar}, System.StringSplitOptions.RemoveEmptyEntries) - - For i As Integer = 0 To ffmpeg_url_1.Count - 2 'Step 2 - If CBool(InStr(ffmpeg_url_1(i), ResoUsed + ",")) Then - ffmpeg_url_3 = ffmpeg_url_1(i + 1) - End If - Next - 'MsgBox(ffmpeg_url_3) - Debug.WriteLine("Line 2120-CR_audio_locale: " + CR_audio_locale) - - If MergeSubs = True And CR_MetadataUsage = False Then - URL_DL = "-i " + Chr(34) + ffmpeg_url_3.Trim() + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command_temp + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) - ElseIf MergeSubs = False And CR_MetadataUsage = False Then - URL_DL = "-i " + Chr(34) + ffmpeg_url_3.Trim() + Chr(34) + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp - ElseIf MergeSubs = True And CR_MetadataUsage = True Then - URL_DL = "-i " + Chr(34) + ffmpeg_url_3.Trim() + Chr(34) + " -i " + Chr(34) + Mdata_File + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " -map_metadata 1" + " " + ffmpeg_command_temp + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) - ElseIf MergeSubs = False And CR_MetadataUsage = True Then - URL_DL = "-i " + Chr(34) + ffmpeg_url_3.Trim() + Chr(34) + " -i " + Chr(34) + Mdata_File + Chr(34) + " -map_metadata 1" + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp - - End If - - 'If MergeSubs = True And CR_MetadataUsage = False Then - ' URL_DL = "-i " + Chr(34) + ffmpeg_url_3(0).Trim() + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) - 'Else - ' URL_DL = "-i " + Chr(34) + ffmpeg_url_3(0).Trim() + Chr(34) + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp - 'End If - End If - End If #Region "thumbnail" Dim thumbnail As String() = ObjectJson.Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries) Dim thumbnail3 As String = "" @@ -1823,23 +1793,25 @@ Public Class Main #End Region #Region "item constructor" - Dim SubType_Value As String = Nothing 'HardSubValuesToDisplay(SubSprache2.Replace(Chr(34), "")) - - 'MsgBox(CR_HardSubLang) +#Region "Display Hard_Softsubs" + Dim SubType_Value As String = Nothing If Not CR_HardSubLang = "" Then SubType_Value = "Hardsub: " + HardSubValuesToDisplay(CR_HardSubLang) End If - - If SoftSubs2.Count > 0 And CR_HardSubLang = "" Then + If SoftSubsList.Count > 0 And CR_HardSubLang = "" Then SubType_Value = "Softsubs: " - For i As Integer = 0 To SoftSubs2.Count - 1 - SubType_Value = SubType_Value + HardSubValuesToDisplay(SoftSubs2(i)) - If i < SoftSubs2.Count - 1 Then + For i As Integer = 0 To SoftSubsList.Count - 1 + SubType_Value = SubType_Value + SoftSubsList(i).SubLangName + If i < SoftSubsList.Count - 1 Then SubType_Value = SubType_Value + ", " End If Next End If +#End Region + +#Region "Display Resolution" + Dim ResoHTMLDisplay As String = Nothing Dim ResoHTML As String() = ResoUsed.Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries) @@ -1854,18 +1826,17 @@ Public Class Main If Reso = 42 And HybridMode = False Then ResoHTMLDisplay = "[Auto]" End If +#End Region + - Pfad_DL = Pfad2 Dim L1Name_Split As String() = WebsiteURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim L1Name As String = L1Name_Split(1).Replace("www.", "") + " | Dub : " + HardSubValuesToDisplay(CR_audio_locale) - If SubsOnly = True Then - URL_DL = "-i [Subtitles only]" - End If + 'MsgBox(URL_DL) Me.Invoke(New Action(Function() As Object - ListItemAdd(Path.GetFileName(Pfad_DL.Replace(Chr(34), "")), L1Name, L2Name, ResoHTMLDisplay, SubType_Value, thumbnail3, URL_DL, Pfad_DL) + ListItemAdd(Path.GetFileName(Pfad2.Replace(Chr(34), "")), L1Name, L2Name, ResoHTMLDisplay, SubType_Value, thumbnail3, ffmpegInput, Pfad2) Return Nothing End Function)) 'liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_title + "
" + CR_season_number + " " + CR_episode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "") @@ -1933,41 +1904,7 @@ Public Class Main Return Nothing End Try End Function - 'Function ConvertCC(ByVal CC As String) As String - ' Try - ' If CC = "deDE" Then - ' Return "de-DE" - ' ElseIf CC = "enUS" Then - ' Return "en-US" - ' ElseIf CC = "ptBR" Then - ' Return "pt-BR" - ' ElseIf CC = "esLA" Then - ' Return "es-LA" - ' ElseIf CC = "es-419" Then - ' Return "es-419" - ' ElseIf CC = "frFR" Then - ' Return "fr-FR" - ' ElseIf CC = "arME" Then - ' Return "ar-ME" - ' ElseIf CC = "ar-SA" Then - ' Return "ar-SA" - ' ElseIf CC = "ruRU" Then - ' Return "ru-RU" - ' ElseIf CC = "itIT" Then - ' Return "it-IT" - ' ElseIf CC = "esES" Then - ' Return "es-ES" - ' ElseIf CC = "jaJP" Then - ' Return "ja-JP" - ' ElseIf CC = "None" Then - ' Return "" - ' Else - ' Return CB_SuB_Nothing - ' End If - ' Catch ex As Exception - ' Return Nothing - ' End Try - 'End Function + #End Region Private Sub Btn_Close_Click(sender As Object, e As EventArgs) Handles Btn_Close.Click @@ -3236,7 +3173,7 @@ Public Class Main Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim L1Name As String = L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub Me.Invoke(New Action(Function() As Object - ListItemAdd(Pfad_DL, L1Name, DefaultName, ResoHTMLDisplay, Funimation_m3u8_MainVersion, thumbnail4, Funimation_m3u8_final, DownloadPfad, "FM") + ListItemAdd(DownloadPfad, L1Name, DefaultName, ResoHTMLDisplay, Funimation_m3u8_MainVersion, thumbnail4, Funimation_m3u8_final, DownloadPfad, "FM") Return Nothing End Function)) 'liList.Add(My.Resources.htmlvorThumbnail + thumbnail4 + My.Resources.htmlnachTumbnail + FunimationTitle + "
" + FunimationSeason + " " + FunimationEpisode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "") @@ -4281,13 +4218,13 @@ Public Class Main Sub FillArray() ' - SubSpracheEnum.Add(New NameValuePair("[ null ]", "None", Nothing)) + SubSpracheEnum.Add(New NameValuePair("[ null ]", Nothing, Nothing)) SubSpracheEnum.Add(New NameValuePair("Deutsch", "de-DE", Nothing)) SubSpracheEnum.Add(New NameValuePair("English", "en-US", "en")) SubSpracheEnum.Add(New NameValuePair("Português (Brasil)", "pt-BR", "pt")) SubSpracheEnum.Add(New NameValuePair("Español (LA)", "es-419", "es")) SubSpracheEnum.Add(New NameValuePair("Français (France)", "fr-FR", Nothing)) - SubSpracheEnum.Add(New NameValuePair("العربية (Arabic)", "ar-ME", Nothing)) + SubSpracheEnum.Add(New NameValuePair("العربية (Arabic)", "ar-SA", Nothing)) SubSpracheEnum.Add(New NameValuePair("Русский (Russian)", "ru-RU", Nothing)) SubSpracheEnum.Add(New NameValuePair("Italiano (Italian)", "it-IT", Nothing)) SubSpracheEnum.Add(New NameValuePair("Español (España)", "es-ES", Nothing)) diff --git a/Crunchyroll Downloader/My Project/Resources.Designer.vb b/Crunchyroll Downloader/My Project/Resources.Designer.vb index 21dddd1..03fc062 100644 --- a/Crunchyroll Downloader/My Project/Resources.Designer.vb +++ b/Crunchyroll Downloader/My Project/Resources.Designer.vb @@ -1,1012 +1,1013 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - -Imports System - -Namespace My.Resources - - 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - ''' - ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Crunchyroll_Downloader.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set - resourceCulture = value - End Set - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property about_icon() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("about_icon", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property add_mass_cancel() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("add_mass_cancel", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property add_mass_cancel_hover() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("add_mass_cancel_hover", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die {"sources":[{"file":" ähnelt. - ''' - Friend ReadOnly Property AoD_files() As String - Get - Return ResourceManager.GetString("AoD_files", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <h1 itemprop="name"> ähnelt. - ''' - Friend ReadOnly Property AoD_HTML_Anime_Title() As String - Get - Return ResourceManager.GetString("AoD_HTML_Anime_Title", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <h3 class="episodebox-title" title=" ähnelt. - ''' - Friend ReadOnly Property AoD_HTML_Episode_Title() As String - Get - Return ResourceManager.GetString("AoD_HTML_Episode_Title", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die "image":" ähnelt. - ''' - Friend ReadOnly Property AoD_Image() As String - Get - Return ResourceManager.GetString("AoD_Image", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die "mediaid": ähnelt. - ''' - Friend ReadOnly Property AoD_MediaID() As String - Get - Return ResourceManager.GetString("AoD_MediaID", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die "title":" ähnelt. - ''' - Friend ReadOnly Property AoD_Titel() As String - Get - Return ResourceManager.GetString("AoD_Titel", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die [Script Info] - '''; Template for error handling in the Crunchyrol Downloader by hama3254 https://github.com/hama3254/Crunchyroll-Downloader-v3.0 - '''; ass file from https://github.com/Aegisub/Aegisub/blob/master/automation/v4-docs/template-scripting-ideas.ass - '''; Script generated by Aegisub v2.00 PRE-RELEASE (SVN r939, jfs) - '''; http://www.aegisub.net - '''Title: Default Aegisub file - '''ScriptType: v4.00+ - '''WrapStyle: 0 - '''PlayResX: 640 - '''PlayResY: 480 - '''Video Aspect Ratio: 0 - '''Video Zoom: 6 - '''Video Position: 0 - ''' - '''[V4+ Styles] ''' [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - ''' - Friend ReadOnly Property ass_template() As String - Get - Return ResourceManager.GetString("ass_template", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property balken() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("balken", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property balken_console() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("balken_console", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <img id="footer_country_flag" src="https://www.crunchyroll.com/i/country_flags/ ähnelt. - ''' - Friend ReadOnly Property CC_String() As String - Get - Return ResourceManager.GetString("CC_String", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die display_episode_number":" ähnelt. - ''' - Friend ReadOnly Property CR_Episode_Nr() As String - Get - Return ResourceManager.GetString("CR_Episode_Nr", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <meta property="og:url" content=" ähnelt. - ''' - Friend ReadOnly Property CR_Head_Url_Split() As String - Get - Return ResourceManager.GetString("CR_Head_Url_Split", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <h4 id="showmedia_about_name" class="strong">“ ähnelt. - ''' - Friend ReadOnly Property CR_MediaName() As String - Get - Return ResourceManager.GetString("CR_MediaName", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ”</h4> ähnelt. - ''' - Friend ReadOnly Property CR_MediaName2() As String - Get - Return ResourceManager.GetString("CR_MediaName2", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die </span> ähnelt. - ''' - Friend ReadOnly Property CR_MovieBT() As String - Get - Return ResourceManager.GetString("CR_MovieBT", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <span itemprop="name"> ähnelt. - ''' - Friend ReadOnly Property CR_MovieTop() As String - Get - Return ResourceManager.GetString("CR_MovieTop", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die seasonNumber":" ähnelt. - ''' - Friend ReadOnly Property CR_Season_Nr() As String - Get - Return ResourceManager.GetString("CR_Season_Nr", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property crdSettings_Button_SafeExit() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("crdSettings_Button_SafeExit", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property crdSettings_Button_SafeExit_hover() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("crdSettings_Button_SafeExit_hover", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property DialogNotFound_Submit() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("DialogNotFound_Submit", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property DialogNotFound_Submit_hover() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("DialogNotFound_Submit_hover", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property download_subs() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("download_subs", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property download_subs_hover() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("download_subs_hover", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"> - '''<html><head> - '''<title>404 Not Found</title> - '''</head><body> - '''<h1>Not Found</h1> - '''<p>The requested URL was not found on this server.</p> - '''<hr> - '''<address>Server at Crunchyroll Downloader Port 8080</address> - '''</body></html> ähnelt. - ''' - Friend ReadOnly Property Error_404() As String - Get - Return ResourceManager.GetString("Error_404", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ;FFMETADATA1 - '''title=[Titel] - ''' - '''[CHAPTER] - '''TIMEBASE=1/1000 - '''START=[Start] - '''END=[END] - '''title=Opening - ''' - '''[CHAPTER] - '''TIMEBASE=1/1000 - '''START=[after] - '''END=[duration_ms] ähnelt. - ''' - Friend ReadOnly Property ffmpeg_metadata() As String - Get - Return ResourceManager.GetString("ffmpeg_metadata", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ;FFMETADATA1 - '''title=[Titel] - ''' - '''[CHAPTER] - '''TIMEBASE=1/1000 - '''START=1 - '''END=[Start-1] - ''' - '''[CHAPTER] - '''TIMEBASE=1/1000 - '''START=[Start] - '''END=[duration_ms] - '''title=Ending ähnelt. - ''' - Friend ReadOnly Property ffmpeg_metadata_out() As String - Get - Return ResourceManager.GetString("ffmpeg_metadata_out", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:107.0) Gecko/20100101 Firefox/107.0" ähnelt. - ''' - Friend ReadOnly Property ffmpeg_user_agend() As String - Get - Return ResourceManager.GetString("ffmpeg_user_agend", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die src="/player/ ähnelt. - ''' - Friend ReadOnly Property Funimation_Player_ID() As String - Get - Return ResourceManager.GetString("Funimation_Player_ID", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die src="https://www.funimation.com/player/ ähnelt. - ''' - Friend ReadOnly Property Funimation_Player_ID_2() As String - Get - Return ResourceManager.GetString("Funimation_Player_ID_2", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <a class="trackVideo ng-binding" href=" ähnelt. - ''' - Friend ReadOnly Property Funimation_Split_1() As String - Get - Return ResourceManager.GetString("Funimation_Split_1", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die "> ähnelt. - ''' - Friend ReadOnly Property Funimation_Split_2() As String - Get - Return ResourceManager.GetString("Funimation_Split_2", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die "src": ähnelt. - ''' - Friend ReadOnly Property Funimation_src_string() As String - Get - Return ResourceManager.GetString("Funimation_src_string", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die {"src": " ähnelt. - ''' - Friend ReadOnly Property Funimation_subs_src() As String - Get - Return ResourceManager.GetString("Funimation_subs_src", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ", "kind": "subtitle", "type": "CC", "language": " ähnelt. - ''' - Friend ReadOnly Property Funimation_Subtitle_String() As String - Get - Return ResourceManager.GetString("Funimation_Subtitle_String", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ", "kind": "subtitle", "type": "Full", "language": " ähnelt. - ''' - Friend ReadOnly Property Funimation_Subtitle_String2() As String - Get - Return ResourceManager.GetString("Funimation_Subtitle_String2", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ", "kind": "subtitle", "type": "full", "language": " ähnelt. - ''' - Friend ReadOnly Property Funimation_Subtitle_String3() As String - Get - Return ResourceManager.GetString("Funimation_Subtitle_String3", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <meta property="og:image" content=" ähnelt. - ''' - Friend ReadOnly Property Funimation_thumbnail() As String - Get - Return ResourceManager.GetString("Funimation_thumbnail", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ","resolution":"adaptive" ähnelt. - ''' - Friend ReadOnly Property hls_endString() As String - Get - Return ResourceManager.GetString("hls_endString", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die "format":"adaptive_hls", ähnelt. - ''' - Friend ReadOnly Property hls_Value() As String - Get - Return ResourceManager.GetString("hls_Value", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <script> - ''' - '''setInterval(function loadXMLDoc() { - ''' var xhttp = new XMLHttpRequest(); - ''' xhttp.onreadystatechange = function() { - ''' if (this.readyState == 4 && this.status == 200) { - ''' document.getElementById("bodypage").innerHTML = this.responseText; - ''' //console.log(this.responseText); - ''' } - ''' }; - ''' xhttp.open("GET", "/", true); - ''' xhttp.send(); - '''}, 1000); - '''</script> - '''</body></html> ähnelt. - ''' - Friend ReadOnly Property htmlEnd() As String - Get - Return ResourceManager.GetString("htmlEnd", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die </a> - ''' - '''</div> - ''' - '''</div> - ''' - '''</div> - ''' - '''<img alt="image error" src="balken1.png" class="class-balken"> ähnelt. - ''' - Friend ReadOnly Property htmlnachHardSubs() As String - Get - Return ResourceManager.GetString("htmlnachHardSubs", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die " class="imagestyle"> - ''' - '''<div> - ''' - '''<span class="titel" dir="auto"> ähnelt. - ''' - Friend ReadOnly Property htmlnachTumbnail() As String - Get - Return ResourceManager.GetString("htmlnachTumbnail", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <html><head><meta name="color-scheme" content="light dark"></head><pre style="word-wrap: break-word; white-space: pre-wrap;"> ähnelt. - ''' - Friend ReadOnly Property htmlReplace() As String - Get - Return ResourceManager.GetString("htmlReplace", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <a class="main_titel">Placeholder</a> - '''<img alt="image error" src="balken.png" class="class-balken"> ähnelt. - ''' - Friend ReadOnly Property htmlTitlel() As String - Get - Return ResourceManager.GetString("htmlTitlel", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <!DOCTYPE html> - '''<head> - '''<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> - '''</head> - '''<html> - ''' <title>CRD</title> - ''' - ''' <style> - ''' .main-bg {margin:0 0 0 0;background-color:#F2F2F2;font-family:Consolas;font-size:16px;} - ''' .div-spacer{width:16px;height:110px;display:block;margin-bottom:14px;position:relative} - ''' .div-episode{width:730px;height:110px;display:block;margin-bottom:14px;position:relative} - ''' .class-balken{width:735px;height:8px;display:block;margin-bottom:4px;marg [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - ''' - Friend ReadOnly Property htmlTop() As String - Get - Return ResourceManager.GetString("htmlTop", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die </span> - ''' - '''<div class="progressbar"> - ''' - '''<div class="progressbar-value" style="width: 0%"></div> - ''' - '''</div> - '''<span dir="auto" class='percenttext'>0%</span> - '''<div> - '''<br> - '''<span dir="auto" class="resotext"> ähnelt. - ''' - Friend ReadOnly Property htmlvorAufloesung() As String - Get - Return ResourceManager.GetString("htmlvorAufloesung", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die "> <img alt="image error" src="cc1.png" class="class-cc"> ähnelt. - ''' - Friend ReadOnly Property htmlvorHardSubs() As String - Get - Return ResourceManager.GetString("htmlvorHardSubs", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die </span> - ''' - '''<a href="#" class="cc-wert" title="Softsubs: ähnelt. - ''' - Friend ReadOnly Property htmlvorSoftSubs() As String - Get - Return ResourceManager.GetString("htmlvorSoftSubs", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die - ''' <div class="div-episode"> - ''' - '''<img alt="image error" src=" ähnelt. - ''' - Friend ReadOnly Property htmlvorThumbnail() As String - Get - Return ResourceManager.GetString("htmlvorThumbnail", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol). - ''' - Friend ReadOnly Property icon() As System.Drawing.Icon - Get - Dim obj As Object = ResourceManager.GetObject("icon", resourceCulture) - Return CType(obj,System.Drawing.Icon) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die "error":false,"code":"ok" ähnelt. - ''' - Friend ReadOnly Property LoginSuccess() As String - Get - Return ResourceManager.GetString("LoginSuccess", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_add() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_add", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_add_invert() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_add_invert", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_add_invert_dark() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_add_invert_dark", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_background() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_background", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_browser() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_browser", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_browser_invert() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_browser_invert", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_browser_invert_dark() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_browser_invert_dark", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_button_download_deactivate() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_button_download_deactivate", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_button_download_default() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_button_download_default", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_button_download_hovert() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_button_download_hovert", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_close() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_close", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_close_dark() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_close_dark", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_close_dark_hover() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_close_dark_hover", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_close_hover() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_close_hover", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_del() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_del", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_mini() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_mini", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_mini_dark() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_mini_dark", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_mini_dark_hover() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_mini_dark_hover", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_mini_red() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_mini_red", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_pause() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_pause", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_pause_hover() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_pause_hover", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_pause_play() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_pause_play", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_pause_play_hover() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_pause_play_hover", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_setting_invert() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_setting_invert", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_setting_invert_dark() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_setting_invert_dark", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property main_settings() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("main_settings", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Main_top() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Main_top", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die </p> - ''' </div> - ''' </body> - '''</html> ähnelt. - ''' - Friend ReadOnly Property Post_error_Bottom() As String - Get - Return ResourceManager.GetString("Post_error_Bottom", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <html> - ''' <head> - ''' <meta charset="UTF-8"> - ''' </head> - ''' <style> - ''' body { - ''' text-align: center; - ''' padding: 40px 0; - ''' background: #EBF0F5; - ''' } - ''' h1 { - ''' color: #ad3f26; - ''' font-family: sans-serif; - ''' font-weight: 900; - ''' font-size: 40px; - ''' margin-bottom: 10px; - ''' } - ''' p { - ''' color: #404F5E; - ''' font-family: sans-serif; - ''' font-size:20px; - ''' margin: 0; - ''' } - ''' i { - ''' co [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - ''' - Friend ReadOnly Property Post_error_Top() As String - Get - Return ResourceManager.GetString("Post_error_Top", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die <!DOCTYPE html> - '''<html> - ''' <title>CRD</title> - ''' - ''' <style> - ''' .main-bg {margin:0 0 0 -36px;background-color:#757575;} - ''' .imagestyle{width:156px;height:88px;display:block;margin-bottom:4px} .ulStyle{margin:0 0 0 -10px;display:block;position:relative;margin-top:8px} - ''' .ulStyle li{margin-left:12px;float:left;display:block;position:relative} - ''' .listyle{width:156px;display:block;background:#fff;padding:16px;margin-bottom:14px;position:relative;background-color:#b5b3b3} - ''' .progressbar{height:14p [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - ''' - Friend ReadOnly Property Startuphtml() As String - Get - Return ResourceManager.GetString("Startuphtml", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die "thumbnail":{"url":" ähnelt. - ''' - Friend ReadOnly Property thumbnailString() As String - Get - Return ResourceManager.GetString("thumbnailString", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die US cookies can't be used as long you are logged in. - '''I delete the curremt session with the unlock, if you want to be logged in with the US cookie you need to enter you data on the left. ähnelt. - ''' - Friend ReadOnly Property US_ToolTip() As String - Get - Return ResourceManager.GetString("US_ToolTip", resourceCulture) - End Get - End Property - End Module -End Namespace +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Crunchyroll_Downloader.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property about_icon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("about_icon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property add_mass_cancel() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("add_mass_cancel", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property add_mass_cancel_hover() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("add_mass_cancel_hover", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die {"sources":[{"file":" ähnelt. + ''' + Friend ReadOnly Property AoD_files() As String + Get + Return ResourceManager.GetString("AoD_files", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <h1 itemprop="name"> ähnelt. + ''' + Friend ReadOnly Property AoD_HTML_Anime_Title() As String + Get + Return ResourceManager.GetString("AoD_HTML_Anime_Title", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <h3 class="episodebox-title" title=" ähnelt. + ''' + Friend ReadOnly Property AoD_HTML_Episode_Title() As String + Get + Return ResourceManager.GetString("AoD_HTML_Episode_Title", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die "image":" ähnelt. + ''' + Friend ReadOnly Property AoD_Image() As String + Get + Return ResourceManager.GetString("AoD_Image", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die "mediaid": ähnelt. + ''' + Friend ReadOnly Property AoD_MediaID() As String + Get + Return ResourceManager.GetString("AoD_MediaID", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die "title":" ähnelt. + ''' + Friend ReadOnly Property AoD_Titel() As String + Get + Return ResourceManager.GetString("AoD_Titel", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die [Script Info] + '''; Template for error handling in the Crunchyrol Downloader by hama3254 https://github.com/hama3254/Crunchyroll-Downloader-v3.0 + '''; ass file from https://github.com/Aegisub/Aegisub/blob/master/automation/v4-docs/template-scripting-ideas.ass + '''; Script generated by Aegisub v2.00 PRE-RELEASE (SVN r939, jfs) + '''; http://www.aegisub.net + '''Title: Default Aegisub file + '''ScriptType: v4.00+ + '''WrapStyle: 0 + '''PlayResX: 640 + '''PlayResY: 480 + '''Video Aspect Ratio: 0 + '''Video Zoom: 6 + '''Video Position: 0 + ''' + '''[V4+ Styles] + ''' [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. + ''' + Friend ReadOnly Property ass_template() As String + Get + Return ResourceManager.GetString("ass_template", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property balken() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("balken", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property balken_console() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("balken_console", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <img id="footer_country_flag" src="https://www.crunchyroll.com/i/country_flags/ ähnelt. + ''' + Friend ReadOnly Property CC_String() As String + Get + Return ResourceManager.GetString("CC_String", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die display_episode_number":" ähnelt. + ''' + Friend ReadOnly Property CR_Episode_Nr() As String + Get + Return ResourceManager.GetString("CR_Episode_Nr", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <meta property="og:url" content=" ähnelt. + ''' + Friend ReadOnly Property CR_Head_Url_Split() As String + Get + Return ResourceManager.GetString("CR_Head_Url_Split", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <h4 id="showmedia_about_name" class="strong">“ ähnelt. + ''' + Friend ReadOnly Property CR_MediaName() As String + Get + Return ResourceManager.GetString("CR_MediaName", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ”</h4> ähnelt. + ''' + Friend ReadOnly Property CR_MediaName2() As String + Get + Return ResourceManager.GetString("CR_MediaName2", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die </span> ähnelt. + ''' + Friend ReadOnly Property CR_MovieBT() As String + Get + Return ResourceManager.GetString("CR_MovieBT", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <span itemprop="name"> ähnelt. + ''' + Friend ReadOnly Property CR_MovieTop() As String + Get + Return ResourceManager.GetString("CR_MovieTop", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die seasonNumber":" ähnelt. + ''' + Friend ReadOnly Property CR_Season_Nr() As String + Get + Return ResourceManager.GetString("CR_Season_Nr", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property crdSettings_Button_SafeExit() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("crdSettings_Button_SafeExit", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property crdSettings_Button_SafeExit_hover() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("crdSettings_Button_SafeExit_hover", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property DialogNotFound_Submit() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("DialogNotFound_Submit", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property DialogNotFound_Submit_hover() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("DialogNotFound_Submit_hover", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property download_subs() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("download_subs", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property download_subs_hover() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("download_subs_hover", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"> + '''<html><head> + '''<title>404 Not Found</title> + '''</head><body> + '''<h1>Not Found</h1> + '''<p>The requested URL was not found on this server.</p> + '''<hr> + '''<address>Server at Crunchyroll Downloader Port 8080</address> + '''</body></html> ähnelt. + ''' + Friend ReadOnly Property Error_404() As String + Get + Return ResourceManager.GetString("Error_404", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ;FFMETADATA1 + '''title=[Titel] + ''' + '''[CHAPTER] + '''TIMEBASE=1/1000 + '''START=[Start] + '''END=[END] + '''title=Opening + ''' + '''[CHAPTER] + '''TIMEBASE=1/1000 + '''START=[after] + '''END=[duration_ms] ähnelt. + ''' + Friend ReadOnly Property ffmpeg_metadata() As String + Get + Return ResourceManager.GetString("ffmpeg_metadata", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ;FFMETADATA1 + '''title=[Titel] + ''' + '''[CHAPTER] + '''TIMEBASE=1/1000 + '''START=1 + '''END=[Start-1] + ''' + '''[CHAPTER] + '''TIMEBASE=1/1000 + '''START=[Start] + '''END=[duration_ms] + '''title=Ending ähnelt. + ''' + Friend ReadOnly Property ffmpeg_metadata_out() As String + Get + Return ResourceManager.GetString("ffmpeg_metadata_out", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:107.0) Gecko/20100101 Firefox/107.0" ähnelt. + ''' + Friend ReadOnly Property ffmpeg_user_agend() As String + Get + Return ResourceManager.GetString("ffmpeg_user_agend", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die src="/player/ ähnelt. + ''' + Friend ReadOnly Property Funimation_Player_ID() As String + Get + Return ResourceManager.GetString("Funimation_Player_ID", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die src="https://www.funimation.com/player/ ähnelt. + ''' + Friend ReadOnly Property Funimation_Player_ID_2() As String + Get + Return ResourceManager.GetString("Funimation_Player_ID_2", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <a class="trackVideo ng-binding" href=" ähnelt. + ''' + Friend ReadOnly Property Funimation_Split_1() As String + Get + Return ResourceManager.GetString("Funimation_Split_1", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die "> ähnelt. + ''' + Friend ReadOnly Property Funimation_Split_2() As String + Get + Return ResourceManager.GetString("Funimation_Split_2", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die "src": ähnelt. + ''' + Friend ReadOnly Property Funimation_src_string() As String + Get + Return ResourceManager.GetString("Funimation_src_string", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die {"src": " ähnelt. + ''' + Friend ReadOnly Property Funimation_subs_src() As String + Get + Return ResourceManager.GetString("Funimation_subs_src", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ", "kind": "subtitle", "type": "CC", "language": " ähnelt. + ''' + Friend ReadOnly Property Funimation_Subtitle_String() As String + Get + Return ResourceManager.GetString("Funimation_Subtitle_String", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ", "kind": "subtitle", "type": "Full", "language": " ähnelt. + ''' + Friend ReadOnly Property Funimation_Subtitle_String2() As String + Get + Return ResourceManager.GetString("Funimation_Subtitle_String2", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ", "kind": "subtitle", "type": "full", "language": " ähnelt. + ''' + Friend ReadOnly Property Funimation_Subtitle_String3() As String + Get + Return ResourceManager.GetString("Funimation_Subtitle_String3", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <meta property="og:image" content=" ähnelt. + ''' + Friend ReadOnly Property Funimation_thumbnail() As String + Get + Return ResourceManager.GetString("Funimation_thumbnail", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ","resolution":"adaptive" ähnelt. + ''' + Friend ReadOnly Property hls_endString() As String + Get + Return ResourceManager.GetString("hls_endString", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die "format":"adaptive_hls", ähnelt. + ''' + Friend ReadOnly Property hls_Value() As String + Get + Return ResourceManager.GetString("hls_Value", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <script> + ''' + '''setInterval(function loadXMLDoc() { + ''' var xhttp = new XMLHttpRequest(); + ''' xhttp.onreadystatechange = function() { + ''' if (this.readyState == 4 && this.status == 200) { + ''' document.getElementById("bodypage").innerHTML = this.responseText; + ''' //console.log(this.responseText); + ''' } + ''' }; + ''' xhttp.open("GET", "/", true); + ''' xhttp.send(); + '''}, 1000); + '''</script> + '''</body></html> ähnelt. + ''' + Friend ReadOnly Property htmlEnd() As String + Get + Return ResourceManager.GetString("htmlEnd", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die </a> + ''' + '''</div> + ''' + '''</div> + ''' + '''</div> + ''' + '''<img alt="image error" src="balken1.png" class="class-balken"> ähnelt. + ''' + Friend ReadOnly Property htmlnachHardSubs() As String + Get + Return ResourceManager.GetString("htmlnachHardSubs", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die " class="imagestyle"> + ''' + '''<div> + ''' + '''<span class="titel" dir="auto"> ähnelt. + ''' + Friend ReadOnly Property htmlnachTumbnail() As String + Get + Return ResourceManager.GetString("htmlnachTumbnail", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <html><head><meta name="color-scheme" content="light dark"></head><pre style="word-wrap: break-word; white-space: pre-wrap;"> ähnelt. + ''' + Friend ReadOnly Property htmlReplace() As String + Get + Return ResourceManager.GetString("htmlReplace", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <a class="main_titel">Placeholder</a> + '''<img alt="image error" src="balken.png" class="class-balken"> ähnelt. + ''' + Friend ReadOnly Property htmlTitlel() As String + Get + Return ResourceManager.GetString("htmlTitlel", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <!DOCTYPE html> + '''<head> + '''<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> + '''</head> + '''<html> + ''' <title>CRD</title> + ''' + ''' <style> + ''' .main-bg {margin:0 0 0 0;background-color:#F2F2F2;font-family:Consolas;font-size:16px;} + ''' .div-spacer{width:16px;height:110px;display:block;margin-bottom:14px;position:relative} + ''' .div-episode{width:730px;height:110px;display:block;margin-bottom:14px;position:relative} + ''' .class-balken{width:735px;height:8px;display:block;margin-bottom:4px;marg [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. + ''' + Friend ReadOnly Property htmlTop() As String + Get + Return ResourceManager.GetString("htmlTop", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die </span> + ''' + '''<div class="progressbar"> + ''' + '''<div class="progressbar-value" style="width: 0%"></div> + ''' + '''</div> + '''<span dir="auto" class='percenttext'>0%</span> + '''<div> + '''<br> + '''<span dir="auto" class="resotext"> ähnelt. + ''' + Friend ReadOnly Property htmlvorAufloesung() As String + Get + Return ResourceManager.GetString("htmlvorAufloesung", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die "> <img alt="image error" src="cc1.png" class="class-cc"> ähnelt. + ''' + Friend ReadOnly Property htmlvorHardSubs() As String + Get + Return ResourceManager.GetString("htmlvorHardSubs", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die </span> + ''' + '''<a href="#" class="cc-wert" title="Softsubs: ähnelt. + ''' + Friend ReadOnly Property htmlvorSoftSubs() As String + Get + Return ResourceManager.GetString("htmlvorSoftSubs", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die + ''' <div class="div-episode"> + ''' + '''<img alt="image error" src=" ähnelt. + ''' + Friend ReadOnly Property htmlvorThumbnail() As String + Get + Return ResourceManager.GetString("htmlvorThumbnail", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol). + ''' + Friend ReadOnly Property icon() As System.Drawing.Icon + Get + Dim obj As Object = ResourceManager.GetObject("icon", resourceCulture) + Return CType(obj,System.Drawing.Icon) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die "error":false,"code":"ok" ähnelt. + ''' + Friend ReadOnly Property LoginSuccess() As String + Get + Return ResourceManager.GetString("LoginSuccess", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_add() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_add", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_add_invert() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_add_invert", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_add_invert_dark() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_add_invert_dark", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_background() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_background", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_browser() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_browser", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_browser_invert() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_browser_invert", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_browser_invert_dark() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_browser_invert_dark", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_button_download_deactivate() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_button_download_deactivate", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_button_download_default() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_button_download_default", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_button_download_hovert() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_button_download_hovert", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_close() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_close", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_close_dark() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_close_dark", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_close_dark_hover() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_close_dark_hover", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_close_hover() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_close_hover", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_del() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_del", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_mini() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_mini", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_mini_dark() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_mini_dark", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_mini_dark_hover() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_mini_dark_hover", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_mini_red() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_mini_red", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_pause() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_pause", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_pause_hover() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_pause_hover", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_pause_play() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_pause_play", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_pause_play_hover() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_pause_play_hover", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_setting_invert() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_setting_invert", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_setting_invert_dark() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_setting_invert_dark", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property main_settings() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("main_settings", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Main_top() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Main_top", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die </p> + ''' </div> + ''' </body> + '''</html> ähnelt. + ''' + Friend ReadOnly Property Post_error_Bottom() As String + Get + Return ResourceManager.GetString("Post_error_Bottom", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <html> + ''' <head> + ''' <meta charset="UTF-8"> + ''' </head> + ''' <style> + ''' body { + ''' text-align: center; + ''' padding: 40px 0; + ''' background: #EBF0F5; + ''' } + ''' h1 { + ''' color: #ad3f26; + ''' font-family: sans-serif; + ''' font-weight: 900; + ''' font-size: 40px; + ''' margin-bottom: 10px; + ''' } + ''' p { + ''' color: #404F5E; + ''' font-family: sans-serif; + ''' font-size:20px; + ''' margin: 0; + ''' } + ''' i { + ''' co [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. + ''' + Friend ReadOnly Property Post_error_Top() As String + Get + Return ResourceManager.GetString("Post_error_Top", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <!DOCTYPE html> + '''<html> + ''' <title>CRD</title> + ''' + ''' <style> + ''' .main-bg {margin:0 0 0 -36px;background-color:#757575;} + ''' .imagestyle{width:156px;height:88px;display:block;margin-bottom:4px} .ulStyle{margin:0 0 0 -10px;display:block;position:relative;margin-top:8px} + ''' .ulStyle li{margin-left:12px;float:left;display:block;position:relative} + ''' .listyle{width:156px;display:block;background:#fff;padding:16px;margin-bottom:14px;position:relative;background-color:#b5b3b3} + ''' .progressbar{height:14p [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. + ''' + Friend ReadOnly Property Startuphtml() As String + Get + Return ResourceManager.GetString("Startuphtml", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die "thumbnail":{"url":" ähnelt. + ''' + Friend ReadOnly Property thumbnailString() As String + Get + Return ResourceManager.GetString("thumbnailString", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die US cookies can't be used as long you are logged in. + '''I delete the curremt session with the unlock, if you want to be logged in with the US cookie you need to enter you data on the left. ähnelt. + ''' + Friend ReadOnly Property US_ToolTip() As String + Get + Return ResourceManager.GetString("US_ToolTip", resourceCulture) + End Get + End Property + End Module +End Namespace diff --git a/Crunchyroll Downloader/einstellungen.Designer.vb b/Crunchyroll Downloader/einstellungen.Designer.vb index 37302b6..fb4d48f 100644 --- a/Crunchyroll Downloader/einstellungen.Designer.vb +++ b/Crunchyroll Downloader/einstellungen.Designer.vb @@ -54,15 +54,15 @@ Partial Class Einstellungen Me.Panel1 = New System.Windows.Forms.Panel() Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.FFMPEG_CommandP1 = New System.Windows.Forms.ToolStripMenuItem() - Me.ListC1 = New System.Windows.Forms.ToolStripMenuItem() - Me.ListC2 = New System.Windows.Forms.ToolStripMenuItem() - Me.ListC3 = New System.Windows.Forms.ToolStripMenuItem() - Me.ListC4 = New System.Windows.Forms.ToolStripMenuItem() - Me.ListC5 = New System.Windows.Forms.ToolStripMenuItem() - Me.ListC6 = New System.Windows.Forms.ToolStripMenuItem() - Me.ListC7 = New System.Windows.Forms.ToolStripMenuItem() - Me.ListC8 = New System.Windows.Forms.ToolStripMenuItem() - Me.ListC9 = New System.Windows.Forms.ToolStripMenuItem() + Me.copy = New System.Windows.Forms.ToolStripMenuItem() + Me.nv_h264 = New System.Windows.Forms.ToolStripMenuItem() + Me.nv_hevc = New System.Windows.Forms.ToolStripMenuItem() + Me.CPU_h264 = New System.Windows.Forms.ToolStripMenuItem() + Me.CPU_h265 = New System.Windows.Forms.ToolStripMenuItem() + Me.AMD_h264 = New System.Windows.Forms.ToolStripMenuItem() + Me.AMD_hevc = New System.Windows.Forms.ToolStripMenuItem() + Me.Intel_h264 = New System.Windows.Forms.ToolStripMenuItem() + Me.Intel_hevc = New System.Windows.Forms.ToolStripMenuItem() Me.FFMPEG_CommandP2 = New System.Windows.Forms.ToolStripMenuItem() Me.ListP1 = New System.Windows.Forms.ToolStripMenuItem() Me.ListP2 = New System.Windows.Forms.ToolStripMenuItem() @@ -154,6 +154,9 @@ Partial Class Einstellungen Me.Label5 = New MetroFramework.Controls.MetroLabel() Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() Me.Btn_Save = New System.Windows.Forms.Button() + Me.Intel_AV1 = New System.Windows.Forms.ToolStripMenuItem() + Me.CPU_AV1 = New System.Windows.Forms.ToolStripMenuItem() + Me.nv_AV1 = New System.Windows.Forms.ToolStripMenuItem() CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox14.SuspendLayout() Me.SoftSubs.SuspendLayout() @@ -406,10 +409,10 @@ Partial Class Einstellungen Me.TabPage2.HorizontalScrollbarBarColor = True Me.TabPage2.HorizontalScrollbarHighlightOnWheel = False Me.TabPage2.HorizontalScrollbarSize = 10 - Me.TabPage2.Location = New System.Drawing.Point(4, 35) + Me.TabPage2.Location = New System.Drawing.Point(4, 44) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(501, 528) + Me.TabPage2.Size = New System.Drawing.Size(501, 519) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Output" Me.TabPage2.VerticalScrollbarBarColor = True @@ -590,65 +593,73 @@ Partial Class Einstellungen ' 'FFMPEG_CommandP1 ' - Me.FFMPEG_CommandP1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ListC1, Me.ListC2, Me.ListC3, Me.ListC4, Me.ListC5, Me.ListC6, Me.ListC7, Me.ListC8, Me.ListC9}) + Me.FFMPEG_CommandP1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.copy, Me.CPU_h264, Me.CPU_h265, Me.CPU_AV1, Me.nv_h264, Me.nv_hevc, Me.nv_AV1, Me.AMD_h264, Me.AMD_hevc, Me.Intel_h264, Me.Intel_hevc, Me.Intel_AV1}) Me.FFMPEG_CommandP1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FFMPEG_CommandP1.Name = "FFMPEG_CommandP1" Me.FFMPEG_CommandP1.Size = New System.Drawing.Size(63, 20) Me.FFMPEG_CommandP1.Text = "-c copy" ' - 'ListC1 + 'copy ' - Me.ListC1.Name = "ListC1" - Me.ListC1.Size = New System.Drawing.Size(172, 22) - Me.ListC1.Text = "-c copy" + Me.copy.Name = "copy" + Me.copy.Size = New System.Drawing.Size(180, 22) + Me.copy.Text = "-c copy" ' - 'ListC2 + 'nv_h264 ' - Me.ListC2.Name = "ListC2" - Me.ListC2.Size = New System.Drawing.Size(172, 22) - Me.ListC2.Text = "-c:v h264_nvenc " + Me.nv_h264.BackColor = System.Drawing.Color.YellowGreen + Me.nv_h264.Name = "nv_h264" + Me.nv_h264.Size = New System.Drawing.Size(180, 22) + Me.nv_h264.Text = "-c:v h264_nvenc " ' - 'ListC3 + 'nv_hevc ' - Me.ListC3.Name = "ListC3" - Me.ListC3.Size = New System.Drawing.Size(172, 22) - Me.ListC3.Text = "-c:v hevc_nvenc" + Me.nv_hevc.BackColor = System.Drawing.Color.YellowGreen + Me.nv_hevc.Name = "nv_hevc" + Me.nv_hevc.Size = New System.Drawing.Size(180, 22) + Me.nv_hevc.Text = "-c:v hevc_nvenc" ' - 'ListC4 + 'CPU_h264 ' - Me.ListC4.Name = "ListC4" - Me.ListC4.Size = New System.Drawing.Size(172, 22) - Me.ListC4.Text = "-c:v libx264" + Me.CPU_h264.BackColor = System.Drawing.Color.DarkGray + Me.CPU_h264.Name = "CPU_h264" + Me.CPU_h264.Size = New System.Drawing.Size(180, 22) + Me.CPU_h264.Text = "-c:v libx264" ' - 'ListC5 + 'CPU_h265 ' - Me.ListC5.Name = "ListC5" - Me.ListC5.Size = New System.Drawing.Size(172, 22) - Me.ListC5.Text = "-c:v libx265" + Me.CPU_h265.BackColor = System.Drawing.Color.DarkGray + Me.CPU_h265.Name = "CPU_h265" + Me.CPU_h265.Size = New System.Drawing.Size(180, 22) + Me.CPU_h265.Text = "-c:v libx265" ' - 'ListC6 + 'AMD_h264 ' - Me.ListC6.Name = "ListC6" - Me.ListC6.Size = New System.Drawing.Size(172, 22) - Me.ListC6.Text = "-c:v h264_amf" + Me.AMD_h264.BackColor = System.Drawing.Color.Tomato + Me.AMD_h264.Name = "AMD_h264" + Me.AMD_h264.Size = New System.Drawing.Size(180, 22) + Me.AMD_h264.Text = "-c:v h264_amf" ' - 'ListC7 + 'AMD_hevc ' - Me.ListC7.Name = "ListC7" - Me.ListC7.Size = New System.Drawing.Size(172, 22) - Me.ListC7.Text = "-c:v hevc_amf" + Me.AMD_hevc.BackColor = System.Drawing.Color.Tomato + Me.AMD_hevc.Name = "AMD_hevc" + Me.AMD_hevc.Size = New System.Drawing.Size(180, 22) + Me.AMD_hevc.Text = "-c:v hevc_amf" ' - 'ListC8 + 'Intel_h264 ' - Me.ListC8.Name = "ListC8" - Me.ListC8.Size = New System.Drawing.Size(172, 22) - Me.ListC8.Text = "-c:v h264_qsv" + Me.Intel_h264.BackColor = System.Drawing.Color.CornflowerBlue + Me.Intel_h264.Name = "Intel_h264" + Me.Intel_h264.Size = New System.Drawing.Size(180, 22) + Me.Intel_h264.Text = "-c:v h264_qsv" ' - 'ListC9 + 'Intel_hevc ' - Me.ListC9.Name = "ListC9" - Me.ListC9.Size = New System.Drawing.Size(172, 22) - Me.ListC9.Text = "-c:v hevc_qsv" + Me.Intel_hevc.BackColor = System.Drawing.Color.CornflowerBlue + Me.Intel_hevc.Name = "Intel_hevc" + Me.Intel_hevc.Size = New System.Drawing.Size(180, 22) + Me.Intel_hevc.Text = "-c:v hevc_qsv" ' 'FFMPEG_CommandP2 ' @@ -1123,7 +1134,7 @@ Partial Class Einstellungen Me.TabControl1.FontWeight = MetroFramework.MetroTabControlWeight.Regular Me.TabControl1.Location = New System.Drawing.Point(22, 60) Me.TabControl1.Name = "TabControl1" - Me.TabControl1.SelectedIndex = 3 + Me.TabControl1.SelectedIndex = 1 Me.TabControl1.Size = New System.Drawing.Size(509, 567) Me.TabControl1.TabIndex = 0 Me.TabControl1.UseSelectable = True @@ -1137,9 +1148,9 @@ Partial Class Einstellungen Me.MetroTabPage2.HorizontalScrollbarBarColor = True Me.MetroTabPage2.HorizontalScrollbarHighlightOnWheel = False Me.MetroTabPage2.HorizontalScrollbarSize = 10 - Me.MetroTabPage2.Location = New System.Drawing.Point(4, 35) + Me.MetroTabPage2.Location = New System.Drawing.Point(4, 44) Me.MetroTabPage2.Name = "MetroTabPage2" - Me.MetroTabPage2.Size = New System.Drawing.Size(501, 528) + Me.MetroTabPage2.Size = New System.Drawing.Size(501, 519) Me.MetroTabPage2.TabIndex = 8 Me.MetroTabPage2.Text = "Naming" Me.MetroTabPage2.VerticalScrollbarBarColor = True @@ -1774,6 +1785,27 @@ Partial Class Einstellungen Me.Btn_Save.TabIndex = 9 Me.Btn_Save.UseVisualStyleBackColor = False ' + 'Intel_AV1 + ' + Me.Intel_AV1.BackColor = System.Drawing.Color.CornflowerBlue + Me.Intel_AV1.Name = "Intel_AV1" + Me.Intel_AV1.Size = New System.Drawing.Size(180, 22) + Me.Intel_AV1.Text = "-c:v av1_qsv" + ' + 'CPU_AV1 + ' + Me.CPU_AV1.BackColor = System.Drawing.Color.DarkGray + Me.CPU_AV1.Name = "CPU_AV1" + Me.CPU_AV1.Size = New System.Drawing.Size(180, 22) + Me.CPU_AV1.Text = "-c:v libsvtav1" + ' + 'nv_AV1 + ' + Me.nv_AV1.BackColor = System.Drawing.Color.YellowGreen + Me.nv_AV1.Name = "nv_AV1" + Me.nv_AV1.Size = New System.Drawing.Size(180, 22) + Me.nv_AV1.Text = "-c:v av1_nvenc" + ' 'Einstellungen ' Me.ApplyImageInvert = True @@ -1853,11 +1885,11 @@ Partial Class Einstellungen Friend WithEvents Panel1 As Panel Friend WithEvents MenuStrip1 As MenuStrip Friend WithEvents FFMPEG_CommandP1 As ToolStripMenuItem - Friend WithEvents ListC1 As ToolStripMenuItem - Friend WithEvents ListC2 As ToolStripMenuItem - Friend WithEvents ListC3 As ToolStripMenuItem - Friend WithEvents ListC4 As ToolStripMenuItem - Friend WithEvents ListC5 As ToolStripMenuItem + Friend WithEvents copy As ToolStripMenuItem + Friend WithEvents nv_h264 As ToolStripMenuItem + Friend WithEvents nv_hevc As ToolStripMenuItem + Friend WithEvents CPU_h264 As ToolStripMenuItem + Friend WithEvents CPU_h265 As ToolStripMenuItem Friend WithEvents FFMPEG_CommandP2 As ToolStripMenuItem Friend WithEvents ListP1 As ToolStripMenuItem Friend WithEvents ListP2 As ToolStripMenuItem @@ -1935,8 +1967,8 @@ Partial Class Einstellungen Friend WithEvents CR_SoftSubDefault As MetroFramework.Controls.MetroComboBox Friend WithEvents CB_Format As MetroFramework.Controls.MetroComboBox Friend WithEvents MetroTabPage1 As MetroFramework.Controls.MetroTabPage - Friend WithEvents ListC6 As ToolStripMenuItem - Friend WithEvents ListC7 As ToolStripMenuItem + Friend WithEvents AMD_h264 As ToolStripMenuItem + Friend WithEvents AMD_hevc As ToolStripMenuItem Friend WithEvents ListP3 As ToolStripMenuItem Friend WithEvents Btn_Save As Button Friend WithEvents MetroLabel2 As MetroFramework.Controls.MetroLabel @@ -1970,12 +2002,15 @@ Partial Class Einstellungen Friend WithEvents MetroLabel3 As MetroFramework.Controls.MetroLabel Friend WithEvents TempTB As MetroFramework.Controls.MetroTextBox Friend WithEvents CB_Ignore As MetroFramework.Controls.MetroComboBox - Friend WithEvents ListC8 As ToolStripMenuItem - Friend WithEvents ListC9 As ToolStripMenuItem + Friend WithEvents Intel_h264 As ToolStripMenuItem + Friend WithEvents Intel_hevc As ToolStripMenuItem Friend WithEvents GroupBox19 As GroupBox Friend WithEvents DubMode As MetroFramework.Controls.MetroCheckBox Friend WithEvents CB_Merge As MetroFramework.Controls.MetroComboBox Friend WithEvents GroupBox20 As GroupBox Friend WithEvents ChB_Chapters As MetroFramework.Controls.MetroCheckBox Friend WithEvents Chb_Ign_tls As MetroFramework.Controls.MetroCheckBox + Friend WithEvents Intel_AV1 As ToolStripMenuItem + Friend WithEvents CPU_AV1 As ToolStripMenuItem + Friend WithEvents nv_AV1 As ToolStripMenuItem End Class diff --git a/Crunchyroll Downloader/einstellungen.resx b/Crunchyroll Downloader/einstellungen.resx index f49b9b4..e809bf5 100644 --- a/Crunchyroll Downloader/einstellungen.resx +++ b/Crunchyroll Downloader/einstellungen.resx @@ -126,9 +126,6 @@ 118, 20 - - 118, 20 - 332, 20 diff --git a/Crunchyroll Downloader/einstellungen.vb b/Crunchyroll Downloader/einstellungen.vb index 6c640f5..49cc0f8 100644 --- a/Crunchyroll Downloader/einstellungen.vb +++ b/Crunchyroll Downloader/einstellungen.vb @@ -90,7 +90,7 @@ Public Class Einstellungen CBesLA.Checked = True ElseIf Main.SoftSubs(i) = "fr-FR" Then CBfrFR.Checked = True - ElseIf Main.SoftSubs(i) = "ar-ME" Then + ElseIf Main.SoftSubs(i) = "ar-SA" Then CBarME.Checked = True ElseIf Main.SoftSubs(i) = "ru-RU" Then CBruRU.Checked = True @@ -223,6 +223,7 @@ Public Class Einstellungen 'MsgBox(CB_CR_Harsubs.Items.Count.ToString) 'MsgBox(i.ToString) CB_CR_Harsubs.SelectedIndex = i + 'Exit For End If Next @@ -275,6 +276,10 @@ Public Class Einstellungen FFMPEG_CommandP4.Text = "-c:a copy -bsf:a aac_adtstoasc" End If + If FFMPEG_CommandP1.Text = "-c:v libsvtav1" And FFMPEG_CommandP2.Text = "[no Preset]" Then + FFMPEG_CommandP2.Enabled = False + FFMPEG_CommandP3.Enabled = True + End If ListViewAdd_True.Checked = Main.UseQueue @@ -311,7 +316,7 @@ Public Class Einstellungen CR_SoftSubDefault.SelectedItem = "Español (LA)" ElseIf Main.DefaultSubCR = "fr-FR" Then CR_SoftSubDefault.SelectedItem = "Français (France)" - ElseIf Main.DefaultSubCR = "ar-ME" Then + ElseIf Main.DefaultSubCR = "ar-SA" Then CR_SoftSubDefault.SelectedItem = "العربية (Arabic)" ElseIf Main.DefaultSubCR = "ru-RU" Then CR_SoftSubDefault.SelectedItem = "Русский (Russian)" @@ -451,39 +456,39 @@ Public Class Einstellungen If CR_SoftSubDefault.SelectedItem.ToString = "English" Then - Main.DefaultSubCR = "en-US" - My.Settings.DefaultSubCR = Main.DefaultSubCR - ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Deutsch" Then - Main.DefaultSubCR = "de-DE" - My.Settings.DefaultSubCR = Main.DefaultSubCR - ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Português (Brasil)" Then - Main.DefaultSubCR = "pt-BR" - My.Settings.DefaultSubCR = Main.DefaultSubCR - ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Español (LA)" Then - Main.DefaultSubCR = "es-419" - My.Settings.DefaultSubCR = Main.DefaultSubCR - ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Français (France)" Then - Main.DefaultSubCR = "fr-FR" - My.Settings.DefaultSubCR = Main.DefaultSubCR - ElseIf CR_SoftSubDefault.SelectedItem.ToString = "العربية (Arabic)" Then - Main.DefaultSubCR = "ar-ME" - My.Settings.DefaultSubCR = Main.DefaultSubCR - ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Русский (Russian)" Then - Main.DefaultSubCR = "ru-RU" - My.Settings.DefaultSubCR = Main.DefaultSubCR - ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Italiano (Italian)" Then - Main.DefaultSubCR = "it-IT" - My.Settings.DefaultSubCR = Main.DefaultSubCR - ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Español (España)" Then - Main.DefaultSubCR = "es-ES" - My.Settings.DefaultSubCR = Main.DefaultSubCR - ElseIf CR_SoftSubDefault.SelectedItem.ToString = "[Disabled]" Then - Main.DefaultSubCR = "None" - My.Settings.DefaultSubCR = Main.DefaultSubCR - End If + Main.DefaultSubCR = "en-US" + My.Settings.DefaultSubCR = Main.DefaultSubCR + ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Deutsch" Then + Main.DefaultSubCR = "de-DE" + My.Settings.DefaultSubCR = Main.DefaultSubCR + ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Português (Brasil)" Then + Main.DefaultSubCR = "pt-BR" + My.Settings.DefaultSubCR = Main.DefaultSubCR + ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Español (LA)" Then + Main.DefaultSubCR = "es-419" + My.Settings.DefaultSubCR = Main.DefaultSubCR + ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Français (France)" Then + Main.DefaultSubCR = "fr-FR" + My.Settings.DefaultSubCR = Main.DefaultSubCR + ElseIf CR_SoftSubDefault.SelectedItem.ToString = "العربية (Arabic)" Then + Main.DefaultSubCR = "ar-SA" + My.Settings.DefaultSubCR = Main.DefaultSubCR + ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Русский (Russian)" Then + Main.DefaultSubCR = "ru-RU" + My.Settings.DefaultSubCR = Main.DefaultSubCR + ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Italiano (Italian)" Then + Main.DefaultSubCR = "it-IT" + My.Settings.DefaultSubCR = Main.DefaultSubCR + ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Español (España)" Then + Main.DefaultSubCR = "es-ES" + My.Settings.DefaultSubCR = Main.DefaultSubCR + ElseIf CR_SoftSubDefault.SelectedItem.ToString = "[Disabled]" Then + Main.DefaultSubCR = "None" + My.Settings.DefaultSubCR = Main.DefaultSubCR + End If - If CR_Filename.Text = "[episode number]" Then + If CR_Filename.Text = "[episode number]" Then Main.CR_NameMethode = 0 My.Settings.CR_NameMethode = Main.CR_NameMethode ElseIf CR_Filename.Text = "[episode name]" Then @@ -680,33 +685,31 @@ Public Class Einstellungen #Region "sof subs" Main.SoftSubs.Clear() If CBdeDE.Checked = True Then - Main.SoftSubs.Add("deDE") + Main.SoftSubs.Add("de-DE") End If If CBenUS.Checked = True Then - Main.SoftSubs.Add("enUS") + Main.SoftSubs.Add("en-US") End If If CBptBR.Checked = True Then - Main.SoftSubs.Add("ptBR") + Main.SoftSubs.Add("pt-BR") End If If CBesLA.Checked = True Then - Main.SoftSubs.Add("esLA") Main.SoftSubs.Add("es-419") End If If CBfrFR.Checked = True Then - Main.SoftSubs.Add("frFR") + Main.SoftSubs.Add("fr-FR") End If If CBarME.Checked = True Then - Main.SoftSubs.Add("arME") Main.SoftSubs.Add("ar-SA") End If If CBruRU.Checked = True Then - Main.SoftSubs.Add("ruRU") + Main.SoftSubs.Add("ru-RU") End If If CBitIT.Checked = True Then - Main.SoftSubs.Add("itIT") + Main.SoftSubs.Add("it-IT") End If If CBesES.Checked = True Then - Main.SoftSubs.Add("esES") + Main.SoftSubs.Add("es-ES") End If Dim SaveString As String = Nothing @@ -839,12 +842,17 @@ Public Class Einstellungen - Private Sub ListC1_Click(sender As Object, e As EventArgs) Handles ListC1.Click, ListC2.Click, ListC3.Click, ListC4.Click, ListC5.Click, ListC6.Click, ListC7.Click, ListC8.Click, ListC9.Click + Private Sub ListC1_Click(sender As Object, e As EventArgs) Handles copy.Click, nv_h264.Click, nv_hevc.Click, nv_AV1.Click, CPU_h264.Click, CPU_h265.Click, CPU_AV1.Click, AMD_h264.Click, AMD_hevc.Click, Intel_h264.Click, Intel_hevc.Click, Intel_AV1.Click Dim Button As ToolStripMenuItem = CType(sender, ToolStripMenuItem) If Button.Text = "-c copy" Then FFMPEG_CommandP1.Text = "-c copy" FFMPEG_CommandP2.Enabled = False FFMPEG_CommandP3.Enabled = False + ElseIf Button.Text = "-c:v libsvtav1" Then + FFMPEG_CommandP1.Text = Button.Text + FFMPEG_CommandP2.Text = "[no Preset]" + FFMPEG_CommandP2.Enabled = False + FFMPEG_CommandP3.Enabled = True Else FFMPEG_CommandP1.Text = Button.Text FFMPEG_CommandP2.Enabled = True @@ -914,6 +922,7 @@ Public Class Einstellungen GroupBox17.ForeColor = color GroupBox18.ForeColor = color GroupBox19.ForeColor = color + GroupBox20.ForeColor = color End Sub