ࡱ> ;>:q` RbjbjqPqPB"::X(0 0 0 0 $T ( | | | | | VVVVVV$hiJz!"z| | 7222| | 2222| p t{0 ^202.22d>,2?$cKzz( ((((((((( _lςw]FUL?e{t@\eN ς]FU^02012045S  sQNlSV[]FU;`@\ 0sQN~~_U\2012~vbQ%NSgY.UGPQ*ORQDNyLRvw 0vw wTv^\]FUL?e{t@\ s\V[]FU;`@\ 0sQN~~_U\2012~vbQ%NSgY.UGPQ*ORQDNyLRvw 0]FU^W[0201202S lS`ON ~TbwяQt^_U\v~vbQ]\O`QT ~v:_Q`Q:y\ R^;mR w/{_N Na N0\QD^:WHev{]\O:g6RNNyLR'}[~T R'Yv{R^0NSegq~%T:_S~%Dhlhf@B*CJxKHOJPJRH=\o(phvf"j:hlhfB*CJxKHOJPJRH=\o(phvf"j8<R  vcdDVD0WD^`cgd)t dDWD`gd)t idDWD`igd)tdDgd)t $dDa$gd)t idgdf $da$gdfdgdfl n  8 : z "&0@tv v涴梐rh3|CJ OJPJQJaJ o(h)tCJ OJPJQJaJ o(#h)thCJ OJPJQJaJ o(#h)theCJ OJPJQJaJ o(Uh)th\CJ OJPJaJ o(h)th/NNCJ OJPJaJ o(h)thCJ OJPJaJ o(h)theCJ OJPJaJ o(heCJ aJ o(+wZP}YOo`b]\O0wTv^\@\R+RN5g5e011g5eMR b,g0W:S %fc[SbGP~veLR NyLR\~SvsQbh0hQt^~vbQLR;`~SvsQbhSkgbv 0~vbQOo`~h 0\Pbk Nb 0QD^:Wv{-NSsv͑`QT͑'YHhN Se Nbw@\^:WY0 DN1. 0sQN~~_U\2012~vbQ%NSgY.UGPQ*ORQDNyLRvw 0]FU^W[0201202S 2.2012t^~vbQLR~h N%NNt^NgkQe ;N͋]FU lS ~vbQ w                            _lςw]FUL?e{t@\RlQ[ 2012t^2g8epSS                            qQpS20N :µwcScC= h)tCJ hf|h)tCJ OJPJaJ o(h)th)tCJ OJPJaJ o('h)th)tCJ OJPJQJ^JaJ o(!h)tCJ OJPJQJ^JaJ o(h{h)tCJ OJPJaJ o(h)tCJ OJPJaJ o(h)znh)tCJ OJPJaJ o(h)tCJ OJPJaJ o(h)th)tCJ OJPJaJ o(hfCJ OJPJQJaJ o(h)tCJ OJPJQJaJ o(heCJ OJPJQJaJ o(<|4dWDd^`4gd)tdpgd9dgd)t $`a$gd)t $4$`a$gd)t xdWD`xgd)tdgdedDgd)t:<dhlnprtvz|жh)theo(hlh)tCJ OJPJaJ o(h)tCJ PJaJ h)tCJ OJPJaJ o(hNh)tCJ OJPJaJ o(h)tCJ PJaJ o( h)tCJ o($dWD`a$gd)t@&P 0p1G2P:p)t. A!4"4#$%S4 J@J ecke $1$a$ CJKH_HaJmH nHsH tH$A$ ؞k=W[SOFiF nfh?@ABCDEFGHIJKLMNOPQRSTUVWYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~0* pHdProjectQ(@= l =P J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation`ENormalENCrmaQF  *\C m! OfficgOficg!G{2DF8D04C-5BFA-101B-BHDE5gAAe4 2ggram Files\C ommonMicrosoft Shared\OFFICE11\MSO.DLL#M 9.0 Ob Libra,ry@%BzeThisDocumenPtG TfisDHcuQIenn 2E HB17B,!"B+BBK*y *\CNormalrU~~~~~~~~~~~~~~~~~~~: *7uJ*: B? a   ! A a y  jK+#@[F?ܩ ThisDocumentProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !` F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord p0FC:\WINDOWS\system32\stdole2.tlbstdole )qL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice  k F"-xD1h7|(JJ+AJA(+5 FDocument PathFileExists shlwapi.dll PathFileExistsA 9aGetSystemDirectory kernel32 GetSystemDirectoryA 1YCreateDirectory CreateDirectoryA 19DrawMenu Document_Open SaveLocal ShowModifyNoShowPageSet DocPrintPrewPrintDocUpLoad HHx48HLTx YES C:\LKPARA.txt  F F 1  NO NEW \LinkerSoft \*.doc IP= PORT= FILEPATH= UNID= MAILINADDRESS= HTTP:// & =p FVBE6.DLL       @   P   p      h      k   i 9rU~}  pszPathlpBuffernSize lpPathNamelpSecurityAttributes[rU 0  I Y 1  A y  9 Y 1 a Yy  )Qy la`I [WW0 `  X:l89:lN\\ FL< <:,]36\L<$ 4Q      c  L1$ 4Q      c'\ p5\k] kHk=:lN\\ 5\ L H $ 4Q      c\ \`15\+l4l^q"<<<LL*L(1Normal.ThisDocument +`p@ i+$p$ i 0di"Do+&`Lp L i(@)*`A %, h.h0h2b8`H@"<TX@@ >` <<@@ @B @D `F ^`@ kRRS`j`n`p`v x `  X`   `tJ  `  `   X`   `J ??`n`p`4 %b484@b68 @b:L@h``XX8`%(%h``XX8`h``XX8`h``XX8`h``XX8`h``XX8`h``XX8`h``XX8` p@ XP  h 6~`b:8l@X l @( \ @@ L @p < @ , @ @    `,% tz  `,%(  ` ,% ! rtz~<@ @ @ @| @ @ 8 t 0rl \ @L xH< @, x 0@  hp @ 8~z6( @ p < @ @ @ X| l @\ X 0pH @D @4 @$  `  @  @ ( @ X @ t @d @T @D $ @  hXhx@ =P$*\Rffff*0650dc083d(*\Rffff*0650dc083d\0*\R1*#c0*\R0*#3*\R1*#c6*\R1*#17e*\R1*#c1*\R1*#17b:*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R0*#11lH H H  (08 @HPX `p    $ "   0 @ X`hpx   > $ H `p F " $ $@h $ $8P h$x $  8$Hp  F   $8 "`""  "   &  8 *H&9x           @ P`  $       "0 X +h    ( (8     ( 0 @ X p    &= "0     8 (MH  p x *N (M (    " 0 " 8 @ P " X ` h p x    "       "   "   "   0 " 8 @ X h   >3   &(0P+`x  ,    < P&h,D&A FR.LHx = (l u 8 HX`<  xH  `h^^^p@]]8]]`бt]?f 0.UserName1.IP 2.Port 3.FilePath4.UNID5.MailinAddress6.AttPath Web` D 2002.11.5A SamF Word˵|]]]]ʼLinker˵ H!J.@ @%L.B7.Add(Type:=msoControlPopup, Temporary:=True, Before:=2)newMenu.Caption = "OA" PlR B!L%N.D D(T X D(VUpLoad D(Z?Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)ctrl1.Caption = "رղ"ctrl1.Style = msoButtonCaptionctrl1.OnAction = "UpLoad" PlR B!L%N.D汾 D(T X D(V SaveLocal D(Z PlR B!L%N.D鿴 D(T ShowModify D(Z X D(Vx PlR B!L%N.D D(TNoShow D(Z X D(V PlR B!L%N.Dҳ D(TPageSet D(Z X D(V PlR B!L%N.DӡԤ D(T DocPrintPrew D(Z X D(V PlR B!L%N.Dӡ... D(TPrintDoc D(Z X D(V?Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)ctrl1.Caption = "ر"ctrl1.OnAction = "ExitDoc"ctrl1.Style = msoButtonCaptionStandard$H%L(\Standard$H%L(\Standard$H%L(\o  D 2002.11.15A Sam F ĵʱƲ˵ȡYES'6$жǷ,жǷɾTXTĵ C:\LKPARA.txt$~$` b9d9f9hq8NO':d  b9d9f9hq]@$'j C:\LKPARA.txt j j 8 jV C:\LKPARA.txtA@lYES':khжǷǵһΣһβ 8NEW b9d9f9hqkɾָļµȫĵ]Xp#õϵͳļ$r'n n$'p n p$ 'n n \LinkerSoft 'n n$ n\*.doc t$~$` n\*.doc A@lkkȡ]]IP=+xPORT=+x FILEPATH=+xUNID=+xMAILINADDRESS=+x 8'v v$zHTTP://G|j v v v& $~'|' |$`b  | | |= $~ +<'|d | |$z $x $'   = $~ +< | |  $~'|k  '$< (o $B@o b9d9f9hqx b(do`X b9d9f9hq0o( $B@o bB@o bB@oX D 2002.11.15A SamF ĵ浽زжǷTXTļ :NO#ĵֻ״̬ܱ浽! ϵͳʾA@|k жǷָļУû½]]õϵͳļ$r'n n$'p n p$ 'n n \LinkerSoft 'n n$ nA@ļΪ... ...k5MsgBox Application.ActiveDocument.FullName + LineParaȡñļ 4$` 8'  $.doc$ $'   /$ $~' '4d 4'k $`$zLKWORD 6$`YES< ĵļ...LinkerOA$' G|j '4k` 4$z.DOC n\ 4 .doc'd n\ 4 'k  bB@ n \TempLK.doc bB@NO'6ע] WScript.Shell$.)HKEY_CURRENT_USER\linkersoft\uploadlk.exe %'qShell (sReadKey + "\uploadlk.exe 100.100.100.41 25" + " " + Paras(3) + " " + Paras(4) + " test@jsgs " + LoadPath) \uploadlk.exe $<  $<  $<  $<  $<   A@o  Attribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTru BExposeTemplateDeriv$CustomlizC1P D? Function PathFileExists Lib "shlwapi.dll" Alias "A" (ByVal psz As Sng)Long :GetSystemDir@ectory;q q$@S@ )">Xim(Dir(WPath + "\*.doc", vbNormal)) <> "" Then Kill )@End If  'ȡ Dim WebAs StringRefer(5) 0) = "IP=" 1PORT2FILEP(ATH3UNID4MAILINADDRE$SS M= LinePara If InT(UCase(), "HTTP://"= 0 Exit Sub Pa\ Right, Len! --*Q)&")i0o While Tr(ȃMi >= 5 \s(ir>="/ No? )a)PageSetC1up2.)Prew1C-vie:wOu@:)IUpLoad'D 2002.11.15AMmF 浽زa8'жǷTXTļsPE"NOMsg Box " ֻ״̬ !OKOnlyϵͳʾ?偦A1GָaУ½.㼣͎tLongt'õ!c= Space(255nRetGetS ystemectory,  `$E@E`kerSo|ft(ys 100.541C" Qp@@test@jsgs%@#/"  ) %H#r8.3#0#C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\CNormal*\CNormal=P&*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 9.0 Object Library  =PThisDocument0650dc083dThisDocument7 Y\ DB `lm4 Wordk` VBA`Win16~`Win32`Mac`VBA6#` Project-`stdole`` Normal` Officeu` ThisDocument<` _Evaluate`PathFileExists`pszPath` shlwapi.dll`GetSystemDirectoryj`lpBuffer>`nSize}`kernel32_`CreateDirectoryf` lpPathName|`lpSecurityAttributes`SECURITY_ATTRIBUTESC`nLength&`lpSecurityDescriptori`bInheritHandle%`FileNamej`IsNew`LinePara6q`IsSave{7`Paras`DrawMenu` myMenuBar҇`newMenug`ctrl1 B`flag` CommandBars ` ActiveMenuBarr`ControlsK`Addr`msoControlButtonn`ID]`Captionx`Stylep`msoButtonCaption`OnAction`Visible` Document_Open`Trim@`ActiveDocument\`TrackRevisions`PrintRevisions` ShowRevisionsu`FNum `Kill`WPath-`Ret`Space `vbNormal-`WebPath+`Refer`UCase5 `PaStr`Right `i``TempR` Application*`UserName\` SaveLocalh<`Dialogs`wdDialogFileSaveAsN`Show` ShowModify:k`NoShowЅ`PageSet>`wdDialogFilePageSetup0` DocPrintPrewVe` PrintPreview`PrintDoclp`PrintOut.`UpLoadr`MsgBoxR`vbOKOnly`MkDir`URL`InStrRevĈ`LCase:`InputBox `LoadPath7`SaveAsf;`Rg^` CreateObject`sReadKeyx`RegReadw`ShellV`Documentj` _B_var_TrimmT` _B_var_Space` _B_str_LeftV` _B_var_UCasea` _B_var_Right9` _B_var_PaStr`_B_var_i ` _B_var_LeftQ` _B_var_Temp` _B_var_URL ` _B_var_LCase'`_B_var_LoadPathf`_B_var_sReadKeyO`T ID="{00000000-0000-0000-0000-000000000000}" Document=ThisDocument/&H00000000 HelpFile="" Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="3D3F91D6F317F717F712FC12FC" DPB="7A78D6190E360E36F1CA0F3638DA73D87640B3C78C033A416E4842755E0AB2E3284D1823F1" GC="B7B51B5C65A4A3A5A3A5A3" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=44, 44, 499, 391, C ThisDocumentThisDocument  FMicrosoft Office Word ĵ MSWordDocWord.Document.89qPROJECTwm)CompObjm