S.a Macromu yapıyorum istediğim tuşa basınca aktif oluyor bu konuda sıkıntım yok yalnız ben mausenin sağ tık ına tıkladığımda r harfi gonermesini istiyorum surekli gonderme kodunu biliyorum ama sadece tıkladığımda gondericek lutfen ayrıntılı bi şekilde yazarmısınız . Bu arada Kodlarım




Dim Komut As New AutoItX3Lib.AutoItX3
Public Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Command1_Click()
Timer2.Enabled = True
Timer3.Enabled = True
Timer2.Interval = (Text1.Text)
Timer3.Interval = (Text2.Text)
End Sub
Private Sub Command2_Click()
Timer2.Enabled = False
Timer3.Enabled = False
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyQ) Then Command1_Click
If GetAsyncKeyState(vbKeyE) Then Command2_Click
End Sub
Private Sub Timer2_Timer()
Komut.Send (8)
Komut.Send (8)
Komut.Send (8)
Komut.Send (8)
Komut.Send (8)
Komut.Send (8)
Komut.Send (8)
Komut.Send (8)
Komut.Send (8)
Komut.Send (8)
Komut.Send (8)
Komut.Send (8)
End Sub
Private Sub Timer3_Timer()
Komut.Send (2)
End Sub
__________________