Tweet |
Cara Membuat Program Pemeriksa Screen Saver Di Visual Basic 6.0 - Hai Dreamers 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
Option Explicit 'tutorial by dreamwarexcom.blogspot.com 'salam dreamers 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 : Dreamwarexcom.blogspot.com" End Sub Desain Sesuai Keinginan anda Sekian dreamers, terimakasih kunjungi terus dreamware jangan lupa share dan jangan lupa sertakan sumber salam dreamers |
|
Cara Membuat Program Pemeriksa Screen Saver Di Visual Basic 6.0 - Hai Dreamers 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
Pertama-tama :
Option Explicit
'tutorial by dreamwarexcom.blogspot.com
'salam dreamers
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 : Dreamwarexcom.blogspot.com"
End Sub
Desain Sesuai Keinginan anda
Sekian dreamers, terimakasih
kunjungi terus dreamware
jangan lupa share dan jangan lupa sertakan sumber
salam dreamers
Microsoft Visual Basic 6.0 |
- Buka Aplikasi Visual Basic 6.0 Pilih Standard Exe
- Buat 1 buah Form
- Buat 2 Buah Label
- Name : lblSaver
- Name : lblInfo
Option Explicit
'tutorial by dreamwarexcom.blogspot.com
'salam dreamers
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 : Dreamwarexcom.blogspot.com"
End Sub
Desain Sesuai Keinginan anda
Sekian dreamers, terimakasih
kunjungi terus dreamware
jangan lupa share dan jangan lupa sertakan sumber
salam dreamers
0 komentar:
Posting Komentar
1. Berkomentarlah dengan bahasa jelas, agar kami mudah memahaminya
2. Berkomentarlah dengan sopan
3. Hargai orang lain
4. Jangan jadi spamer di komentar
by : Andi Fajar (ADMIN)