vb.net 锁定计算机,求助：用VB.NET编写一个锁定屏幕的程序？

Private Sub cmdLockWorkstation_Click()

Dim prev_value As Long

Dim wid As Long

Dim hgt As Long

cmdLockWorkstation。

Enabled = False

cmdUnlockWorkstation。Enabled = True

cmdExit。Enabled = False

' Save the current size and position。

m_LastLeft = Left

m_LastTop = Top

m_LastWidth = Width

m_LastHeight = Height

' Put the form on top of everything including

' the task bar。

wid = Screen。Width / Screen。TwipsPerPixelX

hgt = Screen。Height / Screen。TwipsPerPixelY

SetWindowPos hwnd, HWND_TOPMOST, 0, 0, wid, hgt, 0

' Tell the system a screen saver is running。

SystemParametersInfo SPI_SCREENSAVERRUNNING, True, _

prev_value, 0

End Sub

To unlock the workstation, the program uses SystemParametersInfo to tell the system that no screen saver is running。

Private Sub cmdUnlockWorkstation_Click()

Dim prev_value As Long

cmdLockWorkstation。Enabled = True

cmdUnlockWorkstation。

Enabled = False

cmdExit。Enabled = True

' Restore the size and position。

Move m_LastLeft, m_LastTop, m_LastWidth, m_LastHeight

' Tell the system no screen saver is running。

SystemParametersInfo SPI_SCREENSAVERRUNNING, False, _

prev_value, 0

End Sub

。

全部