Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
chatton
Member

Откуда:
Сообщений: 117
Нужно сделать пример реализации программы, чтобы видно было - сначала такая-то форма открылась, выбираем там мышкой такую-то кнопочку и т.д.
17 ноя 06, 00:10    [3412386]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
chatton
Member

Откуда:
Сообщений: 117
В принципе, кнопка, на которую я нажимаю мышкой, выделяется
) чтобы нажать одновременно кнопку мыши, альт, принт скрин, пришлось задействовать нос :), оказывается принт скрин можно нажимать носом, предлагаю ввести метод слепой печати носом :)
17 ноя 06, 00:27    [3412406]     Ответить | Цитировать Сообщить модератору
 Re: Сменить Access 2002 на Access 2003  [new]
Alexey Syrok
Member

Откуда: из Одессы
Сообщений: 201
есть специальные программы
1. Просто принтскрин экрана (+/- курсор)
2. Запись типа видео всех Ваших движений и т.п.
17 ноя 06, 10:02    [3413132]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
Alexey Syrok
Member

Откуда: из Одессы
Сообщений: 201
да и расстояние между "Alt" и "Print Screen" у меня на клаве 13.5см => мне нос не понадобился, не буду печатать носом.
17 ноя 06, 10:04    [3413149]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
natalitvinenko
Member

