Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Function GetCursorPosition()
Dim Point As POINTAPI
GetCursorPos Point
'Point.X и Point.Y содержат координаты курсора
GetCursorPosition = "X: " & Point.X & " ___ Y: " & Point.Y
End Function
Отслеживание курсора мыши
Как отследить курсор мыши, зарисав перемещение в avi. ?:confused:
Как отследить положение курсора:
А вот на счет записи в avi.... ето надо тебе сначала изучить шестнадцатиричную и двоичную систему исчисления, найти и прочитать информацию о том как устроен формат avi файла, выучить ее, а уж потом браться за дело.
P.S. Я понимаю что ты новичек, но пожалуйста, научись формулировать свои вопроси правильно, твой вопрос должен например, звучать так: Как получать скриншот екрана и записывать их последовательность в avi файл.
Вот тебе еще функция получения скрина:
Контекст екрана будет скопирован в указаный тобою контекст, например в контекст твоего окна (например Form1.hDC)
Код:
А вот на счет записи в avi.... ето надо тебе сначала изучить шестнадцатиричную и двоичную систему исчисления, найти и прочитать информацию о том как устроен формат avi файла, выучить ее, а уж потом браться за дело.
P.S. Я понимаю что ты новичек, но пожалуйста, научись формулировать свои вопроси правильно, твой вопрос должен например, звучать так: Как получать скриншот екрана и записывать их последовательность в avi файл.
Вот тебе еще функция получения скрина:
Код:
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long
Function GetScreenShot(DCDest As Long)
Dim nDC As Long
nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)
BitBlt DCDest, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, nDC, 0, 0, vbSrcCopy
End Function
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long
Function GetScreenShot(DCDest As Long)
Dim nDC As Long
nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)
BitBlt DCDest, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, nDC, 0, 0, vbSrcCopy
End Function
Контекст екрана будет скопирован в указаный тобою контекст, например в контекст твоего окна (например Form1.hDC)