From 92fe55184505c526242fea347985b21e503fcd20 Mon Sep 17 00:00:00 2001 From: Jigsy <34282672+Jigsy1@users.noreply.github.com> Date: Thu, 1 Sep 2022 02:57:37 +0000 Subject: [PATCH] Add files via upload --- VB6/UUID2.exe | Bin 28672 -> 28672 bytes VB6/UUID2.vbp | 4 +-- VB6/UUID2.vbw | 2 +- VB6/frmUUID2.frm | 66 ++++++++++++++++++++++++++--------------------- 4 files changed, 40 insertions(+), 32 deletions(-) diff --git a/VB6/UUID2.exe b/VB6/UUID2.exe index 7c370421f3167279954202c8e52be3ed30235fb5..0a066578fb144e215aa86aa854dbd872f1bb5add 100644 GIT binary patch literal 28672 zcmeHP4|G)3nZJ_+GC+hN3E~PeVzksE4FoVM)PZD>C_~;1Nu(|jVlr_O@~`tI7+h21 zCe!lv`6}9Et6k!1H>Y*GY!CI&if(K}i4EPR$LyNbv?MjP*`B1PnqxUN73$mHckg>M zZ-z;5t=;zQnFsf~|GxX(?|%3DzI*51m*>9w2uo&+r6A}!VQ)wPTF?<T+*f(*tt$5uj>(baVr-`^nVq^az1%Dt zWs7VJY;y(k4pF*u3F34FiSka7MxMrNL!g*H4S*r6vZADqI3UO5ClPTeQT2Ojsxr+&3dZbjb@pzZ0Vdt}d9Nj~3MC}*Sm8`*_2&B`2RXZ4?S@(DVK*oOQh;!OMy zKDS1cpGTa%SfuHvIfYuIj@p0kMp5^&5u;iZu&LYd6Pu?O0*{`dtxonC1Zww{ZB8m; zPi+(ZUY94z>$W?om^C6Me%9PB;-iSE-PJop{dI^be_esduR*L|SCLNeFo#cYSj1s2 zhsQZ|aM;V?9u9jrJi%c*hYcJa;czvFb`FO)OyO{n!!8c@a`+&J;~b80$T)nK!vPLA zaM;G-Q4SyBaFoOS96rrq28Zb!200w$(8*y9htnLUahT8HNe(x2xSYd&4kZq|Ib6fx zFo#(jp5yQshdVi3#^Dr)*&OcRu!TcEhfN%w0c6bIz0}FZ-`43Ijh<|TT%KZViM0Il zMb9m8|I5oixMgus9!{_5Ax)|b)D{;P;D7#lUWRkH{&g(v%KhoTt^Z!8`-R_h?|J|0 zfBV=kccy+bb<4#Uvr+Ud}ZKux zEILX{wzKluioBY7*~e0FjCZ|}%)Tl&<)%6J+ZLyS-1R_AN#%(34Tpd?hvi+*Qv-_) zv^hXq3$!^42<>)Xoi9)pB$D&k^^sh5nt`4I^lN}VcLA%c_3icrgH?6+$t-zJ6Ki6H z3vQZoxt-~@TY-^!87uc6@Rrq8)YsPeWSPyeWw3&}@_?^Q_Ek6nmWn3Ule};KX?A%s zsBc4Cdm6Qkh-!{)ISc2?YHAKS?lTy5tX`Kbf0Cj5fh0~M2_$krVjjlhKd>!OR(`-2 zq|Vb=vFvmF4VC!hW@<5N<1K7#iA{7nA2RhHC~j!*1<>GX-hk)I!Lp;=Uxv0pUqE)O z-g@KRywfShNkC(5dQ$S$=yw6M1%e44s_{W8*=bGeri?d|E}sXftU`5~oduhMLWPo2 zn%ES(eaZc{%jdGJq#JcTDJg|PW7y;hCqI6SRclmT^rTaRIL|9kUwYb?I2j!}mTcR2 z&D6>pc$o=4Zzgy=pUn#&@G`dJ3Mbn<4XcELlQ$;oqcDL`1JkWQ*aO;4$P=A5gb+gP zBgQJAVLR*`2(?}5oj>FGqgc z(lft0_uO2!w!izP8(x@RJs;TgZ^+Oy!lNhuubf=Z=ZP%_BQrU+QqZz5cM?kY$pvm2 za(2YjQ)`Rh;Q7kJQ)cLYAn(+7k>BvZ)>AJbo;Y;psqgUmU8jDFc;y3ko)W8;Sh5UD zV6jV7>g|s{^H0}4>HfF0c^ThnsJtcC_WPFIeP_>W>K!jmUfHyIaEp3F%#wz+C9-CK z=e1kTUwHp%fBH9a?d(%IpZiYUEqf*7u4#K!jZfa|t||}I%k`B(M@g03SXSfM9c-+q zs^43(?dDv7O=}Bxk}oa+IEL}lL#~FdZ@Q5`hcMuEA}1dI%U7~r?}}b#txLrFF?C^2 zi{|gf)>&4fur~!>c*QgN1P#jqgL>F74$GK+l>{Vn3b@**dF#-b~kUE0ho;yU_HwLosDc0y9wjG znb(m_X&XlI-xzT-V)LP8j#dbI4#miu+R&(JP6nahCEK=cGVks9xOWEw1?vqNxB`Lt zK;c1Opt7d^exq!ALjjG8<3d30#u|}EJ7i1BYK%H>Zb4m;qlR(w%7Rv0cl|-1$V1lK zwxB{DbS5s9GUV-j3t@t~u4^xzSsvC~INJQb_3XZrco?5I&r6mwDKxXKCt8o_G; z-eKTn8|6-RIok}p&B)KU;PnIV3E=HC%AIU6`etko@^dVBYp!*&XMyK8%BkOc;8DK| zEO>{3NBstka-z4xpqFgH8#L&(0FTOvKiX#!f2kI{>@30G5u=>&Bm>WG!8>B$JqJ?& zooprB54>^Y&HV+kYz%m3fH!TFlUzvgNzN%2dQI00IWzbVDj!CE0^xTE$Cs~jEbuPkZ5Xz0ZqBwQD(MJFeevGu@b>9_-{&~pZ<9Pbx z(Eg}&&&8qji;s!V<=0$1mmihSc#Gmc&Gkq;?OTKbg?~7T|6E?YFYQ6nEp(B zjr}kB{j?#A0waz`GZS^IW~rw(n=etHw(4R%di!IT=Z9;uQVP-k#G^LGD04eyo=Xy$ za>`^Ti_C45*@GVeghs!ICe9j}eN?mXDpA8T&sZ}V%PlouS!v07&Fqe_KX{8T3;rS?zcP>cr4leVs)~0GR;p%A{EaN6HIyoPl{DA5q`#_8 zYsF*UyVOPcW22xM>N)#n^W}a@`ZKV2-6iRnbda0VQ`y=)X4Bl`i`skM8&aqBOgiON z7nW3p^x#VUu?x@@t$1AWg5*@SUZT#`rM;Zm+P7B3Rx?ZWqUyc=Ec8@j^n@-1?LOB9 zaKZc!<8I-t`QhTzr&X6-Qti6OuDUL$?#X@kR4B9`V}Gswcj*sO*evq0hvk({@^abL zGp)a{DeendA4m#v>AE*X&!j_aqw`C2b%Y+?Uq+nyd3f?9xZ+(-_PM5(MNQE;Oc7=% z=d4mX4Jl%tl+sb9bXX}JQc4Gv(q5(Xgi_k2l(s9SZAxbl8dq)8GwGQ9<`wjlq%qx3 zk-rGC(=+K1Ufn_k>J^%6NV-e+EfAy`oBBi=8jjCPJ zJ<{1XLp{w4swIDgnDSRO_mG%`XNY8|XSU7;jm|g;vomNx>0qDhkrbBH(&uWU-;OlO z$5uoCB&~SJt7noDf`L@cJ?gnjKk_tCI3G*>l=KG$(_1*xuY+lxQkS$&rmMZGyG^mH z?!(HC6xIERvIFTO%8oSEH7f1az59*v?C0azE$OeL4?UBvD>V0@hq|v$(lhB2qqR3p zol6{)=u$)sJ7LPu$Jf=X)#6dF|1cNv8sc|Aa}Vp8bO|Dr=(~%Ij*9$d3(Ykw5jmny z*Cs@NX^H+g?G0gZLr`))?kRO4j70bBH7JB_0IV9KpLiHzc!30{xR0JB2`a93#eGb1 zb@hcFgg#sVTi>SxEafFq53Pek_X%}lKYG?*gZR6FqBOT@#ci6qSAR__Zue@gE^v6l zQ=P39_hK3(;A*aRlyyNeCs5xjRl^FFbM7Sh;~DK zv?NU{eWD(rvxb{3*EX2#In_O88124$472676t<`M{w^(Szs@LQit%^wY&p7AqBM`| zkK0ojCLJz?W?yN(;2)ro2zNq7mvkq>zT@%p@Z=siy)a9D?o!g!6?B=FqrbRp1q9+A zRhq|?X24;kc~EH{P@4Od<}*rjuhQJ3GVJ7GpW2(f%#NkD&jDo z!wno}ahSm&7GL0;`+(pWhl3pUa(IHnb`FCaHW18(VG8&8m;)+_35UlvR8rFj#Y4XN z$SBn6*1qVq!1T~L|5@4k5}{%_II*bx2k-q%eOGvk%3I$H&VR8;44irzmHbDL(=)m8 zY#fGU$b?3ritesH*D=y=PoJxcv|G=lyGWGlnQ4T#Vn3kLJfv<3B5@LX1Xg*oYiQA< z{ppN+w*+_nc!sd66Q*6+wGQIUD=DF!h%JlSGF79J$kOI9m$r+Bqjcm`TfV|!sFcBi zz?n68UDWpKLP!s$q-Q$8-Oy$GG5el3MxVWGQRw_)#(ugyOV6yKVPLp}`fI?OMsB3j z4`L%Bg2Qw6piS$fU9@@`twzx5b!ssXZlPxmq8&=K;z17#4-0wNvxH@}==-km9j()I z7JadD5d@hPvTsAru2F+&DJ4mdHPVJ&@nf0 zMlsU4A9U5?G0ojR5~8%`8uch0-AMI?NLR^^^|_8>`-!L>b_G6%dF>$8I!Ql9!M&t) zP=V%Z^J4d+Y19_(&7+0L`=KoJX~NPoGZ2v|$4J*q=?T#ZT+Q8vm8ji=S@cR1t1zD` z9JikNh|%zj{u+7zNC6zETHK52jMjxdS1-7QzeT4)zIM(a~{sR5c;-a|i1(K{+(a0@eMGyjRBLVlh&Jg2@>!{*x zH>K-p*EEu(lV5fWR3RWjS|e~t;PDrBE&k+ zjTik~*M&J9#C(QDYf;_OV{kv{UeP8oHm?>MLsSh<)-I7FnnQBoWnAT6g#e9RjMv!4 zh>0ZQ3bmst{aW~G=TW4>yib|DQ(~lZobyg_cHW;DF?oLx+u1Ph5mzwMNvl4w&sTay zBkREk$OJF~V}AO$A&7BMjWLc6Vpa>$9C|ga$e79v&~>dNpK?(2Hsr8L>BmTpQu2~M zYq6D4*h{ztw|4iK*0BMkg+f9F9|Q|vkC@_O-i%7Fk0C-Mm9%PM7IDS3kXmRV%7gU` zQ5;tb&wzR8*8ud3oF#TKe3ufUHk!r>3YMUV*a-=VMX6?&t^o|&9uw3AUnq^=gt%pBm8)j{e@ zgQ1^t+L7RCGgyT%1jE5|H^N5}HWaaM<-ZBI zmO{F4^Q6YcBH$zyFh)koYbY%D^jv{EDlnCB_C=%&P&cl?TE3wZq`+EnKk0Im0`CE- zkr2U{MOOj`VN0_rumoJyHKu8#nIj>}dX&(ISK#7yLt#1VT!A}C|G+va<4o(+8E_BX z9DouJLK95|?%)b+S^%*mRxZ<=gQ5hhAgyIq1unt%H+os?j$PJ-77DfLH`Rs`Bb~im zZ3xb;HX}o(ev@T~1sYKs)zuBP9w|MlxQ@|}4Y(_;*>I`t+)=r@p$J%yy2vkxePd+V zJ&6UJ>rzB}Ji^J5`WWuG819%9Mz~|{7$X$KIw?ljV~&s#Bb_Jt2no(U!t<}2BV1t} zp;cw}ViNkeV$zsY*Gb`Dlu!*SgvQdixwoaE)8PQt8d7L6Y~jf@q0NS$f+mxSOG2BV z@La{+y|fNTsrZaLhFWMqct(0+eKdAtTp@+cN=nC32vMwT#8h8sIoK0EnshMYqxtTs zBL!t19QkP6#5Ilb*rA;xa{=pdwqg*AyBpfu16}QfnxB#Ii?TnW@^HS~XLA}_hzOca zUu^U8MM;t9sREI?_ls;S=9?Z|nka@wh>eB0uOkD9+UQvg;Do6jlo;te#?^!1?CLT6 zU#5C|fXNSwJ7NH0<4~vE)q4?!RXB>tRi|? zRwaMd90estI-lmFAUOLdmWD@>YaNAE$+`Exlr{delMIk7po6B#SpOpi+7}{Q5z7D} zi1BlK5Y}R`3PTFqObpZDdjc|cEo3Oe1`r{O5Zjq7%0;#_y|9`nQ<-r!*alq*&z;p& z_-a7gnGBE?s{yt%AJ$Z`rD`)wgR|bwSx*5eXf~M&u^z`%ice~;Zm*=ddvKNlbBWzx zo2J5PXu=kadh4{CgO5kTqJ0kOE45h*1QX>K7kjq>m_ zSY^mPoj^_qB}hVFI*z%TMaf%xv%<86(Zncx^zPnt4CGy~9#sfKps9!2TYmOerpx6qNQ}?dlpB&rQ=HJSoBTGfKuA8l%C;NDm_YRw^DkN->n>1N{?Y9e(PzRaxM|K z3%CI>5Aw|mhZ!$hHqy-q_A%ZPx@F7YWENCs@XHpM!|SRGZu^86H&yDC{unK89A%-O zlKw%M2Vq@;yt|v*oD`2dcGSl`I0Oax$9p2=DfwZ^yG}|a>QdbskNiok_?XH4nFx7G zhRLh$aZ(EITs-PBf4}f2;d5Si6;+%tGgt$;9oUuOfQHEdjfWl35VET4IM!+tl`kaW z(@+a4b~>v27%iG6D&L`SR63(;wDY?e?xW0!joi?f6AO0}yQJbO16~MM9IjEgi7}+d zaf*NylJ7_(J6CUYvba4`=eG9ZQiSYLl6Ze~iDs&h>Ka#UfKHd5Z74XbQqkDqI?YLas2i(xpiayx>44H zGJ{+2dg@}KMZ!WRiPr=ZY(hGiP0mQH*Oo?v=sP57l_!OQ;@U0*$qWpQ} z4!9g#E5v)gin?bJo#tej22-yhR5hR2fga;6Q1l%KtpF%i}(2MXI!WhEa z2q|t117Q`y284WsJqXnZ6^yksA^rlw;|O0vIEK)T(2wvM!YIP85#C2|p)Zn0>^FtX z_iqc%;E#q{Dby?t!Fi)($y*JvGnkC)T0 zs5-c>b`!nt8h(%1`mV3wA>hN`$Qc-T>zCdXHgYq)%WJ%24y;HoIW$1tOYGar#+$!J zt@ZukNb7Z*s?a<_FR-sx6hUHgRYXR4{sVIG05Dx8u3bg@b{FirbKlmA3a_uy>>VTU z(tr(G4fuoo1b5C^97y_2#+p=J!Qf1kU*cM`mar4b+qcy@_t*tnb;2 zcj-;dkC}<6x6rL`-QzC_YlUp{3QYUREATZ@7l!0w-Z?k8ruxK_kU&BL2?-=5kdQz^ z0tpEuB#@9mLIMd1BqWfKKtciu2_z)&|5E~yZ|IA^hTntp+l3ga6EPiCuSSf>@~wUP z3JoueTmHmF_{nTtBhGwLz8*1d-CA-GAHN9C#=m1T4chcX_@dtM%^DG1RK9G6^3^kx z=b~IHW9$Up+c=)WNwX9jT4y6^<~JZu?almN9AA!G@bmq^x6}(NM3W9sOYnV+He{uPw%#+OeD@I8`Be368n zEZ(XJUnVI-sf;f%0Llnji)2JV8uszUjF;7EK!B|>Qm9ory{4G1^$ zcpI0^8hmBI#=p@*U#_A)4q-%P_$CTJ0>)QPsz6UhDdY>Sv4v^p14G95RH)B}D4uRd zO&tR99OPIIq#SIO<-1s`KyNR;hGN6l7<}lV3?ma?iaEq7()U^Dx$Nj$HPj}Wer(Hl?F3&mFC>`&Vj6iw;#R&k^F9iJMRPziOStCTQclcL zq|I8;Y%(N3U!8C`lE5YA-Ns<84o5oDDO~5*H>RhH99cw8Bm4os!g3%swYCT8_)iOC z_|IBeLZy>j`8*1#r$YMt!A#JTdcPZ)({?dJ9{L^)wZM;)kZ0 zP5xkVdeB~7gEpb7gi!X zbYA}h`kpPE($8PmqMtu~N}t|*8{$jz8>e#=8S?7+)5|L&jYKLTfrJDS5=clOA%Q=S G1pWsm16ADs delta 6904 zcma)B4Nz29mc9=G8)&hGZvLeCF@P8q`4MOp;zMbF5_{7$f^1eID7d|b7|Wlm$zqx* zB$b|LZ(y!k&W=fRiQ&_%(qm1zs)iIe}9Jeox>ngnilX z3Zh%!;{rDb+$M0Az~KT92+RZ?5%{FQ+XQYAcv#>efzJqhMc{ma4-0%k;8uZsNun7P z*e!6Uz!rhc0yhcVC$K}{odS;uY!bLk;2wc52%IbMHGwk(4hno$V5`8RKGCcYSQhwz zz;yz91-=OE-I5@)@hMeRnRxPn9a@)t^3ud_c7M?5JpaR%-`;rninOIQ?s?Q zP^Z+v0%l(QapZ?1hhE)u{N59`miABneQ(*VmJ?+={$tZyBYPX`S>xOMQvB+O-C>M5 z`RDQZF~ut}`$;Gart?+SrC|pWd7U*YtkcF{v1UhJOmT$&B%J@9H8av{5#1r{vPd~b zbX99c`L5{Fh&U5dCCb(L3)mj-bDqZiO)osZzxmK179qv6t^4;JY;HW%oN+LOf0Xsj zyKCb0wu-P9qWC#mzUQu~pT$WmUQ*{3KvlGfRMi|f(0mYD7O)y95Y!&1Vi8B#6caNT z%?O*9hAA;7w)gqw>ccO!G_!dTattp@C{7C6W#-0UNLWNvx-zZ&WI|HZKOqqGtmf}0 zl!gr_@ZTk*L{HmfHU*fD<8g^=lP$@zkg+V4*#R5}Ycyjfx6DrS=EPE|kiU^=mkN9P z6E8_!`6eGtH1=l&q|W5vDCm2e3c5Do#TD%(z6}>{e~@?N?ay9`hBW;(>8psPfUbd# z3TG_Jq;bg5*U~gyCl<>ZQ^!{z3!~V{WSM`NT)chn!RKcZ!{|Jk2fJRsel+*W51l8y zPgVY}wch?{gkJqY)t!ld?b#Oi?Chdr+a0m|L`q9eeu}m*-gGPqAcH;%81iU*u$Za0 zH*N7+De@wWytbG>oB9lQ+sn8WaKc_@s@+ggl2^HH8=u^k#52+sMQ&@}U)y+)FHc*- zBc8JGt!bMj#=Bfrem-q^JSiE5@?E=L+}-Hh-vs^q%d`}pnZAu5OE2;nds7z@Wr`&2 z4?P$E%r4p)l&%|a^#X@CUj*pZ-#1ofv$m&<}2@o6)*V~ipwg~$y+jv}}k za>OTnb&w-{Q6X}^psuhIf;0d#*iHz#L7PJa#7a_L= za;-X_B11_xiiN{N^li%)k#1tgAxH!7g7IU(&jB|9V}RcS?gL_woJoLe06mmkbd-nV zWcDjS5MbBG@@J3ns<1Wjb#wAviEXp_?3dXx<~ZYfW{;7s#G%=I_P#!6diEIRxDqom zX4~8&=4@THWsWh6?$3eQW27(s%$)q@_`ccvuFT}9351cJdAuuU{k%WW!je64e6}$A zsW7U-_pO$!@TW0j;yH;iA~qB8*I^p5hlt8s9rejm=w^EyuDw%j|ZxNM?%Dq+DzNMDn}tW!-oCL0ME! zxN5WV#T%FMt(#+gryJI^5oVqSumy54D8T`4Dn-Re!) zDZ1^GmWxy`27rRy4w)9ts9B&3o}dFpID8vQ=rx zWf%&$x>cKrWbE{{<3Bc{lsEB1tFk4Te|Ob#u}&2oN33Iu@}H`_k2eaA>YY{DKKk?- zS>S-}Rlg4QELhm_#UjQ&O3hMjJ4qq7Y*@X4x%63d`wcH<-tHhg8j+7V?UN>L)&OSR z#;lt(V`yfEYU{&1Z~`^Mw6A!hXj@B(Lsm;B-kEPr4z3ptUUgoeoOEAxc2lydHZ%Wm z{^CC+8%G0XtU9w^e&~AN$in-U*%tDGg00dZ|Eq%RboxMqoAiaK<>`$FR>NfelY-2+ zR(MW&uM4WGwp&MHLk!cS z$1fLcUQCfjqFwDc2|vQI1s}a}7Ci*U%u`p-snz#uL+d5f&yVH+e{pqfbw0EPPE{i5 zDEH}m-5qcaLg@+Wer;}9LiHl{G=rxXuSZaJ6^8`n_2M)H<(=XZJt&TeL}Zb+Q)Yg* zcuw=XZyV-+91~)`5tOQulH@DG;8SA=M8J8{<5sULu3!~~t>bQXu|)Q<)K zqQovacv9(B=?dRnx?BrSK!gWcDLjFiL5kEv;i<#&w>t#7Bw&sf{1r&Rx1irKt%Au%gjmxq|`URSBd%so+qQ$ep{9DY4S6tjndsO65CkF1;1 zyZ)PocVD5{oUy`)Sz%dev6gYp?ttq!e7df`Z1nXmV!ek9FrxWp*_`Wrb;DS%G;}>9 zn$u-D*q!upH?r|Sxt@)uL|`8r)&cnY&9boq@tN_-i0tpmDYAJ_ghck)Cn&P7R3!25 zKe0mmVAnq2o_HK3yMAEdt-s^!S9IpOZ;6ik_8TWbt2XUEp#IE#5QV#SX4!9aAKb(@ zfHA{lTv@zsJzWTYyFUBDyY`ps6H=)f37k5N#RJaco`CD5J5bY&3oTr=C2>j4nLn&u z%sfv{ly31&avHAQW?8%9MY)WtH`zA|HG4bM!}*GHOexO=^5$ldmVENv<_$rGc!GFJC1#X)|nV)>5F zZ{^9Xca_Wv3uN}QBAI==1QxA-p@e3)WLY2s=QDNt&5{4?MKKoBqqU`_}DvH*nu8Bhn<3#bZXZ63gj=pP512J`@qg7+h|eSl%Wr+_KI zeSmcnV`+f3fGvQZg)v{-v*@${UIBau&<*$z;0oa103QRU0AcvOAP$fNZ~&SZYukj@ z1K15{0ki^608RtW0p12&1~_39++nWj+6}d?l6?BTljvO=`GqHc6Z!P+ebvo}d*6TR z=TdLL^_OwI4PkO*1pPnB%A*<{(|ZLC@pi$ZnfMh9JIv0&2%A2!76>rFI#k6xd6@QYh-pz*pS74gPBrBYGvclZ3c`TqcQ3l&BH diff --git a/VB6/UUID2.vbp b/VB6/UUID2.vbp index 41a3638..94842e2 100644 --- a/VB6/UUID2.vbp +++ b/VB6/UUID2.vbp @@ -1,6 +1,6 @@ Type=Exe Form=frmUUID2.frm -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINXP\system32\stdole2.tlb#OLE Automation +Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINXP\system32\stdole2.tlb#OLE Automation IconForm="frmUUID2" Startup="frmUUID2" HelpFile="" @@ -12,7 +12,7 @@ HelpContextID="0" CompatibleMode="0" MajorVer=1 MinorVer=0 -RevisionVer=3 +RevisionVer=4 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="Jigsy" diff --git a/VB6/UUID2.vbw b/VB6/UUID2.vbw index f8ede91..fbcd77b 100644 --- a/VB6/UUID2.vbw +++ b/VB6/UUID2.vbw @@ -1 +1 @@ -frmUUID2 = 66, 66, 967, 458, Z, 22, 22, 923, 414, C +frmUUID2 = 66, 66, 967, 458, C, 22, 22, 923, 414, C diff --git a/VB6/frmUUID2.frm b/VB6/frmUUID2.frm index c760633..a9edb14 100644 --- a/VB6/frmUUID2.frm +++ b/VB6/frmUUID2.frm @@ -5,60 +5,61 @@ Begin VB.Form frmUUID2 ClientHeight = 1560 ClientLeft = 45 ClientTop = 330 - ClientWidth = 8160 + ClientWidth = 8385 + KeyPreview = -1 'True LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 1560 - ScaleWidth = 8160 + ScaleWidth = 8385 StartUpPosition = 2 'CenterScreen Begin VB.Timer tmrAutomatic Enabled = 0 'False Interval = 10000 - Left = 6000 + Left = 6480 Top = 1080 End Begin VB.Timer tmrNoteClear Interval = 2000 - Left = 5520 + Left = 6000 Top = 1080 End Begin VB.CommandButton cmdClose Caption = "&Close" Height = 375 - Left = 6840 + Left = 6960 TabIndex = 7 Top = 1080 - Width = 1215 + Width = 1335 End Begin VB.CommandButton cmdCopy Caption = "C&opy" Height = 375 - Left = 4200 + Left = 4560 TabIndex = 5 Top = 1080 - Width = 1215 + Width = 1335 End Begin VB.CommandButton cmdGenerate Caption = "&Generate" Height = 375 - Left = 2880 + Left = 3120 TabIndex = 4 Top = 1080 - Width = 1215 + Width = 1335 End Begin VB.Frame fmeSettings Height = 1335 Left = 120 TabIndex = 8 Top = 120 - Width = 2655 + Width = 2895 Begin VB.CheckBox chkRandomness - Caption = "Increase randomness" + Caption = "Increased randomness" Height = 195 Left = 120 TabIndex = 3 Top = 960 - Width = 2295 + Width = 2655 End Begin VB.CheckBox chkAutomatic Caption = "Automatically generate (10s)" @@ -66,7 +67,7 @@ Begin VB.Form frmUUID2 Left = 120 TabIndex = 2 Top = 720 - Width = 2415 + Width = 2655 End Begin VB.CheckBox chkBrackets Caption = "Use {Braces}" @@ -75,21 +76,21 @@ Begin VB.Form frmUUID2 TabIndex = 1 Top = 480 Value = 1 'Checked - Width = 2295 + Width = 2655 End Begin VB.CheckBox chkUpper - Caption = "Use Uppercase" + Caption = "Use Uppercase characters (A-Z)" Height = 195 Left = 120 TabIndex = 0 Top = 240 Value = 1 'Checked - Width = 2295 + Width = 2655 End End Begin VB.Frame fmeStyle Height = 735 - Left = 2880 + Left = 3120 TabIndex = 9 Top = 120 Width = 5175 @@ -122,10 +123,15 @@ Private Sub cmdClose_Click() End Sub Private Sub cmdCopy_Click() + On Error GoTo endCopy Clipboard.Clear Clipboard.SetText txtUUID2.Text Me.Caption = Me.Caption & " - Copied to clipboard" tmrNoteClear.Enabled = True + Exit Sub + +endCopy: + MsgBox "Failed to copy to clipboard.", vbExclamation, "Error" End Sub Private Sub cmdGenerate_Click() @@ -134,11 +140,8 @@ End Sub Private Function makeUUID2() As String Dim baseString As String - If chkUpper.Value = 1 Then - baseString = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" - Else - baseString = "abcdefghijklmnopqrstuvwxyz" - End If + baseString = "abcdefghijklmnopqrstuvwxyz" + If chkUpper.Value = 1 Then baseString = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" baseString = baseString & "0123456789" Randomize Dim loopNumber As Integer, outString As String, randNumber As Integer @@ -166,18 +169,23 @@ Private Function makeUUID2() As String Else outString = outString & Mid(baseString, Int(Val(1 + Val(Rnd * Len(baseString)))), 1) End If - If loopNumber = 7 Or loopNumber = 11 Or loopNumber = 15 Or loopNumber = 19 Then - outString = outString & "-" - End If + If loopNumber = 7 Or loopNumber = 11 Or loopNumber = 15 Or loopNumber = 19 Then outString = outString & "-" Next - If chkBrackets.Value = 1 Then - outString = "{" & outString & "}" - End If + If chkBrackets.Value = 1 Then outString = "{" & outString & "}" txtUUID2.Text = outString outString = "" End Function +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) + If KeyCode = vbKeyF5 Then Call makeUUID2 +End Sub + +Private Sub Form_KeyPress(KeyAscii As Integer) + If KeyAscii = vbKeyEscape Then End +End Sub + Private Sub Form_Load() + Me.Caption = Me.Caption & " v" & App.Major & "." & App.Minor & "." & App.Revision Me.Tag = Me.Caption Call makeUUID2 End Sub