问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

vbe整人代码详解

发布网友 发布时间:2022-05-18 23:50

我来回答

3个回答

热心网友 时间:2023-11-22 22:20

on error resume next
rem 遇到错误忽略继续执行
dim WSHshellA
rem dim 是定义的意思,wshshella是个变量
set WSHshellA = wscript.createobject("wscript.shell")
rem wscript 是VB中的一个对象,createobject它的方法。上句是创建一个wscript.shell对象,赋值给wshshella,用面向对象的术语解释就是实例化一个对象wscript.shell,通过这个对象在widows环境下进行操作,如访问文件夹等。这句可理解为:让wshshell能在windows环境下执行。

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""快说“我是猪”,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true
rem wshshella.run的意思是创建线程:运行cmd这个程序,并执行shutdown命令,-r:关闭并重启计算机,-t:设置关闭延时单位(秒),60等于60秒。在这里说明一下:要换成注销的话吧-t改为-l,但是注销时没有延时的,是立即执行的。
dim a
rem dim 是定义的意思,a是个变量
do while(a <> "我是猪")
rem 如果变量a不等于"我是猪"
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
rem 显示一个能接受用户输入的对话框,并返回用户在对话框中输入的信息,返回值赋予a
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,chr(13)表示回车
loop
rem 返回,跟do while是一个语句,不能单独用
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值
dim WSHshell
rem dim是定义的意思 wshshell是个变量
set WSHshell = wscript.createobject("wscript.shell")
rem wscript 是VB中的一个对象,createobject它的方法。上句是创建一个wscript.shell对象,赋值给wshshell,用面向对象的术语解释就是实例化一个对象wscript.shell,通过这个对象在widows环境下进行操作,如访问文件夹等。这句可理解为:让wshshell能在windows环境下执行。
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
rem wshshell.run的意思是创建线程:运行cmd这个程序,并执行shutdown命令,-a:关闭系统关机
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令
msgbox chr(13) + chr(13) + chr(13) + "乖孩子真听话啊"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "下次叔叔买糖给你吃"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "要吃什么糖啊"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "什么,大白兔?"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "不行,不行,大白兔吃了长石头啊"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "要不叔叔给你讲个故事"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "从前有个山"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "老和尚在给小和尚讲故事"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "讲什么故事呢"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "故事是这样的"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "从前有个山"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "什么,不听了"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "别哭别哭,叔叔给你买糖!"
rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

热心网友 时间:2023-11-22 22:20

on error resume next rem 遇到错误忽略继续执行dim WSHshellA rem dim 是定义的意思,wshshella是个变量set WSHshellA = wscript.createobject("wscript.shell") rem wscript 是VB中的一个对象,createobject它的方法。上句是创建一个wscript.shell对象,赋值给wshshella,用面向对象的术语解释就是实例化一个对象wscript.shell,通过这个对象在widows环境下进行操作,如访问文件夹等。这句可理解为:让wshshell能在windows环境下执行。WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""快说“我是猪”,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true rem wshshella.run的意思是创建线程:运行cmd这个程序,并执行shutdown命令,-r:关闭并重启计算机,-t:设置关闭延时单位(秒),60等于60秒。在这里说明一下:要换成注销的话吧-t改为-l,但是注销时没有延时的,是立即执行的。dim a rem dim 是定义的意思,a是个变量do while(a <> "我是猪") rem 如果变量a不等于"我是猪"a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000) rem 显示一个能接受用户输入的对话框,并返回用户在对话框中输入的信息,返回值赋予amsgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,chr(13)表示回车loop rem 返回,跟do while是一个语句,不能单独用msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值dim WSHshell rem dim是定义的意思 wshshell是个变量set WSHshell = wscript.createobject("wscript.shell") rem wscript 是VB中的一个对象,createobject它的方法。上句是创建一个wscript.shell对象,赋值给wshshell,用面向对象的术语解释就是实例化一个对象wscript.shell,通过这个对象在widows环境下进行操作,如访问文件夹等。这句可理解为:让wshshell能在windows环境下执行。WSHshell.run "cmd.exe /c shutdown -a",0 ,true rem wshshell.run的意思是创建线程:运行cmd这个程序,并执行shutdown命令,-a:关闭系统关机msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "乖孩子真听话啊" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "下次叔叔买糖给你吃" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "要吃什么糖啊" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "什么,大白兔?" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "不行,不行,大白兔吃了长石头啊" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "要不叔叔给你讲个故事" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "从前有个山" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "老和尚在给小和尚讲故事"rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "讲什么故事呢" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "故事是这样的"rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "从前有个山" rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "什么,不听了"rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令msgbox chr(13) + chr(13) + chr(13) + "别哭别哭,叔叔给你买糖!"rem 显示一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个值,在这里返回值没用,不管返回值是多少都回继续执行下一条命令

