İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

zaman aşımı

A

Agırbeyin

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

Serbest

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

Serbest

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

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst