handystuff.bas

机房管理

Attribute VB_Name = "HandyStuff"
Option Explicit
Public Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public 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)

Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

Public NME As String
Public IPE As String
Public ChatHost As String
Public ConTrue As Boolean

Public Function MinLong(A As Long, B As Long) As Long
    If A < B Then
        MinLong = A
      Else
        MinLong = B
      End If
    End Function

Public Function MaxLong(A As Long, B As Long) As Long
    If A > B Then
        MaxLong = A
      Else
        MaxLong = B
      End If
    End Function

Public Function QuoteX(DRS As String) As String

  Dim DN As Long
  DN = InStr(1, DRS, ":", vbTextCompare)
  
  On Error Resume Next
  
  If DN > 1 Then  '有找到:时
     QuoteX = Trim(Right(DRS, Len(DRS) - DN))
  End If
  
End Function