نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

Hibernate'
Application.SetSuspendState(PowerState.Hibernate, True, False)

'Stand By
Application.SetSuspendState(PowerState.Suspend, True, False)

[ravegoat]

ابتدا کد زیر را در Public Class فرم قرار دهید:

Public Declare Function BlockInput Lib "user32" (ByVal Block As Boolean) As Long

سپس با فرمان های زیر می توانید صفحه کلید و موشواره را قفل یا آزاد کنید:

'قفل کردن
BlockInput(True)

'آزاد کردن
BlockInput(False)

عمل قفل کردن را می توان با کلید ترکیبی Alt + Ctrl + Del خنثی کرد.

[ravegoat]

ابتدا کد زیر را در Public Class فرم قرار دهید:

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal ReturnString As String, ByVal ReturnLength As Long, ByVal Callback As Long) As Long

بعد از فرمان های زیر استفاده می کنید:

'باز کردن
mciSendString("Set CDAudio Door Open Wait", 0, 0, 0)

'بستن
mciSendString("Set CDAudio Door Closed Wait", 0, 0, 0)