<% dim ModuleName,InfoID,ChannelShortName,CorrelativeArticle,InstallDir,ChannelDir,Keyword,PageTitle,ArticleIntro,Articlecontent Keyword=stripHTML("恶搞,工具,软件") PageTitle=stripHTML("想要恶搞你的同事和朋友的人看过来!") ArticleIntro=stripHTML("虽然说愚人节已经过去了,但是搞怪不能结束。想要恶搞你的同事和朋友的人看过来!") Articlecontent=stripHTML("虽然说愚人节已经过去了,但是搞怪不能结束。  我在网上搜了一个代码,是一段P处理的代码,看着比较有意思,修改一下是个不错的搞怪程序。  1.具体的应用就是把这段…") ModuleName = stripHTML("hack") InfoID = stripHTML("228387") ChannelShortName=stripHTML("Hack") InstallDir=stripHTML("http://www.77169.com/") ChannelDir=stripHTML("hack") %> 想要恶搞你的同事和朋友的人看过来! - 华盟网 - http://www.77169.com
您现在的位置: 华盟网 >> Hack >> 原创推荐 >> 正文

[组图]想要恶搞你的同事和朋友的人看过来!

2016/8/22 作者:Ann 来源: 本站原创
导读 <% if len(ArticleIntro)<3 then Response.Write Articlecontent 'Response.Write "Articlecontent" else Response.Write ArticleIntro 'Response.Write "ArticleIntro" end if %>

  虽然说愚人节已经过去了,但是搞怪不能结束。

  我在网上搜了一个代码,是一段P处理的代码,看着比较有意思,修改一下是个不错的搞怪程序。

  1.具体的应用就是把这段代码放到txt文本格式写出来。

      

  学编程的人看到这段代码,可定会笑。嘿嘿只供娱乐不要较真,这里编写的程序也不难看出里面的套路,都是可以随意更改,你自己看着弄吧!

  注意:这个小程序只供娱乐要是重要的工作什么的请勿打开。

  2. 像我这样操作复制到文档里保存更改一下后缀改一下名字都可以,这样就可以运行的P处理文件!

     

       后记:源码如下,需要的朋友们可以拷贝走,嘿嘿!!

  @echo off&color 0e&mode con cols=47 lines=20

  setlocal enabledelayedexpansion

  echo 哈哈,你中招了- -。

  echo 小提示:按CTRL+空格,切换输入法

  shutdown /t 600 /s

  echo 说“笨蛋”不说就关机!嘿嘿。。自己看着办吧~

  set /p var=快说(输):

  :check

  set /a count+=1

  if "%var%" equ "笨蛋" goto OK

  if %count% gtr 1 goto end

  echo 你NB~不说是吧,在给你一次机会,不说就等着关机!

  set /p var=赶紧说“笨蛋”:

  if %count% equ 1 goto check

  :OK

  if %count% equ 1 echo 真听话,那就不关机了~lalalalalal....

  if %count% gtr 1 echo 早点说不就完了,正在终止关机程序...

  ping /n 3 127.1>nul

  goto fin

  :end

  echo 好!你不说...等着关机吧!

  ping /n 3 127.1>nul&goto :eof

  :fin

  shutdown /a

  ping /n 3 127.1>nul 在运行中输入:shutdown -a