VB 设置时间定时关闭系统源代码

来源：百度知道 编辑：UC知道 时间：2024/06/05 06:33:13
求 定时关闭系统源代码 可以设置时间关闭！~
Combo1.ListIndex = 0 属性无效
List1.ListIndex = IIf(Weekday(Date) = 1, 6, Weekday(Date) - 2) 属性无效

把下面的代码,拷贝到记事本,另存为一个窗体文件,试试看,错误不用管,只是图标问题,没有影响
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "定时关机系统"
ClientHeight = 2205
ClientLeft = 45
ClientTop = 435
ClientWidth = 4470
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2205
ScaleWidth = 4470
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame2
BackColor = &H00FFC0C0&
Caption = "修改任务(&M)："
Enabled = 0 'False
Height = 1695
Left = 1890
TabIndex = 2
Top = 120
Width = 2490
Begin VB.Timer Timer1
Interv