Cara Menjadikan Blank Layar Komputer dengan Visual Basic

Sudah lama saya tidak mengupdate, dan setelah saya pikir-pikir lagi saya kira saya harus terus mengupdate blog saya ini agar pengunjungnya tetap ramai dan mendapatkan visitor yang lebih banyak lagi .

Tutorial kali ini adalah fungsi untuk menjadikan layar komputer blank .
Berikut codenya :

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112

Public Function TurnOnMonitor(hwnd As Long, bFlag As Boolean) As Boolean
  If bFlag Then
      Call SendMessage(hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)
  Else
      Call SendMessage(hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)
  End If
End Function

Contoh penggunaan kode di atas:

Option Explicit

Private Sub Command1_Click()
  TurnOnMonitor Me.hwnd, False
End Sub

Semoga Bermanfaat .