excel دا كومپيۇتېرنى ۋاقت بەلگىلەپ ئۆچۈرۈش قىستۇرمىسى [ئۇلانما كۆچۈرۈش]

Intil

ئاتامان

بېكەت باشلىقى

Rank: 32

تۆھپە: 17234
تىللا: 21527
شۆھرەت: 30008

يوللىغان ۋاقتى 2012-5-5 00:59:21 |ھەممە قەۋەتنى كۆرۈش

Office VBA ھەۋەسكارلىرىنىڭ پايدىلىنىشى ئۈچۈن يوللاندى

2003版本安装定时关机工具.rar (90.59 KB, چۈشۈرۈش سانى: 78)

2010版安装定时关机工具.rar (89.27 KB, چۈشۈرۈش سانى: 68)
قاچىلاش ئۇسۇلى :

قاچىلانسا قورال سىتونىدا 定时关机 دەپ بىر قورال پەيدا بولىدۇ.
بۇنىڭ كودى تۆۋەندىكىچە

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'上面是申明窗体置顶代码API函数
Dim t As Long, m As Long, n As Long '定义变量
Private Sub Form_Load() '窗体加载时
Timer1.Interval = 0 '计时器1不生效
Timer1.Enabled = False '计时器1禁用
Label2.Enabled = 1 '标签2不禁用
Label3.Enabled = 0 '标签3禁用
Timer2.Interval = 1000 '计时器2每隔一秒计时一次
Timer2.Enabled = 1 '计时器2生效
xlapp.DisplayAlerts = False '避开excel内置弹出询问对话框
xlapp.ActiveWorkbook.SaveAs App.Path & "\定时关机之前的.xls" '把当前工作薄另存在COM加载同样的路径上，且取名为“定时关机之前的”
xlapp.DisplayAlerts = True '避开excel内置弹出询问对话框,和上面的刚好一对使用
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 '窗体置顶
End Sub
Private Sub Label2_Click() '单击标签2执行下面的代码
If Text1.Text = "" Or Asc(Text1.Text) < 0 Or Text1.Text Like "[A-z]" Then '如果在文框1里输入不是分钟数字，那么就执行下面的代码
MsgBox "你没有输入关机时长或者是非数字字符" '提醒用户，没有在文本框1中输入关机的时长
Else '否则就执行下面的代码
Timer1.Interval = 1000 '计时器1启动，且每隔一秒计时一次
Label2.Enabled = False '标签2禁用，颜色成灰色
Label3.Enabled = True '标签3不禁用
Timer1.Enabled = True '计时器1开始计时
n = 60 * Text1.Text '把分钟数转为秒数
m = n '把n的值赋给m
End If
End Sub
Private Sub Label3_Click() '单击标签3执行下面的代码
Timer1.Interval = 0 '计时器1关闭
Timer1.Enabled = False '计时器1禁用
Label3.Enabled = 0 '标签3不禁用
Label2.Enabled = 1 '标签2不禁用
Label1.Caption = "" '标签1的名字等于空的
Text1.Text = "" '文本框1的内容清除
End Sub
Private Sub Label4_Click() '单击标签4执行下面的代码
Timer1.Interval = 0 '计时器1停止计时
Timer1.Enabled = False '计时器1禁用
Unload Dialog '关闭Dialog窗体
End Sub
Private Sub Timer1_Timer() '计时器计时
t = t + 1 '变量t累加
m = m - 1 '变量m递减
If n - t = 0 Then '如果文本框输入时长数减去变量t等于0，也就是说计时器计时的秒数和文本1输入的秒数相同了，那么就执行下面的代码
xlapp.Quit '关闭EXCEL程序
Shell "shutdown -s -t 0" '执行关机，这一句代码是整个工具的核心
End If
Label1.Caption = "离关机还有" & m & "秒" '标签1显示离关机的的时间
End Sub
Private Sub Timer2_Timer()
Me.Label5 = Format(Now, "YYYY年MM月dd日 hh时:mm分:" & "ss秒") '标签5显示日期和时间
Me.Label6.Caption = WeekdayName(Weekday(Now())) ''标签6显示星期
End Sub