Timer Kodu (Timer Invertal 300 Olsun Tavsiye...)
Kod:
Dim FareX As Long, FareY As Long, MauseSagX As Long, MauseSagY As Long
If GetAsyncKeyState(vbKeyControl) Then
If GetAsyncKeyState(vbKeyLButton) Then
FareX = ReadFloat(KO_ADR_CHR + KO_OFF_MX)
FareY = ReadFloat(KO_ADR_CHR + KO_OFF_MY)
FareZ = ReadFloat(KO_ADR_CHR + KO_OFF_MZ)
WriteFloat KO_ADR_CHR + KO_OFF_X, FareX + 0
WriteFloat KO_ADR_CHR + KO_OFF_Y, FareY + 0
WriteFloat KO_ADR_CHR + KO_OFF_Z, FareZ + 0
End If
End If
Offsetler
Kod:
KO_OFF_MX = &HD44
KO_OFF_MY = &HD4C
KO_OFF_MZ = &HD48
Eğer Yoksa API
Kod:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Kod:
Dim FareX As Long, FareY As Long, MauseSagX As Long, MauseSagY As Long
If GetAsyncKeyState(vbKeyControl) Then
If GetAsyncKeyState(vbKeyLButton) Then
FareX = ReadFloat(KO_ADR_CHR + KO_OFF_MX)
FareY = ReadFloat(KO_ADR_CHR + KO_OFF_MY)
FareZ = ReadFloat(KO_ADR_CHR + KO_OFF_MZ)
WriteFloat KO_ADR_CHR + KO_OFF_X, FareX + 0
WriteFloat KO_ADR_CHR + KO_OFF_Y, FareY + 0
WriteFloat KO_ADR_CHR + KO_OFF_Z, FareZ + 0
End If
End If
Offsetler
Kod:
KO_OFF_MX = &HD44
KO_OFF_MY = &HD4C
KO_OFF_MZ = &HD48
Eğer Yoksa API
Kod:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer