Vb İle Screen Saver Hazırlanması

Aug 10,2008 00:00 by RubeNiS
Bu çalışma sonunda mouse denen minik ama hünerli alete nasıl hükmedeceğimizi göreceğiz. Kodu Eski bir visual basic kitabında bulup üstünde biraz değişiklik yaptım. Kendiniz uğraşarak daha da geliştirebilirsiniz. Aşağıdaki kodu bir modül içine paste edin. Başta Declare edilen fonksiyon fare imlecinin görünüp kaybolmasıyla ilgili user32 kütüphanesine ait bir fonksiyondur.

Declare Function ShowCursor Lib "user32" (ByVal fShow As Integer) As Integer
Global maxLines As Integer
Sub endScrnSave()
showmouse
End
End Sub

Sub HideMouse()
While ShowCursor(False) > = 0

Wend
End Sub

Sub main()
BlankForm.Show
End Sub

Sub showmouse()
While ShowCursor(True) < 0

Wend
End Sub

   Projeye bir form ekleyip özelliklerini şu şekilde ayarlayın

1-Background = siyah
2-BorderStyle = 0-None
3-ShownInTaskBar = False
4-WindowState = 2-Maximized

Formu ekledikten sonra aşağıdaki koduda General Declerations kısmından itibaren kopyalayıp fonksiyonları sırayla bağlayın.

Dim lastX, lastY
Dim numlines

Sub form_Keydown(Keycode As Integer, Shift As Integer)
endScrnSave
End Sub

Private Sub Form_Load()
Move 0, 0, Screen.Width, Screen.Height
HideMouse
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IsEmpty(lastX) Or IsEmpty(lastY) Then
lastX = X
lastY = Y
End If

If Abs(lastX - X) > 2 Or Abs(lastY - Y) > 2 Then
endScrnSave
End If

lastX = X
lastY = Y
End Sub

Projeyi çalıştırınca ekran siyah bir formla kaplanacak ve siz mouse'a dokunan kadar kalacaktır. Fakat bu projenin henüz bazı eksik yanları var. Mesela klavyeden windows+E tuşuna basınca explorer açılıyor yani herhangi bir klavye kilidi yok. Bunun yanında bir password formu ekleyerek çıkışda (fare oynatıldıktan sonra) bir şifre girilmesi ve eğer şifre doğruysa screen saver'dan çıkılması güzel olurdu. Hadi yapın bunları ve programlama.com'a gönderin. Unutmayın ileride kaynak olarak başvuracağımız bu site ancak bizim çabamızla geniş bir arşiv olabilir. Kolay gelsin.