Detected 8 occurrence(s) of ‘GetAsyncKeyState\(‘: en Last_ClickState_Right = GetAsyncKeyState(2) If GetAsyncKeyState(2) = 32768 Then Click_Count += 1 Coordenates_List.Add(Nothing) Clicks_Dictionary.Add(Click_Count, MouseButton.Right_Down) ElseIf GetAsyncKeyState(2) = 0 Then Click_Count += 1 Coordenates_List.Add(Nothing) Clicks_Dictionary.Add(Click_Count, MouseButton.Right_Up) End If End If End Sub ' Procedure to play a mouse button (click) Private Shared Sub Mouse_ Source: http://pastebin.com/raw.php?i=vaUvieHY
↧