Membuat Screen Saver dengan Password di VB 6.0

Cara mendapatkan 3 Dolar per hari, kerjanya cuma klik iklan yang muncul langsung dibayar caranya:klik gambar dibawah ini atau klik Register Clixsense, lengkapi identitas, tekan Sign-Up kemudian konfirmasi Email.Anda siap klik iklan. Info Lengkap

Pada saat kita sedang asik maen komputer tiba-tiba kita ada keperluan mendadak yang membuat kita terpaksa harus meninggalkan komputer dan kita memilih untuk mengaktifkan screen saver,jika tidak ada tangan jahil tentu gak ada masalah bagaimana jika ada orang iseng ngutak-ngatik komputer kita tentu menjadi masalah. Dari kasus diatas kita perlu memebrikan password pada Screen saver kita,walaupun dalam program windows bawaan tersedia aplikasi ini tapi gak ada salahnya kita membuatnya dengan VB 6.0 untuk menambah wawasan kita,berikut caranya:

Buka Form baru yang akan di jadikan Screen saver

Letakan label, TextBox,  dan sebuah CommandButton

Atur pripertinya :

Form1                                      BorderStyle     :None-0

                                                WindowState    :2-Maximized

Label1                                     Caption            : Password:

Text1                                       Text:

Command1                              Caption            : OK

Buka  jendela kode, lalu ketik kode berikut

Option Explicit

Private Declare Function SystemParametersInfo Lib “user32” Alias “ SystemParametersInfoA” (Byval uAction As Long, Byval uParam As Long, lpvParam As Any, Byval fuWin Ini As Long) As Long

Private Const SPI_SCREENSAVERRUNNING=97&

Private Sub Form_Load()

Dim X As Long

Dim Y As Boolean

X= SystemParametersInfo(SPI_SCREENSAVERRUNNING,True,y,0&)

End Sub

Private Sub Command1_Click()

Password=Text1.Text

If password=”kucing” Then

MsgBox”PASSWORD DI TERIMA”

Dim x As Long

Di y As Boolean

X= SystemParametersInfo(SPI_SCREENSAVERRUNNING,False,y,0&)

UnloadMe

Else

MsgBox”PASSWORD DI TOLAK”

End if

End Sub

Catatan : kucing adalah nama password yang kita gunakan,jika anda lupa password Restrat komputer anda

Demikian Membuat Screen Saver dengan Password di VB 6.0, semoga bermanfaat

Penulis: tutorial ~ Nurhasan Blogger | Blog Tutorial dan Informasi |

Artikel Membuat Screen Saver dengan Password di VB 6.0 ini dipublish oleh tutorial pada hari Thursday 28 May 2015
Terima kasih Anda telah membaca artikel tentang Membuat Screen Saver dengan Password di VB 6.0.