VB.net Oto Tus ?

[KARTALBEY09]

Merhaba Arkadaslar ' VB de Otomatık tus basması ıcın nasil kod yazabiliriz

Sadece B tusu olarak dusunursek ?

Sımdıden Teşekkür ederim.

 

[RedHour]

Sendkeys ile yapabilirsin

 

[KARTALBEY09]

Sendkeys ile yapabilirsin

Sendkey olmuyor , Ne yazıkkı Direkmen Normal olarak oto B tusu gibi basması gerekıyor.

 

[KARTALBEY09]

GÜncel /

 

[CruiserVaqabond]

Komple Kopyala ve yapıştır. Timer ekle ve Enabled özelliğini True yap.

Public Class Form1

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)

If (e.KeyCode = Keys.Enter) Then
Timer1.Start()
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Focus()
Timer1.Enabled = True
Timer1.Interval = 50


End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

SendKeys.Send("T") ' Burada klavye den hangi tuşa basmak istiyorsan onu yazabilirsin.

End Sub

End Class

 

[KARTALBEY09]

Komple Kopyala ve yapıştır. Timer ekle ve Enabled özelliğini True yap.

Public Class Form1

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)

If (e.KeyCode = Keys.Enter) Then
Timer1.Start()
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Focus()
Timer1.Enabled = True
Timer1.Interval = 50


End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

SendKeys.Send("T") ' Burada klavye den hangi tuşa basmak istiyorsan onu yazabilirsin.

End Sub

End Class

Teşşekkürler hemen deniyecegim.

 

[KARTALBEY09]

Komple Kopyala ve yapıştır. Timer ekle ve Enabled özelliğini True yap.

Public Class Form1

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)

If (e.KeyCode = Keys.Enter) Then
Timer1.Start()
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Focus()
Timer1.Enabled = True
Timer1.Interval = 50


End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

SendKeys.Send("T") ' Burada klavye den hangi tuşa basmak istiyorsan onu yazabilirsin.

End Sub

End Class

Sendkey Kodu deilde Baska Yoldan nasil yapabiliriz ?

 

[KARTALBEY09]

Guncel /

 

[hacker_ceset]

"SendKeys" dışında başka bir tuş bastırma yöntemi görmedim

forma bir adet textbox ekle, yanına 2 button ekle ve 1 adet timer ekle
butonları başlat ve durdur olarak ayarla > başlat butonuna 2 kez tıkla ve

timer1.enabled = true

yaz >
durdur butonuna çift tıkla kod bölümüne

timer1.enabled = false

yaz.

sonrasında timer1 çift tıkla ve kodu yaz >

SendKeys.Send (textbox1.text)

yaz
timerin interval özelliğini ayarla timeri seç ve sağ tarafta interval bölümünden sayı gir.

süre şekli şu şekilde olmalı; 100 yazarsan, 1 saniyede 10 kere basacaktır, 500 yazarsan 2 kere basacaktır, 1000 yazarsan saniyede 1 kere basacak textboxtaki harfe.