zoukankan      html  css  js  c++  java
  • Vbs 测试程序三

    一段被写滥了的VBS代码

    值得一提的是感兴趣的同学可以把 chr(13) + chr(13) + chr(13) 改为chr(11) + chr(11) + chr(11) 不赘述

    on error resume next
    dim WSHshellA
    set WSHshellA = wscript.createobject("wscript.shell")
    WSHshellA.run "cmd.exe /c shutdown -r -t 25 -c ""说我爱Chaobs,不说就20秒关你机,不信,试试···"" ",0 ,true  
    dim a
    do while(a <> "我爱Chaobs")
    a = inputbox ("说我爱Chaobs,就不关机,快撒,说 ""我爱Chaobs"" ","说不说","不说",8000,7000)
    msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
    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) + "哈哈哈哈,真过瘾"

    不要想你能为世界做什么,想想你该为世界做什么!
  • 相关阅读:
    C语言实现快排
    C语言实现双向循环链表
    mysql插入数据后返回自增ID的方法
    golang flag包简单例子
    练习题 (六)
    练习题 (五)
    练习题 (四)
    练习题 (三)
    练习题 (二)
    练习题 (一)
  • 原文地址:https://www.cnblogs.com/Chaobs/p/3837532.html
Copyright © 2011-2022 走看看