zoukankan      html  css  js  c++  java
  • 一道有意思的程序,,整整人

    给大家一道很有趣的程序,,不信的话照着做


    将下面这道程序复制到记事本里,,,然后

    on error resume next
    dim WSHshellA
    set WSHshellA = w脚本.createobject("w脚本.shell")
    WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,你试试···"" ",0 ,true
    dim a
    do while(a <> "我是猪")
    a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
    msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
    loop
    msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛,呵呵,猪"
    dim WSHshell
    set WSHshell = w脚本.createobject("w脚本.shell")
    WSHshell.run "cmd.exe /c shutdown -a",0 ,true
    msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾"


    把它保存在记事本里,注意后面加的是.vbe    或 .VBS     然后发给别人看看,也可以自己打开试试,只要说我是猪就不会关机,不说就1分钟关你机,不信试试吧

    如果有兴趣的话还可以把它改改,,,

  • 相关阅读:
    MyBatis原理分析
    oracle修改数据遇到的坑
    oracle查询时遇到的坑
    maven镜像
    易错题
    binlog2sql 安装使用
    Archery SQL审核平台搭建
    Docker安装
    夜莺n9e监控搭建
    influxdb安装
  • 原文地址:https://www.cnblogs.com/cchun/p/2520071.html
Copyright © 2011-2022 走看看