发信人: pyms()
整理人: (2000-04-08 10:17:51), 站内信件
|
VB6.0 程序
先搞个label1显示字符控件
Public Declare Function SystemParametersInfo Lib "user32" Alias "Syste mParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
'在一个模块中声明函数
Private Sub Form_Load()
SystemParametersInfo 97, True, ByVal 1&, 0
End Sub
'以上是封Ctrl+Alt+Del
'主程序区
Private Sub Timer1_Timer() '时间控件
Static a As Integer
b = 60
a = a - 1
c = a + b '倒计时60秒
Select Case c
Case Is > 0
Label1.Caption = c 'label1显示c的值
Case Is <= 0
Label1.Caption = "问候你老娘"
Shell"rundll32.exe user.exe,exitwindows" '关机
End Select
End Sub
-- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.104.36.57]
|
|