Cok uzun bir aradan sonra Merhaba. Sorununu bildigim kadariyla cvplayim. ekran koruyuculari bilde herhangi bir omuse yada klavye oynamasi olmadigi zamanlarda bir sayac ile gecen zamani hesaplar ve bu zaman eger belirtilan zamani asarsa devreye girer. o zaman vb de bize gereen klavye ve mouse olaylarini bulabilmek. demem o ki eger formun disindafare yada klavye hareketi olursa sayaci sifirlarsin. sayac icin bir timer kullan. ve textbooz a her seferinde +1 dk eklesin. vb icinden bir timer ile farenin ekrandaki noktasini x ve y olarak ayri ayri iki labele yukle.. eger label de ki degerlerde bir degisme varsa o zaman text in degerini 0 la ve tier yeniden saymaya baslasin. timer in icine ( intervali 1dk olacak sek'lde yapabilirsin yada sn olarak sana kalmis ) text1. text = text1. text--1 label in changesine de text1. text=0 Asil sorun eger mouse un yerini nasilbulacam dersen o zaman o mail ile bana ulasirsan sana gondermeye calisirim. Kolay gelsin..

Selam arkadaşlar ekran koruyucular gibi bilgisayarda belli bir zaman bir işlem yapılmazsa çalışacak bir olay hazırlamalıyım bilgisayara bunu nasıl yaptırabilirim. Yani çalışan bir program en üstte gelmeli sözün özü. Ama bilgisayarda çalışma yokken en azından belli bir süre. Teşekkürler...

Merhaba ; general declerationkismina yazilacak eger hata verirse `option explicilit` ile kullanin. Public Declare Function GetCursorPos Lib &quot;User32&quot; As Long timer nesnesinin icine lazilacak... Dim sName As String, sClassName As String 255, TempHwnd As Long Call GetCursorPos ' Display mouse's location lblx. Caption = CursorPosition. X lblY. Caption = CursorPosition. Y elimde yazdigim guzel birguvenlik programi var belli bir sure sonra ekrani kitleyip sofre girmeden acmayan.. isteyen olursa gonderebilirim..