• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-另类的关机代码

AutoIT3 奇跡の海 2年前 (2017-11-14) 837次浏览 已收录 0个评论 扫描二维码

代码简介

定时关机程序,可以输入对应的代码并执行相应操作
AutoIt3(au3)源码-另类的关机代码

AU3源码

#Region ;**** 参数创建于 ACNWrapper_GUI ****

#AutoIt3Wrapper_icon=E:\光盘图片\autorun.ico

#AutoIt3Wrapper_outfile=虫虫技术论坛定时关机程序.exe

#AutoIt3Wrapper_UseUpx=n

#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

GUICreate("虫虫技术论坛定时关机程序",240,320)

GUICtrlCreateLabel("虫虫技术论坛http://ccit.uueasy.com"&@CRLF&@CRLF&"   虫子樱桃 制作",12,103)

GUISetState(@SW_SHOW)

Dim $time,$choice

$choice=InputBox("虫虫技术提示您","您可以在下面输入对应的代码并执行相应操作"&"1立即重启"&@CRLF&"    2休眠"&@CRLF&"    3待机"&@CRLF&"    4立即关机"&@CRLF&"    5自定义关机时间")

Select

        Case $choice=1

        MsgBox(0,"虫虫技术提示您","您的计算机正在关机并将在关机后重启")

        Shutdown(6)

    Case $choice=2

        MsgBox(0,"虫虫技术提示您","您的计算机即将进入休眠状态")

        Shutdown(68)

    Case $choice=3

        MsgBox(0,"虫虫技术提示您","您的计算机即将进入待机状态")

        shutdown(32)

        Case $choice=4

        MsgBox(0,"虫虫技术提示您","您的计算机将马上关机")

        shutdown(5)

        Case $choice=5

    $time=InputBox("虫虫技术提示您","请在下面输入您想要在N秒关机的N值(秒)"&@CRLF&"要是你不想关机,就千万不要输入任何东西!")

        if $time=""  Then

                MsgBox(0,"虫虫技术提示您","您没有输入任何东东,程序将退出!")

                Exit

        Else

   MsgBox(0,"虫虫技术提示您","您的计算机将在"&$time&"秒后关机,请及时备份您的文件和资料,以免造成数据丢失。")

   Sleep($time*1000)

   Shutdown(6)

   EndIf

EndSelect

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(au3)源码-另类的关机代码!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址