From 54297c5f54f3794e09b975edf3051b343154c2cf Mon Sep 17 00:00:00 2001 From: hama3254 <52826614+hama3254@users.noreply.github.com> Date: Thu, 10 Nov 2022 14:31:11 +0100 Subject: [PATCH] merge portable into main replaced regedit with an settings file replaced listview with panel cleanup for metadata added api requests improved error handling added for api access and false postives --- .vs/Crunchyroll Downloader/v17/.suo | Bin 153088 -> 208896 bytes Crunchyroll Downloader/Anime_Add.vb | 52 +- Crunchyroll Downloader/App.config | 124 + .../CRD_List_Item.Designer.vb | 3 +- Crunchyroll Downloader/CRD_List_Item.vb | 101 +- Crunchyroll Downloader/CefSharp_Browser.vb | 264 +-- .../Crunchyroll Downloader.vbproj | 7 + Crunchyroll Downloader/Main.designer.vb | 82 +- Crunchyroll Downloader/Main.resx | 170 +- Crunchyroll Downloader/Main.vb | 812 +++---- .../My Project/AssemblyInfo.vb | 4 +- .../My Project/Resources.Designer.vb | 2025 +++++++++-------- .../My Project/Settings.Designer.vb | 458 +++- .../My Project/Settings.settings | 125 +- Crunchyroll Downloader/Settings.vb | 6 + Crunchyroll Downloader/Subfolder.vb | 11 + Crunchyroll Downloader/Trackbar.vb | 3 +- .../einstellungen.Designer.vb | 52 +- Crunchyroll Downloader/einstellungen.resx | 3 - Crunchyroll Downloader/einstellungen.vb | 289 +-- 20 files changed, 2561 insertions(+), 2030 deletions(-) create mode 100644 Crunchyroll Downloader/Settings.vb diff --git a/.vs/Crunchyroll Downloader/v17/.suo b/.vs/Crunchyroll Downloader/v17/.suo index f673735865be9b6169d53226fce06e0aec4e3e56..b13060cc0bf6a0dc57ccc7d3c6ad5fb668adf2e4 100644 GIT binary patch delta 16539 zcmeHO30PD|w!Y`mU?Ynl&@7@hxFOQe?28D^;u-|RHHr!X#svY{L?r_5QDcBoZ{iZS zs58d6bz*09V%lYrOp=K)(Tw9HZj%{J%tT`}MxV<2>vlI=)Fhh8%lEyxd_PsU>ePPD zsZ-}xSMRW`K4)JWpiu~dAOiB^BnUo;@U(jk4Glca3J3&x0HLgAe2+av)l@I0kU#Sg zJ3D55v&Bkz;}m5e+nB>dDXgSrP{7EeSx z6-WoV0`7ndpUq@mbrRlefbPIh;A3DoFcRR+jY9Y&Fd7&GWCCM>alm+hRr&$Lo^F=1m=k|b!_14f+v)P7EuN(T@Jr)dSr(AzB_N$IB#-mO^EJmU zi^msL2k?b%zIdFTKh{XU2k^Ms6jt$g17AEI^2PH5I7i%X@i-Uo#p9g7>G|Sm0n5U2 zM&L}qJI&LA5pNH0+WW61R-0$?r}bj`qhQO$v_;B)Vlfk1FQ%zO4Gr_bdvk$#03Xu= zgbRU1z%t+&Ufa>^FnmcA7&2*i7d%=}d;G zVrSh|O5Qv&1$HOCzpboV_#&B9!E1=kWixeySW?1RrcUU>j_Ag+4GCS9d?0+$WI9%A z<;s*E2Ut=>FlDnF9;u?xR{DE}=*e4PrJiX#$2tr2uIyI3cOTv(drOZ%F4Q|FD>VqY zT9ezd>56F?oyBH3&Z0d#cFW~Ga%&{reBG67 zCV<3MV7I%xtK>|?8O$`E>s>!&M@6m8CZtRub~}6!B{ddhr4i}M1mp~8qK`=9W1_#Y zvdE?NssW0@jaj9tW%a7AR?$K*^sgt=sTA}?V^ub{L6?pO+yW@tlpn5Cq*w~uc%kPW zJlh`?Xk`MUD$M3N5G=GLhcwnZsHxr!ps=@4gqkQiC>5LwOtUxuHFvTQgjs5~AB4RQ5>_ z`B{jfEM=ABkn9M6r3WZQQ2&sl!GrhZYtkg5Y-LefQGE3gM( zD+0qj^oYC)aF*YP&|r?UbAg%mAL8XW;EmF3K#;fMGrX`#L8ZQ&yb7t-fFE!N8A^n* z4n|xccF(gfJK_{B=a)^|Yka-&9z0 z!4ueB+b6oY@&>rrBjh~dZhrSf7!7m)G;CViUR9imqbE}QfnLBAAOr{mf&dE*4@2=D z2806<&GKT*@!kkyfj&SSFcRnsBmjv(62R-}kFXyJRl;yYGJt`=Am9lg1>i)f2-5(* zibKq4LlF)$$48jMrxE4=qk%C%CNLJ@b&N-t1!Myg%xRMm<^dCFiXc3N$Ru;dRC72T z;WVHCCbl>33Ub6n)Cc=>oEu)Ltj1$4vXZW6&#? zyS!ju`S0a!c3-$$ZGYp93!NeZU-uZ~Aq0j0lk)<4EI<7qhSwnOeiH>@jkWY?hUme9 z#I|$_)m7DHt2-`hM$Aiatz|0O(6E-ayMGEbKWK^5j2cA!z<>H(_KaU8{irci5lIh z6FWcN#m8Vnuw>jhX)ap35Y4Q5oPuNAcRvros-Bq;XNp|+T z;oa=wLZ#h$>c{r}UMDjXGZlO_zP*3BFhL0OocMHH)rigKpScp^_3^q*cOn+-i|E~d z%;kTM|Ld(o9tEa8*Q>iK&{=``sZ(Tw0zH$Zja92pg>gfD6ksvZxfoh74(a2~#FjK3 zvSmJ{^%2QG!w^utlJxf2%3h!Cq%9-zRNKdwl)2YLtX$4Vry9Yf<5^%iz&8%A8=EHk zU2EtHyb~r}<&0CF2NW67%Al=}f-(uiF*pfA4J`9{I2CcG;g2*u2}VvsJ@urytj3Q? z*TTdQwjth?tzPZ#vvQtqO!s@^iaWh#JAU!S+VXH;k8>V>Z-01{c5Q9;6`ummDXx5* z5YWWllmHqY(&3YsoS_@*?nbl=s4UhT8}roU(>8A|>XU!reR}2S7neD$spW=-4p>HN5k+_vRtOaU-#&Q{+W>s~WNNKz0yiAm0ZxE3&>nCB`1a=p zr~tn8@okWAecVRt2w3{&%Sh|uDRT@`y8+#S9su8|BaqvB! zKog<;|cD}72i|=!bObrgJ4~hB@n=f7X zl=Mg7Xw%IHXNgDSCc_{Wctn4q*eCi}!N*6nLhh`=fmlfoA z4#-+#(42o_e^S!^g9pYPq0EG$B58cO*vskf^}$8Xd4V?f>{jo3F>L;6>G(WKl?%7Y zjn+g&<>l0mD31x=x$=feH*d*1Pwjdy_65%i*ZgL8JnW~u_ul*Bo0Y-aj#;LNGxa^_ zopLCB-&(+x?H+N$=f|W~9zg#RAx|jAkUQmpy*t2qs>Zx`g2l965Kepyg9iKRnh;3v zJCL+qkfvLZJT&BQN5UZNFy#=#Vh=%b{+JRZ-4@b4(2}Y9ueo7SKmRl{H-CRjbHi4{ z>jI*%FLds+7)qkiFM;@TfTdL))|uby5poIdiIP}#VHMtcSv--l3Cg?^y?(CQBL0e| zN*DU=N^f1Z_hYR@h-D?}`^^zIA8I@jbkgtd*N^H0O2r;@#9@K^$PS}`;ZQ+*Q#f}Y2VTXo#u-&<-v<@eq zVX|2vo!dp~F-!KlyjgH$|M$#3yH4BTgX?xlZpK$He$*yy=PS;;Vxr$im5oenv2Y(` z*;>uSNfKPW4EhRIhh>WjVOb+ov5%rrxzzAS+UP@2tbVSJrgzJKDSIh-t7cFaA+G>4 z@Fa0Bm5>x29IVx{>i!{;S2xj7-4P=1fC;gba%lA~O^+gVLJ7RkgQ1X1p^^)Q6zoV7 z@Ro1hk*Y#>e7owL`cBCA{!A~A!>1C2q;7yoY)U&K345B%+orB_mp^A<{_L%+AX>p@KD|hqUJDl>*jPGNOZKe$ zBrmpmm_iyHOKojJB0>Yg!rAVO9o7-rfRHE_m3!3WR5UvcRSIP~YKs8mHf*@jYI5&c z2g8xhU5D<>s8J{bLBdZzCbC?RIm-SsnT$IMWisy8vdKrLe^Vy+Gn(och4N2Y>aZ&T z88>9{{KUm;rv|NM@k;V`Vlk%QZ`5JI0U=@R``q2^gJBcsL+-42+{y3ReDaG6^Yhio zg)<8B3$t_ciZfgDLKnJbc90yJq|+bDkEi-M*KrcR5tT+!jlNdu$jYLttT}6Xuv>1u z5(n#J|8>EbRpKvb6WQ|nzivqIGat@>d30=|+hk4Oj3>RS zc>JVe@Wq+8+R8M>*n#^`???_>lN6g+-ecm$=Z~F|>-6s2b-~5I{7sHew9}5N%>E!j zera9+{Sdk>+UGwIg?YLq&eN~Ctoz&k?y-qH{%#kIZ_Sn7iOe{&ni5&UtazrotJ522 z>4@pRV~l;L;b&r@@8EvJnDS;6oWX4VELY}n)35%flEo~tXS$mKz%Xg99R=*Ijv!l) zjLRj@e|w7RSlyOA`l~gyL?Wx1=jm;aiZbN=CQm*Klt zdn=R3mbld57-EtfYrgNS(9e8&HgVCOlg5rlg|Uk0O7dnmqSItC>uw=#DQ5c8rOR3} zK=XC@rI_K@V}K-uyw(HmM(K^q%SGF-r_>X_EAX>cQ;*dYS^F9f{k?hLS$E(IKU6k5 zN^v$X!0EgMCI|Q9k^bK=xY+F7TA`qLR=2)`)nH+!6r3TtG)7p~4sREv;wwD2S;|pC zE~+YK!3VnOE4C+#Eau?rtXAX2LJoA*|8ZZkOZ}M;s|msscICYL-i6n#enRU(3&F67E+vDfP!WL!(>A-nOxYdvfC;vd9 zzt9J_8d?;_djP)q_7xIwd80o&vhXQ<$y1ti+t>R1Yn4_HA5T-KerA`Sd5pg4V;1cf ze}u2yt$h+O_(BNT6j=QxJ)7Bb@OqyuBds5YrMK(-7Qasq>k0e!3!V-`A-*LzbmYOE z9mt;3bTG;4j#r6_r9-cgr(V7KU$nXCb+OH0^ceCjr!w_wr9N=&C*n^U30#Cl`$fI@ zyYk19((NqKxR}kk9Kuq*uxD`xJoKq=Xsw$B3!UCvbXdVVySeBs-ey~txb2VnfY1K; z&~_g~$UY@D_bruv;n6P%?9Fwb&ki35u8#R%2z!7SrHJ~X(-jY0+{f!t#=#9NYnPLL z^u=^8bU(FM&1P4r&;Mq=f?fS~KWkpuHY1Uu6)jNjCux1-#L+^ zlDdg)-$kWF#=%B%LEaw3+|VVd+=^1#jI;qNEETzxFA@hx@-7wb=I$eRss1%z6H1 zMMo(&fC4>#n9fIwM@rC8yulbiI&oDfRZF6VblZ&ayuKhZ8mhO_3X(q+^_~fxStd(t zAtbid#%tcW=T!_Ti%I?0p9g6MRD?~t;M)7lmb2lTPQ&3{wJL;k2HgRG?3bB!qAu5LV^$io!nQ5g!$JOPH_!1Fpq~K7L31S3|u25=o@ZW)5A>8 z4!m#zNcl`9079#VVl~-^i9$i^32j)T|VR!JTnI;j$>a zjbnt{O;Om70>>3rLMI$6EqWj`u!?Pq{pwW!>^}vm+vc^RhL$IT68{u*h(&WVrSS`dQ-S2#mK~K#^?0DZ ztiF#zgx2mT{oMx~^)Q9l2MIm$=VUx?3YxIlCOr; z(zy^)n^feOL>R2lE-+0^Uk!UhQ~eADDJ#z()qhnc{g)$5k~hD{Y40sK7=MPwn2{W# zjnPVm-t+}EX%DAu&QrMrN7Ls9=#dY9OntOwtd>ec=AGV6I>G=^e2YxFph*-`?kDX3 zIbHCPv@e~m|1$Cz@>Apy3Z7)k2JACgC#%C>R5(o&Y=9D8D_WM457BUP0@acVo0s`f z8~G;+?h8$p)$wC3fs0cMk1W1`&>ShdmI|C(r}vP*7&$lh<^L$PeRFDw7Epjys5V5( zT2AgN`PT^YkUWh3*xUJ&{D_-FN3YhsRgdXgP&%Wmc;Z;_X~JqM@@n1{bi9cmSRPo1 z2j)L~LLM+g?E-Q&uc86lxk!d_D`+k`@Vj`X$H~YH2WzNYG=wdt1cmb(Fh@*}z3~IY z2O0)TbW9YJWwBl>IZuPGH;cH1FBXt=egU?3zI_|8OB43SEJ|QSd2OU=8>p?6x&gO4 zX48NP*+uXAD>Qw(f+nZ#+itO2#APVYqOV29e=v6j_s$zJeSLS+%&%^g~^9m86}s zDP!w=cmQ@k;V7$#szub9vsE8yd@kAih!#3-I(j@z-P~(rNNK|o8fRU}*@=CV;UWzm zD)zK%_@u(`wW0#6xT*5}rTWFb)-uaU^M;DOS#_o#^BL}eQ=I9?U$gjDG?0I>^&dP_ zZT>`@nUPmgSXP{qR}xs9S5m?2w}~w%%g>MFQGuj3>0$t#mOm^0x=X^;xaXF!px$us zElRbbk1UL!v*uSh?&0+;%j(z3(DpsrppY^W#TEP(ML)`vHhPKYS#6q)VfksgWG#v7 z=*7mR^|yZ1nkwC-mu`~Wh*rAVPgK)5X+4Q+*ttbEQtcib@6;EuNqAi%dl=0_PLkAk ztHalN47#i|G294O>D&(T*msTm?eVdRUn=EyUL~E67)RqJXO$=y43WER%|Baz#o5`g z>>jDCuo7Gz_$^fF>qF#06AbHv#WEXd#Q{s#aEruSns^;~c?MKgW6o=Kuh!MB7(Ot5 z5d!!AO+CeB`V7kEjZbEY^S822iJpe=^K{bj|HYV1E5!#b3R%*|n{-kt`WSwo@_6x@ zSp!+_{lfh*7SpzyFA4YDx!uQeCrsvbvW{Lmf z5l9$8mGo6V(O13&%BuTnC1)S}6tw+T*^R~Tb;tH`NS*#l@JhF-nq{3v=x-}%V4IWc zBS*N~`bTg7a`lk&y)ZM49;9lRvN_OS7LSs^JQF+mOpXcJ`|O67*1sH+-TwJSeQtfW zEw=K7fHirqTa^TQys|q-R)*|DKdls+E}HIOnni}o23z%_O5N-B!XpmtSH3gy z96evL{JFP_1{7^-=U1@iOxf8W`Sx~@WHm(WBW;*Op}x&FCawHDT^X#6hzN)>UArkP zp2p8GJ=u_9?y_pG`V#l2Gu`l$yH?J&aNKY{469(e+39v?D+w>d&yco{gz0d;)tH@d z-OWz8GiE2;0cVqMEGSGA*5E$NUnh#fC!pVD_Q`EA`{asDKDl;6wAm?lLw3rUe(iGB z-AkG?RGcf-E+rdwGe^a|Q!|{Vwz@DR)%F$V-k%R8@ZpSK@~$B}KP*PRLv%4+^p+~p z#if=@zwF%HDF&!nrzW;H92_R%y2&|rbqi=k8&-`Ue(@Vh@*WrY!;P_vv&n9=T%CbW z@eww{=}jDA-;5*V-SIcX_rWYAiwtFLK9bLeKw{APZ?Dfm;b zUcI{BQB_}IxU4j6wXX{ckqJGLN)Y;Bk@Gt5-o49f0Fi)jr%pBlca$vzBN+vQX@BD9 zm{T<5g-h4YLo!wyvS>A_23LBMJSFdo3}!Y#Fzs-1rHf_7^PfXbA36TPWQ+J7d+(X} zXuOppg7bS}&UphdcSR@>y%BB*UhmbFpU2!2;fJt6So`%x+5usQ2oQvLArOg`2z!J- zA`a0X;e-fAgd+HW{V)$fL?dEx$$pswkm5u7V(x+%h#IjD!}&a=Ab)O`94~8;PD7+4 zh9R=K@|Kq=XiBCx6j}-@l@4p3NAMOr(Z)>k&14LaKR4%}4O* z8Zf_S5be-kWDsd^{9`o?@0cfU5T0|RJZKQkM{kkpxpBBbJP$U!=r$AT$UTG`insWC8m9MshN0g_ zjU2!=X@wj5jXQ#uJu&w}^h0>l8PS7!^W_91LJ*xh@_qxx=n;QYbGHlyR{#%XDHLtb zB6T^3R=ZV$Grj4SO@<5XxUVdNyeH6E0b>;0$~?p*Y2_)Ty5dzZIv$|IG*Pxgk#{4B z-f^4D@JH6w}AGA!-TWZMgw$mZKhSKFu@1$Q&Vm_2Z<@*Tn= zZ+=xyt7=B_0cb}Jj*Gc|u9VwWqLil{y)*ZS3^$P-9LF8Rr9e!HP-9{7sjDmB({hV-rRPf|=N!FvgW(%Yf)i2-Q!pfU0Y9K|y37Nl~l z;}+}5N%Y&|(e_fD^DW$Bkd9)5?Q2*HjHcByvJ^f@@_kCGv^631lAPWNPqkf!WTQY+ zBT_xM!tP-4b;Ku#4G2kzDt~4-WL^`fLS1l=vy%C0mz6 z`dGcTZoHhI5?wXRm)3s*2A29U9AW?70SU~o1&jSRgE#A3OZ-i#sqJ7a86oG_1*wV6 z4x}c~*+EC?u+mzEGnPE8b+lt(=*lTFPj%_G&B=R57k(7n+B?i)(LTB(f6Ag`FCLpX z<;~x-H-&EnJc(TB^ppuyo1kqP0!@XWeuDgUgqLq?;a@t=42@X!{72jE-qn9`r|RGo z^JjTm&Y)LKO;fAy`NB^MO{L}(tufuzxH^kYnXV?wJS?k;C?j5`UDLC`I0ki@j8h(F zowi9oW+^E7-qr^Zz}Zm~NPvSkUY;UmMem19GCsy3u0D-6b8xb*eW7vD&~=`wKbwhLRfemQvZ z@wu&E=67OAB-r6;BoGbY;|W&LCxsCM-VA(osvd z7@O)xTu_s|@h&Sjh`pdA_QpxG`ak`)(RTeuGyP+x@4VBnOH}UHCtvHBa$xI$ez5t_ z=gkKsSF@eUP?;{YdD5BwOGj7QWbL`?eq+=3uYVNj5>uQp*16@`iw?1SzEa+u?06ix(+YVnOB!f|v1_c|h+L;m$Y5@9TsKMs}&tysSBqX(`B4_C<(Fn_o&y8i-Sv;;!kAkffJv9ZkjBnkGIF|DAyw4$^~A6`&8V{l%@ zjEGrL>dNvGYL3>sg%0Q=3z;YU~tmij%*j}mJ=&#lMGpOD{**n{|Um&`uQ+Yn~N0fe>PL8RYC z9O=R1b;tR}^W+KSo<#7Q96y2n6LU3!OPs^}UBr6`z7bzQa6V5Lk-pSbzKr>2eEIhO z)5ZCm?uc~v{9i0}AZ{YQM%+StgSbtvB)jzOdB**NN0);#udFO$MqbIZB3*@^2O!nf znrX{RTVab7hL_Jmuile?N{B8ul(Q3IL`e-Vd9m6Zpk;<_P}^H0SbtC{Y}pQoh8wgt zzKtypBSDWSOU-FM^x1>}_=?uX4)xRYNONoAV#4C0Et?2#UHD5crSvzMf3F4ONHtrv ziMX=kV~EGUBH&RXARdkMSR+8$GXjjE!z^C~q1iIfSnek_^*H1sTyuZc2Q=2$l8&!m z(+8SX!2HEHW4zc&_pPf_8_lE7CcB+gq@=GcUsZZ*QR3kGyzh)miV9^rBvx-1gmd zGdX>{y2d}QbWR`Me^;MssZ$(Zngq}Bi9~B13=8zq%Kp^6(g2w>ZPPF+f7O+quMakv z>$T7_uL@wXY4*A~z%P?c*~G2qWwKX~Gs$%K)daBjYO78903WuN(>&89lkcj00HC$2 zJ;|7O)2=tONK1>OyjNcwbUYrPc|rlbyDU?>jJhCCx?xa#-I;qAP?P?RrT@Gd+%$_k zl15CLT}oS1%C0I0Q_lVjB92OdoxseM;L2XE1cm6W1wByXyG6|LImi|FMnkLYCnc`} zZERDD%Bj#{zhM#(W*$QvMaNmNK*q++hpFsF8mO!y3uTnFy)60`!z2&`OW*=f%>e~9 zpasHlTPLR;RcF{!>=2pcv5q0I+Yi5h1Z1(xnK`1q9| zOvY<|sW3yB@zCzRk!?7R+Pu*SMPg9{Gytn(XdA^ExN6gn&mu~Q#T#K1KAA?~BWMDK z8;^Q{9a;|q@G8h3CyVh%jSm8)!taC<%PSEEN;1>F0ee}>8=#@>G=q!J3ZA9B8Gen z&-}7ZHfpy6)bE5~mbw!{`6s84l@{{K^pTt1ZLA&FxqCAkyc4`Pd<`Ab3%ha>&UZJ} zGEX_Fjtu_w=XZ!beX7TtrGbyJmtDwdzP1in#MWJdQ_3>S2VVvM;A1Bb!ywqtwXo!e z6%3Vhnoa!_I>f8CHb?gbYYbN=nql zChEfT6O;1La51sr`SJ0(@R+!m!o-58qQZh`oiu?{l6>H!$cx5na0cY|LdO4l@y>mE zei`FC0?cJIHKauK06T~-pX2WI0Q2W$@B89rV<(U><`qD^oOnE0lP?l!;*La;En^`8 zq!&N8yOTRo6LH6@^B_gtZYFu?Y>_;J|K#ej6B~;c0&&Q7cnjQerA<=m!aN^o9=#cL z>{Jjs#|a-YR75BJ1lVOQNn~GK2WQslMFz3$H(&@m8BS8!jn84^zs&Tw%*3vwkylu= zEy2(KBVbd11m0#fxn%m|v6zS!n@L2kiR74!?bnb{rkY3`#54^_lRJGS9p&5+!pv$L z{LcbIFFR+MOUWQo#?qc3eVICzFnkje1>JuI(`yvCZ_NvhbKgY9}p2(yHIR4o6mM<-2t?Gn?p5w*Cx zf^_s8!$34PaDV+8xfnZ}Ot7Wt4XxC7q$AV+j(o`ES!4n|-4Mz-Vml>=fwr$&%;r@R zH!=8SQrwpnmSL!rHINK;V=GaDn(e41S43RO1f^K^7O9ePiNj)DE2#(8^bYY5n^uxf zd(#gSQ(5&IEY|EL`(*6k3R2HhRU}&M+)sAduodgc3Z??t`*xNE4Yn-x#|8?MvzE;y zy}pt7gNiL*Pjpme&S7gt5pU+ZmbkGCa@kJS-U7Q>-4S9ddTk}eb`Q*Lv(1mrK*SlO z1D{O({e6nq=T*YSw~@p6l<&21fxQgiJ5=~Z`hnJ$Emq3DV(IVU_Wps5>_h05V<`6p zD=#JcSfZoM-}370qQ_^{8E7)gO8EwGe@}M!z|F78>`bt1CMyY$En%5HvLT}O&tS&y m%Gwya{AneVtKwtXm%%b0=2=Jv*89m8FteWQ6BC1Q1^)-T^RT@D diff --git a/Crunchyroll Downloader/Anime_Add.vb b/Crunchyroll Downloader/Anime_Add.vb index 9acd68a..eb6df75 100644 --- a/Crunchyroll Downloader/Anime_Add.vb +++ b/Crunchyroll Downloader/Anime_Add.vb @@ -10,6 +10,7 @@ Imports MetroFramework.Components Imports CefSharp Imports System.Text Imports System.Runtime.InteropServices.ComTypes +Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Status Public Class Anime_Add Public Mass_DL_Cancel As Boolean = False @@ -131,6 +132,8 @@ Public Class Anime_Add 'MsgBox(Cookies) Main.CR_Cookies = " -H " + Chr(34) + Main.CR_Cookies + Chr(34) + + #End Region Dim Auth As String = " -H " + Chr(34) + "Authorization: " + Main.CrBetaBasic + Chr(34) Dim Post As String = " -d " + Chr(34) + "grant_type=etp_rt_cookie" + Chr(34) + " -X POST" @@ -139,7 +142,21 @@ Public Class Anime_Add Dim v1Token As String = Main.CurlPost("https://www.crunchyroll.com/auth/v1/token", Main.CR_Cookies, Auth, Post) - If CBool(InStr(v1Token, "curl:")) = True Then + If CBool(InStr(v1Token, "curl:")) = True And CBool(InStr(v1Token, "400")) = True Then + + v1Token = Main.CurlPost("https://www.crunchyroll.com/auth/v1/token", Main.CR_Cookies, Auth, Post.Replace("etp_rt_cookie", "client_id")) + + End If + + + If CBool(InStr(v1Token, "curl:")) = True And CBool(InStr(v1Token, "400")) = True Then + Me.StatusLabel.Text = "Status: Failed - bad request, check CR login" + Main.Text = "Status: Failed - bad request, check CR login" + Debug.WriteLine("Status: Failed - bad request, check CR login") + Main.b = True + Exit Sub + + ElseIf CBool(InStr(v1Token, "curl:")) = True Then v1Token = Main.CurlPost("https://www.crunchyroll.com/auth/v1/token", Main.CR_Cookies, Auth, Post) End If @@ -219,6 +236,7 @@ Public Class Anime_Add Dim ObjectJson As String Try ObjectJson = Main.Curl(ObjectsUrl) + 'MsgBox(ObjectJson) If CBool(InStr(ObjectJson, "curl:")) = True Then ObjectJson = Main.Curl(ObjectsUrl) @@ -227,6 +245,12 @@ Public Class Anime_Add If CBool(InStr(ObjectJson, "curl:")) = True Then CefSharp_Browser.WebBrowser1.Load(Url) Exit Sub + ElseIf CBool(InStr(ObjectJson, "videos/")) = False Then + + StatusLabel.Text = "Status: Failed - no video, check CR login" + Main.Text = "Status: Failed - no video, check CR login" + Debug.WriteLine("Status: Failed - no video, check CR login") + Exit Sub End If 'Try @@ -491,8 +515,8 @@ Public Class Anime_Add Main.b = False Debug.WriteLine("Start loading: " + Date.Now.ToString) - LoadBrowser(textBox1.Text) StatusLabel.Text = "Status: loading ...." + LoadBrowser(textBox1.Text) Else Debug.WriteLine("Not Ready!") End If @@ -836,15 +860,20 @@ Public Class Anime_Add End If Try Dim ItemFinshedCount As Integer = 0 - For i As Integer = 0 To Main.ListView1.Items.Count - 1 - If Main.ItemList(i).GetIsStatusFinished() = True Then + Dim Item As New List(Of CRD_List_Item) + Item.AddRange(Main.Panel1.Controls.OfType(Of CRD_List_Item)) + + For i As Integer = 0 To Item.Count - 1 + Debug.WriteLine(Item(i).GetIsStatusFinished().ToString) + If Item(i).GetIsStatusFinished() = True Then ItemFinshedCount = ItemFinshedCount + 1 End If Next - Main.RunningDownloads = Main.ListView1.Items.Count - ItemFinshedCount + + Main.RunningDownloads = Item.Count - ItemFinshedCount Catch ex As Exception - Main.RunningDownloads = Main.ListView1.Items.Count + Main.RunningDownloads = Main.Panel1.Controls.Count End Try If Main.RunningDownloads < Main.MaxDL Then @@ -882,10 +911,10 @@ Public Class Anime_Add Main.WebbrowserURL = UriUsed ListBox1.Items.Remove(ListBox1.Items(0)) Main.b = False - LoadBrowser(UriUsed) + StatusLabel.Text = "Status: loading in browser" Main.Text = "Status: loading in browser" - + LoadBrowser(UriUsed) Main.Invalidate() End If @@ -985,8 +1014,11 @@ Public Class Anime_Add If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then ComboBox2.Items.Clear() Main.Pfad = FolderBrowserDialog1.SelectedPath - Dim rk0 As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader") - rk0.SetValue("Ordner", Main.Pfad, RegistryValueKind.String) + 'Dim rk0 As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader") + 'rk0.SetValue("Ordner", Main.Pfad, RegistryValueKind.String) + My.Settings.Pfad = Main.Pfad + My.Settings.Save() + ComboBox2.Items.Add(SubFolder_automatic) ComboBox2.Items.Add(SubFolder_automatic2) diff --git a/Crunchyroll Downloader/App.config b/Crunchyroll Downloader/App.config index 7057269..ca8ac4b 100644 --- a/Crunchyroll Downloader/App.config +++ b/Crunchyroll Downloader/App.config @@ -1,5 +1,10 @@  + + +
+ + @@ -21,4 +26,123 @@ + + + + + False + + + + + + None + + + -c copy -c:a copy -bsf:a aac_adtstoasc + + + None + + + Disabled + + + Disabled + + + Disabled + + + [ ignore subfolder ] + + + + + + https://www.crunchyroll.com/ + + + [default season prefix] + + + [default episode prefix] + + + + + + .mp4 + + + [merge disabled] + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 8 + + + 0 + + + 1 + + + 1080 + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + None + + + 0 + + + diff --git a/Crunchyroll Downloader/CRD_List_Item.Designer.vb b/Crunchyroll Downloader/CRD_List_Item.Designer.vb index 6b16805..78f3e6d 100644 --- a/Crunchyroll Downloader/CRD_List_Item.Designer.vb +++ b/Crunchyroll Downloader/CRD_List_Item.Designer.vb @@ -149,7 +149,7 @@ Partial Class CRD_List_Item ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ViewInExplorerToolStripMenuItem, Me.PlaybackVideoFileToolStripMenuItem, Me.LogTocClipboard, Me.SaveToFile}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(190, 114) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(190, 92) ' 'ViewInExplorerToolStripMenuItem ' @@ -213,6 +213,7 @@ Partial Class CRD_List_Item Me.Controls.Add(Me.bt_del) Me.Controls.Add(Me.bt_pause) Me.Controls.Add(Me.PB_Thumbnail) + Me.DoubleBuffered = True Me.Name = "CRD_List_Item" Me.Size = New System.Drawing.Size(838, 142) CType(Me.PB_Thumbnail, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/Crunchyroll Downloader/CRD_List_Item.vb b/Crunchyroll Downloader/CRD_List_Item.vb index 7bc8a4a..c0d256c 100644 --- a/Crunchyroll Downloader/CRD_List_Item.vb +++ b/Crunchyroll Downloader/CRD_List_Item.vb @@ -31,7 +31,6 @@ Public Class CRD_List_Item Dim TempFolder As String = Nothing Dim DownloadPfad As String = Nothing Dim ThumbnailSource As String = Nothing - Dim ToDispose As Boolean = False Dim Failed As Boolean = False Dim FailedCount As Integer = 0 Dim HistoryDL_URL As String @@ -57,20 +56,15 @@ Public Class CRD_List_Item Dim FailedSegments As New List(Of FailedSegemtsWithURL) Dim LogText As New List(Of String) + Private Event UpdateUI(ByVal Percent As Integer, ByVal di As DirectoryInfo, ByVal Idle As Integer) Dim PauseTime As Integer = 0 Dim Threads As Integer = Main.HybridThread 'CInt(Environment.ProcessorCount / 2 - 1) -#Region "Remove from list" - Public Sub DisposeItem(ByVal Dispose As Boolean) - If Dispose = True Then - Me.Dispose() - End If - End Sub - Public Function GetToDispose() As Boolean - Return ToDispose - End Function -#End Region + + + + #Region "UI" Private Sub CRD_List_Item_Resize(sender As Object, e As EventArgs) Handles Me.Resize @@ -419,6 +413,9 @@ Public Class CRD_List_Item If Threads < 2 Then Threads = 2 End If + + + 'bt_del.SetBounds(775, 10, 35, 29) 'bt_pause.SetBounds(740, 15, 25, 20) 'PB_Thumbnail.SetBounds(11, 20, 168, 95) @@ -437,9 +434,10 @@ Public Class CRD_List_Item 'MetroStyleManager1.Theme = Main.Manager.Theme End Sub - Public Function GetTextBound() As Integer + Public Function GetTextBound() As Rectangle 'Return Label_website.Location.Y - Return bt_del.Size.Height + 'Return bt_del.Size.Height + Return Me.Bounds() End Function @@ -448,12 +446,30 @@ Public Class CRD_List_Item Public Sub StartDownload(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String, ByVal DownloadHybridMode As Boolean, ByVal TempFolder As String) 'MsgBox(DL_URL) + + Me.StyleManager = MetroStyleManager1 Me.TempFolder = TempFolder DownloadPfad = DL_Pfad HistoryDL_URL = DL_URL HistoryDL_Pfad = DL_Pfad HistoryFilename = Filename + + 'If (Me.InvokeRequired) Then + ' Me.Invoke(Sub() + + + ' 'MsgBox(True.ToString) + ' Label_percent.Text = "selected subtiles have been dowloaded" + ' Canceld = True + ' End Sub) + 'Else + ' ' MsgBox(False.ToString) + ' Label_percent.Text = "selected subtiles have been dowloaded" + ' Canceld = True + 'End If + 'Exit Sub + If CBool(InStr(DL_URL, "-i [Subtitles only]")) Then Me.Invoke(New Action(Function() As Object @@ -481,7 +497,8 @@ Public Class CRD_List_Item - Private Function TS_StatusAsync(ByVal prozent As Integer, ByVal di As IO.DirectoryInfo, ByVal pausetime As Integer) As Object + Private Sub TS_StatusAsync(ByVal prozent As Integer, ByVal di As IO.DirectoryInfo, ByVal pausetime As Integer) Handles Me.UpdateUI ' As Object + Dim FinishedSize As Double = 0 Dim AproxFinalSize As Double = 0 @@ -523,6 +540,8 @@ Public Class CRD_List_Item ElseIf prozent < 0 Then prozent = 0 End If + + Try Me.Invoke(New Action(Function() As Object @@ -535,9 +554,9 @@ Public Class CRD_List_Item End Try End If - Return Nothing + 'Return Nothing - End Function + End Sub #Region "ThreadChecker" @@ -689,8 +708,9 @@ Public Class CRD_List_Item Count = Count + 1 Dim FragmentsFinised = Count * 100 / FragmentsInt - Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime)) - Update.Start() + 'Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime)) + 'Update.Start() + RaiseEvent UpdateUI(CInt(FragmentsFinised), di, PauseTime) ElseIf zeile.Contains("URI=" + Chr(34)) Then Dim Zeile2() As String = zeile.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) @@ -895,8 +915,9 @@ Public Class CRD_List_Item m3u8FileContent = m3u8FileContent + File + vbLf Dim FragmentsFinised = Count * 100 / FragmentsInt - Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime)) - Update.Start() + 'Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime)) + 'Update.Start() + RaiseEvent UpdateUI(CInt(FragmentsFinised), di, PauseTime) Count = Count + 1 ElseIf textLenght(i) = "#EXT-X-PLAYLIST-TYPE:VOD" Then @@ -1027,15 +1048,42 @@ Public Class CRD_List_Item Public Function DownloadHybrid(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String LogText.Add(Date.Now.ToString + " " + DL_URL) + Dim Folder As String = GeräteID() Dim DL_URL_old As String = DL_URL Dim PauseTime As Integer = 0 Dim Pfad2 As String = TempFolder + "\" + Folder + "\" 'Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\" + Folder + "\" + + If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then + ' Nein! Jetzt erstellen... + Try + Directory.CreateDirectory(Path.GetDirectoryName(Pfad2)) + Catch ex As Exception + Debug.WriteLine("folder issue") + Return "Error" + Exit Function + End Try + End If + + If CBool(InStr(DL_Pfad, "CRD-Temp-File-")) Then Pfad2 = DL_Pfad.Replace(Chr(34), "") + "\" Dim DL_PfadSplit() As String = DL_Pfad.Split(New String() {"CRD-Temp-File-"}, System.StringSplitOptions.RemoveEmptyEntries) DL_Pfad = Chr(34) + DL_PfadSplit(0) + Filename + Chr(34) End If + + If CBool(InStr(DL_URL, "-mdata.txt" + Chr(34))) Then + Dim DL_URLSplit() As String = DL_URL.Split(New String() {"-mdata.txt" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) + Dim DL_URLSplit1() As String = DL_URLSplit(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) + Dim mdataFile As String = DL_URLSplit1(DL_URLSplit1.Count - 1) + "-mdata.txt" + Debug.WriteLine(mdataFile) + Dim mdata As String = ReadText(mdataFile) + Dim newMdata As String = Path.Combine(Pfad2, "mdata.txt") + Debug.WriteLine(newMdata) + WriteText(newMdata, mdata) + DL_URL = DL_URL.Replace(mdataFile, newMdata) + End If + Dim di As New IO.DirectoryInfo(Pfad2) Dim m3u8_url As String() = DL_URL.Split(New [Char]() {Chr(34)}) Dim m3u8FFmpeg As String = Nothing @@ -1148,9 +1196,9 @@ Public Class CRD_List_Item Next - TS_StatusAsync(100, di, PauseTime) - + 'TS_StatusAsync(100, di, PauseTime) + RaiseEvent UpdateUI(100, di, PauseTime) If CBool(InStr(DL_URL, " -headers " + My.Resources.ffmpeg_user_agend)) = True And CBool(InStr(DL_URL, "https:\\")) = False Then DL_URL = DL_URL.Replace(" -headers " + My.Resources.ffmpeg_user_agend, "") @@ -1212,8 +1260,10 @@ Public Class CRD_List_Item startinfo.UseShellExecute = False startinfo.WindowStyle = ProcessWindowStyle.Hidden startinfo.RedirectStandardError = True - startinfo.RedirectStandardInput = True + 'startinfo.RedirectStandardInput = True startinfo.RedirectStandardOutput = True + startinfo.StandardErrorEncoding = Encoding.UTF8 + startinfo.StandardOutputEncoding = Encoding.UTF8 startinfo.CreateNoWindow = True proc = New Process proc.EnableRaisingEvents = True @@ -1417,7 +1467,7 @@ Public Class CRD_List_Item If MessageBox.Show("The Download is not running anymore, press ok to remove it from the list.", "Remove from list!", MessageBoxButtons.OKCancel) = DialogResult.Cancel Then Exit Sub End If - ToDispose = True + Me.Dispose() ElseIf HybridRunning = True Then If MessageBox.Show("Are you sure you want to cancel the Download?", "Cancel Download!", MessageBoxButtons.YesNo) = DialogResult.No Then Exit Sub @@ -1430,7 +1480,8 @@ Public Class CRD_List_Item If MessageBox.Show("The Download is not running anymore, press ok to remove it from the list.", "Remove from list!", MessageBoxButtons.OKCancel) = DialogResult.Cancel Then Exit Sub End If - ToDispose = True + + Me.Dispose() Else If MessageBox.Show("Are you sure you want to cancel the Download?", "Cancel Download!", MessageBoxButtons.YesNo) = DialogResult.No Then Exit Sub diff --git a/Crunchyroll Downloader/CefSharp_Browser.vb b/Crunchyroll Downloader/CefSharp_Browser.vb index 8edfd66..3038fa0 100644 --- a/Crunchyroll Downloader/CefSharp_Browser.vb +++ b/Crunchyroll Downloader/CefSharp_Browser.vb @@ -15,7 +15,7 @@ Public Class CefSharp_Browser - Public keks As String = Nothing + 'Public keks As String = Nothing 'Public c As Boolean = True Dim t As Thread Public ScanTrue As Boolean = False @@ -26,6 +26,14 @@ Public Class CefSharp_Browser Dim Document As String = "" Dim Cookie As String = "" + Dim LoadingUrl As String = "" + + Private Sub WebBrowser1_FrameLoadStart(sender As Object, e As FrameLoadStartEventArgs) Handles WebBrowser1.FrameLoadStart + LoadingUrl = e.Url + Main.LoadedUrls.Clear() + End Sub + + Private Sub WebBrowser1_FrameLoadEnd(sender As Object, e As FrameLoadEndEventArgs) Handles WebBrowser1.FrameLoadEnd @@ -194,64 +202,14 @@ Public Class CefSharp_Browser Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Btn_Scan.Click - If CBool(InStr(WebBrowser1.Address, "https://proxer.me/read/")) Then - Main.WebbrowserURL = WebBrowser1.Address - Dim NameDLFinal As String = Nothing - Dim NameDL As String() = Document.Split(New String() {"
"}, System.StringSplitOptions.RemoveEmptyEntries) - Dim NameDL2 As String() = NameDL(1).Split(New String() {"
"}, System.StringSplitOptions.RemoveEmptyEntries) - Dim NameDL3 As String() = NameDL2(0).Split(New String() {Chr(34) + "true" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries) - For i As Integer = 0 To NameDL3.Count - 1 - If CBool(InStr(NameDL3(i), "")) Then - Dim NameDL4 As String() = NameDL3(i).Split(New String() {""}, System.StringSplitOptions.RemoveEmptyEntries) - If NameDLFinal = Nothing Then - NameDLFinal = NameDL4(0) - Else - NameDLFinal = NameDLFinal + " " + NameDL4(0) - End If - End If - Next - NameDLFinal = String.Join(" ", NameDLFinal.Split(Main.invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c) ''System.Text.RegularExpressions.Regex.Replace(NameDLFinal, "[^\w\\-]", " ") - If Main.Debug2 = True Then - MsgBox(NameDLFinal) - End If - Dim SiteData As String() = Document.Split(New String() {"var pages ="}, System.StringSplitOptions.RemoveEmptyEntries) - Dim SiteData2 As String() = SiteData(1).Split(New String() {""}, System.StringSplitOptions.RemoveEmptyEntries) - Dim ImageNumbers As String() = SiteData2(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) - Dim ImageList As New List(Of String) - Dim ImageListString As String = Nothing - For i As Integer = 0 To ImageNumbers.Count - 1 - If CBool(InStr(ImageNumbers(i), ".jpg")) Then - ImageList.Add(ImageNumbers(i).Replace(vbNewLine, "")) - ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "") - ElseIf CBool(InStr(ImageNumbers(i), ".png")) Then - ImageList.Add(ImageNumbers(i).Replace(vbNewLine, "")) - ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "") - End If - Next - If Main.Debug2 = True Then - MsgBox(ImageListString) - End If - Dim BaseURL As String() = SiteData2(0).Split(New String() {"var serverurl = '"}, System.StringSplitOptions.RemoveEmptyEntries) - Dim BaseURL2 As String() = BaseURL(1).Split(New String() {"';"}, System.StringSplitOptions.RemoveEmptyEntries) - Dim BaseURL3 As String = "https:" + BaseURL2(0) - If Main.Debug2 = True Then - MsgBox(BaseURL3) - End If - 'AsyncWorkerX.RunAsync(AddressOf Main.DownloadMangaPages, BaseURL3, ImageList, Main.RemoveExtraSpaces(NameDLFinal)) - Dim Thumbnail As String = BaseURL3 + ImageList(0) - Main.MangaListItemAdd(Main.RemoveExtraSpaces(NameDLFinal), Thumbnail, BaseURL3, ImageList) - - ElseIf CBool(InStr(WebBrowser1.Address, "cr-cookie-ui.php")) Then - 'MsgBox(WebBrowser1.Document.Body.InnerHtml) - Else - Main.m3u8List.Clear() - Main.mpdList.Clear() + Main.m3u8List.Clear() + Main.mpdList.Clear() Main.txtList.Clear() Btn_Scan.Enabled = False ScanTrue = True Main.LogBrowserData = True NetworkScanEnd() - End If + End Sub Private Sub GeckoFX_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged @@ -262,127 +220,107 @@ Public Class CefSharp_Browser Private Sub ObserveHttp(e As RequestResourceEventArgs) 'Handles RequestResource.GetUrl - 'Debug.WriteLine(e.Request.Url) - 'Debug.WriteLine(e.Request.Url) - - 'If (Me.InvokeRequired) Then - ' If Main.b = True And Main.FunimationJsonBrowser = Nothing Then - - ' Exit Sub - ' Else - ' Debug.WriteLine("false i guess?") - ' Debug.WriteLine(Main.b.ToString) - ' Debug.WriteLine(Main.FunimationJsonBrowser) - ' End If - - 'Else - ' If Main.b = True And Main.FunimationJsonBrowser = Nothing Then - ' Exit Sub - ' Else - ' Debug.WriteLine("false i guess?") - ' Debug.WriteLine(Main.b.ToString) - ' Debug.WriteLine(Main.FunimationJsonBrowser) - ' End If - 'End If - - - - If (Me.InvokeRequired) Then - Me.Invoke(Sub() - If CBool(InStr(e.Request.Url, "crunchyroll.com")) = True And CBool(InStr(e.Request.Headers, "Basic ")) = True And Main.CrBetaBasic = Nothing Then - Dim Basic As String() = e.Request.Headers.Split(New String() {"Basic "}, System.StringSplitOptions.RemoveEmptyEntries) - Dim Basic2 As String() = Basic(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) - Main.CrBetaBasic = "Basic " + Basic2(0) - Debug.WriteLine(Main.CrBetaBasic) - End If - - - - End Sub) - Else - If CBool(InStr(e.Request.Url, "crunchyroll.com")) = True And CBool(InStr(e.Request.Headers, "Basic ")) = True And Main.CrBetaBasic = Nothing Then - - Dim Basic As String() = e.Request.Headers.Split(New String() {"Basic "}, System.StringSplitOptions.RemoveEmptyEntries) - Dim Basic2 As String() = Basic(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) - Main.CrBetaBasic = "Basic " + Basic2(0) - Debug.WriteLine(Main.CrBetaBasic) + If CBool(InStr(LoadingUrl, "crunchyroll.com")) Then + If CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "streams?")) Then + Debug.WriteLine("Crunchyroll-Single: " + e.Request.Url) + If (Me.InvokeRequired) Then + Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) + Exit Sub + Else + Main.LoadedUrls.Add(e.Request.Url) + Exit Sub + End If + ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "/objects/")) And CBool(InStr(e.Request.Url, "/watch/")) Then + If (Me.InvokeRequired) Then + Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) + Exit Sub + Else + Main.LoadedUrls.Add(e.Request.Url) + Exit Sub + End If + Debug.WriteLine(e.Request.Url) + ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "seasons?series_id=")) Then + Debug.WriteLine("Crunchyroll-Season: " + e.Request.Url) + If (Me.InvokeRequired) Then + Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) + Exit Sub + Else + Main.LoadedUrls.Add(e.Request.Url) + Exit Sub + End If End If + If (Me.InvokeRequired) Then + Me.Invoke(Sub() + If CBool(InStr(e.Request.Url, "crunchyroll.com")) = True And CBool(InStr(e.Request.Headers, "Basic ")) = True And Main.CrBetaBasic = Nothing Then + Dim Basic As String() = e.Request.Headers.Split(New String() {"Basic "}, System.StringSplitOptions.RemoveEmptyEntries) + Dim Basic2 As String() = Basic(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) + Main.CrBetaBasic = "Basic " + Basic2(0) + Debug.WriteLine(Main.CrBetaBasic) + End If + + + + End Sub) + Else + If CBool(InStr(e.Request.Url, "crunchyroll.com")) = True And CBool(InStr(e.Request.Headers, "Basic ")) = True And Main.CrBetaBasic = Nothing Then + + Dim Basic As String() = e.Request.Headers.Split(New String() {"Basic "}, System.StringSplitOptions.RemoveEmptyEntries) + Dim Basic2 As String() = Basic(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) + Main.CrBetaBasic = "Basic " + Basic2(0) + Debug.WriteLine(Main.CrBetaBasic) + + End If + + End If + ElseIf CBool(InStr(LoadingUrl, "funimation.com")) Then + If CBool(InStr(e.Request.Url, "?deviceType=web")) Then + 'Debug.WriteLine(e.Request.Url) + Dim parms As String() = e.Request.Url.Split(New String() {"?deviceType="}, System.StringSplitOptions.RemoveEmptyEntries) + Main.FunimationDeviceRegion = "?deviceType=" + parms(1) + + End If + If CBool(InStr(e.Request.Url, "https://title-api.prd.funimationsvc.com")) Then + Debug.WriteLine("Funimtaion: " + e.Request.Url) + If (Me.InvokeRequired) Then + Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) + Exit Sub + Else + Main.LoadedUrls.Add(e.Request.Url) + Exit Sub + End If + ElseIf CBool(InStr(e.Request.Url, "/data/v2/shows/")) Then + Debug.WriteLine("Funimtaion: " + e.Request.Url) + If (Me.InvokeRequired) Then + Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) + Exit Sub + Else + Main.LoadedUrls.Add(e.Request.Url) + Exit Sub + End If + ElseIf CBool(InStr(e.Request.Url, "/data/v1/episodes/")) Then + Debug.WriteLine("Funimtaion: " + e.Request.Url) + If (Me.InvokeRequired) Then + Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) + Exit Sub + Else + Main.LoadedUrls.Add(e.Request.Url) + Exit Sub + End If + End If End If - - - ' 'Debug.WriteLine(e.Request.Url) - If CBool(InStr(e.Request.Url, "?deviceType=web")) Then - 'Debug.WriteLine(e.Request.Url) - Dim parms As String() = e.Request.Url.Split(New String() {"?deviceType="}, System.StringSplitOptions.RemoveEmptyEntries) - Main.FunimationDeviceRegion = "?deviceType=" + parms(1) - End If - If CBool(InStr(e.Request.Url, "https://title-api.prd.funimationsvc.com")) Then - Debug.WriteLine("Funimtaion: " + e.Request.Url) - If (Me.InvokeRequired) Then - Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) - Exit Sub - Else - Main.LoadedUrls.Add(e.Request.Url) - Exit Sub - End If - ElseIf CBool(InStr(e.Request.Url, "/data/v2/shows/")) Then - Debug.WriteLine("Funimtaion: " + e.Request.Url) - If (Me.InvokeRequired) Then - Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) - Exit Sub - Else - Main.LoadedUrls.Add(e.Request.Url) - Exit Sub - End If - ElseIf CBool(InStr(e.Request.Url, "/data/v1/episodes/")) Then - Debug.WriteLine("Funimtaion: " + e.Request.Url) - If (Me.InvokeRequired) Then - Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) - Exit Sub - Else - Main.LoadedUrls.Add(e.Request.Url) - Exit Sub - End If - ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "streams?")) Then - Debug.WriteLine("Crunchyroll-Single: " + e.Request.Url) - If (Me.InvokeRequired) Then - Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) - Exit Sub - Else - Main.LoadedUrls.Add(e.Request.Url) - Exit Sub - End If - 'ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "/objects/")) Then - ' If (Me.InvokeRequired) Then - ' Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) - ' Exit Sub - ' Else - ' Main.LoadedUrls.Add(e.Request.Url) - ' Exit Sub - ' End If - ' Debug.WriteLine(e.Request.Url) - ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "seasons?series_id=")) Then - Debug.WriteLine("Crunchyroll-Season: " + e.Request.Url) - If (Me.InvokeRequired) Then - Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) - Exit Sub - Else - Main.LoadedUrls.Add(e.Request.Url) - Exit Sub - End If - End If + End Sub @@ -410,10 +348,6 @@ Public Class CefSharp_Browser network_scan.Show() End Sub - Private Sub WebBrowser1_FrameLoadStart(sender As Object, e As FrameLoadStartEventArgs) Handles WebBrowser1.FrameLoadStart - Main.LoadedUrls.Clear() - End Sub - diff --git a/Crunchyroll Downloader/Crunchyroll Downloader.vbproj b/Crunchyroll Downloader/Crunchyroll Downloader.vbproj index 2c0be8d..95510ad 100644 --- a/Crunchyroll Downloader/Crunchyroll Downloader.vbproj +++ b/Crunchyroll Downloader/Crunchyroll Downloader.vbproj @@ -74,6 +74,8 @@ x64 bin\x64\Release\ 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + true + true My Project\app.manifest @@ -118,6 +120,9 @@ False ..\..\metroframework-modern-ui\MetroFramework\bin\Debug\MetroFramework.dll + + ..\..\..\MyProvider\MyProvider\bin\x64\Debug\MyProvider.dll + ..\packages\Newtonsoft.Json.13.0.1\lib\net45\Newtonsoft.Json.dll @@ -125,6 +130,7 @@ ..\..\RequestHandler\RequestHandler\bin\x64\Debug\RequestHandler.dll + @@ -150,6 +156,7 @@ + Trackbar.vb diff --git a/Crunchyroll Downloader/Main.designer.vb b/Crunchyroll Downloader/Main.designer.vb index 10c403e..f890f31 100644 --- a/Crunchyroll Downloader/Main.designer.vb +++ b/Crunchyroll Downloader/Main.designer.vb @@ -24,18 +24,14 @@ Partial Class Main Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main)) - Me.ListView1 = New System.Windows.Forms.ListView() - Me.Link = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) - Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Timer2 = New System.Windows.Forms.Timer(Me.components) Me.Timer3 = New System.Windows.Forms.Timer(Me.components) Me.TheTextBox = New System.Windows.Forms.RichTextBox() - Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.ConsoleBar = New System.Windows.Forms.PictureBox() Me.MetroStyleExtender1 = New MetroFramework.Components.MetroStyleExtender(Me.components) Me.MetroStyleManager1 = New MetroFramework.Components.MetroStyleManager(Me.components) - Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() Me.Timer4 = New System.Windows.Forms.Timer(Me.components) Me.Btn_add = New System.Windows.Forms.Button() Me.Btn_Browser = New System.Windows.Forms.Button() @@ -53,30 +49,15 @@ Partial Class Main Me.MsgBoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.CRCookieToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ClearAllSettingsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ItemBoundsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DummyItemToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Panel1 = New System.Windows.Forms.Panel() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ConsoleBar, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' - 'ListView1 - ' - Me.ListView1.BackColor = System.Drawing.SystemColors.Control - Me.ListView1.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Link}) - resources.ApplyResources(Me.ListView1, "ListView1") - Me.ListView1.ForeColor = System.Drawing.Color.Black - Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None - Me.ListView1.HideSelection = False - Me.ListView1.Name = "ListView1" - Me.ListView1.TabStop = False - Me.ListView1.UseCompatibleStateImageBehavior = False - Me.ListView1.View = System.Windows.Forms.View.Details - ' - 'Link - ' - resources.ApplyResources(Me.Link, "Link") - ' 'PictureBox5 ' Me.PictureBox5.BackColor = System.Drawing.Color.Transparent @@ -85,10 +66,6 @@ Partial Class Main Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.TabStop = False ' - 'Timer1 - ' - Me.Timer1.Enabled = True - ' 'Timer2 ' Me.Timer2.Enabled = True @@ -105,23 +82,20 @@ Partial Class Main resources.ApplyResources(Me.TheTextBox, "TheTextBox") Me.TheTextBox.Name = "TheTextBox" ' - 'PictureBox6 + 'ConsoleBar ' - Me.PictureBox6.BackColor = System.Drawing.Color.Transparent - Me.PictureBox6.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken - resources.ApplyResources(Me.PictureBox6, "PictureBox6") - Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand - Me.PictureBox6.Name = "PictureBox6" - Me.PictureBox6.TabStop = False + Me.ConsoleBar.BackColor = System.Drawing.Color.Transparent + Me.ConsoleBar.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken + resources.ApplyResources(Me.ConsoleBar, "ConsoleBar") + Me.ConsoleBar.Cursor = System.Windows.Forms.Cursors.Hand + Me.ConsoleBar.Name = "ConsoleBar" + Me.ConsoleBar.TabStop = False ' 'MetroStyleManager1 ' Me.MetroStyleManager1.Owner = Me Me.MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Orange ' - 'BackgroundWorker1 - ' - ' 'Timer4 ' Me.Timer4.Enabled = True @@ -186,7 +160,7 @@ Partial Class Main ' 'ContextMenuStrip1 ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToggleDebugModeToolStripMenuItem, Me.OpenSettingsToolStripMenuItem, Me.TestDownloadToolStripMenuItem, Me.CheckCRBetaTokenToolStripMenuItem, Me.AddonHTMLToolStripMenuItem, Me.Timer3OffToolStripMenuItem, Me.ThreadCount, Me.MsgBoxToolStripMenuItem, Me.CRCookieToolStripMenuItem, Me.ClearAllSettingsToolStripMenuItem}) + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToggleDebugModeToolStripMenuItem, Me.OpenSettingsToolStripMenuItem, Me.TestDownloadToolStripMenuItem, Me.CheckCRBetaTokenToolStripMenuItem, Me.AddonHTMLToolStripMenuItem, Me.Timer3OffToolStripMenuItem, Me.ThreadCount, Me.MsgBoxToolStripMenuItem, Me.CRCookieToolStripMenuItem, Me.ClearAllSettingsToolStripMenuItem, Me.ItemBoundsToolStripMenuItem, Me.DummyItemToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1") ' @@ -240,21 +214,36 @@ Partial Class Main Me.ClearAllSettingsToolStripMenuItem.Name = "ClearAllSettingsToolStripMenuItem" resources.ApplyResources(Me.ClearAllSettingsToolStripMenuItem, "ClearAllSettingsToolStripMenuItem") ' + 'ItemBoundsToolStripMenuItem + ' + Me.ItemBoundsToolStripMenuItem.Name = "ItemBoundsToolStripMenuItem" + resources.ApplyResources(Me.ItemBoundsToolStripMenuItem, "ItemBoundsToolStripMenuItem") + ' + 'DummyItemToolStripMenuItem + ' + Me.DummyItemToolStripMenuItem.Name = "DummyItemToolStripMenuItem" + resources.ApplyResources(Me.DummyItemToolStripMenuItem, "DummyItemToolStripMenuItem") + ' + 'Panel1 + ' + resources.ApplyResources(Me.Panel1, "Panel1") + Me.Panel1.Name = "Panel1" + ' 'Main ' Me.ApplyImageInvert = True Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle resources.ApplyResources(Me, "$this") + Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Btn_Close) Me.Controls.Add(Me.Btn_min) Me.Controls.Add(Me.Btn_Settings) Me.Controls.Add(Me.Btn_Browser) Me.Controls.Add(Me.Btn_add) Me.Controls.Add(Me.TheTextBox) - Me.Controls.Add(Me.PictureBox6) + Me.Controls.Add(Me.ConsoleBar) Me.Controls.Add(Me.PictureBox5) - Me.Controls.Add(Me.ListView1) Me.ForeColor = System.Drawing.Color.Black Me.MaximizeBox = False Me.MinimizeBox = False @@ -263,24 +252,20 @@ Partial Class Main Me.Style = MetroFramework.MetroColorStyle.Orange Me.TextAlign = MetroFramework.Forms.MetroFormTextAlign.Center CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ConsoleBar, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) End Sub - Friend WithEvents ListView1 As ListView - Friend WithEvents Link As ColumnHeader Friend WithEvents PictureBox5 As PictureBox Friend WithEvents ToolTip1 As ToolTip - Friend WithEvents Timer1 As Timer Friend WithEvents Timer2 As Timer Friend WithEvents Timer3 As Timer Friend WithEvents TheTextBox As RichTextBox - Friend WithEvents PictureBox6 As PictureBox + Friend WithEvents ConsoleBar As PictureBox Friend WithEvents MetroStyleExtender1 As MetroFramework.Components.MetroStyleExtender Friend WithEvents MetroStyleManager1 As MetroFramework.Components.MetroStyleManager - Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker Friend WithEvents Timer4 As Timer Friend WithEvents Btn_add As Button Friend WithEvents Btn_Browser As Button @@ -298,4 +283,7 @@ Partial Class Main Friend WithEvents MsgBoxToolStripMenuItem As ToolStripMenuItem Friend WithEvents CRCookieToolStripMenuItem As ToolStripMenuItem Friend WithEvents ClearAllSettingsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ItemBoundsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DummyItemToolStripMenuItem As ToolStripMenuItem + Public WithEvents Panel1 As Panel End Class diff --git a/Crunchyroll Downloader/Main.resx b/Crunchyroll Downloader/Main.resx index f1b4a7a..3c61daa 100644 --- a/Crunchyroll Downloader/Main.resx +++ b/Crunchyroll Downloader/Main.resx @@ -117,54 +117,14 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - True - - - Link - - - - 818 - - - - Microsoft Sans Serif, 93pt - - - 1, 71 - - - - 0, 0, 0, 0 - - - 798, 403 - - - 840, 546 - - - 57 - - - ListView1 - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 9 - True + Stretch + 1, 65 @@ -174,6 +134,7 @@ 840, 6 + 67 @@ -187,19 +148,16 @@ $this - 8 + 9 - 182, 17 - - - 281, 17 + 612, 17 - 375, 15 + 272, 14 - 459, 17 + 184, 52 0, 652 @@ -229,40 +187,40 @@ $this - 6 + 7 - + Stretch - + 0, 618 - + 0, 0, 0, 0 - + 840, 6 - + 68 - - PictureBox6 + + ConsoleBar - + System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - - 7 + + 8 17, 17 - 548, 17 + 20, 48 True @@ -273,6 +231,33 @@ 842, 630 + + True + + + 1, 71 + + + 798, 403 + + + 840, 546 + + + 0 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 1 + None @@ -301,7 +286,7 @@ $this - 1 + 2 None @@ -331,7 +316,7 @@ $this - 2 + 3 Zoom @@ -361,7 +346,7 @@ $this - 3 + 4 Zoom @@ -388,7 +373,7 @@ $this - 4 + 5 Zoom @@ -418,7 +403,7 @@ $this - 5 + 6 Microsoft Sans Serif, 8.25pt @@ -432,24 +417,12 @@ Crunchyroll Downloader - - Link - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - ToolTip1 System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Timer1 - - - System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - Timer2 @@ -474,12 +447,6 @@ MetroFramework.Components.MetroStyleManager, MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a - - BackgroundWorker1 - - - System.ComponentModel.BackgroundWorker, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - Timer4 @@ -546,20 +513,29 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ItemBoundsToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + DummyItemToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + Main MetroFramework.Forms.MetroForm, MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a - - 714, 17 - - 877, 17 + 276, 52 - 966, 17 + 578, 45 233, 22 @@ -621,8 +597,20 @@ Clear all settings + + 233, 22 + + + Item bounds + + + 233, 22 + + + Dummy_Item + - 234, 246 + 234, 268 ContextMenuStrip1 diff --git a/Crunchyroll Downloader/Main.vb b/Crunchyroll Downloader/Main.vb index 3d35816..ed32b2c 100644 --- a/Crunchyroll Downloader/Main.vb +++ b/Crunchyroll Downloader/Main.vb @@ -16,6 +16,8 @@ Imports System.Runtime.InteropServices Imports CefSharp.WinForms Imports CefSharp Imports System.Security.Policy +Imports MyProvider.MyProvider +Imports System.Windows Public Class Main Inherits MetroForm @@ -40,7 +42,6 @@ Public Class Main 'Public CrBetaStreams As String = Nothing 'Public CrBetaStreamsUrl As String = Nothing - Public BlockList As List(Of String) Public LoadedUrls As New List(Of String) Public FunimationAPIRegion As String = Nothing Public FunimationRegion As String = Nothing @@ -61,7 +62,7 @@ Public Class Main 'Public liList As New List(Of String) Public HTMLString As String = My.Resources.Startuphtml Public ListBoxList As New List(Of String) - Public ItemList As New List(Of CRD_List_Item) + 'Public ItemList As New List(Of CRD_List_Item) Public RunningDownloads As Integer = 0 Public UseQueue As Boolean = False Public StartServer As Integer = 0 @@ -99,7 +100,7 @@ Public Class Main Public LoginOnly As String = "False" Public Pfad As String = My.Computer.FileSystem.CurrentDirectory Public TempFolder As String = Pfad - Public ProfileFolder As String = Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "CRD-Profile") + Public ProfileFolder As String = Path.Combine(Application.StartupPath, "CRD-Profile") 'Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "CRD-Profile") Public ffmpeg_command As String = " -c copy -bsf:a aac_adtstoasc" '" -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc " Public Reso As Integer Public Season_Prefix As String = "[default season prefix]" @@ -194,7 +195,7 @@ Public Class Main Public BackColorValue As Color = Color.FromArgb(243, 243, 243) Public ForeColorValue As Color = SystemColors.WindowText Public Sub DarkMode() - ListView1.BackColor = Color.FromArgb(50, 50, 50) + Panel1.BackColor = Color.FromArgb(50, 50, 50) CloseImg = My.Resources.main_close_dark MinImg = My.Resources.main_mini_dark Btn_min.Image = MinImg @@ -206,7 +207,7 @@ Public Class Main Public Sub LightMode() BackColorValue = Color.FromArgb(243, 243, 243) ForeColorValue = SystemColors.WindowText - ListView1.BackColor = SystemColors.Control + Panel1.BackColor = SystemColors.Control CloseImg = My.Resources.main_close MinImg = My.Resources.main_mini Btn_min.Image = MinImg @@ -276,52 +277,63 @@ Public Class Main Btn_Close.Image = CloseImg End Sub - Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click + Private Sub ConsoleBar_Click(sender As Object, e As EventArgs) Handles ConsoleBar.Click If TheTextBox.Visible = True Then TheTextBox.Visible = False ListViewHeightOffset = 7 - PictureBox6.Location = New Point(0, Me.Height - ListViewHeightOffset) + ConsoleBar.Location = New Point(0, Me.Height - ListViewHeightOffset) TheTextBox.Location = New Point(1, Me.Height - ListViewHeightOffset + 7) TheTextBox.Width = Me.Width - 2 Else ListViewHeightOffset = 103 TheTextBox.Visible = True - PictureBox6.Location = New Point(0, Me.Height - ListViewHeightOffset) + ConsoleBar.Location = New Point(0, Me.Height - ListViewHeightOffset) TheTextBox.Location = New Point(1, Me.Height - ListViewHeightOffset + 7) TheTextBox.Width = Me.Width - 2 End If + Me.Height = Me.Height + 1 End Sub - Private Sub PictureBox6_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox6.MouseEnter - PictureBox6.BackgroundImage = My.Resources.balken_console + Private Sub ConsoleBar_MouseEnter(sender As Object, e As EventArgs) Handles ConsoleBar.MouseEnter + ConsoleBar.BackgroundImage = My.Resources.balken_console End Sub - Private Sub PictureBox6_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox6.MouseLeave - PictureBox6.BackgroundImage = My.Resources.balken + Private Sub ConsoleBar_MouseLeave(sender As Object, e As EventArgs) Handles ConsoleBar.MouseLeave + ConsoleBar.BackgroundImage = My.Resources.balken End Sub Private Sub Main_Resize(sender As Object, e As EventArgs) Handles Me.Resize - ListView1.Width = Me.Width - 2 - ListView1.Height = Me.Height - 71 - ListViewHeightOffset + Panel1.Width = Me.Width - 2 + Panel1.Height = Me.Height - 71 - ListViewHeightOffset PictureBox5.Width = Me.Width - 40 - PictureBox6.Location = New Point(1, Me.Height - ListViewHeightOffset) - PictureBox6.Width = Me.Width - 40 + ConsoleBar.Location = New Point(1, Me.Height - ListViewHeightOffset) + ConsoleBar.Width = Me.Width - 40 TheTextBox.Location = New Point(1, Me.Height - ListViewHeightOffset + 7) TheTextBox.Width = Me.Width - 2 Btn_Close.Location = New Point(Me.Width - 41, 1) Btn_min.Location = New Point(Me.Width - 82, 1) Btn_Settings.Location = New Point(Me.Width - 190, 17) Try - For s As Integer = 0 To ListView1.Items.Count - 1 - Dim r As Rectangle = ListView1.Items.Item(s).Bounds - ItemList(s).SetBounds(r.X, r.Y, ListView1.Width - 2, r.Height) - If ItemList(s).GetToDispose() = True Then - ItemList(s).DisposeItem(ItemList(s).GetToDispose()) - ItemList.RemoveAt(s) - ListView1.Items.RemoveAt(s) + Panel1.AutoScrollPosition = New Point(0, 0) + + Dim W As Integer = Panel1.Width + If Panel1.Controls.Count * 142 > Panel1.Height Then + w = Panel1.Width - SystemInformation.VerticalScrollBarWidth + End If + + Dim Item As New List(Of CRD_List_Item) + Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) + For s As Integer = 0 To Item.Count - 1 + Item(s).SetBounds(0, 142 * s, W - 2, 142) + If Debug2 = True Then + Debug.WriteLine("Bounds: " + Item(s).GetTextBound.ToString) + + Debug.WriteLine("Ist: " + Item(s).Location.Y.ToString) + Debug.WriteLine("Soll: " + (142 * s).ToString) End If Next Catch ex As Exception + Debug.WriteLine(ex.ToString) End Try End Sub @@ -363,19 +375,30 @@ Public Class Main Return Output End Function + Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' + +#Region "settings path" + + Dim mySettings As New DirectorySettings + mySettings.DirectoryName = Application.StartupPath + mySettings.FileName = "User.config.dat" + mySettings.Save() ' muss explizit gepeichert werden... + +#End Region + Me.ContextMenuStrip = ContextMenuStrip1 Dim tbtl As TextBoxTraceListener = New TextBoxTraceListener(TheTextBox) Trace.Listeners.Add(tbtl) b = True Thread.CurrentThread.Name = "Main" Debug.WriteLine("Thread Name: " + Thread.CurrentThread.Name) - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - ProfileFolder = rkg.GetValue("ProfilFolder").ToString - Catch ex As Exception - End Try + 'Try + ' Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") + ' ProfileFolder = rkg.GetValue("ProfilFolder").ToString + 'Catch ex As Exception + 'End Try Dim settings As CefSettings = New CefSettings() If Not Directory.Exists(Path.GetDirectoryName(ProfileFolder)) Then ' Nein! Jetzt erstellen... @@ -389,7 +412,6 @@ Public Class Main Else settings.CachePath = ProfileFolder End If - '--disable-features=PreloadMediaEngagementData, MediaEngagementBypassAutoplayPolicies settings.CefCommandLineArgs.Add("disable-features=PreloadMediaEngagementData, MediaEngagementBypassAutoplayPolicies") settings.CefCommandLineArgs.Add("disable-gpu") settings.CefCommandLineArgs.Add("disable-gpu-vsync") @@ -397,27 +419,13 @@ Public Class Main settings.CefCommandLineArgs.Add("disable-gpu-rasterization") settings.UserAgent = My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "").Replace(Chr(34), "") settings.DisableGpuAcceleration() - 'settings.CefCommandLineArgs("autoplay-policy") = "no-user-gesture-required" settings.LogFile = Path.Combine(Application.StartupPath, "lib", "browser.log") - 'Initialize Cef with the provided settings - Cef.Initialize(settings) ', performDependencyCheck:=True, browserProcessHandler:=Nothing) + Cef.Initialize(settings) + + + DarkModeValue = My.Settings.DarkModeValue - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - DarkModeValue = CBool(Integer.Parse(rkg.GetValue("Dark_Mode").ToString)) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - CR_etp_rt = rkg.GetValue("etp_rt").ToString - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - CR_ajs_user_id = rkg.GetValue("ajs_user_id").ToString - Catch ex As Exception - End Try Manager.Style = MetroColorStyle.Orange If DarkModeValue = True Then Manager.Theme = MetroThemeStyle.Dark @@ -428,11 +436,10 @@ Public Class Main End If Me.StyleManager = Manager Manager.Owner = Me - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - StartServer = Integer.Parse(rkg.GetValue("ServerPort").ToString) - Catch ex As Exception - End Try + + StartServer = My.Settings.ServerPort + + If StartServer > 0 Then Timer3.Enabled = True ServerThread = New Thread(AddressOf ServerStart) @@ -441,329 +448,155 @@ Public Class Main ServerThread.Start() End If waveOutSetVolume(0, 0) - Try - Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath) - For Each File In FileLocation.GetFiles() - If CBool(InStr(File.FullName, "gecko-network.txt")) Then - My.Computer.FileSystem.DeleteFile(Path.Combine(Application.StartupPath, File.FullName)) - Exit For - End If - Next - Catch ex As Exception - End Try + ServicePointManager.Expect100Continue = True ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + + StatusToolTip.Active = True + Try Me.Icon = My.Resources.icon Catch ex As Exception End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Pfad = rkg.GetValue("Ordner").ToString - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - TempFolder = rkg.GetValue("TempFolder").ToString - Catch ex As Exception + + If My.Settings.Pfad = Nothing Then + Pfad = My.Computer.FileSystem.SpecialDirectories.MyDocuments + Else + Pfad = My.Settings.Pfad + End If + + If My.Settings.TempFolder = Nothing Then TempFolder = Pfad - End Try - - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Episode_Prefix = rkg.GetValue("Prefix_E").ToString - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Season_Prefix = rkg.GetValue("Prefix_S").ToString - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - DefaultSubFunimation = rkg.GetValue("DefaultSubFunimation").ToString - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - DefaultSubCR = rkg.GetValue("DefaultSubCR").ToString - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Startseite = rkg.GetValue("Startseite").ToString - Catch ex As Exception - End Try -#Region "Startup IU" - StatusToolTip.Active = True -#End Region - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - UseQueue = CBool(Integer.Parse(rkg.GetValue("QueueMode").ToString)) - 'MsgBox(UseQueue.ToString) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - KodiNaming = CBool(Integer.Parse(rkg.GetValue("KodiSupport").ToString)) - Catch ex As Exception - End Try - - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - DubMode = CBool(Integer.Parse(rkg.GetValue("DubMode").ToString)) - Catch ex As Exception - End Try - - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - CR_Chapters = CBool(Integer.Parse(rkg.GetValue("CR_Chapters").ToString)) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Curl_insecure = CBool(Integer.Parse(rkg.GetValue("Curl_insecure").ToString)) - 'MsgBox(Curl_insecure.ToString) - Catch ex As Exception - End Try - - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - KeepCache = CBool(Integer.Parse(rkg.GetValue("Keep_Cache").ToString)) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - ffmpeg_command = rkg.GetValue("ffmpeg_command").ToString - Catch ex As Exception - ffmpeg_command = " -c copy -bsf:a aac_adtstoasc " - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Reso = Integer.Parse(rkg.GetValue("Resu").ToString) - 'MsgBox(Resu) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - LeadingZero = Integer.Parse(rkg.GetValue("LeadingZero").ToString) - 'MsgBox(Resu) - Catch ex As Exception - End Try - - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Funimation_Bitrate = Integer.Parse(rkg.GetValue("Funimation_Bitrate").ToString) - 'MsgBox(Resu) - Catch ex As Exception - End Try - - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - SubSprache = rkg.GetValue("Sub").ToString - Catch ex As Exception - End Try - 'Try - ' Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - ' SubFunimation = rkg.GetValue("Fun_Sub").ToString - 'Catch ex As Exception - 'End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - SubFunimationString = rkg.GetValue("Fun_Sub").ToString - If SubFunimationString = "none" Then - Else - Dim SoftSubsStringSplit() As String = SubFunimationString.Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) - For i As Integer = 0 To SoftSubsStringSplit.Count - 1 - SubFunimation.Add(SoftSubsStringSplit(i)) - Next - End If - Catch ex As Exception - If SubFunimation.Count = 0 Then - SubFunimation.Add("en") - End If - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - SubFolder_Value = rkg.GetValue("SubFolder_Value").ToString - Catch ex As Exception - SubFolder_Value = SubFolder_Nothing - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - MaxDL = Integer.Parse(rkg.GetValue("SL_DL").ToString) - Catch ex As Exception - MaxDL = 1 - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - CR_NameMethode = Integer.Parse(rkg.GetValue("CR_NameMethode").ToString) - Catch ex As Exception - CR_NameMethode = 0 - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - ErrorTolerance = Integer.Parse(rkg.GetValue("ErrorTolerance").ToString) - Catch ex As Exception - ErrorTolerance = 0 - End Try - - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - MergeSubsFormat = rkg.GetValue("MergeSubs").ToString - - If MergeSubsFormat = "1" Then 'old setting should work as before - - If VideoFormat = ".mkv" Then - MergeSubsFormat = "copy" - Else - VideoFormat = ".mp4" - MergeSubsFormat = "mov_text" - End If - - ElseIf MergeSubsFormat = "None" Or MergeSubsFormat = "0" Or MergeSubsFormat = "[merge disabled]" Then - MergeSubs = False - Else - MergeSubs = True - End If - Catch ex As Exception - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - MergeSubs = CBool(Integer.Parse(rkg.GetValue("MergeMP4").ToString)) - Catch ex2 As Exception - End Try - End Try - - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - IncludeLangName = CBool(Integer.Parse(rkg.GetValue("IncludeLangName").ToString)) - Catch ex As Exception - End Try - - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - LangNameType = Integer.Parse(rkg.GetValue("LangNameType").ToString) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - HybridThread = Integer.Parse(rkg.GetValue("HybridThread").ToString) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - IgnoreSeason = Integer.Parse(rkg.GetValue("IgnoreS1").ToString) - Catch ex As Exception - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - IgnoreSeason = Integer.Parse(rkg.GetValue("IgnoreS1").ToString) - Catch ex2 As Exception - End Try - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Dim Format As String = rkg.GetValue("VideoFormat").ToString - If Format = ".mkv" Then - VideoFormat = ".mkv" - ElseIf Format = ".aac" Then - VideoFormat = ".aac" - MergeSubsFormat = "[merge disabled]" - End If - Catch ex2 As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - HybridMode = CBool(Integer.Parse(rkg.GetValue("HybridMode").ToString)) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Funimation_srt = CBool(Integer.Parse(rkg.GetValue("Funimation_srt").ToString)) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Funimation_vtt = CBool(Integer.Parse(rkg.GetValue("Funimation_vtt").ToString)) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - 'HardSubFunimation = rkg.GetValue("FunimationHardsub").ToString - HardSubFunimation = "Disabled" - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - DubFunimation = rkg.GetValue("FunimationDub").ToString - Catch ex As Exception - End Try -#Region "removed softsubtitle" - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - SoftSubsString = rkg.GetValue("AddedSubs").ToString - If SoftSubsString = "none" Then - Else - Dim SoftSubsStringSplit() As String = SoftSubsString.Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) - For i As Integer = 0 To SoftSubsStringSplit.Count - 1 - SoftSubs.Add(SoftSubsStringSplit(i)) - Next - End If - Catch ex As Exception - End Try -#End Region - If Reso = Nothing Then - Reso = 1080 + Else + TempFolder = My.Settings.TempFolder End If - If SubSprache = Nothing Then - SubSprache = "enUS" + + Episode_Prefix = My.Settings.Prefix_E + + Season_Prefix = My.Settings.Prefix_S + + DefaultSubFunimation = My.Settings.DefaultSubFunimation + + DefaultSubCR = My.Settings.DefaultSubCR + + Startseite = My.Settings.Startseite + + + UseQueue = My.Settings.QueueMode + + KodiNaming = My.Settings.KodiSupport + + DubMode = My.Settings.DubMode + + CR_Chapters = My.Settings.CR_Chapters + + Curl_insecure = My.Settings.Curl_insecure + + KeepCache = My.Settings.Keep_Cache + + ffmpeg_command = My.Settings.ffmpeg_command + + Reso = My.Settings.Reso + + LeadingZero = My.Settings.LeadingZero + + SubSprache = My.Settings.Subtitle + + + Funimation_Bitrate = My.Settings.Funimation_Bitrate + + SubFolder_Value = My.Settings.SubFolder_Value + + MaxDL = My.Settings.SL_DL + + CR_NameMethode = My.Settings.CR_NameMethode + + + ErrorTolerance = My.Settings.ErrorTolerance + + + IncludeLangName = My.Settings.IncludeLangName + + + LangNameType = My.Settings.LangNameType + + + HybridThread = My.Settings.HybridThread + + IgnoreSeason = My.Settings.IgnoreSeason + HybridMode = My.Settings.HybridMode + Funimation_srt = My.Settings.Funimation_srt + Funimation_vtt = My.Settings.Funimation_vtt + + DubFunimation = My.Settings.FunimationDub + + + HardSubFunimation = "Disabled" + + + SoftSubsString = My.Settings.AddedSubs + + If SoftSubsString = "None" Then + Else + Dim SoftSubsStringSplit() As String = SoftSubsString.Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) + For i As Integer = 0 To SoftSubsStringSplit.Count - 1 + SoftSubs.Add(SoftSubsStringSplit(i)) + Next End If - BlockList = New List(Of String) - BackgroundWorker1.RunWorkerAsync() + + + + SubFunimationString = My.Settings.Fun_Sub + + If SubFunimationString = "None" Then + Else + Dim SoftSubsStringSplit() As String = SubFunimationString.Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) + For i As Integer = 0 To SoftSubsStringSplit.Count - 1 + SubFunimation.Add(SoftSubsStringSplit(i)) + Next + End If + + + + MergeSubsFormat = My.Settings.MergeSubs + + + If MergeSubsFormat = "[merge disabled]" Then + MergeSubs = False + Else + MergeSubs = True + End If + + + VideoFormat = My.Settings.VideoFormat + + + RetryWithCachedFiles() + End Sub - Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork - Try - Dim fileEntries As String() = Directory.GetFiles(Application.StartupPath + "\AdBlock", "*.txt") - ' Process the list of .txt files found in the directory. ' - Dim fileName As String - For Each fileName In fileEntries - If (System.IO.File.Exists(fileName)) Then - BlockList.AddRange(System.IO.File.ReadAllLines(fileName).OrderBy(Function(x) Asc(x)).ToList) - End If - Next - Catch ex As Exception - End Try - End Sub + Public Sub ListItemAdd(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal Reso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal ThumbnialURL As String, ByVal URL_DL As String, ByVal Pfad_DL As String, Optional Service As String = "CR") ', ByVal AudioLang As String) - With ListView1.Items.Add("0") - ItemConstructor(NameKomplett, NameP1, NameP2, Reso, HardSub, SoftSubs, ThumbnialURL, URL_DL, Pfad_DL, Service) - End With + 'With ListView1.Items.Add("0") + 'For i As Integer = 0 To 10 + ItemConstructor(NameKomplett, NameP1, NameP2, Reso, HardSub, SoftSubs, ThumbnialURL, URL_DL, Pfad_DL, Service) + + 'Next + 'End With End Sub Public Sub ItemConstructor(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal DisplayReso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal ThumbnialURL As String, ByVal URL_DL As String, ByVal Pfad_DL As String, ByVal Service As String) Dim Item As New CRD_List_Item Item.Visible = False - Item.Parent = ListView1 - Item.Width = 838 - Item.Height = 142 + + #Region "Set Variables" - 'Item.SetUsedMap(UsedMap) - 'Item.Setffmpeg_command(ffmpeg_command) - Item.SetCache(KeepCache) - Item.SetMergeSubstoMP4(MergeSubs) - Item.SetDebug2(Debug2) -#End Region - Dim r As Rectangle - Dim c As Integer = ListView1.Items.Count - 1 - r = ListView1.Items(c).Bounds() - r.Width = 838 - r.Height = 142 Item.SetService(Service) Item.SetTolerance(ErrorTolerance) Item.SetTargetReso(Reso) @@ -774,11 +607,27 @@ Public Class Main Item.SetThumbnailImage(ThumbnialURL) Item.SetLabelPercent("0%") Item.SetToolTip("Softsubs: " + SoftSubs) - 'MsgBox(Item.GetTextBound.ToString) - ItemList.Add(Item) - Item.SetBounds(r.X, r.Y, r.Width, r.Height) - 'Item.SetLocations(r.Y) - 'MsgBox("test " + r.Y.ToString) + Item.SetCache(KeepCache) + Item.SetMergeSubstoMP4(MergeSubs) + Item.SetDebug2(Debug2) +#End Region + + + + + Dim W As Integer = Panel1.Width + If Panel1.Controls.Count * 142 > Panel1.Height Then + W = Panel1.Width - SystemInformation.VerticalScrollBarWidth + End If + + + + Item.SetBounds(0, 142 * Panel1.Controls.Count, W - 2, 142) + + + Item.Parent = Panel1 + Panel1.Controls.Add(Item) + Item.Visible = True Dim TempHybridMode As Boolean = HybridMode If CBool(InStr(URL_DL, ".mpd")) Then @@ -795,43 +644,8 @@ Public Class Main Item.StartDownload(URL_DL, Pfad_DL, NameKomplett, TempHybridMode, TempFolder) End Sub -#Region "Manga DL" - Public Sub MangaListItemAdd(ByVal NameP2 As String, ByVal ThumbnialURL As String, ByVal BaseURL As String, ByVal SiteList As List(Of String)) - With ListView1.Items.Add("0") - MangaItemConstructor("proxer.me", NameP2, ThumbnialURL, BaseURL, SiteList) - End With - End Sub - Public Sub MangaItemConstructor(ByVal NameP1 As String, ByVal NameP2 As String, ByVal ThumbnialURL As String, ByVal BaseURL As String, ByVal SiteList As List(Of String)) - Dim Item As New CRD_List_Item - Item.Visible = False - Item.Parent = ListView1 - Item.Width = 838 - Item.Height = 142 -#Region "Set Variables" - Item.SetDebug2(Debug2) -#End Region - Dim r As Rectangle - Dim c As Integer = ListView1.Items.Count - 1 - r = ListView1.Items(c).Bounds() - r.Width = 838 - r.Height = 142 - Item.SetLabelWebsite(NameP1) - Item.SetLabelAnimeTitel(NameP2) - Item.SetLabelResolution("Manga") - Item.SetLabelHardsub("Manga") - Item.SetThumbnailImage(ThumbnialURL) - Item.SetLabelPercent("0%") - 'MsgBox(Item.GetTextBound.ToString) - ItemList.Add(Item) - Item.SetBounds(r.X, r.Y, r.Width, r.Height) - 'Item.SetLocations(r.Y) - 'MsgBox("test " + r.Y.ToString) - Item.Visible = True - Item.DownloadMangaPages(Pfad, BaseURL, SiteList, NameP2) - End Sub -#End Region #Region "Season DL" @@ -1024,7 +838,7 @@ Public Class Main - Dim exepath As String = "curl.exe" + Dim exepath As String = Path.Combine(Application.StartupPath, "lib", "curl.exe") Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim sr As StreamReader @@ -1091,8 +905,7 @@ Public Class Main Public Function CurlPost(ByVal Url As String, ByVal Cookies As String, ByVal Auth As String, ByVal Post As String) As String - - Dim exepath As String = "curl.exe" + Dim exepath As String = Path.Combine(Application.StartupPath, "lib", "curl.exe") Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim sr As StreamReader @@ -1161,7 +974,7 @@ Public Class Main - Dim exepath As String = "curl.exe" + Dim exepath As String = Path.Combine(Application.StartupPath, "lib", "curl.exe") Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim sr As StreamReader @@ -1268,15 +1081,17 @@ Public Class Main For e As Integer = 0 To Integer.MaxValue If Grapp_RDY = True Then Try - Dim ItemFinshedCount As Integer = 0 - For i2 As Integer = 0 To ListView1.Items.Count - 1 - If ItemList(i2).GetIsStatusFinished() = True Then + Dim ItemFinshedCount As Integer = 0 ' + Dim Item As New List(Of CRD_List_Item) + Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) + For i2 As Integer = 0 To Item.Count - 1 + If Item(i2).GetIsStatusFinished() = True Then ItemFinshedCount = ItemFinshedCount + 1 End If Next - RunningDownloads = ListView1.Items.Count - ItemFinshedCount + RunningDownloads = Panel1.Controls.Count - ItemFinshedCount Catch ex As Exception - RunningDownloads = ListView1.Items.Count + RunningDownloads = Panel1.Controls.Count End Try If RunningDownloads < MaxDL Then Exit For @@ -2211,9 +2026,13 @@ Public Class Main Private Sub Btn_Close_Click(sender As Object, e As EventArgs) Handles Btn_Close.Click If RunningDownloads > 0 Then If MessageBox.Show("Are you sure you want close the program and end all active downloads?", "confirm?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then - For i As Integer = 0 To ListView1.Items.Count - 1 - ItemList(i).KillRunningTask() + + Dim Item As New List(Of CRD_List_Item) + Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) + For i As Integer = 0 To Item.Count - 1 + Item(i).KillRunningTask() Next + RemoveTempFiles() Me.Close() End If @@ -2228,7 +2047,7 @@ Public Class Main Try Dim files() As String = System.IO.Directory.GetFiles(Application.StartupPath) For Each file As String In files - If CBool(InStr(file, "CRD-Temp-File-")) Then + If CBool(InStr(file, "CRD-Temp-File-")) Or CBool(InStr(file, "-mdata.txt")) Then System.IO.File.Delete(file) End If Next @@ -2381,21 +2200,7 @@ Public Class Main rsRegEx = New System.Text.RegularExpressions.Regex("\s+") Return rsRegEx.Replace(input_text, " ").Trim() End Function - Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick - Try - For s As Integer = 0 To ListView1.Items.Count - 1 - Dim r As Rectangle = ListView1.Items.Item(s).Bounds - ItemList(s).SetBounds(r.X, r.Y, ListView1.Width, r.Height) - ItemList(s).SetTheme(Manager.Theme) - If ItemList(s).GetToDispose() = True Then - ItemList(s).DisposeItem(ItemList(s).GetToDispose()) - ItemList.RemoveAt(s) - ListView1.Items.RemoveAt(s) - End If - Next - Catch ex As Exception - End Try - End Sub + #Region "unused" 'Public Shared Function GetPage(url As String) As String @@ -2469,20 +2274,30 @@ Public Class Main Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick Try Dim ItemFinshedCount As Integer = 0 - For i As Integer = 0 To ListView1.Items.Count - 1 - If ItemList(i).GetIsStatusFinished() = True Then + Dim Item As New List(Of CRD_List_Item) + Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) + + For i As Integer = 0 To Item.Count - 1 + Debug.WriteLine(Item(i).GetIsStatusFinished().ToString) + If Item(i).GetIsStatusFinished() = True Then ItemFinshedCount = ItemFinshedCount + 1 End If Next - RunningDownloads = ListView1.Items.Count - ItemFinshedCount + + RunningDownloads = Item.Count - ItemFinshedCount + If RunningDownloads > 0 Then SetThreadExecutionState(EXECUTION_STATE.ES_SYSTEM_REQUIRED Or EXECUTION_STATE.ES_CONTINUOUS) Else SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS) End If Catch ex As Exception - RunningDownloads = ListView1.Items.Count + Debug.WriteLine("Failed? : " + ex.ToString) + + RunningDownloads = Panel1.Controls.Count End Try + 'Debug.WriteLine("Running: " + RunningDownloads.ToString) + 'FontLabel2.Text = RunningDownloads.ToString 'Debug.WriteLine("downloads.tick: " + RunningDownloads.ToString) End Sub @@ -2631,14 +2446,16 @@ Public Class Main If Funimation_Grapp_RDY = True Then Try Dim ItemFinshedCount As Integer = 0 - For i2 As Integer = 0 To ListView1.Items.Count - 1 - If ItemList(i2).GetIsStatusFinished() = True Then + Dim Item As New List(Of CRD_List_Item) + Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) + For i2 As Integer = 0 To Item.Count - 1 + If Item(i2).GetIsStatusFinished() = True Then ItemFinshedCount = ItemFinshedCount + 1 End If Next - RunningDownloads = ListView1.Items.Count - ItemFinshedCount + RunningDownloads = Panel1.Controls.Count - ItemFinshedCount Catch ex As Exception - RunningDownloads = ListView1.Items.Count + RunningDownloads = Panel1.Controls.Count End Try If RunningDownloads < MaxDL Then Exit For @@ -3493,12 +3310,15 @@ Public Class Main #End Region Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick - ' PrepareHTML() + + Dim Item As New List(Of CRD_List_Item) + Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) + Dim GeckoHTML As String = My.Resources.htmlTop + vbNewLine + My.Resources.htmlTitlel.Replace("Placeholder", Me.Text.Replace("open the add window to continue", "")) - For i As Integer = 0 To ItemList.Count - 1 - Dim Item As String = My.Resources.htmlvorThumbnail + ItemList.Item(i).GetThumbnailSource + My.Resources.htmlnachTumbnail + ItemList.Item(i).Label_website.Text + "
" + ItemList.Item(i).Label_Anime.Text + My.Resources.htmlvorAufloesung.Replace("0%", ItemList.Item(i).Label_percent.Text).Replace("width:0%", ItemList.Item(i).GetPercentValue.ToString + "%") + ItemList.Item(i).Label_Reso.Text + My.Resources.htmlvorSoftSubs + vbNewLine + My.Resources.htmlvorHardSubs + ItemList.Item(i).Label_Hardsub.Text + My.Resources.htmlnachHardSubs - GeckoHTML = GeckoHTML + vbNewLine + Item + For i As Integer = 0 To Item.Count - 1 + Dim ItemString As String = My.Resources.htmlvorThumbnail + Item(i).GetThumbnailSource + My.Resources.htmlnachTumbnail + Item(i).Label_website.Text + "
" + Item(i).Label_Anime.Text + My.Resources.htmlvorAufloesung.Replace("0%", Item(i).Label_percent.Text).Replace("width:0%", Item(i).GetPercentValue.ToString + "%") + Item(i).Label_Reso.Text + My.Resources.htmlvorSoftSubs + vbNewLine + My.Resources.htmlvorHardSubs + Item(i).Label_Hardsub.Text + My.Resources.htmlnachHardSubs + GeckoHTML = GeckoHTML + vbNewLine + ItemString Next @@ -3512,48 +3332,7 @@ Public Class Main End Sub - Private Sub PrepareHTML() - 'Me.Invalidate() - 'Try - Dim GeckoHTML As String = My.Resources.htmlTop + vbNewLine + My.Resources.htmlTitlel.Replace("Placeholder", Me.Text.Replace("open the add window to continue", "")) - Dim LiAdd As String = Nothing - For i As Integer = 0 To ItemList.Count - 1 - 'For i As Integer = 0 To liList.Count - 1 - 'MsgBox(liList.Item(i)) - 'MsgBox(liList(i)) - ' - Dim Item As String = My.Resources.htmlvorThumbnail + ItemList.Item(i).GetThumbnailSource + My.Resources.htmlnachTumbnail + ItemList.Item(i).Label_website.Text + "
" + ItemList.Item(i).Label_Anime.Text + My.Resources.htmlvorAufloesung.Replace("0%", ItemList.Item(i).GetPercentValue.ToString + "%") + ItemList.Item(i).Label_Reso.Text + My.Resources.htmlvorSoftSubs + vbNewLine + My.Resources.htmlvorHardSubs + ItemList.Item(i).Label_Hardsub.Text + My.Resources.htmlnachHardSubs - 'If CBool(InStr(liList(i), "")) Then - ' If CBool(InStr(liList(i), "Finished - ")) Then - ' If LiAdd = Nothing Then - ' LiAdd = liList(i) - ' Else - ' LiAdd = LiAdd + vbNewLine + liList(i) - ' End If - ' Else - ' Dim ProzentBalken As String() = liList(i).Split(New String() {"width:"}, System.StringSplitOptions.RemoveEmptyEntries) - ' Dim ProzentBalken2 As String() = ProzentBalken(1).Split(New String() {"%" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) - ' Dim ProzentZahl As String() = ProzentBalken2(1).Split(New String() {"'percenttext'>"}, System.StringSplitOptions.RemoveEmptyEntries) - ' Dim ProzentZahl2 As String() = ProzentZahl(1).Split(New String() {"%<"}, System.StringSplitOptions.RemoveEmptyEntries) - ' Dim ReAdd As String = ProzentBalken(0) + "width:" + ItemList.Item(i).GetPercentValue.ToString + "%" + Chr(34) + ProzentZahl(0) + "'percenttext'>" + ItemList.Item(ii).GetLabelPercent.ToString + "<" + ProzentZahl2(1) - ' - ' Exit For - ' End If - 'End If - 'Next - Next - Dim c As String = GeckoHTML + vbNewLine + LiAdd + vbNewLine + My.Resources.htmlEnd - Dim Balken As String = "balken.png" - c = c.Replace("balken1.png", Balken) - Dim CC As String = "cc.png" - c = c.Replace("cc1.png", CC) - HTML = c - 'Catch ex As Exception - ' Debug.WriteLine(ex.ToString) - ' MsgBox(ex.ToString) - 'End Try - End Sub #Region "process html" @@ -3746,11 +3525,21 @@ Public Class Main End If If CBool(InStr(ObjectJson, "curl:")) = True Then + Continue For + ElseIf CBool(InStr(ObjectJson, "videos/")) = False Then + + If Application.OpenForms().OfType(Of Anime_Add).Any = True Then + Anime_Add.StatusLabel.Text = "Status: Failed, check CR login" + End If + Me.Text = "Status: Failed, check CR login" + Debug.WriteLine("Status: Failed, check CR login") + Continue For End If + Dim StreamsUrlBuilder() As String = ObjectJson.Split(New String() {"videos/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim StreamsUrlBuilder2() As String = StreamsUrlBuilder(1).Split(New String() {"/streams"}, System.StringSplitOptions.RemoveEmptyEntries) @@ -3787,6 +3576,18 @@ Public Class Main Me.Text = "Crunchyroll Downloader" Exit Sub End If + ElseIf CBool(InStr(requesturl, "crunchyroll.com/")) And CBool(InStr(requesturl, "seasons?series_id=")) Then + + If b = False Then + + If Application.OpenForms().OfType(Of Anime_Add).Any = True Then + Anime_Add.StatusLabel.Text = "Status: Error found invalid data." + End If + b = True + LoadedUrls.Clear() + Me.Text = "Crunchyroll Downloader" + Exit Sub + End If End If @@ -4366,7 +4167,7 @@ Public Class Main Private Sub Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown Btn_add.Image = My.Resources.main_add - ListView1.Select() + Panel1.Select() End Sub Private Sub TestDownloadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestDownloadToolStripMenuItem.Click @@ -4456,9 +4257,70 @@ Public Class Main End Sub - 'Dim TN As String = "https://www.crunchyroll.com/imgsrv/display/thumbnail/320x180/catalog/crunchyroll/43a60a9d2877b11429d71c81db6d7636.jpeg" - 'Dim cmd As String = "-i " + Chr(34) + "https://pl.crunchyroll.com/evs3/edc1a2ad856c347b4f86c0985ecc6d01/assets/efmaqxcadlmjn3o_2040239.mp4/index-v1-a1.m3u8?res=640x360&Expires=1666448510&Policy=eyJTdGF0ZW1lbnQiOlt7IlJlc291cmNlIjoiaHR0cHM6Ly9wbC5jcnVuY2h5cm9sbC5jb20vZXZzMy9lZGMxYTJhZDg1NmMzNDdiNGY4NmMwOTg1ZWNjNmQwMS9hc3NldHMvZWZtYXF4Y2FkbG1qbjNvXzIwNDAyMzkubXA0L2luZGV4LXYxLWExLm0zdTg~cmVzPTY0MHgzNjAiLCJDb25kaXRpb24iOnsiRGF0ZUxlc3NUaGFuIjp7IkFXUzpFcG9jaFRpbWUiOjE2NjY0NDg1MTB9fX1dfQ__&Signature=gd6oVG0w2pUa~l8~3JTecsU~0yyzkK1aaPQ~0WN32MeAuYfo49eYwz1C3AgeFAEeFyy8yMyW~3D4awwE7veS8BHptQzRlrcdFqw7VNDPUaA-3kzaqPFWOPlj2V~HkVv4m-soVs2HSs14i7Is8cWGQ6-0vQ6lFkxSxu2dg-eZdxcagkqSPwMsnjU~M17p1MhK0aQNWh2KyJUZ3zmeZNHrMQiAq4cBXM9aMp05XxI-li2ptCRMh63wYaYdmnvwOICDqgq5kwhLA-NNBavnjYo4HlEyfXwQWWEF2H~lQeAsZ90S6wF8~IrbP~DdMZc1Othh26Z0QWVX0BFEhPHmsoHqqw__&Key-Pair-Id=APKAJMWSQ5S7ZB3MF5VA" + Chr(34) + " -c copy " - 'ListItemAdd("TestDL", "CR", "TestDL", "9987p", "DE", "None", TN, cmd, "E:\Test\RWBY\Testdl.mkv") + Private Sub ItemBoundsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ItemBoundsToolStripMenuItem.Click + Try + + For s As Integer = 0 To Panel1.Controls.Count - 1 + MsgBox(Panel1.Controls.Item(s).Bounds.ToString) + Next + Catch ex As Exception + End Try + End Sub + + + + + Private Sub PanelControlRemoved(sender As Object, e As ControlEventArgs) Handles Panel1.ControlAdded, Panel1.ControlRemoved + + ItemBounds() + End Sub + + Private Sub PanelScroll(sender As Object, e As ScrollEventArgs) Handles Panel1.Scroll + 'MsgBox("Scroll") + ItemBounds() + End Sub + + Sub ItemBounds() + Try + Panel1.AutoScrollPosition = New Point(0, 0) + Dim W As Integer = Panel1.Width + If Panel1.Controls.Count * 142 > Panel1.Height Then + W = Panel1.Width - SystemInformation.VerticalScrollBarWidth + End If + + Dim Item As New List(Of CRD_List_Item) + Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) + For s As Integer = 0 To Item.Count - 1 + Item(s).SetBounds(0, 142 * s, W - 2, 142) + If Debug2 = True Then + Debug.WriteLine("Ist: " + Item(s).Location.Y.ToString) + Debug.WriteLine("Soll: " + (142 * s).ToString) + End If + Next + + + Catch ex As Exception + Debug.WriteLine(ex.ToString) + End Try + End Sub + + Private Sub DummyItemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DummyItemToolStripMenuItem.Click + Dim TN As String = "https://invalid.com/" + Dim cmd As String = "-i " + Chr(34) + "https://invalid.com/" + Chr(34) + " -c copy " + ListItemAdd("TestDL", "CR", "TestDL", "9987p", "DE", "None", TN, cmd, "E:\Test\RWBY\Testdl.mkv") + + + End Sub + + + + + + + + + + diff --git a/Crunchyroll Downloader/My Project/AssemblyInfo.vb b/Crunchyroll Downloader/My Project/AssemblyInfo.vb index d63f95f..a4199b5 100644 --- a/Crunchyroll Downloader/My Project/AssemblyInfo.vb +++ b/Crunchyroll Downloader/My Project/AssemblyInfo.vb @@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Crunchyroll Downloader/My Project/Resources.Designer.vb b/Crunchyroll Downloader/My Project/Resources.Designer.vb index 417f472..4915e51 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:106.0) Gecko/20100101 Firefox/106.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:106.0) Gecko/20100101 Firefox/106.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/My Project/Settings.Designer.vb b/Crunchyroll Downloader/My Project/Settings.Designer.vb index c671a9f..98fc3c2 100644 --- a/Crunchyroll Downloader/My Project/Settings.Designer.vb +++ b/Crunchyroll Downloader/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -53,6 +53,462 @@ Namespace My Return defaultInstance End Get End Property + + _ + Public Property DarkModeValue() As Boolean + Get + Return CType(Me("DarkModeValue"),Boolean) + End Get + Set + Me("DarkModeValue") = value + End Set + End Property + + _ + Public Property Pfad() As String + Get + Return CType(Me("Pfad"),String) + End Get + Set + Me("Pfad") = value + End Set + End Property + + _ + Public Property Fun_Sub() As String + Get + Return CType(Me("Fun_Sub"),String) + End Get + Set + Me("Fun_Sub") = value + End Set + End Property + + _ + Public Property ffmpeg_command() As String + Get + Return CType(Me("ffmpeg_command"),String) + End Get + Set + Me("ffmpeg_command") = value + End Set + End Property + + _ + Public Property AddedSubs() As String + Get + Return CType(Me("AddedSubs"),String) + End Get + Set + Me("AddedSubs") = value + End Set + End Property + + _ + Public Property FunimationDub() As String + Get + Return CType(Me("FunimationDub"),String) + End Get + Set + Me("FunimationDub") = value + End Set + End Property + + _ + Public Property FunimationHardsub() As String + Get + Return CType(Me("FunimationHardsub"),String) + End Get + Set + Me("FunimationHardsub") = value + End Set + End Property + + _ + Public Property DefaultSubFunimation() As String + Get + Return CType(Me("DefaultSubFunimation"),String) + End Get + Set + Me("DefaultSubFunimation") = value + End Set + End Property + + _ + Public Property SubFolder_Value() As String + Get + Return CType(Me("SubFolder_Value"),String) + End Get + Set + Me("SubFolder_Value") = value + End Set + End Property + + _ + Public Property TempFolder() As String + Get + Return CType(Me("TempFolder"),String) + End Get + Set + Me("TempFolder") = value + End Set + End Property + + _ + Public Property Startseite() As String + Get + Return CType(Me("Startseite"),String) + End Get + Set + Me("Startseite") = value + End Set + End Property + + _ + Public Property Prefix_S() As String + Get + Return CType(Me("Prefix_S"),String) + End Get + Set + Me("Prefix_S") = value + End Set + End Property + + _ + Public Property Prefix_E() As String + Get + Return CType(Me("Prefix_E"),String) + End Get + Set + Me("Prefix_E") = value + End Set + End Property + + _ + Public Property DefaultSubCR() As String + Get + Return CType(Me("DefaultSubCR"),String) + End Get + Set + Me("DefaultSubCR") = value + End Set + End Property + + _ + Public Property VideoFormat() As String + Get + Return CType(Me("VideoFormat"),String) + End Get + Set + Me("VideoFormat") = value + End Set + End Property + + _ + Public Property MergeSubs() As String + Get + Return CType(Me("MergeSubs"),String) + End Get + Set + Me("MergeSubs") = value + End Set + End Property + + _ + Public Property KodiSupport() As Boolean + Get + Return CType(Me("KodiSupport"),Boolean) + End Get + Set + Me("KodiSupport") = value + End Set + End Property + + _ + Public Property Dark_Mode() As Boolean + Get + Return CType(Me("Dark_Mode"),Boolean) + End Get + Set + Me("Dark_Mode") = value + End Set + End Property + + _ + Public Property Funimation_srt() As Boolean + Get + Return CType(Me("Funimation_srt"),Boolean) + End Get + Set + Me("Funimation_srt") = value + End Set + End Property + + _ + Public Property Funimation_vtt() As Boolean + Get + Return CType(Me("Funimation_vtt"),Boolean) + End Get + Set + Me("Funimation_vtt") = value + End Set + End Property + + _ + Public Property QueueMode() As Boolean + Get + Return CType(Me("QueueMode"),Boolean) + End Get + Set + Me("QueueMode") = value + End Set + End Property + + _ + Public Property IncludeLangName() As Boolean + Get + Return CType(Me("IncludeLangName"),Boolean) + End Get + Set + Me("IncludeLangName") = value + End Set + End Property + + _ + Public Property CR_Chapters() As Boolean + Get + Return CType(Me("CR_Chapters"),Boolean) + End Get + Set + Me("CR_Chapters") = value + End Set + End Property + + _ + Public Property Curl_insecure() As Boolean + Get + Return CType(Me("Curl_insecure"),Boolean) + End Get + Set + Me("Curl_insecure") = value + End Set + End Property + + _ + Public Property DubMode() As Boolean + Get + Return CType(Me("DubMode"),Boolean) + End Get + Set + Me("DubMode") = value + End Set + End Property + + _ + Public Property Keep_Cache() As Boolean + Get + Return CType(Me("Keep_Cache"),Boolean) + End Get + Set + Me("Keep_Cache") = value + End Set + End Property + + _ + Public Property HybridMode() As Boolean + Get + Return CType(Me("HybridMode"),Boolean) + End Get + Set + Me("HybridMode") = value + End Set + End Property + + _ + Public Property HybridThread() As Integer + Get + Return CType(Me("HybridThread"),Integer) + End Get + Set + Me("HybridThread") = value + End Set + End Property + + _ + Public Property LangNameType() As Integer + Get + Return CType(Me("LangNameType"),Integer) + End Get + Set + Me("LangNameType") = value + End Set + End Property + + _ + Public Property SL_DL() As Integer + Get + Return CType(Me("SL_DL"),Integer) + End Get + Set + Me("SL_DL") = value + End Set + End Property + + _ + Public Property Reso() As Integer + Get + Return CType(Me("Reso"),Integer) + End Get + Set + Me("Reso") = value + End Set + End Property + + _ + Public Property CR_NameMethode() As Integer + Get + Return CType(Me("CR_NameMethode"),Integer) + End Get + Set + Me("CR_NameMethode") = value + End Set + End Property + + _ + Public Property LeadingZero() As Integer + Get + Return CType(Me("LeadingZero"),Integer) + End Get + Set + Me("LeadingZero") = value + End Set + End Property + + _ + Public Property Funimation_Bitrate() As Integer + Get + Return CType(Me("Funimation_Bitrate"),Integer) + End Get + Set + Me("Funimation_Bitrate") = value + End Set + End Property + + _ + Public Property ServerPort() As Integer + Get + Return CType(Me("ServerPort"),Integer) + End Get + Set + Me("ServerPort") = value + End Set + End Property + + _ + Public Property IgnoreSeason() As Integer + Get + Return CType(Me("IgnoreSeason"),Integer) + End Get + Set + Me("IgnoreSeason") = value + End Set + End Property + + _ + Public Property Subtitle() As String + Get + Return CType(Me("Subtitle"),String) + End Get + Set + Me("Subtitle") = value + End Set + End Property + + _ + Public Property ErrorTolerance() As Integer + Get + Return CType(Me("ErrorTolerance"),Integer) + End Get + Set + Me("ErrorTolerance") = value + End Set + End Property End Class End Namespace diff --git a/Crunchyroll Downloader/My Project/Settings.settings b/Crunchyroll Downloader/My Project/Settings.settings index 85b890b..4b776ce 100644 --- a/Crunchyroll Downloader/My Project/Settings.settings +++ b/Crunchyroll Downloader/My Project/Settings.settings @@ -1,7 +1,120 @@  - - - - - - + + + + + False + + + + + + None + + + -c copy -c:a copy -bsf:a aac_adtstoasc + + + None + + + Disabled + + + Disabled + + + Disabled + + + [ ignore subfolder ] + + + + + + https://www.crunchyroll.com/ + + + [default season prefix] + + + [default episode prefix] + + + + + + .mp4 + + + [merge disabled] + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 8 + + + 0 + + + 1 + + + 1080 + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + None + + + 0 + + + \ No newline at end of file diff --git a/Crunchyroll Downloader/Settings.vb b/Crunchyroll Downloader/Settings.vb new file mode 100644 index 0000000..b1755c4 --- /dev/null +++ b/Crunchyroll Downloader/Settings.vb @@ -0,0 +1,6 @@ + +Namespace My + + Partial Friend NotInheritable Class MySettings + End Class +End Namespace diff --git a/Crunchyroll Downloader/Subfolder.vb b/Crunchyroll Downloader/Subfolder.vb index eb77d4c..32646ad 100644 --- a/Crunchyroll Downloader/Subfolder.vb +++ b/Crunchyroll Downloader/Subfolder.vb @@ -58,6 +58,16 @@ Module Subfolder End Sub + Public Function ReadText(ByVal Pfad As String) As String + + If Pfad.Length > 255 Then + Pfad = "\\?\" + Pfad + End If + + Return File.ReadAllText(Pfad, Encoding.UTF8) + + End Function + Public Function GeräteID() As String Dim rnd As New Random Dim possible As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" @@ -102,6 +112,7 @@ Module Subfolder End Sub)) Catch ex As Exception End Try + 'My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\log.txt", msg, True) End Sub Public Overrides Sub WriteLine(ByVal msg As String) diff --git a/Crunchyroll Downloader/Trackbar.vb b/Crunchyroll Downloader/Trackbar.vb index a9de30a..9d97878 100644 --- a/Crunchyroll Downloader/Trackbar.vb +++ b/Crunchyroll Downloader/Trackbar.vb @@ -21,10 +21,9 @@ Public Class Trackbar End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader") Main.HybridThread = TrackBar1.Value - rk.SetValue("HybridThread", TrackBar1.Value, RegistryValueKind.String) + My.Settings.HybridThread = Main.HybridThread Me.Close() End Sub diff --git a/Crunchyroll Downloader/einstellungen.Designer.vb b/Crunchyroll Downloader/einstellungen.Designer.vb index ce76a48..856948a 100644 --- a/Crunchyroll Downloader/einstellungen.Designer.vb +++ b/Crunchyroll Downloader/einstellungen.Designer.vb @@ -95,6 +95,7 @@ Partial Class Einstellungen Me.Label2 = New MetroFramework.Controls.MetroLabel() Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown() Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Chb_Ign_tls = New MetroFramework.Controls.MetroCheckBox() Me.http_support = New MetroFramework.Controls.MetroComboBox() Me.DarkMode = New MetroFramework.Controls.MetroCheckBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() @@ -153,7 +154,6 @@ Partial Class Einstellungen Me.Label5 = New MetroFramework.Controls.MetroLabel() Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() Me.Btn_Save = New System.Windows.Forms.Button() - Me.Chb_Ign_tls = New MetroFramework.Controls.MetroCheckBox() CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox14.SuspendLayout() Me.SoftSubs.SuspendLayout() @@ -408,10 +408,10 @@ Partial Class Einstellungen Me.TabPage2.HorizontalScrollbarBarColor = True Me.TabPage2.HorizontalScrollbarHighlightOnWheel = False Me.TabPage2.HorizontalScrollbarSize = 10 - Me.TabPage2.Location = New System.Drawing.Point(4, 44) + Me.TabPage2.Location = New System.Drawing.Point(4, 35) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(501, 519) + Me.TabPage2.Size = New System.Drawing.Size(501, 528) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Output" Me.TabPage2.VerticalScrollbarBarColor = True @@ -948,6 +948,17 @@ Partial Class Einstellungen Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Other" ' + 'Chb_Ign_tls + ' + Me.Chb_Ign_tls.AutoSize = True + Me.Chb_Ign_tls.FontSize = MetroFramework.MetroCheckBoxSize.Medium + Me.Chb_Ign_tls.Location = New System.Drawing.Point(135, 80) + Me.Chb_Ign_tls.Name = "Chb_Ign_tls" + Me.Chb_Ign_tls.Size = New System.Drawing.Size(223, 19) + Me.Chb_Ign_tls.TabIndex = 46 + Me.Chb_Ign_tls.Text = "add ""--insecure"" to curl requests" + Me.Chb_Ign_tls.UseSelectable = True + ' 'http_support ' Me.http_support.DropDownHeight = 250 @@ -957,7 +968,7 @@ Partial Class Einstellungen Me.http_support.IntegralHeight = False Me.http_support.ItemHeight = 23 Me.http_support.Items.AddRange(New Object() {"add-on support disabled", "80", "8080"}) - Me.http_support.Location = New System.Drawing.Point(214, 21) + Me.http_support.Location = New System.Drawing.Point(214, 25) Me.http_support.Name = "http_support" Me.http_support.Size = New System.Drawing.Size(237, 29) Me.http_support.TabIndex = 45 @@ -992,6 +1003,7 @@ Partial Class Einstellungen ' 'MetroLabel2 ' + Me.MetroLabel2.Enabled = False Me.MetroLabel2.FontWeight = MetroFramework.MetroLabelWeight.Regular Me.MetroLabel2.Location = New System.Drawing.Point(6, 80) Me.MetroLabel2.Name = "MetroLabel2" @@ -1014,8 +1026,9 @@ Partial Class Einstellungen Me.ProfileTextBox.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light Me.ProfileTextBox.CustomButton.UseSelectable = True Me.ProfileTextBox.CustomButton.Visible = False + Me.ProfileTextBox.Enabled = False Me.ProfileTextBox.FontSize = MetroFramework.MetroTextBoxSize.Medium - Me.ProfileTextBox.Lines = New String() {"https://www.crunchyroll.com/"} + Me.ProfileTextBox.Lines = New String() {"Disabled"} Me.ProfileTextBox.Location = New System.Drawing.Point(6, 106) Me.ProfileTextBox.MaxLength = 32767 Me.ProfileTextBox.Name = "ProfileTextBox" @@ -1028,7 +1041,7 @@ Partial Class Einstellungen Me.ProfileTextBox.ShortcutsEnabled = True Me.ProfileTextBox.Size = New System.Drawing.Size(469, 25) Me.ProfileTextBox.TabIndex = 4 - Me.ProfileTextBox.Text = "https://www.crunchyroll.com/" + Me.ProfileTextBox.Text = "Disabled" Me.ProfileTextBox.TextAlign = System.Windows.Forms.HorizontalAlignment.Center Me.ProfileTextBox.UseSelectable = True Me.ProfileTextBox.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer)) @@ -1126,9 +1139,9 @@ Partial Class Einstellungen Me.MetroTabPage2.HorizontalScrollbarBarColor = True Me.MetroTabPage2.HorizontalScrollbarHighlightOnWheel = False Me.MetroTabPage2.HorizontalScrollbarSize = 10 - Me.MetroTabPage2.Location = New System.Drawing.Point(4, 44) + Me.MetroTabPage2.Location = New System.Drawing.Point(4, 35) Me.MetroTabPage2.Name = "MetroTabPage2" - Me.MetroTabPage2.Size = New System.Drawing.Size(501, 519) + Me.MetroTabPage2.Size = New System.Drawing.Size(501, 528) Me.MetroTabPage2.TabIndex = 8 Me.MetroTabPage2.Text = "Naming" Me.MetroTabPage2.VerticalScrollbarBarColor = True @@ -1325,9 +1338,9 @@ Partial Class Einstellungen Me.MetroTabPage1.HorizontalScrollbarBarColor = True Me.MetroTabPage1.HorizontalScrollbarHighlightOnWheel = False Me.MetroTabPage1.HorizontalScrollbarSize = 10 - Me.MetroTabPage1.Location = New System.Drawing.Point(4, 44) + Me.MetroTabPage1.Location = New System.Drawing.Point(4, 35) Me.MetroTabPage1.Name = "MetroTabPage1" - Me.MetroTabPage1.Size = New System.Drawing.Size(501, 519) + Me.MetroTabPage1.Size = New System.Drawing.Size(501, 528) Me.MetroTabPage1.TabIndex = 7 Me.MetroTabPage1.Text = "Crunchyroll" Me.MetroTabPage1.VerticalScrollbarBarColor = True @@ -1392,10 +1405,10 @@ Partial Class Einstellungen Me.TabPage6.HorizontalScrollbarBarColor = True Me.TabPage6.HorizontalScrollbarHighlightOnWheel = False Me.TabPage6.HorizontalScrollbarSize = 10 - Me.TabPage6.Location = New System.Drawing.Point(4, 44) + Me.TabPage6.Location = New System.Drawing.Point(4, 35) Me.TabPage6.Name = "TabPage6" Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage6.Size = New System.Drawing.Size(501, 519) + Me.TabPage6.Size = New System.Drawing.Size(501, 528) Me.TabPage6.TabIndex = 4 Me.TabPage6.Text = " Funimation" Me.TabPage6.VerticalScrollbarBarColor = True @@ -1629,9 +1642,9 @@ Partial Class Einstellungen Me.TabPage7.Controls.Add(Me.Label4) Me.TabPage7.Controls.Add(Me.Label6) Me.TabPage7.Controls.Add(Me.Label5) - Me.TabPage7.Location = New System.Drawing.Point(4, 44) + Me.TabPage7.Location = New System.Drawing.Point(4, 35) Me.TabPage7.Name = "TabPage7" - Me.TabPage7.Size = New System.Drawing.Size(501, 519) + Me.TabPage7.Size = New System.Drawing.Size(501, 528) Me.TabPage7.TabIndex = 5 Me.TabPage7.Text = " About " ' @@ -1763,17 +1776,6 @@ Partial Class Einstellungen Me.Btn_Save.TabIndex = 9 Me.Btn_Save.UseVisualStyleBackColor = False ' - 'Chb_Ign_tls - ' - Me.Chb_Ign_tls.AutoSize = True - Me.Chb_Ign_tls.FontSize = MetroFramework.MetroCheckBoxSize.Medium - Me.Chb_Ign_tls.Location = New System.Drawing.Point(135, 80) - Me.Chb_Ign_tls.Name = "Chb_Ign_tls" - Me.Chb_Ign_tls.Size = New System.Drawing.Size(223, 19) - Me.Chb_Ign_tls.TabIndex = 46 - Me.Chb_Ign_tls.Text = "add ""--insecure"" to curl requests" - Me.Chb_Ign_tls.UseSelectable = True - ' 'Einstellungen ' Me.ApplyImageInvert = True 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 00cf3a2..01ca29f 100644 --- a/Crunchyroll Downloader/einstellungen.vb +++ b/Crunchyroll Downloader/einstellungen.vb @@ -290,25 +290,17 @@ Public Class Einstellungen End If - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - ListViewAdd_True.Checked = CBool(Integer.Parse(rkg.GetValue("QueueMode").ToString)) - Catch ex As Exception - End Try - Try - Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") - Dim ServerSetting As String = rkg.GetValue("ServerPort").ToString - If ServerSetting = "0" Then - http_support.Text = "add-on support disabled" - Else - http_support.Text = ServerSetting - End If + ListViewAdd_True.Checked = Main.UseQueue - Catch ex As Exception + + + If Main.StartServer = 0 Then http_support.Text = "add-on support disabled" + Else + http_support.Text = Main.StartServer.ToString + End If - End Try If Main.DefaultSubFunimation = "en" Then FunSubDef.SelectedItem = "English" @@ -348,34 +340,28 @@ Public Class Einstellungen End Sub Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click - Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader") - Main.LeadingZero = LeadingZeroDD.SelectedIndex - rk.SetValue("LeadingZero", LeadingZeroDD.SelectedIndex, RegistryValueKind.String) + My.Settings.LeadingZero = LeadingZeroDD.SelectedIndex Main.Funimation_Bitrate = Bitrate_Funi.SelectedIndex - rk.SetValue("Funimation_Bitrate", Bitrate_Funi.SelectedIndex, RegistryValueKind.String) + My.Settings.Funimation_Bitrate = Bitrate_Funi.SelectedIndex If http_support.Text = "add-on support disabled" Then - rk.SetValue("ServerPort", 0, RegistryValueKind.String) + My.Settings.ServerPort = 0 + Main.StartServer = CInt(False) Else Dim Port As Integer = 0 Try Port = CInt(http_support.Text) - rk.SetValue("ServerPort", Port, RegistryValueKind.String) - 'Main.StartServer = False - Catch ex As Exception - 'If MessageBox.Show("Resolution '[Auto]' and merge the subtitle with the video file will download all resolutions!" + vbNewLine + "Press 'Yes' to enable it anyway", "Prepare for unforeseen consequences.", MessageBoxButtons.YesNo) = DialogResult.Yes Then + My.Settings.ServerPort = Port + + Catch ex As Exception - 'Else - ' AAuto.Checked = False - ' A360p.Checked = True - 'End If MsgBox("The add-on support Port can only be numbers!", MsgBoxStyle.Exclamation) - Exit Sub + 'Exit Sub End Try If Main.StartServer = Port Then Else @@ -389,223 +375,198 @@ Public Class Einstellungen Main.IgnoreSeason = CB_Ignore.SelectedIndex - rk.SetValue("IgnoreS1", CB_Ignore.SelectedIndex, RegistryValueKind.String) + + + My.Settings.IgnoreSeason = CB_Ignore.SelectedIndex If DubMode.Checked = True Then Main.DubMode = True - rk.SetValue("DubMode", 1, RegistryValueKind.String) + My.Settings.DubMode = True Else Main.DubMode = False - rk.SetValue("DubMode", 0, RegistryValueKind.String) + My.Settings.DubMode = False + End If If ChB_Chapters.Checked = True Then Main.CR_Chapters = True - rk.SetValue("CR_Chapters", 1, RegistryValueKind.String) + My.Settings.CR_Chapters = True Else Main.CR_Chapters = False - rk.SetValue("CR_Chapters", 0, RegistryValueKind.String) + My.Settings.CR_Chapters = False End If If Chb_Ign_tls.Checked = True Then Main.Curl_insecure = True - rk.SetValue("Curl_insecure", 1, RegistryValueKind.String) + My.Settings.Curl_insecure = True Else Main.Curl_insecure = False - rk.SetValue("Curl_insecure", 0, RegistryValueKind.String) + My.Settings.Curl_insecure = False End If If KodiSupport.Checked = True Then Main.KodiNaming = True - rk.SetValue("KodiSupport", 1, RegistryValueKind.String) + My.Settings.KodiSupport = True Else Main.KodiNaming = False - rk.SetValue("KodiSupport", 0, RegistryValueKind.String) + My.Settings.KodiSupport = False End If ' MsgBox(Name_season.Text) If CBool(InStr(TextBox1.Text, "https://")) Then Main.Startseite = TextBox1.Text - rk.SetValue("Startseite", Main.Startseite, RegistryValueKind.String) + My.Settings.Startseite = Main.Startseite ElseIf TextBox1.Text = Nothing Then Main.Startseite = "https://www.crunchyroll.com/" - rk.SetValue("Startseite", Main.Startseite, RegistryValueKind.String) + My.Settings.Startseite = Main.Startseite Else End If - If DD_Season_Prefix.Text = "[default season prefix]" Then - Main.Season_Prefix = "[default season prefix]" - rk.SetValue("Prefix_S", "[default season prefix]", RegistryValueKind.String) - Else + If DD_Season_Prefix.Text IsNot "[default season prefix]" Then Main.Season_Prefix = DD_Season_Prefix.Text - rk.SetValue("Prefix_S", DD_Season_Prefix.Text, RegistryValueKind.String) + My.Settings.Prefix_S = Main.Season_Prefix End If - If DD_Episode_Prefix.Text = "[default episode prefix]" Then - Main.Episode_Prefix = "[default episode prefix]" - rk.SetValue("Prefix_E", "[default episode prefix]", RegistryValueKind.String) - Else + If DD_Episode_Prefix.Text IsNot "[default episode prefix]" Then Main.Episode_Prefix = DD_Episode_Prefix.Text - rk.SetValue("Prefix_E", DD_Episode_Prefix.Text, RegistryValueKind.String) + My.Settings.Prefix_E = Main.Episode_Prefix End If If A1080p.Checked Then Main.Reso = 1080 - rk.SetValue("Resu", 1080, RegistryValueKind.String) + My.Settings.Reso = Main.Reso ElseIf A720p.Checked Then Main.Reso = 720 - rk.SetValue("Resu", 720, RegistryValueKind.String) + My.Settings.Reso = Main.Reso ElseIf A360p.Checked Then Main.Reso = 360 - rk.SetValue("Resu", 360, RegistryValueKind.String) + My.Settings.Reso = Main.Reso ElseIf A480p.Checked Then Main.Reso = 480 - rk.SetValue("Resu", 480, RegistryValueKind.String) + My.Settings.Reso = Main.Reso ElseIf AAuto.Checked Then Main.Reso = 42 - rk.SetValue("Resu", 42, RegistryValueKind.String) + My.Settings.Reso = Main.Reso End If If ComboBox1.SelectedItem.ToString = "English" Then Main.SubSprache = "enUS" - rk.SetValue("Sub", "enUS", RegistryValueKind.String) - + My.Settings.Subtitle = Main.SubSprache ElseIf ComboBox1.SelectedItem.ToString = "Deutsch" Then Main.SubSprache = "deDE" - rk.SetValue("Sub", "deDE", RegistryValueKind.String) - + My.Settings.Subtitle = Main.SubSprache ElseIf ComboBox1.SelectedItem.ToString = "Português (Brasil)" Then Main.SubSprache = "ptBR" - rk.SetValue("Sub", "ptBR", RegistryValueKind.String) - + My.Settings.Subtitle = Main.SubSprache ElseIf ComboBox1.SelectedItem.ToString = "Español (LA)" Then Main.SubSprache = "esLA" - rk.SetValue("Sub", "esLA", RegistryValueKind.String) - + My.Settings.Subtitle = Main.SubSprache ElseIf ComboBox1.SelectedItem.ToString = "Français (France)" Then Main.SubSprache = "frFR" - rk.SetValue("Sub", "frFR", RegistryValueKind.String) - + My.Settings.Subtitle = Main.SubSprache ElseIf ComboBox1.SelectedItem.ToString = "العربية (Arabic)" Then Main.SubSprache = "arME" - rk.SetValue("Sub", "arME", RegistryValueKind.String) - + My.Settings.Subtitle = Main.SubSprache ElseIf ComboBox1.SelectedItem.ToString = "Русский (Russian)" Then Main.SubSprache = "ruRU" - rk.SetValue("Sub", "ruRU", RegistryValueKind.String) - + My.Settings.Subtitle = Main.SubSprache ElseIf ComboBox1.SelectedItem.ToString = "Italiano (Italian)" Then Main.SubSprache = "itIT" - rk.SetValue("Sub", "itIT", RegistryValueKind.String) - + My.Settings.Subtitle = Main.SubSprache ElseIf ComboBox1.SelectedItem.ToString = "Español (España)" Then Main.SubSprache = "esES" - rk.SetValue("Sub", "esES", RegistryValueKind.String) - + My.Settings.Subtitle = Main.SubSprache ElseIf ComboBox1.SelectedItem.ToString = Main.CB_SuB_Nothing Then Main.SubSprache = "None" - rk.SetValue("Sub", "None", RegistryValueKind.String) - + My.Settings.Subtitle = Main.SubSprache End If If CR_SoftSubDefault.SelectedItem.ToString = "English" Then Main.DefaultSubCR = "enUS" - rk.SetValue("DefaultSubCR", "enUS", RegistryValueKind.String) - + My.Settings.DefaultSubCR = Main.DefaultSubCR ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Deutsch" Then Main.DefaultSubCR = "deDE" - rk.SetValue("DefaultSubCR", "deDE", RegistryValueKind.String) - + My.Settings.DefaultSubCR = Main.DefaultSubCR ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Português (Brasil)" Then Main.DefaultSubCR = "ptBR" - rk.SetValue("DefaultSubCR", "ptBR", RegistryValueKind.String) - + My.Settings.DefaultSubCR = Main.DefaultSubCR ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Español (LA)" Then Main.DefaultSubCR = "esLA" - rk.SetValue("DefaultSubCR", "esLA", RegistryValueKind.String) - + My.Settings.DefaultSubCR = Main.DefaultSubCR ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Français (France)" Then Main.DefaultSubCR = "frFR" - rk.SetValue("DefaultSubCR", "frFR", RegistryValueKind.String) - + My.Settings.DefaultSubCR = Main.DefaultSubCR ElseIf CR_SoftSubDefault.SelectedItem.ToString = "العربية (Arabic)" Then Main.DefaultSubCR = "arME" - rk.SetValue("DefaultSubCR", "arME", RegistryValueKind.String) - + My.Settings.DefaultSubCR = Main.DefaultSubCR ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Русский (Russian)" Then Main.DefaultSubCR = "ruRU" - rk.SetValue("DefaultSubCR", "ruRU", RegistryValueKind.String) - + My.Settings.DefaultSubCR = Main.DefaultSubCR ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Italiano (Italian)" Then Main.DefaultSubCR = "itIT" - rk.SetValue("DefaultSubCR", "itIT", RegistryValueKind.String) - + My.Settings.DefaultSubCR = Main.DefaultSubCR ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Español (España)" Then Main.DefaultSubCR = "esES" - rk.SetValue("DefaultSubCR", "esES", RegistryValueKind.String) - + My.Settings.DefaultSubCR = Main.DefaultSubCR ElseIf CR_SoftSubDefault.SelectedItem.ToString = "[Disabled]" Then Main.DefaultSubCR = "None" - rk.SetValue("DefaultSubCR", "Disabled", RegistryValueKind.String) - + My.Settings.DefaultSubCR = Main.DefaultSubCR End If If CR_Filename.Text = "[episode number]" Then Main.CR_NameMethode = 0 - rk.SetValue("CR_NameMethode", 0, RegistryValueKind.String) + My.Settings.CR_NameMethode = Main.CR_NameMethode ElseIf CR_Filename.Text = "[episode name]" Then Main.CR_NameMethode = 1 - rk.SetValue("CR_NameMethode", 1, RegistryValueKind.String) + My.Settings.CR_NameMethode = Main.CR_NameMethode ElseIf CR_Filename.Text = "[episode number] [episode name]" Then Main.CR_NameMethode = 2 - rk.SetValue("CR_NameMethode", 2, RegistryValueKind.String) + My.Settings.CR_NameMethode = Main.CR_NameMethode ElseIf CR_Filename.Text = "[episode name] [episode number]" Then Main.CR_NameMethode = 3 - rk.SetValue("CR_NameMethode", 3, RegistryValueKind.String) + My.Settings.CR_NameMethode = Main.CR_NameMethode End If If CB_Format.Text = "MKV" Then Main.VideoFormat = ".mkv" - rk.SetValue("VideoFormat", ".mkv", RegistryValueKind.String) + My.Settings.VideoFormat = Main.VideoFormat ElseIf CB_Format.Text = "AAC (Audio only)" Then Main.VideoFormat = ".aac" - rk.SetValue("VideoFormat", ".aac", RegistryValueKind.String) + My.Settings.VideoFormat = Main.VideoFormat Else Main.VideoFormat = ".mp4" - rk.SetValue("VideoFormat", ".mp4", RegistryValueKind.String) + My.Settings.VideoFormat = Main.VideoFormat End If If CB_Merge.SelectedIndex > 0 Then Main.MergeSubs = True Main.MergeSubsFormat = CB_Merge.SelectedItem.ToString - rk.SetValue("MergeSubs", CB_Merge.SelectedItem.ToString, RegistryValueKind.String) + My.Settings.MergeSubs = Main.MergeSubsFormat + Else Main.MergeSubsFormat = CB_Merge.SelectedItem.ToString Main.MergeSubs = False - rk.SetValue("MergeSubs", "[merge disabled]", RegistryValueKind.String) + My.Settings.MergeSubs = Main.MergeSubsFormat End If If DD_DLMode.SelectedIndex = 2 Then Main.HybridMode = True Main.KeepCache = True - rk.SetValue("HybridMode", "1", RegistryValueKind.String) + My.Settings.HybridMode = Main.HybridMode ElseIf DD_DLMode.SelectedIndex = 1 Then Main.HybridMode = True Main.KeepCache = False - rk.SetValue("HybridMode", "1", RegistryValueKind.String) + My.Settings.HybridMode = Main.HybridMode Else Main.HybridMode = False Main.KeepCache = False - rk.SetValue("HybridMode", "0", RegistryValueKind.String) + My.Settings.HybridMode = Main.HybridMode End If - If Main.KeepCache = True Then - rk.SetValue("Keep_Cache", 1, RegistryValueKind.String) - Else - rk.SetValue("Keep_Cache", 0, RegistryValueKind.String) - End If + My.Settings.Keep_Cache = Main.KeepCache + #Region "funimation" @@ -614,43 +575,40 @@ Public Class Einstellungen Main.DubFunimation = Fun_Dub_Over.SelectedItem.ToString - rk.SetValue("FunimationDub", Fun_Dub_Over.SelectedItem.ToString, RegistryValueKind.String) + + My.Settings.FunimationDub = Main.DubFunimation - If CB_Fun_HardSubs.SelectedItem.ToString = "Disabled" Then - Main.HardSubFunimation = "Disabled" - rk.SetValue("FunimationHardsub", "Disabled", RegistryValueKind.String) + 'If CB_Fun_HardSubs.SelectedItem.ToString = "Disabled" Then + ' Main.HardSubFunimation = "Disabled" + ' rk.SetValue("FunimationHardsub", "Disabled", RegistryValueKind.String) - ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "English" Then - Main.HardSubFunimation = "en" - rk.SetValue("FunimationHardsub", "en", RegistryValueKind.String) + 'ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "English" Then + ' Main.HardSubFunimation = "en" + ' rk.SetValue("FunimationHardsub", "en", RegistryValueKind.String) - ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Português (Brasil)" Then - Main.HardSubFunimation = "pt" - rk.SetValue("FunimationHardsub", "pt", RegistryValueKind.String) + 'ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Português (Brasil)" Then + ' Main.HardSubFunimation = "pt" + ' rk.SetValue("FunimationHardsub", "pt", RegistryValueKind.String) - ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Español (LA)" Then - Main.HardSubFunimation = "es" - rk.SetValue("FunimationHardsub", "es", RegistryValueKind.String) + 'ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Español (LA)" Then + ' Main.HardSubFunimation = "es" + ' rk.SetValue("FunimationHardsub", "es", RegistryValueKind.String) - End If + 'End If If FunSubDef.SelectedItem.ToString = "[Disabled]" Then Main.DefaultSubFunimation = "Disabled" - rk.SetValue("DefaultSubFunimation", "Disabled", RegistryValueKind.String) - + My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation ElseIf FunSubDef.SelectedItem.ToString = "English" Then Main.DefaultSubFunimation = "en" - rk.SetValue("DefaultSubFunimation", "en", RegistryValueKind.String) - + My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation ElseIf FunSubDef.SelectedItem.ToString = "Português (Brasil)" Then Main.DefaultSubFunimation = "pt" - rk.SetValue("DefaultSubFunimation", "pt", RegistryValueKind.String) - + My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation ElseIf FunSubDef.SelectedItem.ToString = "Español (LA)" Then Main.DefaultSubFunimation = "es" - rk.SetValue("DefaultSubFunimation", "es", RegistryValueKind.String) - + My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation End If Main.SubFunimation.Clear() @@ -674,17 +632,17 @@ Public Class Einstellungen If CB_srt.Checked = True Then Main.Funimation_srt = True - rk.SetValue("Funimation_srt", "1", RegistryValueKind.String) + My.Settings.Funimation_srt = True Else Main.Funimation_srt = False - rk.SetValue("Funimation_srt", "0", RegistryValueKind.String) + My.Settings.Funimation_srt = False End If If CB_vtt.Checked = True Then Main.Funimation_vtt = True - rk.SetValue("Funimation_vtt", "1", RegistryValueKind.String) + My.Settings.Funimation_vtt = True Else Main.Funimation_vtt = False - rk.SetValue("Funimation_vtt", "0", RegistryValueKind.String) + My.Settings.Funimation_vtt = False End If @@ -697,9 +655,10 @@ Public Class Einstellungen End If Next If FunimationSaveString = Nothing Then - FunimationSaveString = "none" + FunimationSaveString = "None" End If - rk.SetValue("Fun_Sub", FunimationSaveString, RegistryValueKind.String) + My.Settings.Fun_Sub = FunimationSaveString + #End Region @@ -717,8 +676,10 @@ Public Class Einstellungen ffpmeg_cmd = " " + FFMPEG_CommandP1.Text + " " + FFMPEG_CommandP2.Text + " " + FFMPEG_CommandP3.Text + " " + FFMPEG_CommandP4.Text End If - rk.SetValue("ffmpeg_command", ffpmeg_cmd, RegistryValueKind.String) + Main.ffmpeg_command = ffpmeg_cmd + My.Settings.ffmpeg_command = Main.ffmpeg_command + If CBool(InStr(FFMPEG_CommandP1.Text, "nvenc")) Then If NumericUpDown1.Value > 2 Then @@ -730,18 +691,20 @@ Public Class Einstellungen NumericUpDown1.Value = 1 End If End If - rk.SetValue("SL_DL", NumericUpDown1.Value, RegistryValueKind.String) - Main.MaxDL = CInt(NumericUpDown1.Value) - rk.SetValue("ErrorTolerance", NumericUpDown2.Value, RegistryValueKind.String) + Main.MaxDL = CInt(NumericUpDown1.Value) + My.Settings.SL_DL = Main.MaxDL + + Main.ErrorTolerance = CInt(NumericUpDown2.Value) + My.Settings.ErrorTolerance = Main.ErrorTolerance If ListViewAdd_True.Checked = True Then - rk.SetValue("QueueMode", 1, RegistryValueKind.String) Main.UseQueue = True + My.Settings.QueueMode = Main.UseQueue ElseIf ListViewAdd_True.Checked = False Then - rk.SetValue("QueueMode", 0, RegistryValueKind.String) Main.UseQueue = False + My.Settings.QueueMode = Main.UseQueue End If @@ -786,33 +749,32 @@ Public Class Einstellungen End If Next If SaveString = Nothing Then - SaveString = "none" + SaveString = "None" End If - rk.SetValue("AddedSubs", SaveString, RegistryValueKind.String) + My.Settings.AddedSubs = SaveString + #End Region If CB_SoftSubSettings.SelectedIndex = 0 Then Main.IncludeLangName = False - rk.SetValue("IncludeLangName", "0", RegistryValueKind.String) - + My.Settings.IncludeLangName = Main.IncludeLangName Else Main.IncludeLangName = True - rk.SetValue("IncludeLangName", "1", RegistryValueKind.String) - + My.Settings.IncludeLangName = Main.IncludeLangName End If If LangNameType_DD.SelectedIndex = 1 Then Main.LangNameType = 1 - rk.SetValue("LangNameType", "1", RegistryValueKind.String) + My.Settings.LangNameType = Main.LangNameType ElseIf LangNameType_DD.SelectedIndex = 2 Then Main.LangNameType = 2 - rk.SetValue("LangNameType", "2", RegistryValueKind.String) + My.Settings.LangNameType = Main.LangNameType Else Main.LangNameType = 0 - rk.SetValue("LangNameType", "0", RegistryValueKind.String) + My.Settings.LangNameType = Main.LangNameType End If - + My.Settings.Save() Me.Close() End Sub @@ -999,10 +961,9 @@ Public Class Einstellungen Private Sub DarkMode_CheckedChanged(sender As Object, e As EventArgs) Handles DarkMode.CheckedChanged - Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader") If DarkMode.Checked = True Then - rk.SetValue("Dark_Mode", 1, RegistryValueKind.String) + My.Settings.DarkModeValue = True Manager.Theme = MetroThemeStyle.Dark GroupBoxColor(Color.FromArgb(150, 150, 150)) NumericUpDown1.BackColor = Color.FromArgb(17, 17, 17) @@ -1012,7 +973,8 @@ Public Class Einstellungen pictureBox1.Image = Main.CloseImg Else Main.DarkModeValue = False - rk.SetValue("Dark_Mode", 0, RegistryValueKind.String) + My.Settings.DarkModeValue = False + Manager.Theme = MetroThemeStyle.Light Main.LightMode() GroupBoxColor(Color.FromArgb(0, 0, 0)) @@ -1289,8 +1251,7 @@ Public Class Einstellungen Main.ProfileFolder = FolderBrowserDialog1.SelectedPath ProfileTextBox.Text = FolderBrowserDialog1.SelectedPath - Dim rk0 As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader") - rk0.SetValue("ProfilFolder", Main.ProfileFolder, RegistryValueKind.String) + My.Settings.Pfad = Main.ProfileFolder End If @@ -1314,10 +1275,7 @@ Public Class Einstellungen Main.TempFolder = FolderBrowserDialog1.SelectedPath TempTB.Text = FolderBrowserDialog1.SelectedPath - Dim rk0 As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader") - rk0.SetValue("TempFolder", Main.TempFolder, RegistryValueKind.String) - - + My.Settings.TempFolder = Main.TempFolder End If End Sub @@ -1328,6 +1286,7 @@ Public Class Einstellungen + #End Region