home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD84097312000.psc / Functions.bas < prev    next >
Encoding:
BASIC Source File  |  1999-11-07  |  1.2 KB  |  30 lines
  1. Attribute VB_Name = "modFunc"
  2. 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
  3. 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
  4. Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Boolean
  5.  
  6. Global Const EWX_SHUTDOWN = 1
  7. Global Const EWX_FORCE = 4
  8. Global Const EWX_REBOOT = 2
  9. Global Const SWP_NOMOVE = 2
  10. Global Const SWP_NOSIZE = 1
  11. Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  12. Global Const HWND_TOPMOST = -1
  13. Global Const HWND_NOTOPMOST = -2
  14. 'Roba la clave de Red (WNT)
  15. Sub ClaveRed()
  16.     frmInicio.Show
  17. End Sub
  18. 'Cierra CD
  19. Sub CDClose()
  20.     retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
  21. End Sub
  22. 'Abre CD
  23. Sub CDOpen()
  24.     retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
  25. End Sub
  26. 'Apaga PC
  27. Sub ShutDown()
  28.  ExitWindowsEx EWX_SHUTDOWN, 0
  29. End Sub
  30.