改编版电脑自动定时关机脚本源码

改编版电脑自动定时关机脚本源码

运行环境:分辨率:1440×900 色深:32位 操作系统:Microsoft Windows XP 按键精灵版本:9.33.11393

Event Form1.over.click  
Hwnd = Plugin.Window.Find(0, "改编版电脑自动关机程序3代")  
    HwndEx = Plugin.Window.FindEx(Hwnd, 0, "Dialog", 0)  
    Call Plugin.Window.CloseEx(Hwnd)  
End Event  
Event Form1.Start. Click  
  
Delay 100  
  
dim Obj,UserName,NowTime,LenS,Num  
set Obj = createobject("WScript.Shell")  
  
UserName=Obj.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")  
  
YN=Obj.Popup(UserName&" 你好,是否使用自动定时关机?",0,"关机?",36)  
  
If YN=6 Then  
  
    Rem InputTime  
    SWTime=InputBox ("请输入关机时间!24小时格式(00:00~23:59之间)!如:2:03 , 22:35")  
    
    LenS=Len(SWTime)  
  
    Num=Instr(SWTime,":")  
  
    If Num=0 Then  
        Num=Instr(SWTime,":")  
    End If  
    If Num=0 Then  
        Call Obj.Popup("间隔符错误!请用“ : ”或者“ : ”",5,"时间格式错误!",48)  
  
        Goto InputTime  
    End If  
    If left(SWTime,Num-1)>23 or left(SWTime,Num-1)<0  Then  
  
        Call Obj.Popup("小时格式输入错误!",5,"时间格式错误!",48)  
        Goto InputTime  
    End If  
    If Right(SWTime,LenS-Num)>59 or Right(SWTime,LenS-Num)<0 Then  
  
        Call Obj.Popup("分钟格式输入错误!",5,"时间格式错误!",48)  
  
        Goto InputTime  
    End If  
  
    Call Obj.Popup("系统将在"&SWTime&"关机!!",5,"自动关机!",48)  
    Rem Start  
    NowTime=Time  
  
    If Hour(SWTime)=Hour(NowTime) and Minute(SWTime)=Minute(NowTime) Then  
   
        Obj.Run "shutdown /f /s /t 0"  
  
    End If  
    For 30  
        Delay 1000  
    Next  
    Goto Start  
End If  
End Event
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

改编版电脑自动定时关机脚本源码》有0个想法

回复 易语言资源站 取消回复

您的电子邮箱地址不会被公开。 必填项已用*标注