KaraYılan TR

HOŞGELDİNİZ KaRaYıLaN
 
AnasayfaAnasayfa  SSSSSS  AramaArama  Kayıt OlKayıt Ol  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Giriş yap  

Paylaş | 
 

 SİSTEMİ 10 SANİYEDE DURDURUN

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
MeMaTi
Admin


Erkek
Mesaj Sayısı : 176
Yaş : 26
Location : dfgfdg
Job/hobbies : hgffg
Humor : erwer
Kayıt tarihi : 14/08/07

MesajKonu: SİSTEMİ 10 SANİYEDE DURDURUN   C.tesi Ağus. 25, 2007 1:11 pm

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)

Private Sub Durdur_Click()
DoEvents
'mouse ve klavyeyi bloke et

BlockInput True 'bloke işlemine başla
Sleep 10000 '10 saniye bloke et
BlockInput False 'bloke işlemini sonlandır
End Sub


forma bi buton oluşturun (name:durdur) sonra forma yukardaki kod yapıştırın

10 snliğine pc donacak
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://www.djdenizcom.tr.gg
 
SİSTEMİ 10 SANİYEDE DURDURUN
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
KaraYılan TR :: PROGRAMLAMA :: VİTSUAL BASİC-
Buraya geçin: