позиция курсора

[strelec]

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

Option Explicit
Private Declare Function SetCursorPos Lib _
    "user32" (ByVal r As Long, ByVal r1 As Long) As Long
Dim pos As Single

Private Sub Command1_Click()
Dim x As Single
Dim y As Single
x = 100
y = 100
pos = SetCursorPos(x, y)
End Sub

кординати x меняется,а кординат y нет ,что делать ?

[Williams]

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

    <DllImport("user32.dll")> _
    Private Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As Boolean
    End Function

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetCursorPos(10, 10)
    End Sub

[strelec]

большое спс за ответ,шас такой вапрос как дат команду клик ?

[Денис]

большое спс за ответ,шас такой вапрос как дат команду клик ?

Программно? Просто вызови имя функции, которая ответственна за клик.

[strelec]

у меня Microsoft Visual Studio .NET 2003 и Microsoft Visual Basic 2008 Express Edition,я там не нашел АПИ функции , если не трудно пишите код заранее блогодарен

[Viper]

у меня Microsoft Visual Studio .NET 2003 и Microsoft Visual Basic 2008 Express Edition,я там не нашел АПИ функции , если не трудно пишите код заранее блогодарен

Код с использованием API приведен двумя постами выше.

[strelec]

у меня Microsoft Visual Studio .NET 2003 и Microsoft Visual Basic 2008 Express Edition,я там не нашел АПИ функции , если не трудно пишите код заранее блогодарен

Код с использованием API приведен двумя постами выше.

вапрос та новый =)

большое спс за ответ,шас такой вапрос как дат команду клик ?

[Viper]

Дык

[MIT]

"Дык" не во всех случаях поможет. Возможно придется прибегать к PostMessage.
strelec, какой тебе клик нужен, что ты им хочешь сделать?

[strelec]

"Дык" не во всех случаях поможет. Возможно придется прибегать к PostMessage.
strelec, какой тебе клик нужен, что ты им хочешь сделать?

значит я зделал удалений памошник пахожее на "radmin" вот я с удаленова компютера могу управлят мишкой но кликат на фаил или метит не могу , так как незнаю АПИ функцию "клик-а"
[Viper] :: Автор, на этом форуме принято писать грамотно, ставить запятые, точки и начинать предложения с заглавных букв. Для первого раза просто устное предупреждение!

[GPP]

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

Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2
    Private Const MOUSEEVENTF_LEFTUP As Integer = &H4
    Private Const MOUSEEVENTF_MIDDLEDOWN As Integer = &H20
    Private Const MOUSEEVENTF_MIDDLEUP As Integer = &H40
    Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8
    Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10

    ''' <summary>
    ''' Эмулирует нажатие на левую кнопку мыши
    ''' </summary>
    ''' <param name="p"></param>
    ''' <remarks></remarks>
    Public Sub LeftClick(Optional ByVal p As Integer = 0)
        Application.DoEvents()
        If p = 2 Then mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        If p = 1 Then mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    End Sub

    ''' <summary>
    ''' Эмулирует нажатие на правую кнопку мыши
    ''' </summary>
    ''' <param name="p"></param>
    ''' <remarks></remarks>
    Public Sub RightClick(Optional ByVal p As Integer = 0)
        Application.DoEvents()
        If p = 2 Then mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
        If p = 1 Then mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
    End Sub


А картинку ты уже научился передавать и получать ? Если что пиши в асю... все расскажу...

[strelec]

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

Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2
    Private Const MOUSEEVENTF_LEFTUP As Integer = &H4
    Private Const MOUSEEVENTF_MIDDLEDOWN As Integer = &H20
    Private Const MOUSEEVENTF_MIDDLEUP As Integer = &H40
    Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8
    Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10

    ''' <summary>
    ''' Эмулирует нажатие на левую кнопку мыши
    ''' </summary>
    ''' <param name="p"></param>
    ''' <remarks></remarks>
    Public Sub LeftClick(Optional ByVal p As Integer = 0)
        Application.DoEvents()
        If p = 2 Then mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        If p = 1 Then mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    End Sub

    ''' <summary>
    ''' Эмулирует нажатие на правую кнопку мыши
    ''' </summary>
    ''' <param name="p"></param>
    ''' <remarks></remarks>
    Public Sub RightClick(Optional ByVal p As Integer = 0)
        Application.DoEvents()
        If p = 2 Then mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
        If p = 1 Then mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
    End Sub


А картинку ты уже научился передавать и получать ? Если что пиши в асю... все расскажу...

мне надо было код каторий написаль GPP
да, картинку получаю, но картинка большого размера идет 2+ МВ,вот если можно било уменьшит размер это былоби классно
большое спасибо за ответы,хороший форум
извините за мой русски язык