热心网友 时间:2023-11-22 22:21

呵呵,我也弄过这个,而且根本不回答问题,直接关机,自动加入开机启动项。要代码HI我。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
...油桶横放长6、25米,圆的直径为2、05米,液体横放的高度为1、8米。求... 一个圆桶半径为1.2米,高为12米,现将油桶平放,此时装油的高度为1.722米... 大油桶是横放的,油桶圆的直径是2.15米,长是3.6米,里面的净油位高度... 一个圆柱油桶横着放,长5.5米,直径2.4米,里面装着油,油高度1米,求现在... 有一个圆柱体桶横放,长7米,高2.7米,里面装的油与油桶距离1.2米,求油的... 圆柱形油桶横放时油部分占底面圆周的三分之一当油桶直立油的高度和桶... 有一个圆柱体桶横放 有一个圆柱体桶横放 长9.4米 高2.6米 里面装的油与桶底距离0.6米,求里 ... 电脑单独安装outlook教程如何在电脑上安装outlook 直角转弯为什么会压角 外卖商家被投诉有美图两分钟内申请退款商家说没看到拒绝怎么办 vbs整人代码无法关闭,任务管理器中没有进程,就显示youarefoolish 我今天下午去分期了个美图m6s 已经付了首期但是还没有拿到手机 这样可 美图退款存在风险怎么回事? 为什么输入shutdown -a,在任务管理器里面结束进程也关不了vbe整人代码啊 in77c区入驻的品牌 美图退款一般多久到账 c.c.Lemon 上海,杭州有的卖吗? 美图手机是全国联保吗? 在京东金融买的美图手机货到付款怎么退货 自己浦发银行的万用金是不是自己的钱 京东买的美图手机送的手机膜贴了 还没到七天能退货吗 请问在美图官网买的美图手机可以支持退货吗? 浦发银行的万用金属于信用卡诈骗么? 快手直播间买家的尺码表 在网上买的美图手机,送的充电宝和耳机的盒子被我扔了,买来才3天现在有点不太喜欢了能退掉吗? 浦发万用金就是变像高利贷被坑死了。借了大概十五万。等额本息还了八万多。现在逾期没还加违约金17万。 定标一般上什么会议研究讨论 会议调查法 华宝证券开通科创板为什么会显示无法线上开通? 小的在此跪求易语言整人代码 skii小银瓶旧版的乳液是什么颜色的? 胶水和洗衣液可以做成起泡胶吗? 广州有华为手机厂吗 韩版小银瓶和日本的差别 用了sk小银瓶脸上有点发红,有点白斑,该怎么办? Skii75mL的有这两款瓶身的吗 腾讯视频送京东年卡怎么登录 skii小银瓶淡斑效果怎么样 急求:java/jsp 如何实现横向树形结构的显示(如图)? 双色球运算方法 上眼皮肿了是什么原因 双色球凤尾计算方法 山药和牛奶能一起吃吗? 制冷时取消空调压缩机过载保护器会爆炸吗? 为什么中央空调运行一段时间后压缩机过载, 晨乐ol101平板电脑解锁这么解啊 101发的平板不能安应用且设置被控制? 平板电脑功能被限制,怎么破解 Asus/华硕 Eee Pad TF101平板被锁了怎么办