konu başlığı ve kirlilik icin ozur dilerim uzun bi zaman once bu kodu değiştirip kendime gore yapmıştım ama uzun bi zaman girmeyince unutmuşuz şuan yapamıyorum yardımcı olursanız sevinirim
olay şu cs oynuyorum mouse ORTA tuşa basınca 0.6 ms aralıklarla SPACE tuşu gondericek yani cs de zıplama tuşu mouse ORTA tuşu kaldırınca durucak
biri duzenlerse cok makbule gecer şimdiden teşekkurler

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

Private sendTheKey As New AutoItX3Lib.AutoItX3
Private clickCount As Long

Private Sub Form_Load()
clickCount = 0
End Sub

Private Sub Timer1_Timer()
'If GetAsyncKeyState(4) 0 Then
' If clickCount = 0 Then clickCount = GetTickCount
' If (GetTickCount - clickCount) >= 6000 Then sendTheKey.Send "": clickCount = 0
' Me.Caption = (GetTickCount - clickCount) / 1000
'Else
' clickCount = 0
' Me.Caption = "Basılı değil!"
'End If
If GetAsyncKeyState(4) 0 Then sendTheKey.MouseClick "right"
End Sub
__________________