Откуда: Донецк
Сообщений: 738
Пользую софт под названием 20/20 ( http://www.qumran.org/ftp/local/win/app/mm/2020s.zip )
17 ноя 06, 10:29    [3413319]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
LeonM
Member

Откуда: Bayern, Deutschland
Сообщений: 598
Можете попробовать эмулировать нажатие PrintScreen программно в ответ на нажатие опредененной клавиши. Я это делаю так (модуль класса)
Option Explicit

'LbKey

'Key codes
Private Const VK_LBUTTON As Integer = &H1
Private Const VK_RBUTTON As Integer = &H2
Private Const VK_CANCEL As Integer = &H3
Private Const VK_MBUTTON As Integer = &H4
Private Const VK_BACK As Integer = &H8
Private Const VK_TAB As Integer = &H9
Private Const VK_CLEAR As Integer = &HC
Private Const VK_RETURN As Integer = &HD
Private Const VK_SHIFT As Integer = &H10
Private Const VK_CONTROL As Integer = &H11
Private Const VK_MENU As Integer = &H12
Private Const VK_PAUSE As Integer = &H13
Private Const VK_CAPITAL As Integer = &H14
Private Const VK_ESCAPE As Integer = &H1B
Private Const VK_SPACE As Integer = &H20
Private Const VK_PRIOR As Integer = &H21
Private Const VK_NEXT As Integer = &H22
Private Const VK_END As Integer = &H23
Private Const VK_HOME As Integer = &H24
Private Const VK_LEFT As Integer = &H25
Private Const VK_UP As Integer = &H26
Private Const VK_RIGHT As Integer = &H27
Private Const VK_DOWN As Integer = &H28
Private Const VK_SELECT As Integer = &H29
Private Const VK_PRINT As Integer = &H2A
Private Const VK_EXECUTE As Integer = &H2B
Private Const VK_SNAPSHOT As Integer = &H2C
Private Const VK_INSERT As Integer = &H2D
Private Const VK_DELETE As Integer = &H2E
Private Const VK_HELP As Integer = &H2F
Private Const VK_0 As Integer = &H30
Private Const VK_1 As Integer = &H31
Private Const VK_2 As Integer = &H32
Private Const VK_3 As Integer = &H33
Private Const VK_4 As Integer = &H34
Private Const VK_5 As Integer = &H35
Private Const VK_6 As Integer = &H36
Private Const VK_7 As Integer = &H37
Private Const VK_8 As Integer = &H38
Private Const VK_9 As Integer = &H39
Private Const VK_A As Integer = &H41
Private Const VK_B As Integer = &H42
Private Const VK_C As Integer = &H43
Private Const VK_D As Integer = &H44
Private Const VK_E As Integer = &H45
Private Const VK_F As Integer = &H46
Private Const VK_G As Integer = &H47
Private Const VK_H As Integer = &H48
Private Const VK_I As Integer = &H49
Private Const VK_J As Integer = &H4A
Private Const VK_K As Integer = &H4B
Private Const VK_L As Integer = &H4C
Private Const VK_M As Integer = &H4D
Private Const VK_N As Integer = &H4E
Private Const VK_O As Integer = &H4F
Private Const VK_P As Integer = &H50
Private Const VK_Q As Integer = &H51
Private Const VK_R As Integer = &H52
Private Const VK_S As Integer = &H53
Private Const VK_T As Integer = &H54
Private Const VK_U As Integer = &H55
Private Const VK_V As Integer = &H56
Private Const VK_W As Integer = &H57
Private Const VK_X As Integer = &H58
Private Const VK_Y As Integer = &H59
Private Const VK_Z As Integer = &H5A
Private Const VK_STARTKEY As Integer = &H5B
Private Const VK_CONTEXTKEY As Integer = &H5D
Private Const VK_NUMPAD0 As Integer = &H60
Private Const VK_NUMPAD1 As Integer = &H61
Private Const VK_NUMPAD2 As Integer = &H62
Private Const VK_NUMPAD3 As Integer = &H63
Private Const VK_NUMPAD4 As Integer = &H64
Private Const VK_NUMPAD5 As Integer = &H65
Private Const VK_NUMPAD6 As Integer = &H66
Private Const VK_NUMPAD7 As Integer = &H67
Private Const VK_NUMPAD8 As Integer = &H68
Private Const VK_NUMPAD9 As Integer = &H69
Private Const VK_MULTIPLY As Integer = &H6A
Private Const VK_ADD As Integer = &H6B
Private Const VK_SEPARATOR As Integer = &H6C
Private Const VK_SUBTRACT As Integer = &H6D
Private Const VK_DECIMAL As Integer = &H6E
Private Const VK_DIVIDE As Integer = &H6F
Private Const VK_F1 As Integer = &H70
Private Const VK_F2 As Integer = &H71
Private Const VK_F3 As Integer = &H72
Private Const VK_F4 As Integer = &H73
Private Const VK_F5 As Integer = &H74
Private Const VK_F6 As Integer = &H75
Private Const VK_F7 As Integer = &H76
Private Const VK_F8 As Integer = &H77
Private Const VK_F9 As Integer = &H78
Private Const VK_F10 As Integer = &H79
Private Const VK_F11 As Integer = &H7A
Private Const VK_F12 As Integer = &H7B
Private Const VK_F13 As Integer = &H7C
Private Const VK_F14 As Integer = &H7D
Private Const VK_F15 As Integer = &H7E
Private Const VK_F16 As Integer = &H7F
Private Const VK_F17 As Integer = &H80
Private Const VK_F18 As Integer = &H81
Private Const VK_F19 As Integer = &H82
Private Const VK_F20 As Integer = &H83
Private Const VK_F21 As Integer = &H84
Private Const VK_F22 As Integer = &H85
Private Const VK_F23 As Integer = &H86
Private Const VK_F24 As Integer = &H87
Private Const VK_NUMLOCK As Integer = &H90
Private Const VK_OEM_SCROLL As Integer = &H91
Private Const VK_OEM_1 As Integer = &HBA
Private Const VK_OEM_PLUS As Integer = &HBB
Private Const VK_OEM_COMMA As Integer = &HBC
Private Const VK_OEM_MINUS As Integer = &HBD
Private Const VK_OEM_PERIOD As Integer = &HBE
Private Const VK_OEM_2 As Integer = &HBF
Private Const VK_OEM_3 As Integer = &HC0
Private Const VK_OEM_4 As Integer = &HDB
Private Const VK_OEM_5 As Integer = &HDC
Private Const VK_OEM_6 As Integer = &HDD
Private Const VK_OEM_7 As Integer = &HDE
Private Const VK_OEM_8 As Integer = &HDF
Private Const VK_ICO_F17 As Integer = &HE0
Private Const VK_ICO_F18 As Integer = &HE1
Private Const VK_OEM102 As Integer = &HE2
Private Const VK_ICO_HELP As Integer = &HE3
Private Const VK_ICO_00 As Integer = &HE4
Private Const VK_ICO_CLEAR As Integer = &HE6
Private Const VK_OEM_RESET As Integer = &HE9
Private Const VK_OEM_JUMP As Integer = &HEA
Private Const VK_OEM_PA1 As Integer = &HEB
Private Const VK_OEM_PA2 As Integer = &HEC
Private Const VK_OEM_PA3 As Integer = &HED
Private Const VK_OEM_WSCTRL As Integer = &HEE
Private Const VK_OEM_CUSEL As Integer = &HEF
Private Const VK_OEM_ATTN As Integer = &HF0
Private Const VK_OEM_FINNISH As Integer = &HF1
Private Const VK_OEM_COPY As Integer = &HF2
Private Const VK_OEM_AUTO As Integer = &HF3
Private Const VK_OEM_ENLW As Integer = &HF4
Private Const VK_OEM_BACKTAB As Integer = &HF5
Private Const VK_ATTN As Integer = &HF6
Private Const VK_CRSEL As Integer = &HF7
Private Const VK_EXSEL As Integer = &HF8
Private Const VK_EREOF As Integer = &HF9
Private Const VK_PLAY As Integer = &HFA
Private Const VK_ZOOM As Integer = &HFB
Private Const VK_NONAME As Integer = &HFC
Private Const VK_PA1 As Integer = &HFD
Private Const VK_OEM_CLEAR As Integer = &HFE

Private Const KEYEVENTF_EXTENDEDKEY As Long = &H1
Private Const KEYEVENTF_KEYUP As Long = &H2
Private Const INPUT_KEYBOARD As Long = 1

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" _
    (ByVal uCode As Long, ByVal uMapType As Long) As Long

Private Function VirtualToScan(ByVal uCode As Long) As Long
    VirtualToScan = MapVirtualKey(uCode, 0)
End Function
Private Function ScanToVirtual(ByVal uCode As Long) As Long
    ScanToVirtual = MapVirtualKey(uCode, 3)
End Function
Private Function VirtualToASCII(ByVal uCode As Long) As Long
    VirtualToASCII = MapVirtualKey(uCode, 2)
End Function

Private Sub pressrelease(vk As Integer)
    keybd_event vk, 0, 0, 0
    keybd_event vk, 0, KEYEVENTF_KEYUP, 0
End Sub
Public Sub TabKey()
    pressrelease VK_TAB
End Sub
Public Sub ReturnKey()
    pressrelease VK_RETURN
End Sub
Public Sub EscKey()
    pressrelease VK_ESCAPE
End Sub
Public Sub ContextMenu()
    pressrelease VK_CONTEXTKEY
End Sub
Public Sub FuncKey(ByVal i As Integer)
    Dim vk As Integer
    If i > 0 And i < 25 Then
        vk = VK_F1 - 1 + i
        pressrelease vk
    End If
End Sub

Public Sub AltPress()
    keybd_event VK_MENU, 0, 0, 0
End Sub
Public Sub CtrlPress()
    keybd_event VK_CONTROL, 0, 0, 0
End Sub
Public Sub ShiftPress()
    keybd_event VK_SHIFT, 0, 0, 0
End Sub
Public Sub WinPress()
    keybd_event VK_STARTKEY, 0, 0, 0
End Sub

Public Sub AltRelease()
    keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub
Public Sub CtrlRelease()
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
End Sub
Public Sub WinRelease()
    keybd_event VK_STARTKEY, 0, KEYEVENTF_KEYUP, 0
End Sub
Public Sub ShiftRelease()
    keybd_event VK_SHIFT, 0, KEYEVENTF_KEYUP, 0
End Sub

Private Function CharKey(c As String) As Integer
    Select Case UCase(c)
    Case " "
        CharKey = VK_SPACE
    Case "0"
        CharKey = VK_0
    Case "1"
        CharKey = VK_1
    Case "2"
        CharKey = VK_2
    Case "3"
        CharKey = VK_3
    Case "4"
        CharKey = VK_4
    Case "5"
        CharKey = VK_5
    Case "6"
        CharKey = VK_6
    Case "7"
        CharKey = VK_7
    Case "8"
        CharKey = VK_8
    Case "9"
        CharKey = VK_9
    Case "A"
        CharKey = VK_A
    Case "B"
        CharKey = VK_B
    Case "C"
        CharKey = VK_C
    Case "D"
        CharKey = VK_D
    Case "E"
        CharKey = VK_E
    Case "F"
        CharKey = VK_F
    Case "G"
        CharKey = VK_G
    Case "H"
        CharKey = VK_H
    Case "I"
        CharKey = VK_I
    Case "J"
        CharKey = VK_J
    Case "K"
        CharKey = VK_K
    Case "L"
        CharKey = VK_L
    Case "M"
        CharKey = VK_M
    Case "N"
        CharKey = VK_N
    Case "O"
        CharKey = VK_O
    Case "P"
        CharKey = VK_P
    Case "Q"
        CharKey = VK_Q
    Case "R"
        CharKey = VK_R
    Case "S"
        CharKey = VK_S
    Case "T"
        CharKey = VK_T
    Case "U"
        CharKey = VK_U
    Case "V"
        CharKey = VK_V
    Case "W"
        CharKey = VK_W
    Case "X"
        CharKey = VK_X
    Case "Y"
        CharKey = VK_Y
    Case "Z"
        CharKey = VK_Z
    Case Else
        CharKey = 0
    End Select
End Function

Public Sub StringKey(s As String)
    Dim i As Long, k As Integer
    For i = 1 To Len(s)
        k = CharKey(Mid(s, i, 1))
        If k <> 0 Then pressrelease k
    Next i
End Sub

Public Sub Cls()
    WinPress
    StringKey "d"
    WinRelease
End Sub

Public Sub PrintScreen()
    pressrelease VK_SNAPSHOT
End Sub
Public Sub AltPrintScreen()
    AltPress
    pressrelease VK_SNAPSHOT
    AltRelease
End Sub
17 ноя 06, 10:48    [3413477]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
bubucha
Member

Откуда:
Сообщений: 5642
Какоей-то узкозацикленный подход к решению проблемы. Берем камеру, направляем на монитор....дальше рассказывать?
17 ноя 06, 10:51    [3413505]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
LeonM
Member

Откуда: Bayern, Deutschland
Сообщений: 598
bubucha
Какоей-то узкозацикленный подход к решению проблемы. Берем камеру, направляем на монитор....дальше рассказывать?

Да.
17 ноя 06, 13:06    [3414828]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
chatton
Member

Откуда:
Сообщений: 117
автор
да и расстояние между "Alt" и "Print Screen" у меня на клаве 13.5см => мне нос не понадобился, не буду печатать носом.


Действительно, я забыла про вторую клавишу альт, я всегда пользуюсь левой.

ЗЫ: Мы не ищем легких путей :)
17 ноя 06, 14:56    [3415856]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
chatton
Member

