ya yaptınızda resim koya bilirmisniz acABA

hocam form demişin ama standart exe de olmadı active x mi olacak?

hocam çok sağol valla bende exe yi scr ye değiştirecek bi yer arıyodum tekrar teşekkürler тнєвlα¢к∂

dostum complie ettikten sonra yane make dedikten sonra dosya türünü ekrankoruyucu. scr olarak kaydet anladın? Dosya türünü. exe olarak diil'de. scr olarak kaydet.

hayır ardaşım Standart exe de oluyo sadece form a ekstra dan bi Timer yerleştireceksin

Önemli değil!

al Dostum! Resimde gördüğün gibi make project1 exe felan dio. Orayı tıkla sana dosyanın oluşturulacağı yeri felan soru işte. Sen orda dosya adını giriosun ya örneğin Project1 diye onu Project1. scr olarak gir ve OK 'de ekran koruyucu olarak oluşturur oké! -

form nasıl oluşturulacak ki?

tamamdır hallettim sağolun. yalnız dosya türünü scr yapmayı bulamadım ama yinede çalışıyor тнєвlα¢к∂

Arkadaşlar form oluşturduktan sonra bu kodları form'a yazın! ve make exe diyip dosya türünü. scr olarak seçin ve complie edin! Option Explicit Dim Value, POSITIONH, POSITIONV, RANDOMRADIUS, RANDOMCOLOR As Integer Dim FINALCOLOR As ColorConstants Private Declare Function ShowCursor Lib "user32" As Long Private Sub Form_Click Unload Me End Sub Private Sub Form_KeyDown Unload Me End Sub Private Sub Form_Load Timer1. Interval = 1000 Form1. ClipControls = False Form1. WindowState = vbMaximized Form1. BackColor = vbBlack ShowCursor Randomize Value = Int(Form1. Width Rnd) POSITIONH = Str$ Randomize Value = Int(Form1. Height Rnd) POSITIONV = Str$ End Sub Private Sub Form_Unload ShowCursor End Sub Private Sub Timer1_Timer Randomize Value = Int(Form1. Width Rnd) POSITIONH = Str$ Randomize Value = Int(Form1. Height Rnd) POSITIONV = Str$ Randomize Value = Int(5000 Rnd) RANDOMRADIUS = Str$ Randomize Value = Int(7 Rnd) RANDOMCOLOR = Str$ Select Case RANDOMCOLOR Case 0 FINALCOLOR = &H80FF& Case 1 FINALCOLOR = vbGreen Case 2 FINALCOLOR = vbRed Case 3 FINALCOLOR = vbYellow Case 4 FINALCOLOR = vbWhite Case 5 FINALCOLOR = vbBlue Case 6 FINALCOLOR = vbCyan Case 7 FINALCOLOR = vbMagenta End Select Circle , RANDOMRADIUS, FINALCOLOR End Sub Kolay gelsin!

sanırım sadece forma bir adet timer koyuyorsun

hocam benimkinde direk make exe diyo başka bi alternatifi yok yani. bende anlamadım bi resimle açıklasan çok teşekkür edicem тнєвlα¢к∂

güzelmiş ya yaptım ben.. ewt bir tek timer koyacaz... teş. ThEBLaCkDeaTH.