Помогите пожалуйста написать программу. Она представляет из себя запущенный процесс, который запускается при включении компа. А при нажатии Alt + C курсор мыши появлялся по центру экрана.
Понятия даже не имею, как это делать.
Отцентровка курсора
Страница: 1
Сообщений 1 страница 17 из 17
Поделиться216.03.2011 20:36:58
- Активный участник
- Зарегистрирован: 02.02.2010
- Приглашений: 0
- Сообщений: 306
- Уважение: [+1/-0]
- Позитив: [+0/-0]
- Провел на форуме:
9 дней 5 часов - Последний визит:
27.04.2013 21:06:20
Код:
y=GetSystemMetrics_(#SM_CYSCREEN)/2 ; находим центр x=GetSystemMetrics_(#SM_CXSCREEN)/2 SetMouseXY(x,y) ; устанавливаем курсор
Отредактировано mirashic (16.03.2011 20:38:11)
Поделиться316.03.2011 20:46:41
- Активный участник
- Зарегистрирован: 02.02.2010
- Приглашений: 0
- Сообщений: 306
- Уважение: [+1/-0]
- Позитив: [+0/-0]
- Провел на форуме:
9 дней 5 часов - Последний визит:
27.04.2013 21:06:20
Procedure CreateSkrinWindow()
y=GetSystemMetrics_(#SM_CYSCREEN)/2
x=GetSystemMetrics_(#SM_CXSCREEN)/2SetMouseXY(x,y)
;MessageRequester("", "Нажаты кнопки Alt + C")
EndProcedureOpenWindow(0, -1000, 0, 0, 0, "Окно", #PB_Window_SystemMenu)
HotKeysInit() ; Инициализация библиотеки HotKeys
HotKeyAdd(WindowID(0), #VK_C, @CreateSkrinWindow(), "SkrinWin", 0,1,0)
Repeat
Event=HotkeyWaitWindowEvent()
Until Event=#PB_Event_CloseWindow
Отредактировано mirashic (16.03.2011 20:47:37)
Поделиться416.03.2011 20:48:33
Как-то так:
Код:
ExamineDesktops()
Repeat
If GetAsyncKeyState_(#VK_MENU) And GetAsyncKeyState_(#VK_C)<0
SetCursorPos_(DesktopWidth(0)/2, DesktopHeight(0)/2)
EndIf
Delay(100)
ForEver
EndПоделиться516.03.2011 20:56:17
Да, лействительно. Работает, но можно ли узнать, что отвечает за клавиши
Поделиться616.03.2011 20:59:43
- Активный участник
- Зарегистрирован: 02.02.2010
- Приглашений: 0
- Сообщений: 306
- Уважение: [+1/-0]
- Позитив: [+0/-0]
- Провел на форуме:
9 дней 5 часов - Последний визит:
27.04.2013 21:06:20
Сергей написал(а):
что отвечает за клавиши
есть таблица, ссылка выше.
GetAsyncKeyState_() или функция из друпии HotKeyAdd()
Поделиться716.03.2011 21:01:55
Да и если я например видоизменю код.
Как сделать, чтобы одного q было мало, а надо было нажимать alt + q для завершения процесса
Код:
ExamineDesktops()
Repeat
If GetAsyncKeyState_(#VK_MENU) And GetAsyncKeyState_($43)<0
SetCursorPos_(DesktopWidth(0)/2, DesktopHeight(0)/2)
EndIf
Delay(100)
Until KeyboardPushed(#PB_Key_Q)насколько я понимаю надо вместо пушед писать GetAsyncKeyState
Отредактировано Сергей (16.03.2011 21:04:07)
Поделиться816.03.2011 21:04:57
В моем коде, опрес кнопок производится WinAPI функцией GetAsyncKeyState.
#VK_MENU это Alt.
#VK_C - кнопка C.
Поделиться916.03.2011 21:08:11
Сергей написал(а):
надо было нажимать alt + q для завершения процесса
Код:
ExamineDesktops()
Repeat
If GetAsyncKeyState_(#VK_MENU) And GetAsyncKeyState_(#VK_C)<0
SetCursorPos_(DesktopWidth(0)/2, DesktopHeight(0)/2)
EndIf
Delay(100)
Until GetAsyncKeyState_(#VK_Q) And GetAsyncKeyState_(#VK_MENU)
EndПоделиться1016.03.2011 21:22:22
Вот так правильно вроде бы, но ершил перестраховаться. проверьте пожалуйста.
Код:
ExamineDesktops()
Repeat
If GetAsyncKeyState_(#VK_MENU) And GetAsyncKeyState_(#VK_C)<0
SetCursorPos_(DesktopWidth(0)/2, DesktopHeight(0)/2)
ElseIf GetAsyncKeyState_(#VK_MENU) And GetAsyncKeyState_(#VK_Q)<0
End
EndIf
Delay(100)
ForEverПоделиться1116.03.2011 21:25:23
Хотелось бы сделать отправку программы в трей для возможности выхода без нажатия кнопок, попап меню и приветствие при ее запуске. если меню я знаю, как сделать, то как сделать приветствие и трей, не знаю.
Поделиться1216.03.2011 21:34:39
Сергей написал(а):
отправку программы в трей для возможности выхода без нажатия кнопок
Попробуй справку почитать - иногда быстрее получается, чем на форуме клянчить.
Раздел PureBasic - SysTray
И по ключевым словам трея поиск - увидишь море кода с меню!
Поделиться1316.03.2011 21:38:18
Сергей написал(а):
как сделать, то как сделать приветствие и трей, не знаю
Примеры работы с треем есть здесь ftp://ftp.radio.ru/pub/2008/05/PureBasic.zip
Да и в справке в разделе SysTray есть описание функций и примеры.
Приветствие это обычное окно, которое отображается на экране в течение нескольких секунд, а затем, закрывается.
Поделиться1417.03.2011 16:10:02
Пётр написал(а):
Приветствие это обычное окно, которое отображается на экране в течение нескольких секунд, а затем, закрывается
на а как его по оакончании этих нескольки минут закрывать?
Поделиться1517.03.2011 17:50:09
Сергей написал(а):
а как его по оакончании этих нескольки минут закрывать?
Дарю идею:
Код:
If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) Delay(2000) Quit=1 Repeat If Quit=1 ;AnimateWindow_(WindowID(0),500,#AW_BLEND|#AW_HIDE) AnimateWindow_(WindowID(0),500,#AW_CENTER|#AW_HIDE) ;AnimateWindow_(WindowID(0),500,#AW_HOR_NEGATIVE|#AW_HIDE) ;AnimateWindow_(WindowID(0),500,#AW_HOR_POSITIVE|#AW_HIDE) ;AnimateWindow_(WindowID(0),500,#AW_VER_NEGATIVE|#AW_HIDE) ;AnimateWindow_(WindowID(0),500,#AW_VER_POSITIVE|#AW_HIDE) EndIf Until Quit=1 EndIf
Раскомментируй любой эффект, который тебе понравится!
Отредактировано ВиниПур (17.03.2011 17:51:25)
Поделиться1617.03.2011 17:57:23
При таком раскладе, цикл и условный оператор не нужен.
Поделиться1717.03.2011 18:24:43
Пётр написал(а):
При таком раскладе, цикл и условный оператор не нужен.
Ну это я на перспективу. А так то конечно, 3 строчки вполне достаточно.
Страница: 1