分享几个好玩的恶搞VB小程序


本文谨给像我这样的菜鸟学习。对WIN系统熟悉的童鞋请直接无视!

[task]第一个,调用dos关机命令实现定时关机。

1、新建一个记事本;输入以下代码:shutdown -s -f -t 600 -c "系统正在执行定时关机" (其中600是时间,单位是秒,如果需要立刻关机可以写1。引号内的文字是弹出窗口的提示消息可以随意修改)

2、把写好的记事本另存为.bat后缀,文件名自定!

3、现在只要发给人家诱导他双击此文件他的电脑便会根据在你定的时间过后自动关机。

解决方法:开始-运行 在输入框中输入 shutdown -a 点击确定,方可解除定时关机![/task]

[task]第二个,启动后回答问题正确才可关闭窗口。

1、新建一个记事本;输入一下代码:

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 600 -c ""1+1等于多少""0 ,true
dim a
do while(a <> "2")
a = inputbox ("1+1等于多少?","知不知道?","蠢货1+1都不知道?",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"你确定吗?"
loop
msgbox chr(13) + chr(13) + chr(13) + "这就对了嘛!"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈,你没事了!"

(橙色部分可以修改!)

2、把写好的记事本另存为.vbs后缀,文件名自定!

3、现在你只要把此文件发给人家当他一旦打开便需要在规定时间内答对问题。否则将自动关机!

解决方法:第一步和第一个程序的一样;第二步Ctrl+Ait+Delete打开任务管理器结束wscript.exe 这条进程即可![/task]

[task]第三个,无法关闭的无限循环窗口。

新建一个记事本;输入以下代码:

for m = 1 to 99
msgbox "呵呵,你知道我是谁吗?",16
msgbox "什么??不知道?",16
msgbox "那你打开我干什么?",16
msgbox "你有空没事做吧?!",16
msgbox "我..就是鼎鼎大名的***",16
msgbox "刚刚才学会写的..",16
msgbox "现在你把它打开了觉得后悔了吧?呵呵..",16
msgbox "算了算了,不玩你了",16
msgbox "现在我数3声就闪人,行了吧?",16
msgbox "1.............",16
msgbox "2.............",16
msgbox "3.............",16
msgbox "噔噔噔噔,我又回来了!",16
msgbox "哈哈,是不是很过瘾呢?",16
msgbox "现在我先介绍下自己..",16
msgbox "我叫***..",16
msgbox "性别:男..",16
msgbox "今年16岁..",16
msgbox "不好意思噢,我好像说多了..",16
msgbox "不要这样喇,听我说完先好不?",16
msgbox "来来来,开始喇..",16
msgbox "我叫***..",16
msgbox "家中有屋又有田..",16
msgbox "生活乐无边..",16
msgbox "好像我又说多了...",16
msgbox "不要生气嘛,你认真看下去我就放你走..",16
msgbox "好,开始喇..",16
msgbox "从前有座山..",16
msgbox "山里有个座庙..",16
msgbox "庙里有个和尚..",16
msgbox "哈哈,想哭吗?",16
msgbox "被骗的感觉不爽吧?",16
msgbox "喂喂喂!别别..千万别重启电脑",16
msgbox "我告诉你怎么关吧",16
msgbox "先打开任务管理器",16
msgbox "然后关掉explorer.exe",16
msgbox "对对,就那个你关了就没有了",16
msgbox "相信我吧,你知道我是不会骗人的",16
msgbox "如果你还想继续点的话,你就别听我的",16
msgbox "呵呵,我又没有说这个东西没有",16
msgbox "我只想说桌面没有罢了..",16
msgbox "嘻嘻,爽不爽吖?",16
msgbox "对着电脑屏幕大声说***大好人",16
msgbox "不然,我就没办法的咯",16
msgbox "因为我把循环设置成99了",16
msgbox "想保存电脑数据只有继续点了",16
msgbox "绝对会出到去的",16
msgbox "跟你讲个故事",16
msgbox "三轮车跑得快",16
msgbox "车上坐着个老太太",16
msgbox "说5毛给一块",16
msgbox "你说奇怪不奇怪",16
msgbox "(*^__^*) 嘻嘻……不是这个你上当了吧",16
msgbox "是阿呆的故事",16
msgbox "阿呆从小就有口吃的毛病",16
msgbox "",16
msgbox "好了,我都说累了,祝你好运..",16
msgbox "制作者:***",16
msgbox "QQ:**********",16
msgbox "E-mail:不告诉你",16
msgbox "好,继续循环..",16
next

(其中引号内的文字是可以修改的)

2、把写好的记事本另存为.vbs后缀,文件名自定!

3、现在你只要把此文件发给人家当他一旦打开便会循环弹出窗口,无法关闭!

解决方法:Ctrl+Ait+Delete打开任务管理器结束wscript.exe 这条进程即可![/task]

以上所有代码均绿色无毒,请放心学习测试.....


无论走哪条路都牢记最初的梦想,并坚持于最初梦想的方向! Carpe Diem and Do what I like