Keskustelu: Koodit: VB6: API - Pilailuohjelman lisäys

' Nämä API kutsut asetetaan alkuun
' Etsii hanskan tehtäväpalkkiin
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
' Muuttaa tehtäväpalkin tilaa
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
' Piilotuksen ja näyttämisen konstantit
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_SHOWWINDOW = &H40

' Case lausejonon viimeiseksi:
    Case 9
        lngReturn = FindWindow("Shell_traywnd", "") 'get the Window
        Call SetWindowPos(lngReturn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 'hide the Tasbar
        ltime = Int(Rnd(Now) * 1000)
        Wait ltime
        lngReturn = FindWindow("Shell_traywnd", "") 'Ota hanska
        Call SetWindowPos(lngReturn, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) 'Näytä tehtäväpalkki
        ltime = Int(Rnd(Now) * 1000)
        Wait ltime