Серый форум — AHK: экранная лупа на AutoHotkey

Re: AHK: экранная лупа на AutoHotkey

2012-06-11T20:09:03Z

Grey пишет:

Хорошо я попробовал:

Ну в код вникать я не стал, но там в функции "ChangeZoom" используются возвращаемые значения неверного типа.

код пишет:

hdC:=DllCall("GetDC", "Ptr", 0)
должно быть:
hdC:=DllCall("GetDC", "ptr", 0, "ptr")

Далее- в "NumPut" почти никогда не указывается тип значения. Не знаю в каком именно месте это необходимо сделать, но я проставил везде и окно скрипта появилось.
Хотя работает немножко по-дэбильному, но это, наверно, проблема не x64 .

Re: AHK: экранная лупа на AutoHotkey

2012-06-10T18:59:19Z

Хорошо я попробовал:

#NoEnv
SetBatchLines, -1
CoordMode, Pixel
Run, % "net stop uxsms",, Hide
hModule:=DllCall("LoadLibrary", "Str", "gdiplus.dll")
VarSetCapacity(GdiplusStartupInput, A_PtrSize=8 ? 24:16, 0)
NumPut(1, GdiplusStartupInput, 0, "Char")
DllCall("gdiplus\GdiplusStartup", "Ptr*", pToken
                                , "Ptr", &GdiplusStartupInput
                                , "Ptr", 0)
VarSetCapacity(BITMAPINFO, 44, 0)
NumPut(40, BITMAPINFO, 0), NumPut(1, BITMAPINFO, 12, "UShort")
NumPut(32, BITMAPINFO, 14, "UShort"), NumPut(0, BITMAPINFO, 16)
VarSetCapacity(Size, 8, 0), ChangeZoom(10)
SetTimer, UpdWindow, 250
OnExit, ExitScript

1::ChangeZoom(5)
2::ChangeZoom(10)
3::ChangeZoom(15)

UpdWindow:
   Loop, % Var1
      GdipDrawLine(A_Index-1)
   NumPut(Var0, Size, 0), NumPut(Var0, Size, 4)
   DllCall("UpdateLayeredWindow", "Ptr", GUIhWnd
                                , "Ptr", 0
                                , "Ptr", 0
                                , "Ptr", &Size
                                , "Ptr", hMemDC
                                , "Int64*", 0
                                , "Ptr", 0
                                , "Ptr*", 0x01FF0000
                                , "UInt", 2)
   Return

ExitScript:
   DllCall("gdiplus\GdiplusShutdown", "Ptr", pToken)
   DllCall("FreeLibrary", "Ptr", hModule)
   Run, % "net start uxsms",, Hide
   ExitApp

GdipDrawLine(Y)
{
   global
   Loop, % Var1
   {
      PixelGetColor, CurrentColor, A_ScreenWidth//2-Var2+A_Index-1
                                 , A_ScreenHeight//2-Var2+Y, RGB
      DllCall("gdiplus\GdipSetSolidFillColor", "Ptr", pBrush
                                             , "UInt", CurrentColor
                                                     | 0xFF000000)
      DllCall("gdiplus\GdipFillRectangle", "Ptr", pGraphics
                                         , "Ptr", pBrush
                                         , "Float", (A_Index-1)*Var3
                                         , "Float", Y*Var3
                                         , "Float", Var3
                                         , "Float", Var3)
   }
}

ChangeZoom(ZSize)
{
   global
   Gui, Destroy
   Var0:=ZSize=5 ? 155:ZSize=10 ? 150:165
   Var1:=ZSize=5 ?  31:ZSize=10 ?  15: 11
   Var2:=ZSize=5 ?  15:ZSize=10 ?   7:  5
   Var3:=ZSize=5 ?   5:ZSize=10 ?  10: 15
   Gui, +AlwaysOnTop -Caption +E0x80000 +HwndGUIhWnd +Owner
   Gui, Show, % "w"Var0 " h"Var0
   WinMove, % "ahk_id"GUIhWnd,, A_ScreenWidth//2-Var0/2
                              , A_ScreenHeight//2-Var0/2
   NumPut(Var0, BITMAPINFO, 4), NumPut(Var0, BITMAPINFO, 8)
   hdC:=DllCall("GetDC", "Ptr", 0)
   hBitmap:=DllCall("CreateDIBSection", "Ptr", hDC
                                      , "Ptr", &BITMAPINFO
                                      , "UInt", 0
                                      , "Ptr", 0
                                      , "Ptr", 0
                                      , "UInt", 0)
   DllCall("ReleaseDC", "Ptr", 0, "Ptr", hDC)
   hMemDC:=DllCall("CreateCompatibleDC", "Ptr", 0)
   DllCall("SelectObject", "Ptr", hMemDC, "Ptr", hBitmap)
   DllCall("gdiplus\GdipCreateFromHDC", "Ptr", hMemDC
                                      , "Ptr*", pGraphics)
   DllCall("gdiplus\GdipCreateSolidFill", "Int", 0, "Ptr*", pBrush)
   TrayTip,, % ZSize "x"
}

