- Katılım
- 28 Temmuz 2013
- Mesajlar
- 47
- Tepkime puanı
- 9
- 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
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
