Помогите начинающему :(

[Kronc]

Совсем недавно стал изучать VB...но такая проблема и нигде не могу найти точного решения.
Смысл такой:
Если пиксель в х у = цвету а, то мышью двигаем туда
Понимаю тупой вопрос...
Но что то ни в одном учебнике этот пример не рассматривается

[BV]

Point/GetPixel
SetCursorPos

[Kronc]

Мда что то работа моя зашла в тупик. Никто не знает есть ли исходники кликера, который при пикселе А в точке Б бьет по нему мышью?
Уже ночь не сплю пытаюсь написать
Помогите а то я скоро копыта откину

[alibek]

Тебе уже дали ответ.
Требуется только найти описание этих API-функций в MSDN.

[Debugger]

При помощи цикла (идёш не ПО 1, А ПО Screen.TwipsPerPixelX и Y) проходишся по ширине картинке n раз (n это длинна картинки). GetPixel'ишь пускай с и n. Получаешь цвет типа Long. Сравниваешь его и т.д.

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


Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub JumpCursor(x, y)
SetCursorPos x, y
End Sub

Private Sub ........
Dim clr As Long
Dim x As Integer
Dim y As Integer
Dim a As Long
For x = 0 To pic.Width Step Screen.TwipsPerPixelX
    For y = 0 To pic.Height Step Screen.TwipsPerPixelY
        clr = GetPixel(pic.hdc, x / Screen.TwipsPerPixelX, y / Screen.TwipsPerPixelY)
        If clr = a Then
            JumpCursor (Me.Left + x) / 15, (Me.Top + y) / 15
            Exit Sub
        End If
    Next
Next
End Sub


[keks-n]

Народ, судя по "кликеру" ему надо не просто переместить мышь, а ещё и нажать куда надо. Посему нужно заменить SetCursorPos на mouse_event

[Paladium]

Сопутствуюший вопрос товаришю Kronc.
УПРОСТИМ ПРИМЕР
Решение может быть простым.
Ты хочеш чтоб мышка находясь над формой к примеру над кнопкой которую назовем пиксель, ну типа ОЧЕНЬ большой пиксель. Так чтоб мышка нажала на ету кнопку.
Ты подобный вопрос задаеш? Ибо все что видиш на мониторе состоит из пикселей.

[Amed]

Paladium, не в тему. Пиксель - это пиксель, а никак не кнопка.

[Paladium]

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

ТАК ВОТ ПРЕДСТАВИМ КНОПКУ ЗА ПИКСЕЛЬ

Предлагаю продолжить с того на чем остановились.

[Amed]

Paladium, устное предупреждение. В первом же ответе было дано простое решение.

[Debugger]

Ага, представляешь, у тя видео 1024*512! ! Ты запаришься добавлять кнопочки, потом менять их проперти, потом ещё, кстати и тормозить будет. Мой код очень, очень простой.

Народ, судя по "кликеру" ему надо не просто переместить мышь, а ещё и нажать куда надо. Посему нужно заменить SetCursorPos на mouse_event

А "кликнуть" можно и по другому: просто вызвать процедуру с необходимыми аргубентами: Object_MouseDown(X,Y,не помню чё...)

[Kovu]

Debugger
Ну конечно, как я мог забыть, у всех окон вне твоего приложения, есть такой метод, и причём его можно без проблем вызвать не используя АПи...

[Kronc]

Терь постоянный глюк

Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Compile error:
Blablabla Declare Statements not allowed as Public members of object modules

[Amed]

В код формы вставляешь... Надо писать

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

Private Declare Sub

Срочно учить матчасть, ламо!

[Amed]

Не бойся, Kronc, покажи код.

[RayShade]

Amed

Как то это, прямо двусмысленно звучит А вдруг, Kronc не девушка, а?