у меня не сработало на х64, интересно какой код будет у Вас.

teadrinker пишет:

...писать не хочется.

Если честно, то да, не хочется.

Re: AHK: экранная лупа на AutoHotkey

2012-06-09T22:54:38Z

teadrinker пишет:

Плюс ещё не забывать о выравнивании.

Ну дык оно тоже есть и в x86 и в x64 .

Re: AHK: экранная лупа на AutoHotkey

2012-06-09T22:05:26Z

Александр_ пишет:

Да ладно, там всего одно правило- видишь указатель/хендл/{параметр, который можно использовать как указатель(например LPARAM)}, пишешь "ptr".

Плюс ещё нужно добавлять в конце "Ptr", когда функция возвращает поинтер либо хэндл, ибо по умолчанию "Int".

Александр_ пишет:

При составлении структур тоже самое, только прибавляешь PtrSize- отступы ты при любом раскладе должен считать.

Плюс ещё не забывать о выравнивании.

Re: AHK: экранная лупа на AutoHotkey

2012-06-09T21:55:36Z

teadrinker пишет:

Видимо, у Grey'я нет доступа к 64-битной системе, а код, который невозможно проверить, писать не хочется. Кстати, дополнительные усилия требуются, когда дело доходит до составления структур.

Да ладно, там всего одно правило- видишь указатель/хендл/{параметр, который можно использовать как указатель(например LPARAM)}, пишешь "ptr". При составлении структур тоже самое, только прибавляешь PtrSize- отступы ты при любом раскладе должен считать.

Re: AHK: экранная лупа на AutoHotkey

2012-06-09T21:48:02Z

Видимо, у Grey'я нет доступа к 64-битной системе, а код, который невозможно проверить, писать не хочется. Кстати, дополнительные усилия требуются, когда дело доходит до составления структур.

Re: AHK: экранная лупа на AutoHotkey

2012-06-09T21:33:54Z

Grey пишет:

Писалось для AHK_L Unicode x86.

Может имеет смысл писать код, совместимый как с x86, так и с x64? Тем более, что дополнительных усилий для этого не требуется.

Re: AHK: экранная лупа на AutoHotkey

2012-06-09T21:27:24Z

Gabe_#33 пишет:

...в какой строке находится значение с зумом?

Это эмуляция увеличения, тут на общий вид влияют несколько значений (я представил их в коде ввиде переменных):

#NoEnv
SetBatchLines, -1
CoordMode, Pixel
;DllCall("dwmapi\DwmEnableComposition", "UInt", False)
Run, % "net stop uxsms",, Hide
hModule:=DllCall("LoadLibrary", "Str", "gdiplus.dll")
VarSetCapacity(GdiplusStartupInput, 16, 0)
NumPut(1, GdiplusStartupInput, 0, "Char")
DllCall("gdiplus\GdiplusStartup", "UInt*", pToken
                                , "UInt", &GdiplusStartupInput)
VarSetCapacity(BITMAPINFO, 40, 0), NumPut(40, BITMAPINFO, 0)
NumPut(1, BITMAPINFO, 12, "UShort"), NumPut(32, BITMAPINFO, 14, "UShort")
NumPut(0, BITMAPINFO, 16), ChangeZoom(10)
SetTimer, UpdWindow, 250
OnExit, ExitScript

1::ChangeZoom(5)
2::ChangeZoom(10)
3::ChangeZoom(15)

