19 December 2012

Cara Menjalankan ScreenSaver

Jika teman-teman ingin mencoba menjalankan screensaver tanpa harus menunggu waktunya screensaver itu muncul, berikut cara-caranya :

Pada VB 6.0

Di bagian '(Declaratios)' dari Form ketikkan :
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Untuk menggunakannya ketikkan perintah kode :
SendMessage Me.hwnd, 274, 61760, 0

Pada VB.NET

Di bagian '(Declaratios)' dari Form ketikkan :
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Untuk menggunakannya ketikkan perintah kode :
SendMessage(Me.Handle.ToInt32, 274, 61760, 0)
Semoga Bermanfaat bagi teman-teman :)

No comments:

Post a Comment

Recent Comment

Contact Form

Name

Email *

Message *

2012 © Jabat Software