Amaci : Fare imlecini goturdugunuz noktaya belirttiginiz araliklar ile tiklama yapmasi..Bilmiyorum hala oynayan var mi ama Farmville gibi oyunlarda cok faydasi oluyor bana
Diger amaclar size kalmis...
Kullanimi : B tusuna basildiginda calisir. D tusuna basildiginda durur. Program simge durumda olsa bile tuslari algilar..Tiklama Araligi 0.2 sn ile 1 sn Arasinda ayarlanabilir..
Gerekli Olanlar : 1 adet Trackbar
2 adet Timer (Birinin adi "HotKeys", digerinin adi "Clicks")
Buyrun Kodlar:
PHP Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Declare Sub mouse_event Lib "User32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwextrainfo As Long)
Private Const mouseclickup = 4
Private Const mouseclickdown = 2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TrackBar1.Minimum = 200
TrackBar1.Maximum = 1000
TrackBar1.SmallChange = 1
TrackBar1.LargeChange = 10
End Sub
Private Sub Hotkeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HotKeys.Tick
Dim Hotkey1 As Boolean
Hotkey1 = GetAsyncKeyState(Keys.B)
If Hotkey1 = True Then
Clicks.Start()
End If
Dim Hotkey2 As Boolean
Hotkey2 = GetAsyncKeyState(Keys.D)
If Hotkey2 = True Then
Clicks.Stop()
End If
End Sub
Private Sub Clicks_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clicks.Tick
mouse_event(mouseclickdown, 0, 0, 0, 0)
mouse_event(mouseclickup, 0, 0, 0, 0)
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Clicks.Interval = TrackBar1.Value
End Sub
End Class
(Vb.Net)
Proje Olarak :http://hotfile.com/dl/117582353/d1a0...icker.rar.html
__________________