UpdWindow:
   Loop, % Var1
      GdipDrawLine(A_Index-1)
   DllCall("UpdateLayeredWindow", "UInt", GUIhWnd
                                , "UInt", 0
                                , "UInt", 0
                                , "Int64*", Var0|Var0<<32
                                , "UInt", hMemDC
                                , "Int64*", 0
                                , "UInt", 0
                                , "UInt*", 0x01FF0000
                                , "UInt", 2)
   Return

ExitScript:
   DllCall("gdiplus\GdiplusShutdown", "UInt", pToken)
   DllCall("FreeLibrary", "UInt", hModule)
;   DllCall("dwmapi\DwmEnableComposition", "UInt", True)
   Run, % "net start uxsms",, Hide
   ExitApp

GdipDrawLine(Y)
{
   global
   Loop, % Var1
   {
      PixelGetColor, CurrentColor, A_ScreenWidth//2-Var2+A_Index-1
                                 , A_ScreenHeight//2-Var2+Y, RGB
      DllCall("gdiplus\GdipSetSolidFillColor", "UInt", pBrush
                                             , "UInt", CurrentColor
                                                     | 0xFF000000)
      DllCall("gdiplus\GdipFillRectangle", "UInt", pGraphics
                                         , "UInt", pBrush
                                         , "Float", (A_Index-1)*Var3
                                         , "Float", Y*Var3
                                         , "Float", Var3
                                         , "Float", Var3)
   }
}

ChangeZoom(ZSize)
{
   global
   Gui, Destroy
   Var0:=ZSize=5 ? 155:ZSize=10 ? 150:165
   Var1:=ZSize=5 ?  31:ZSize=10 ?  15: 11
   Var2:=ZSize=5 ?  15:ZSize=10 ?   7:  5
   Var3:=ZSize=5 ?   5:ZSize=10 ?  10: 15
   Gui, +AlwaysOnTop -Caption +E0x80000 +HwndGUIhWnd +Owner
   Gui, Show, % "w"Var0 " h"Var0
   WinMove, % "ahk_id"GUIhWnd,, A_ScreenWidth//2-Var0/2
                              , A_ScreenHeight//2-Var0/2
   NumPut(Var0, BITMAPINFO, 4), NumPut(Var0, BITMAPINFO, 8)
   hBitmap:=DllCall("CreateDIBSection", "UInt", hDC
                                      , "UInt", &BITMAPINFO
                                      , "UInt", 0
                                      , "UInt*", 0
                                      , "UInt", 0
                                      , "UInt", 0)
   DllCall("ReleaseDC", "UInt", 0, "UInt", hDC)
   hMemDC:=DllCall("CreateCompatibleDC", "UInt", 0)
   DllCall("SelectObject", "UInt", hMemDC, "UInt", hBitmap)
   DllCall("gdiplus\GdipCreateFromHDC", "UInt", hMemDC
                                      , "UInt*", pGraphics)
   DllCall("gdiplus\GdipCreateSolidFill", "Int", 0, "UInt*", pBrush)
   TrayTip,, % ZSize "x"
}

Gabe_#33 пишет:

Возможно ли убрать вот это - ... Если да то как?

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

teadrinker пишет:

...в связи с тем, что сейчас существуют несколько альтернативных версий AHK, ...желательно указывать, для какой версии написан код...

Писалось для AHK_L Unicode x86.

Re: AHK: экранная лупа на AutoHotkey

2012-06-08T15:19:57Z

Grey, в связи с тем, что сейчас существуют несколько альтернативных версий AHK, главные из которых AHK_L Unicode x86 и AHK_L Unicode x64, желательно указывать, для какой версии написан код, либо писать универсальный (но всё равно версию стоит указать, т. к. некоторые ещё используют AHK-basic).

Re: AHK: экранная лупа на AutoHotkey

2012-06-07T14:22:58Z

Grey,а в какой строке находится значение с зумом?
Возможно ли убрать вот это - "Цветовая схема изменена на упрощённый стиль"при включении скрипта.Что бы цветовая схема не затрагивалась. Если да то как?

Re: AHK: экранная лупа на AutoHotkey

2012-06-06T22:38:06Z

Выше был пример со слежением за самим курсором, вот пример (не редактирую код выше специально, чтобы можно было понять разницу) с фокусировкой на центр экрана:

