我想用VB做一个定时关机的工具

来源：百度知道 编辑：UC知道 时间：2024/06/11 17:10:28
我用了3个TEXT用来输入：时，分，秒！用一个按钮command来确定，LABEL1的COPTION的值是调用的系统时间！！怎么将TEXT中的值转换为时间函数，怎么用来确定！当LABEL1的值等于所输入的就自动关机

//********************************* 说明 *****************************************
//时间格式为24小时制 -- 00：00~23：59
//当不在这个范围内会报错并返回让用户重新输入~~ ：）
//********************************* 源代码 *****************************************
dim Obj,UserName,NowTime,LenS,Num
set Obj = createobject("WScript.Shell")
//调用“Wscript.Shell”
VBS UserName=Obj.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
// RegRead -- 读取注册表
VBS YN=Obj.Popup(UserName&" 你好，是否使用自动定时关机？",0,"关机？",36)
//Popup--弹出对话框
If YN=6
//标记 输入时间
Rem InputTime
VBSCall SWTime=InputBox ("请输入关机时间！24小时格式(00:00~23:59之间)！如：2:03 ， 22:35")
//*********************************** 判断时间格式 ****************************************************
VBS LenS=Len(SWTime)
//Len--获得字符串的长度
VBS Num=Instr(SWTime,":")
//Instr--获得"