1.一个文件叫你说这段话,整人整人你不说就自动关机,怎么制作
2.10秒钟整人关机
3.vbs整人代码_手机vbs整人代码_如何让别人执行vbs代码

一个文件叫你说这段话,你不说就自动关机,怎么制作

       看来你是在等我给你一份代码吧

       下面是我给出的：

       On Error Resume Next

       Dim WSHshellA

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

       WSHshellA.run "cmd.exe /c shutdown -r -t -c ""编个VBE程序让你整人"" ", 0, True

       Dim neo

       Do While (neo <> "大哥")

       neo = InputBox("在这里可以输入提示语句，比如不叫大哥就关机之类的关机关机", "叫不叫", "不叫", , )

       MsgBox Chr() + Chr() + neo, 0, "MsgBox"

       Loop

       MsgBox Chr() + Chr() + "第二个提示信息，比如：早就叫你说了"

       Dim WSHshell

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

       WSHshell.run "cmd.exe /c shutdown -a",源码 0, True

       MsgBox Chr() + Chr() + "第三次提示信息，比如：大哥很帅是代码不是？", vbOKOnly

       MsgBox "斑驳敬上"

       复制粘贴到记事本或者其他文字编辑工具上面，选择另存为，整人整人随便写个名字之后需要切换到英文状态输入小数点和vbe，关机关机看我的源码使得这个文件拥有可执行的源码属性，然后鼠标双击运行即可了

       如果这样子还是代码一个文本文档的话说明系统默认不显示后缀名，在我的整人整人电脑上的菜单栏上选择工具 ->文件夹选项->查看选项卡->显示后缀名 如果是Windows 7用户在 计算机 窗口中按下 Alt键会显示出菜单栏，其他同上操作即可显示后缀名了。关机关机 之后只需要将txt或者是源码doc替换成vbe即可

秒钟整人关机

       事实上，ccvms 源码想取消关机并不需要输入“我是猪”只要用cmd输入shutdown-a就可以了，或者直接做成一个文件，运行一下就取消了。

命令介绍：

       1、shutdown，exe-a：取消关机。

       2、shutdown，exe-s：关机。dukto 源码

       3、shutdown，exe-f：强行关闭应用程序。

       4、shutdown，exe-m\计算机名：控制远程计算机。

       5、shutdown，exe-i：显示图形用户界面。bigtable 源码

       6、Shutdown：第一个参数。

       7、shutdown，exe-l：注销当前用户。

       8、shutdown-r：关机并重启。

       9、shutdown，iptool 源码exe-s-t(时间)：设置关机倒计时。

       、ALT+F4关机：会弹出“关机”对话框，直接点击确定即可关闭电脑。

vbs整人代码_手机vbs整人代码_如何让别人执行vbs代码

       本文主要介绍如何利用VBS（Visual Basic Script）编写代码来实现整人操作，包括影响对方电脑操作、发送骚扰信息、查询书刊机器干扰、直接关机等功能。以下是具体的VBS代码实例与使用方法，让你在不影响他人使用电脑的前提下，实现趣味性操作。

       一、自动向QQ好友发送特定信息。

       创建名为“xx.vbs”的VBS文件，然后替换其中的“xx”为好友昵称，修改发送次数与间隔时间，即可自动向该好友发送信息。示例代码如下：

       复制代码 代码如下:

       On Error Resume Next

       Dim wsh,ye

       set wsh=createobject("wscript.shell")

       for i=1 to

       wscript.sleep

       wsh.AppActivate("与 xx 聊天中")

       wsh.sendKeys "^v"

       wsh.sendKeys i

       wsh.sendKeys "%s"

       next

       wscript.quit

       二、在学校图书馆的电脑上进行干扰。

       将代码放置在查询书刊的电脑上，让其自动打开多个计算器窗口，造成干扰。示例代码如下：

       复制代码 代码如下:

       set wsh=createobject("wscript.shell")

       do

       wsh.run "calc"

       loop

       三、发出连续的侮辱性弹窗。

       创建弹窗提示“你真愚蠢”，让对方持续收到此消息。示例代码如下：

       复制代码 代码如下:

       do

       msgbox "You are foolish!"

       loop

       四、实现自动关机。

       编写代码直接关闭电脑，但请注意使用此功能需谨慎，以避免不必要的麻烦。示例代码如下：

       复制代码 代码如下:

       dim WSHshell

       set WSHshell = wscript.createobject("wscript.shell")

       WSHshell.run "shutdown -f -s -t ",0 ,true

       以上代码提供了多种整人操作的VBS示例，操作时请确保在合法范围内使用，尊重他人并避免造成不必要的困扰。