'Else
'Timer1.Enabled = True
'End If

'   ReleaseCapture
'    SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0
Me.MouseIcon = LoadResPicture(101, 2)
Me.MousePointer = 99

End Sub



'====================================================================================================================================
'拖放保存網頁地址
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
   If bAddress = 1 Then
    Effect = vbDropEffectCopy
    If Data.GetFormat(vbCFText) Then        '拖放的是網頁地址
        strMessage = "這個網頁地址是："
        strMessage = strMessage + Data.GetData(vbCFText) + Chr(10) + Chr(13) + "保存在c:\傳奇精彩網址.txt中！"
        frmMessage.Show
        'MsgBox strMessage
        '保存網頁到"c:\傳奇精彩網址.txt"中
        Open "c:\傳奇精彩網址.txt" For Append As #1
        Print #1, Data.GetData(vbCFText)
        Close #1
    End If
  End If
End Sub

Private Sub Form_Paint()
'====================================
'這一段是顯示在前面，在設置狀態下（其它窗口活動時），不激活；否則就一直激活它！
'If FindWindow(vbNullString, "frmBubble") <> 0 Or FindWindow(vbNullString, "==傳奇軟件==") <> 0 Then
'   Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE)
'Else
'  Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)
'End If
 '  Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE)

End Sub

Private Sub Form_Unload(Cancel As Integer)
'恢復屏幕保護
SystemParametersInfo SPI_SETSCREENSAVEACTIVE, True, 0&, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE

End Sub

Private Sub Timer1_Timer()       '這個TIMER控件主要負責小可愛的活動和讓她總是顯示在最前面。
'Debug.Print FindWindow(vbNullString, "==傳奇軟件==") <> 0
'====================================
'這一段是顯示在前面，在設置狀態下（其它窗口活動時），不激活；否則就一直激活它！
'If FindWindow(vbNullString, "frmBubble") <> 0 Or FindWindow(vbNullString, "==傳奇軟件==") <> 0 Then
   Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE)
'Else
'   SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2
  'Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)
'End If
'=====================================
'這一段是小可愛的活動！
Select Case GirlAct
Case "Sit"   '坐下
     If GirlAction < 9 Then
     Me.Picture = LoadResPicture(100 + GirlAction, 0)
     SetGirlSitPoint (GirlAction)
     MakeFrom
     GirlAction = GirlAction + 1
     'MsgBox GirlAction
     Else
     GirlAction = 1
     End If
Case "Fly"   '飛翔

     If GirlAction < 17 Then
     Me.Picture = LoadResPicture(100 + GirlAction, 0)
     SetGirlFlyPoint (GirlAction)
     MakeFrom
     GirlAction = GirlAction + 1
     'Me.Move Me.Left - 50, Me.Top - 50
     'MsgBox GirlAction
     Else
     GirlAction = 9
     End If
Case Else

End Select




End Sub

Private Sub Timer2_Timer()   '這個TIMER控件主要負責整點報時和重要提示！

'  bZDTime = Check1(0).Value
'  bZYTime = Check1(1).Value
'  sZYTimeString = Text1(0).Text
'  bQQ = Check1(2).Value
'  tZYTime = Format(Text1(1).Text, Date)
Dim nowTime As SYSTEMTIME
Dim strNowTime As String
Dim tNowHour As Long
Dim strNowWeek As String

If bZDTime = 1 Then
   Call GetSystemTime(nowTime)
   If nowTime.wMinute = 0 Then
   '以中文對話形式顯示當前日期、時間
   
   strMessage = "現在是：" + Str(nowTime.wYear) + "年" + Str(nowTime.wMonth) + "月"
   If nowTime.wHour >= 16 Then
   strMessage = strMessage + Str(nowTime.wDay + 1) + "日，"
   nowTime.wDayOfWeek = nowTime.wDayOfWeek + 1
   Else
   strMessage = strMessage + Str(nowTime.wDay) + "日，"

   End If
   
   'If (nowTime.wHour + Time_Acer) > 12 Then
   'strMessage = strMessage + "下午" + Str((nowTime.wHour + Time_Acer) Mod 12) + "點" + Str(nowTime.wMinute) + "分" + Str(nowTime.wSecond) + "秒，星期" + Str(nowTime.wDayOfWeek)
   'Else
   'strMessage = strMessage + "上午" + Str(nowTime.wHour) + "點" + Str(nowTime.wMinute) + "分" + Str(nowTime.wSecond) + "秒，星期" + Str(nowTime.wDayOfWeek)
   'End If
   tNowHour = (nowTime.wHour + Time_Acer) Mod 24
  ' MsgBox tNowHour
   
   If nowTime.wDayOfWeek = 0 Then
   strNowWeek = "日"
   Else
   strNowWeek = Str(nowTime.wDayOfWeek)
   End If

   
   If tNowHour > 12 Then
      strNowTime = Str(tNowHour Mod 12) + "點" + Str(nowTime.wMinute) + "分" + Str(nowTime.wSecond) + "秒，星期" + strNowWeek
   Else
      strNowTime = Str(tNowHour) + "點" + Str(nowTime.wMinute) + "分" + Str(nowTime.wSecond) + "秒，星期" + strNowWeek
   End If
   '根據時間判斷當前時間段，并顯示不同文字
      
      If tNowHour > 23 Or tNowHour <= 6 Then
      strMessage = strMessage + "凌晨" + strNowTime + "。"
      Else
         If tNowHour > 6 And tNowHour <= 12 Then
         strMessage = strMessage + "上午" + strNowTime + "。"
         Else
              If tNowHour > 12 And tNowHour <= 18 Then
              strMessage = strMessage + "下午" + strNowTime + "。"
              Else
                  If tNowHour > 18 And tNowHour <= 21 Then
                  strMessage = strMessage + "晚上" + strNowTime + "。"
                  Else
                  '組成最終提示文字
                  strMessage = strMessage + "深夜" + strNowTime + "。"
                  End If
              End If
        
         End If
      End If

