Code nhấn chuột trái, phải, thanh trượt. Help me !!!

[truongphu]

có ai có code nào để nhấn chuột trái , phải và thanh trượt kô.
ví dụ khi di chuyển tới 1 icon nào đó hay một nút nào đó ta dùng code để click vào nó mà ko dùng chuột.
tiện thể ai chỉ giúp cách lấy tọa độ của vi trí hiện tại của con chuột luôn nha.
Mong mọi người chỉ giáo

---------

Gởi nhiều bài viết cùng đề tài

[PineCom]

tạo Form1 moi bỏ thêm một Timer1, bỏ lệnh sau đây vào bấm F5

Mã: Chọn tất cả

Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim Vitri As POINTAPI, mWnd As Long
    'Lay vi tri con tro bo vao bien Vitri
    GetCursorPos Vitri
    Form1.Caption = "X= " & Vitri.X & " Y= " & Vitri.Y
End Sub

[thanminhtu]

sory trước. Anh truongphu sao lại xóa những bài có trả lời của người ta vậy, tìm thì không có hỏi thì lại xóa bó tay. coi lại đi nha.

Sửa lần cuối bởi truongphu vào ngày T.Tư 02/06/2010 7:37 pm với 1 lần sửa.
Nguyên nhân: Gởi nhiều bài viết cùng đề tài

không biết mới hỏi, biết rồi hỏi làm j` diễn đàn tạo ra là để trao đổi chứ có phải anh thích xóa là xóa đâu. em toàn hỏi các câu hỏi khác nhau sao anh nói cùng đề tài là sao. bàn phím vs chuột giống nhau hì