一些恶搞的小程序编程有呢?今天就给大家总结一下 。
文章插图
step1: 点击桌面左下角的”开始”-“windows附件”-“记事本” 。
文章插图
step2: 在记事本中写下 CreateObject("SAPI.SpVoice").Speak "I love YOU",可以让你的电脑语音说爱你 。
文章插图
step3: 保存后修改后缀为.vbs文件,打开后就能听到电脑语音说爱你 。
文章插图
step4: 让对方不停地按回车在记事本写下以下代码之后修改后缀为.vbs文件:
dim s
do until s=10
s=s+1
msgbox "哥们,给我按10次回车吧",64
loop
只有按10下回车才会关闭 。
文章插图
step5: 修改后缀为.vbs文件打开后,只有按10下回车才会关闭 。
文章插图
step6: 还一个就是恶搞对话让对方不停点击也是同样修改后缀:
WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)
WScript.Echo("你是可爱的XX童鞋吗?")
WScript.Echo("哈,我想你拉,这你都不知道吗?")
WScript.Echo("怎么才来,说~是不是不关心我")
WScript.Echo("哼,我生气拉,等你这么久,心都凉啦 。")
WScript.Echo("夜黑很生气,后果很严重哦 。")
WScript.Echo("嘿嘿!你也会很惨滴哦")
WScript.Echo("是不是想清除我?")
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("想结束我么?那你就再多点一次")
文章插图
step7: 还有一个:dim a,s
set wshshell=createobject("wscript.shell")
a=0
do
wshshell.run"notepad"
a=a+1
if a>5 then
exit do
end if
loop
文章插图
推荐阅读
- 教你怎么获取别人网站的视频播放链接
- 下载网站上需要要付费的图片
- PPT中怎么制作蝴蝶飞舞的效果
- 桂花怎样水培生根-水插桂花生根的方法
- 蝉是一种怎样的动物
- 常吃的鱼有哪些
- 熟透的香蕉怎么保存
- 手机QQ里的漂流瓶在哪里
- 爱普生打印机由英文改成中文的方法
- 一 Minecraft材质包制作:原版材质的提取