#NoEnv
SetBatchLines, -1
CoordMode, Pixel
DllCall("dwmapi\DwmEnableComposition", "UInt", False)
Gui, +AlwaysOnTop -Caption +E0x80000 +HwndGUIhWnd +Owner
Gui, Show, w150 h150, 10xZoom
WinMove, % "ahk_id"GUIhWnd,, A_ScreenWidth//2-76, A_ScreenHeight//2-76
hModule:=DllCall("LoadLibrary", "Str", "gdiplus.dll")
VarSetCapacity(GdiplusStartupInput, 16, 0)
NumPut(1, GdiplusStartupInput, 0, "Char")
DllCall("gdiplus\GdiplusStartup", "UInt*", pToken, "UInt", &GdiplusStartupInput)
VarSetCapacity(BITMAPINFO, 40, 0)
NumPut(40, BITMAPINFO, 0)
NumPut(150, BITMAPINFO, 4) ; biWidth
NumPut(150,BITMAPINFO, 8) ; biHeight
NumPut(1, BITMAPINFO, 12, "UShort")
NumPut(32, BITMAPINFO, 14, "UShort")
NumPut(0, BITMAPINFO, 16)
hBitmap:=DllCall("CreateDIBSection", "UInt", hDC
                                   , "UInt", &BITMAPINFO
                                   , "UInt", 0
                                   , "UInt*", 0
                                   , "UInt", 0
                                   , "UInt", 0)
DllCall("ReleaseDC", "UInt", 0, "UInt", hDC)
hMemDC:=DllCall("CreateCompatibleDC", "UInt", 0)
DllCall("SelectObject", "UInt", hMemDC, "UInt", hBitmap)
DllCall("gdiplus\GdipCreateFromHDC", "UInt", hMemDC, "UInt*", pGraphics)
DllCall("gdiplus\GdipCreateSolidFill", "Int", Color1, "UInt*", pBrush)
SetTimer, UpdWindow, 50
OnExit, ExitScript
Return

UpdWindow:
   Loop, 15
      GdipDrawLine(A_Index-1)
   DllCall("UpdateLayeredWindow", "UInt", GUIhWnd
                                , "UInt", 0
                                , "UInt", 0
                                , "Int64*", 0x09600000096 ; 150x150
                                , "UInt", hMemDC
                                , "Int64*", 0
                                , "UInt", 0
                                , "UInt*", 0x01FF0000
                                , "UInt", 2)
   Return

ExitScript:
   DllCall("gdiplus\GdiplusShutdown", "UInt", pToken)
   DllCall("FreeLibrary", "UInt", hModule)
   DllCall("dwmapi\DwmEnableComposition", "UInt", True)
   ExitApp

GdipDrawLine(Y)
{
   global
   Loop, 15
   {
      PixelGetColor, CurrentColor, A_ScreenWidth//2-7+A_Index-1
                                 , A_ScreenHeight//2-7+Y, RGB
      DllCall("gdiplus\GdipSetSolidFillColor", "UInt", pBrush
                                             , "UInt", CurrentColor|0xFF000000)
      DllCall("gdiplus\GdipFillRectangle", "UInt", pGraphics
                                         , "UInt", pBrush
                                         , "Float", (A_Index-1)*10
                                         , "Float", Y*10
                                         , "Float", 10
                                         , "Float", 10)
   }
}

Re: AHK: экранная лупа на AutoHotkey

2012-06-06T22:28:41Z

OFF пишет:

creature.ws пишет:
OFF: Вероятно, Gabe_#33 действительно важен однозначный ответ [возможно|невозможно] .
Именно он и важен. Виноват,я не много не привык сразу выражать "формулировки"...Как могу так общаюсь.Не в коем случае не заказываю...потому как сам увлекаюсь написанием,построением скриптов.

OFF пишет:

Возможно ли?
---
Да
---
я Точ то получилось у меня...но вот тут не много не получается...Как быть здесь?
---
Сделай так и так
---
я А если здесь то то....
---
Сделай так.
---
я Ок спасибо
Разве есть что то не то?Али формулировки внеземные?
Признаю,я не излишне опытен в общении на форумах,но я учусь.А флуд легко удаляется,ничего в этом страшного нет.

