自己写的关机程序
自己学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把编译好的成品也发个上来！嘻嘻！
谢谢分享学习一下
页:
[1]