Как эмулировать нажатие левой кнопки мыши?

[Murcielago]

Есть проблема !
1 Необходимо переместить курсор в нужное место экрана (это мне понятно как сделать) и эмулировать нажатие левой кнопки мыши( какой командой это можно сделать?)
2 Как значение переменной поместить в буфер обмена чтобы затем поместить его в определённое поле на WEB странице?

[EvilCoder]

<DELETED>

[A.A.Z.]

Да, поискать было бы неплохо Все темы мусолились не один миллион раз

1) Поставить курсор:

Код: Выделить всё

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
'Использование: SetCursorPos X, Y

2) Имитировать нажатие:

Код: Выделить всё

Enum MouseClick
LeftDown = &H2
LeftUp = &H4
LeftClick = &H2 Or &H4
RightDown = &H8
RightUp = &H10
RightClick = &H8 Or &H10
MiddleDown = &H20
MiddleUp = &H40
MiddleClick = &H20 Or &H40
End Enum

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)

Sub Click(Flag As MouseClick)
mouse_event Flag, 0&, 0&, 0&, 0&
End Sub

3) Засунуть переменную в буфер:

Код: Выделить всё

Dim Var As Variant

Sub Form_Load()
Var = "Бла-бла-бла!!!"
Clipboard.SetText Var
MsgBox Clipboard.GetText
Var = -654.32
Clipboard.SetText Var
MsgBox Clipboard.GetText
End Sub

[Murcielago]

Благодарю за помощь!