home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / improv3a / module.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-25  |  1.1 KB  |  22 lines
  1. Attribute VB_Name = "Module"
  2. Global myPass As String ' Password
  3. ' Below are the Declarations for hiding the Taskbar, and showing it afterwards
  4. Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
  5. Public Const SPI_SCREENSAVERRUNNING = 97
  6.  
  7. Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  8.     Public Const SWP_HIDEWINDOW = &H80
  9.     Public Const SWP_SHOWWINDOW = &H40
  10. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  11. 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) As Long
  12. Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' Sleep
  13.  
  14. Public Sub GoToSleep(ByVal pSecs As Long)
  15.   
  16.   Call Sleep(pSecs)
  17.  
  18. End Sub
  19.  
  20.  
  21.  
  22.