EKRAN KORUYUCU (LOGO)

LOGONUZU EKRAN KORUYUCU OLARAK KULLANABİLEN  PROJE  ÖRNEĞİ

KOD İNDİR

EXE İNDİR 

NOT : EkranKoruyucu.EXE programını "Er_LOGO.scr"  veya sizin arzu ettiğiniz bir "BirAdYazın.scr" şeklinde değiştirip "C:\WINDOWS\SYSTEM32\"  dizini içine kopyalayın.

 MasaÜstünde sağ tıklayıp çıkan menüde "Kisişelleştir\Ekran Koruyucu" kısmına tıklayın. Çıkan pencerede Ekran koruyucu ComboBox kutusunda yüklediğiniz ismi göreceksiniz. Seçin  süresini ayarlayın ve Tamam 'a basınız

Public Class Form1 Dim X, Y As Integer Dim Rnd As New Random Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown Me.Close() End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Cursor.Hide() Y = Me.Height - Panel1.Height x = Me.Width - Panel1.Width Panel1.Location = New Point(Rnd.Next(0, x), Rnd.Next(0, Y)) End Sub Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove Static EskiX As Integer Static EskiY As Integer If (EskiX > 0 And EskiY > 0) And (Math.Abs(e.X - EskiX) > 3 Or Math.Abs(e.Y - EskiY) > 3) Then Me.Close() End If EskiX = e.X EskiY = e.Y End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Panel1.Location = New Point(Rnd.Next(0, x), Rnd.Next(0, Y)) End Sub End Class <textarea>