注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

哈哈红尘笑

红尘一笑,解醉千愁!

 
 
 

日志

 
 

一些整人小程序(发给对发后让对不停的说爱你啊之类的)  

2010-09-18 20:11:12|  分类: 电脑知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本人在软件开发制作中发现了很多有意思的代码!把这些代码发给对发吧上“整整”她呵呵!这些代码都为vb语言,把这些代码复制粘贴到新建文本文档里另存文件为*.vbs,发给你朋友,让他双击这个文件他就上当了通过qq发给对方时可把文件压缩一下再发如有不懂的地方可与本人联系QQ:374251609

     (一)让电脑替你表白:新建一个记事本,在里面输入 CreateObject("SAPI.SpVoice").Speak "I love YOU" 保存扩展名为VBS文件 如1.vbs,双击运行看看。电脑就会说 i love you 了!!红色的字可以替换成你想说的话赶紧试试看吧!

    (二)让她不停的说我爱你:同样新建一个记事本保存扩展名为VBS文件输入以下代码:

Dim a
do
a=InputBox("快说“老公我爱你”,一个停顿都不能有,不然我就关机!","老公我爱你")
If a="老公我爱你" Then
  Msgbox"这就对了嘛!",0,"老公我爱你"
  Exit Do
Elseif a="老公,我爱你" Then
  Msgbox"一个停顿也不许有,没看见呀?",16,"老公我爱你"
Else
  Msgbox"还不说?你再不说我就关机了!",16,"老公我爱你"
End If
loop
     (三)吓吓对方:同样新建一个记事本保存扩展名为VBS文件输入以下代码

gsh=msgbox ("已经准备好格式化,准备开始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "开始格式化……        哈哈!吓晕了吧,骗你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows发现一重要更新,将自动下载。"
wscript.sleep 3000
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描?",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟                         "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型:木马",,"windows扫描附件"
msgbox "是否阻止其安装?",vbyesno
wscript.sleep 3000
msgbox "阻止失败!请检查防火墙是否开启!"
wscript.sleep 5000
msgbox "正在尝试强行删除…"
wscript.sleep 5000
msgbox "失败!"
wscript.sleep 5000
msgbox "您的电脑已陷入危险之中,请赶快扫描病毒!"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊!"
wscript.sleep 3000
msgbox "很高兴见到你!"
wscript.sleep 3000
msgbox "您的电脑可能已经感染病毒!",,"WINDOWS防火墙警告"
wscript.sleep 3000
msgbox "我控制你的电脑了!"
wscript.sleep 3000
msgbox "不信?那我给你关机看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧!"
msgbox "帮你解除关机……"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信,劝你最好别动,要不然会引起系统混乱~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示:刚才的“病毒”是假的,只不过是吓你玩玩~"
s.run "explorer"
这是断代码不既不会关机,也不会对电脑有伤害,就是有点

一些整人小程序(发给对发后让对不停的说爱你啊之类的) - 哈哈红尘笑 - 哈哈红尘笑

 

  评论这张
 
阅读(211)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018