Wednesday, July 15, 2015

Cara Membuat Program Pemeriksa Screen Saver Di Visual Basic 6.0

Cara Membuat Program Pemeriksa Screen Saver Di Visual Basic 6.0 - Hai Sobat naga kali ini saya akan menjelaskan tentang Cara Membuat Program Pemeriksa Screen Saver Di Visual Basic 6.0, Aplikasi ini berfungsi untuk memeriksa Screen Saver, Apakah Hidup atau Mati. Sobat Penasaran ?, Jika penasaran langsung aja ke Cara Membuat Program Pemeriksa Screen Saver Di Visual Basic 6.0

Microsoft Visual Basic 6.0
Pertama-tama :

  1. Buka Aplikasi Visual Basic 6.0 Pilih Standard Exe
  2. Buat 1 buah Form
  3. Buat 2 Buah Label
  • Name : lblSaver
  • Name : lblInfo
Kalau sudah siap Ketik Atau (Copy) Kode dibawah ini di General (Declarations)

Option Explicit

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETSCREENSAVEACTIVE = 16

Private Function IsScreenSaverEnable() As Boolean
  Dim bReturn As Boolean
  Dim bActive As Boolean
  Call SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, vbNull, bReturn, 0)
    IsScreenSaverEnable = bReturn
End Function

Private Sub Form_Load()
lblSaver.Caption = "Screen Saver : " & IsScreenSaverEnable & ""
lblInfo.Caption = "Sumber : Bapaknaga.com"
End Sub

Desain Sesuai Keinginan anda
Hasil nya kira - kira seperti dibawah ini :

Hasil Akhir
Gimana ?
Mudah bukan, Terima kasih Telah mengunjungi Blog kami semoga bermanfaat
Temukan Artikel lainnya di Bapaknaga

Cara Membuat Program Pemeriksa Screen Saver Di Visual Basic 6.0 Rating: 4.5 Diposkan Oleh: media tion