zaman aşımı

[Agırbeyin]

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...

[Serbest]

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..

[Serbest]

Merhaba ;
general declerationkismina yazilacak
eger hata verirse `option explicilit` ile kullanin.
Public Declare Function GetCursorPos Lib "User32" (ByRef lpPoint As POINT) As Long


timer nesnesinin icine lazilacak....
Dim sName As String, sClassName As String * 255, TempHwnd As Long

Call GetCursorPos(CursorPosition)

' 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..