自己写的关机程序

虫子樱桃

自己学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

把编译好的成品也发个上来！嘻嘻！

jy010

谢谢分享  学习一下