По теме - То что получилось у меня,из имеющегося скрипта экранной лупы это заставить её отображать информацию в из указанных координат а не то что под курсором,тут сталкнулся с осложностью.Лупа показывает сама себя если указать координаты откуда показывать и непосредственно саму лупу установить на этиже координаты.Можно ли здесь чегонибудь придумать,или эта функция вообще не подходит?

Re: AHK: экранная лупа на AutoHotkey

2012-06-06T22:17:22Z

#NoEnv
SetBatchLines, -1
CoordMode, Pixel
CoordMode, Mouse
DllCall("dwmapi\DwmEnableComposition", "UInt", False)
Gui, +AlwaysOnTop -Caption +E0x80000 +HwndGUIhWnd +Owner
Gui, Show, w150 h150, 10xZoom
WinMove, % "ahk_id"GUIhWnd,, A_ScreenWidth//2-76, A_ScreenHeight//2-76
hModule:=DllCall("LoadLibrary", "Str", "gdiplus.dll")
VarSetCapacity(GdiplusStartupInput, 16, 0)
NumPut(1, GdiplusStartupInput, 0, "Char")
DllCall("gdiplus\GdiplusStartup", "UInt*", pToken, "UInt", &GdiplusStartupInput)
VarSetCapacity(BITMAPINFO, 40, 0)
NumPut(40, BITMAPINFO, 0)
NumPut(150, BITMAPINFO, 4) ; biWidth
NumPut(150,BITMAPINFO, 8) ; biHeight
NumPut(1, BITMAPINFO, 12, "UShort")
NumPut(32, BITMAPINFO, 14, "UShort")
NumPut(0, BITMAPINFO, 16)
hBitmap:=DllCall("CreateDIBSection", "UInt", hDC
                                   , "UInt", &BITMAPINFO
                                   , "UInt", 0
                                   , "UInt*", 0
                                   , "UInt", 0
                                   , "UInt", 0)
DllCall("ReleaseDC", "UInt", 0, "UInt", hDC)
hMemDC:=DllCall("CreateCompatibleDC", "UInt", 0)
DllCall("SelectObject", "UInt", hMemDC, "UInt", hBitmap)
DllCall("gdiplus\GdipCreateFromHDC", "UInt", hMemDC, "UInt*", pGraphics)
DllCall("gdiplus\GdipCreateSolidFill", "Int", Color1, "UInt*", pBrush)
SetTimer, ChaseCursor, 50
OnExit, ExitScript
Return

ChaseCursor:
   MouseGetPos, XPos, YPos
   Loop, 15
      GdipDrawLine(A_Index-1)
   DllCall("UpdateLayeredWindow", "UInt", GUIhWnd
                                , "UInt", 0
                                , "UInt", 0
                                , "Int64*", 0x09600000096 ; 150x150
                                , "UInt", hMemDC
                                , "Int64*", 0
                                , "UInt", 0
                                , "UInt*", 0x01FF0000
                                , "UInt", 2)
   Return

ExitScript:
   DllCall("gdiplus\GdiplusShutdown", "UInt", pToken)
   DllCall("FreeLibrary", "UInt", hModule)
   DllCall("dwmapi\DwmEnableComposition", "UInt", True)
   ExitApp

GdipDrawLine(Y)
{
   global
   Loop, 15
   {
      PixelGetColor, CurrentColor, XPos-7+A_Index-1, YPos-7+Y, RGB
      DllCall("gdiplus\GdipSetSolidFillColor", "UInt", pBrush
                                             , "UInt", CurrentColor|0xFF000000)
      DllCall("gdiplus\GdipFillRectangle", "UInt", pGraphics
                                         , "UInt", pBrush
                                         , "Float", (A_Index-1)*10
                                         , "Float", Y*10
                                         , "Float", 10
                                         , "Float", 10)
   }
}

Re: AHK: экранная лупа на AutoHotkey

2012-06-06T20:21:48Z

OFF: Вероятно, Gabe_#33 действительно важен однозначный ответ [возможно|невозможно] на поставленный вопрос, иначе бы формулировка была «А сделайте-ка мне …».

Re: AHK: экранная лупа на AutoHotkey

2012-06-06T20:12:28Z

OFF: Больше на заказ работ похоже, чем на вопрос!