'MsgBox "aa", vbOKOnly, "bb"
   frmMessage.Show
   
   End If
End If
'重要事情提示
If bZYTime = 1 Then
   Call GetSystemTime(nowTime)
   If (nowTime.wHour + Time_Acer) Mod 24 = tZYTime.wHour And nowTime.wMinute = tZYTime.wMinute Then
      strMessage = "現在是：" + Str(nowTime.wYear) + "年" + Str(nowTime.wMonth) + "月"
   If nowTime.wHour >= 16 Then
   strMessage = strMessage + Str(nowTime.wDay + 1) + "日，"
   nowTime.wDayOfWeek = nowTime.wDayOfWeek + 1
   Else
   strMessage = strMessage + Str(nowTime.wDay) + "日，"

   End If
   
   'If (nowTime.wHour + Time_Acer) > 12 Then
   'strMessage = strMessage + "下午" + Str((nowTime.wHour + Time_Acer) Mod 12) + "點" + Str(nowTime.wMinute) + "分" + Str(nowTime.wSecond) + "秒，星期" + Str(nowTime.wDayOfWeek)
   'Else
   'strMessage = strMessage + "上午" + Str(nowTime.wHour) + "點" + Str(nowTime.wMinute) + "分" + Str(nowTime.wSecond) + "秒，星期" + Str(nowTime.wDayOfWeek)
   'End If
   tNowHour = (nowTime.wHour + Time_Acer) Mod 24
  ' MsgBox tNowHour
   '計算星期并以中文顯示！
   If nowTime.wDayOfWeek = 0 Then
   strNowWeek = "日"
   Else
   strNowWeek = Str(nowTime.wDayOfWeek)
   End If

   '分析時間
   If tNowHour > 12 Then
      strNowTime = Str(tNowHour Mod 12) + "點" + Str(nowTime.wMinute) + "分" + Str(nowTime.wSecond) + "秒，星期" + strNowWeek
   Else
      strNowTime = Str(tNowHour) + "點" + Str(nowTime.wMinute) + "分" + Str(nowTime.wSecond) + "秒，星期" + strNowWeek
   End If
      
      
      If tNowHour > 23 Or tNowHour <= 6 Then
      strMessage = strMessage + "凌晨" + strNowTime + "。"
      Else
         If tNowHour > 6 And tNowHour <= 12 Then
         strMessage = strMessage + "上午" + strNowTime + "。"
         Else
              If tNowHour > 12 And tNowHour <= 18 Then
              strMessage = strMessage + "下午" + strNowTime + "。"
              Else
                  If tNowHour > 18 And tNowHour <= 21 Then
                  strMessage = strMessage + "晚上" + strNowTime + "。"
                  Else
                  strMessage = strMessage + "深夜" + strNowTime + "。"
                  End If
              End If
        
         End If
      End If
'組成最終提示文字
   strMessage = strMessage + " " + sZYTimeString
   
   frmMessage.Show

   
   Else
   Debug.Print nowTime.wHour + Time_Acer, tZYTime.wHour
   End If
   
End If


End Sub

Private Sub Timer3_Timer()    '這個TIMER控件主要負責關閉QQ，廣告和自動關機
Dim CurMousePoint As POINTAPI
MouseCount = MouseCount + 1
GetCursorPos CurMousePoint
'Debug.Print "find", FindWindow(vbNullString, "frmADScreen")
'如果鼠標移動則重新計數、關閉廣告
If CurMousePoint.X <> FristMousePoint.X Or CurMousePoint.Y <> FristMousePoint.Y Then
MouseCount = 0
 If FindWindow(vbNullString, "frmADScreen") <> 0 Then
 Unload frmADScreen
 '出現設置對話框
 frmBubble.Show
 End If
 '保存鼠標位置
FristMousePoint.X = CurMousePoint.X
FristMousePoint.Y = CurMousePoint.Y
Else
   If MouseCount > 60 Then '關QQ
     If bQQ = 1 Then
     '此函數負責查找QQ窗口并關閉！
     Call FindAllApps(frmGirl)
     'MsgBox "mousecount"
     'MouseCount = 0
     End If
      
      If MouseCount > 100 And ShutDown = 1 Then '自動關機
      'MsgBox "12"
      '關閉系統
      ExitWindows "shutdown"
      End If

   Load frmADScreen '廣告
   End If
End If

Debug.Print MouseCount


End Sub