Programalama > VISUAL BASIC

'Bir modül aç ve bu kodu pastele
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

'Formuna bir tane timer ekle interval=100 yap
'Formun özelliklerini border style=none yap
'Formun backcolor'unu siyah yap  ve aşağıdaki kodu pastele.
'exe file yaparkende exe yi scr olarak değiştir windows\ system yapıştır. 
'hadi kolay gelsin. Batuge'den :)

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




Private Sub Timer1_Timer()
Dim CX, CY, Radius, Limit   
    ScaleMode = 3  
    CX = ScaleWidth / 2 
    CY = ScaleHeight / 2    
    If CX > CY Then Limit = CY Else Limit = CX
    For Radius = 0 To Limit
        Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Next Radius

End Sub