Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private ScreenRect As RECT
Private WindowRect As RECT
Private ClipMode As Boolean
Private Sub Command1_Click()
ClipMode = Not ClipMode
If (ClipMode) Then
Call GetWindowRect(Me.hWnd, WindowRect)
Call ClipCursor(WindowRect)
Else
Call ClipCursor(ScreenRect)
End If
End Sub
Private Sub Form_Load()
Call GetClipCursor(ScreenRect)
End Sub
Private Sub Form_Terminate()
Call ClipCursor(ScreenRect)
End Sub
Private Sub Form_Paint()
Call GetWindowRect(Me.hwnd, WindowRect)
Call ClipCursor(WindowRect)
End Sub
Private Sub Form_Resize()
If (Me.WindowState = vbNormal) Then
Call GetWindowRect(Me.hwnd, WindowRect)
Call ClipCursor(WindowRect)
Else
Call ClipCursor(ScreenRect)
End If
End Sub
Private Sub Form_Load()
PP = "Внимание! Дорогой мой пользователь," + vbCrLf
PP = PP + "если курсор выйдет за пределы формы," + vbCrLf
PP = PP + "то компьютер перезагрузится." + vbCrLf
MsgBox PP, 48, " Предупреждение!"
End Sub
GreenT писал(а):Меня всегда поражало, как можно выкладывать примеры которые не работают. Ладно бы просто не работали, так вообще не запускаются по причине ошибок в коде.
skiperski, на этом месте
Call GetClipCursor(ScreenRect)
пишет функция нот дефайнд.
GreenT писал(а):Моё замечание относилось не к вам, а было сделано вообще
GreenT писал(а):Я бы из API Viewer скопировал, да только не знаю какую функцию там искать. И обьявил бы, если бы знал что.
на этом месте
Call GetClipCursor(ScreenRect)
пишет функция нот дефайнд.
Amed писал(а):замени Call GetClipCursor(ScreenRect) на Call ClipCursor(ScreenRect)
Amed писал(а):А потом сразу:
Me.Move 0,0,2500,2500
Randomize
SetCursorPos 500+rnd*250, 500+rnd*250
ExitWindowsEx EWX_FORCE, 0
Это чтобы не расслаблялся![]()
GreenT - замени Call GetClipCursor(ScreenRect) на Call ClipCursor(ScreenRect)
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 9