Hızlı Konu Açma

Hızlı Konu Açmak için tıklayınız.

Son Mesajlar

Konulardaki Son Mesajlar

Reklam

Forumda Reklam Vermek İçin Bize Ulaşın

Visual basic kısa yol tusu yapma king4125

Tusunami

Fahri Üye
Fahri Üye
Galatasaray
Katılım
28 Temmuz 2013
Mesajlar
47
Tepkime puanı
2
Puanları
0
Konum
Universe
Web sitesi
www.twitter.com
Gerekli malzemeler :

2 Command Buton.

2 Timer.



Timer1 Enabled Kısmını True ve İnterval Kısmını 100 Yapalım.

Timer2 Enabled Kısmını False ve İntervalini 100 Yapalım.



Daha Sonra Formun (General) Üst Kısmına Aşağıdaki alttaki kodu Yapıştıralım.

Kod:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Sonra forma çift tıklayalım ve gelen yere kodumuzu yazalım.



Kod:

Private Sub Command1_Click() Timer2.Enabled = True End Sub Private Sub Command2_Click() Timer2.Enabled = False End Sub Private Sub Timer1_Timer() If GetAsyncKeyState(vbKeyO) Then Command1_Click If GetAsyncKeyState(vbKeyP) Then Command2_Click End Sub Private Sub Timer2_Timer() SendKeys "Mr Depp" End Sub

Artık "O" ya basılınca her yere Mr Depp yazmaya başlar.

"P" ye basılınca durur!



NOT: Kırmızı yerleri kendinize göre değiştirin
 

Users Who Are Viewing This Konu (Users: 0, Guests: 1)

Üst