Работа с мышкой HELP

[Predator]

Подскажите как создать кусок кода который будет выполнять нажатье левой кнопкой мыши...

Необходима строчка кода которая будет осуществлять нажатие мыши...

если непонятно спросил скажите что уточнить...

Заранее спасибки

[DirectXManiac]

Predator
Насколько я понял ты хочешь имитировать клик мышки на каком либо контроле? Или в общем на форме?

[Predator]

мне нужно чтоб программа имитировала клик мыши на сторонней программе потом....

запущены 2 программы одна моя другая сторонняя

в моей стоит через сколько времени нажимать на мышку

мыш подводится в окно другой и поисходит событие клик - следовательно в сторонней проге происходит нажати на кнопку....

[AnarCky]

Почитай... это вырезка из справочника по API функциям. Вроде то что надо...

[Predator]

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



Public Class Form1

    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 Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Form1.mouse_event(&H2, 0, 0, 0, 0) ----- ошибка
        Form1.mouse_event(&H4, 0, 0, 0, 0) -----ошибка
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Timer1.Enabled = False
    End Sub
End Class


незаработало.... или я что-то неверно понял?

[Predator]

вот идея проги

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

Public Class Form1

    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 MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move
    Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
    Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
    Private Const MOUSEEVENTF_MOVE = &H1 ' mouse move
    Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Private Const MOUSEEVENTF_MIDDLEUP = &H40
    Private Const MOUSEEVENTF_RIGHTDOWN = &H8
    Private Const MOUSEEVENTF_RIGHTUP = &H10
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x As Integer
        x = Val(Me.TextBox1.Text)
        x = x + 1
        Me.TextBox1.Text = x
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.TextBox1.Text = "да"
        mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)


    End Sub
End Class

там где mouse_event() - ошибка следующего содержания

A call to PInvoke function 'WindowsApplication1!WindowsApplication1.Form1::mouse_event' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.

плиз жду помощи.....

[Viper]

Замени в Declare Long на Integer и получай наслаждение. А затем добро пожаловать в MSDN в целях просветления за типы данных и их размеры в байтах.

[Predator]

огромное спасибо тебе
я обявление брал из API Списков

скажи где можно скачать MSDN актуальной версии

[Viper]

Тынц. Ну и по окрестностям...