Окно поверх всех, движение мышки.

[Niko]

добрый день!
у меня есть два вопроса:
1. как сделать так что-бы окошко всегда было поверх всех остальных?
2. как заставить мышь двигаться "самостоятельно"?
---
честно искал и не только тут, но видимо плохо.
зарание спасибо.

[Viper]

1. Однозначно Поиск.
2. Поиск. Подсказка: например mouse_event.

З.Ы. Что-то мне кажется, что это даже в FAQ есть

[Niko]

спасибо буду искать дальше.

[zHackLeX]

API копай...
SetWindowPos для AlwaysOnTop
SetCursorPos для мышки...
Смотри код

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

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Sub Command1_Click()
    SetCursorPos Int(Rnd * Screen.Width / Screen.TwipsPerPixelX), Int(Rnd * Screen.Height / Screen.TwipsPerPixelY)
End Sub
Private Sub Form_Load()
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE 'Or &H40
End Sub

[Niko]

Огромное спасибо все работает.

[Niko]

И еще один вопрос
Это будет программа для игры в онлайн-игрушку.
Смогут ли разработчики игры узнать что играет не человек а программа?
Если да то можно ли это обойти?

[BV]

Смогут ли разработчики игры узнать что играет не человек а программа?

Нет.