Откуда:
Сообщений: 117
автор
Можете попробовать эмулировать нажатие PrintScreen программно


Впечатляет! Слишком сложно это, а я думала, что может, настройки какие есть для мыши, которые надо изменить..
17 ноя 06, 14:59    [3415871]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
chatton
Member

Откуда:
Сообщений: 117
автор
Берем камеру, направляем на монитор....


Оригинально! Камера не моя, трогать нежелательно, да и какой-то способ сильный - пушкой по воробьям, стоит ли это того (мои преподы все равно не оценят мои старания)
17 ноя 06, 15:02    [3415898]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
chatton
Member

Откуда:
Сообщений: 117
автор
Пользую софт под названием 20/20 ( http://www.qumran.org/ftp/local/win/app/mm/2020s.zip )


Сейчас попробую.. А там .ехе надо запустить и все?
17 ноя 06, 15:04    [3415922]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
natalitvinenko
Member

Откуда: Донецк
Сообщений: 738
Инсталлировать нужно.
17 ноя 06, 15:11    [3415987]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
iiiiiiiiiiiiiiiiiiii
Guest
как вариант:

для пробы скопировал рисунок курсора (из Пуск/Натройки/ПанельУправления/Мышь) сделал из ее рисунок с прозрачным фоном (сам курсор залил (249,249,249)), и сохранил.

таперича могу фтыкать курсор ф катринки ф стандартном пейнте и двигать куда хочу.

Для массового производства хелпа изврат, нешна, но пару десятков кадров разрисовать в обычном пейнте - сайдёт. имхо.
17 ноя 06, 15:12    [3415995]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
chatton
Member

Откуда:
Сообщений: 117
natalitvinenko
Инсталлировать нужно.


Установила, а дальше какая технология? я в английском плохо, хотя бы примерно.. или то же самое: принт скрин, а потом в эту прогу вставить? или там сначала нужно какой-то параметр задать для мышки?
17 ноя 06, 15:16    [3416042]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
bubucha
Member

Откуда:
Сообщений: 5642
LeonM
Да.

фтыкаем в имеющееся отверстие сзади компа (s-video, usb...) и имеем 25-50 принтскринов в секунду (зависит от желания)...ну дальше, имхо объяснять нечего
(в каждой шутке, как говорится, есть...... таким образом (почти таким) удалось выявить, якобы глюки торгового оборудования и софта на одной из точек...смешно?...слаб человек, глюк был локализован и...уволен )
17 ноя 06, 15:20    [3416079]     Ответить | Цитировать Сообщить модератору
 Re: Пользуюсь принт скрином для печати экрана, как сделать видимым указатель мыши?  [new]
chatton
Member

Откуда:
Сообщений: 117
iiiiiiiiiiiiiiiiiiii
как вариант:

для пробы скопировал рисунок курсора (из Пуск/Натройки/ПанельУправления/Мышь) сделал из ее рисунок с прозрачным фоном (сам курсор залил (249,249,249)), и сохранил.

таперича могу фтыкать курсор ф катринки ф стандартном пейнте и двигать куда хочу.

Для массового производства хелпа изврат, нешна, но пару десятков кадров разрисовать в обычном пейнте - сайдёт. имхо.


Я кстати что-то подобное проделала с меню параметра, т.к. при нажатии альт принт скрин, видно только его окошко, а я хотела, чтобы и остальные видно было (если просто принт скрин, то изображение получалось меньше, чем у меня было до этого) и я вставляла предыдущую картинку альт принт скрин в пейнт, а потом вставляла в нее окно параметра - принт скрин и двигала, в общем можно попробовать Ваш способ, но раз уж я скачала прогу, надо пользоваться, может, мне тогда и не понадобиться извращаться :)
17 ноя 06, 15:22    [3416100]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить