我想做那种别人一运行然后弹出一个自动关机的提示,然后有字的提示说比如:“说我是猪,说了就不关机” 再然后只要那人输入了我是猪就会不关机的小程序!求高手详细解答!

展开全部
收起
6回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 猪丫头

    13人对此回答表示赞同


    Set objWSHShell = wscript.CreateObject("wscript.shell") '定义并初始化Shell对象
    objWSHShell.Run "shutdown.exe -r -t 60 -c ""说我是猪,不说“我是猪”就会关机,不信邪的你可以试下。"" ", 0, True
    '此行代码作用是调用 shutdown 进行重启,60秒倒计时。
    Dim uMaMe
    Do While (strReturn <> "我是猪") '循环语句,直到变量 strReturn 等于 “我是猪” 时退出循环。
    strReturn = InputBox("说我是猪,就可以不关机,快点,说 ""我是猪"" ", "好好考虑吧……", "你才是", 8000, 7000)
    If strReturn = "你才是" Then
    If uMaMe <> "yes" Then
    uMaMe = "yes"
    objWSHShell.popup "敢骂我,你再骂一次试看看!",1,"",4096
    Else
    objWSHShell.popup "好哇,天堂有路你不走,关机无门你偏来,关机吧~~~", 1,"",4096
    objWSHShell.Run "shutdown.exe -r -t 0 ", 0, True '直接关机
    End If
    End If
    Loop
    '如果你说了“我是猪”,则退出循环,往下执行
    objWSHShell.Run "shutdown.exe -a", 0, True '解除定时关机
    objWSHShell.popup "早说不就行了嘛",1,"",4096

    请问你回答的中间夹杂了你自己说的话吗,我是菜鸟  什么都不懂   你可以发一遍完整的我可以复制的代码过来吗,如果可以解释一下给我这个菜鸟听那就更好不过了,谢谢



    追答
    你直接复制到记事本里,改成VBS格式就可以了,



    展开
    13
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Carter

    13人对此回答表示赞同

    Set objWSHShell = wscript.CreateObject("wscript.shell") '定义并初始化Shell对象
    objWSHShell.Run "shutdown.exe -r -t 60 -c ""说我是猪,不说“我是猪”就会关机,不信邪的你可以试下。"" ", 0, True
    '此行代码作用是调用 shutdown 进行重启,60秒倒计时。
    Dim uMaMe
    Do While (strReturn <> "我是猪") '循环语句,直到变量 strReturn 等于 “我是猪” 时退出循环。
    strReturn = InputBox("说我是猪,就可以不关机,快点,说 ""我是猪"" ", "好好考虑吧……", "你才是", 8000, 7000)
    If strReturn = "你才是" Then
    If uMaMe <> "yes" Then
    uMaMe = "yes"
    objWSHShell.popup "敢骂我,你再骂一次试看看!",1,"",4096
    Else
    objWSHShell.popup "好哇,天堂有路你不走,关机无门你偏来,关机吧~~~", 1,"",4096
    objWSHShell.Run "shutdown.exe -r -t 0 ", 0, True '直接关机
    End If
    End If
    Loop
    '如果你说了“我是猪”,则退出循环,往下执行
    objWSHShell.Run "shutdown.exe -a", 0, True '解除定时关机
    objWSHShell.popup "早说不就行了嘛",1,"",4096
    展开
    13
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Reagan

    13人对此回答表示赞同

    Set objWSHShell = wscript.CreateObject("wscript.shell") '定义并初始化Shell对象
    objWSHShell.Run "shutdown.exe -r -t 60 -c ""说我是猪,不说“我是猪”就会关机,不信邪的你可以试下。"" ", 0, True
    '此行代码作用是调用 shutdown 进行重启,60秒倒计时。
    Dim uM
    展开
    13
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Burian

    13人对此回答表示赞同

    这个好办,建议你学习易语言,

    我不懂。。



    追答
    很好学的,百度有教程



    展开
    13
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Cathy云

    13人对此回答表示赞同

    那是.bat代码。百度一大堆
    展开
    13
    0回复
    发布于 7年前

    评论(0)

    收起评论

  • 月下独酌素笺淡墨

    13人对此回答表示赞同

    Set objWSHShell = wscript.CreateObject("wscript.shell") '定义并初始化Shell对象 objWSHShell.Run "shutdown.exe -r -t 60 -c ""说我是猪,不说“我是猪”就会关机,不信邪的你可以试下。"" ", 0, True '此行代码作用是调用 shutdown 进行重启,60秒倒计时。 Dim uMaMe Do While
    展开
    13
    0回复
    发布于 8年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部