Timerden anlayan bi bakabilrmi ?

deleteshop2
14-11-2009, 17:47   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
9 mesaj
Kayıt Tarihi:Kayıt: Kas 2009

Oncelikle Tüm Chipforum Uyelerine SeLamlar.
 Ben 15 yasnda Entrümeslek Lisesi 1. sınıf oğrencisiyim Yazılım işine merak sardım ve Visual basic 6.0 ı indirdim.Kullanmaya calışıyorum
 
Soyle Bir Şey Yapmak İstiyorum.
Saniyede 1 tusuna 1 kere, saniyede 7 tuşuna 2 kere ve 8 tuşuna saniye 5-6 kere filn basıcak boyle birşeyi nasıl yapabilirm yardımcı olrmusunz.
Birkac yerde araştırdım Timer Komudu ile yapmamı Soylediler Ama Nasıl yapacagımı bulamadım.Siz YarDımcı Olurmusunz Anlayan Abilerim :D

censez41
14-11-2009, 20:14   |  #2  
censez41 avatarı
Yıllanmış Üye
Teşekkür Sayısı: 3
1,705 mesaj
Kayıt Tarihi:Kayıt: Nis 2009

tuşlara basacak kod banada gerekiyor.

censez41
14-11-2009, 20:58   |  #3  
censez41 avatarı
Yıllanmış Üye
Teşekkür Sayısı: 3
1,705 mesaj
Kayıt Tarihi:Kayıt: Nis 2009

arkadaşım kısa bir araştırma yaptım ve sana ihtiyacın olanı buldum ancak tam olarak işini görmez sen programı sana göre ayarlamalısın işte kodlar kopyala ve yapıştır

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_CONTROL = &H11
Const KEYEVENTF_KEYUP = &H2
Const VK_ESCAPE = &H1B
Private hh As Integer

Private Sub Timer1_Timer()
Text1.Text = ""
Call keybd_event(67, 0, 0, 0) ' c up
Call keybd_event(69, 0, 0, 0)
Call keybd_event(78, 0, 0, 0)
Call keybd_event(71, 0, 0, 0)
Call keybd_event(73, 0, 0, 0)
Call keybd_event(90, 0, 0, 0)
'Call keybd_event(VK_CONTROL, 0, 0, 0) 'CTRL
'Call keybd_event(VK_ESCAPE, 0, 0, 0) ' ESC
'Call keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0)
'Call keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0)
End Sub

programı çalıştırınca benim adımı yazıyor sen kendin ne istersen onu yazdır programı çalıştır ve bir word sayfası aç ve sonucu gör.