frmhhlp.frm

一款漂亮的闹钟制作界面,希望能给你们带来帮助.

VERSION 5.00
Object = "{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}#2.0#0"; "agentctl.dll"
Begin VB.Form frmHhlp 
   BorderStyle     =   0  'None
   Caption         =   "忠告"
   ClientHeight    =   525
   ClientLeft      =   2.45745e5
   ClientTop       =   2.45745e5
   ClientWidth     =   1530
   LinkTopic       =   "Form1"
   ScaleHeight     =   525
   ScaleWidth      =   1530
   ShowInTaskbar   =   0   'False
   Visible         =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   1230
      Top             =   600
   End
   Begin AgentObjectsCtl.Agent Agent1 
      Left            =   735
      Top             =   600
   End
End
Attribute VB_Name = "frmHhlp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetTickCount Lib "KERNEL32" () As Long
Public wssccc As AgentObjectsCtl.IAgentCtlCharacterEx

Private Sub Form_Load()
Agent1.Characters.Load "merlin", App.Path & "\merlin.acs"
Set wssccc = Agent1.Characters("merlin")
End Sub ' wssccc's qq  151884336

Private Sub Timer1_Timer()
If EnHhelp = True Then
If GetTickCount / 1000 / 60 / 60 = 3 Then
   If Hlast <> Hour(Now) Then
     Hlast = Hour(Now)
     Alert "该休息了~", "您的电脑已经连续工作" & Int(GetTickCount / 1000 / 60 / 60) & "小时了"
    End If
    End If

If Hour(Now) < 6 Or Hour(Now) > 22 Then
     If Hlast <> Hour(Now) Then
     Hlast = Hour(Now)
     Alert "该休息了~", "现在是" & Hour(Now) & "点了,您该休息了,不要影响明天的学习和工作哦!"
    End If
End If
End If
End Sub ' wssccc's qq  151884336

Sub Alert(title As String, MSG As String)
On Error Resume Next
Dim frm As New frmAlmAlert
frm.title.Caption = title
frm.Text1.Text = MSG
frm.Show
frm.Caption = "助手提示"
'frm.StartUpPosition = 2
AlwaysOnTop.AlwaysOnTop frm, True
wssccc.Show
wssccc.SoundEffectsOn = True
wssccc.MoveTo frm.Left / 15 - 100, frm.Top / 15, 5
wssccc.Play "Acknowledge"
wssccc.Speak "那确实！"
wssccc.Play "Suggest"
wssccc.Speak "快去休息吧!"
End Sub ' wssccc's qq  151884336