Capture Any Region [Windows]

RASHAD · Post by **RASHAD** » Tue Apr 14, 2015 8:39 am

- You can capture precisely any region of screen
- Region edge frame thickness 1 - 4 pix
- Can snap any area including running movie
- DPI aware

Tested with PB 5.31 x86 Win 8.1 x64 - VirtualBox XP x86 SP2 - Win 7 x86
Will be continue after reset

I am bored right now

Code: Select all

#CAPTUREBLT  = $40000000
#VK_STARTKEY = $5B
#ERROR_NONE = 0
#KEY_WOW64_64KEY=$100
#KEY_WOW64_32KEY=$200

Global Scale.f,Border,Img,pen,brush
Border = 1
Scale = 1
Img = #PS_SOLID

UseJPEGImageEncoder()
UsePNGImageEncoder()
UsePNGImageDecoder()

CatchImage(10, ?Magicwand)
CreateImage(0,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(0))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

CatchImage(10, ?Save)
CreateImage(1,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(1))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

CatchImage(10, ?Display)
CreateImage(2,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(2))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

CatchImage(10, ?Display)
CreateImage(3,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(3))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

CreateImage(4,24,24)
StartDrawing(ImageOutput(4))
  Box(0,0,24,24,$FFFFFF)
StopDrawing()

CatchImage(10, ?Application)
CreateImage(5,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(5))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

CatchImage(10, ?Exit)
CreateImage(6,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(6))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

FreeImage(10)

Macro _pen
  If pen
     DeleteObject_(pen)
     pen = CreatePen_(img ,Border,0 )
  EndIf
EndMacro

Macro _Rectangle
  Rectangle_(hdc, r\left*Scale,r\top*Scale,r\right*Scale,r\bottom*Scale)
EndMacro

Procedure.l QueryValueEx(lhkey.l, szValueName$)
      Shared vValue$
      cch    = 255
      sValue$ = Space(255)
      lrc    = RegQueryValueEx_(lhkey, szValueName$, 0, @lType, @sValue$, @cch)
      If lrc = #ERROR_NONE
        vValue$ = Left(sValue$, cch - 1)
      Else
        vValue$ = "Empty"
      EndIf
      ProcedureReturn lrc
EndProcedure

Procedure WindowProc(hWnd,uMsg,wParam,lParam)
  Result = #PB_ProcessPureBasicEvents
  Select uMsg
    Case  #WM_SIZE
           
    Case #WM_NCACTIVATE
            Result = 1

  EndSelect
  ProcedureReturn Result
EndProcedure

Procedure IsMouseOver(hWnd) 
  GetWindowRect_(hWnd,r.RECT) 
  GetCursorPos_(p.POINT) 
  Result = PtInRect_(r,p\y << 32 + p\x) 
  ProcedureReturn Result 
EndProcedure

Procedure MinResAll()
  keybd_event_(#VK_LWIN, 0, 0, 0)
  keybd_event_(#VK_D, 0, 0, 0)
  keybd_event_(#VK_D, 0, #KEYEVENTF_KEYUP, 0)
  keybd_event_(#VK_LWIN, 0, #KEYEVENTF_KEYUP, 0)
EndProcedure

Procedure Saveimg()
  SFile$ = SaveFileRequester("Save image as", "Image", "png|*.png|bmp|*.bmp|jpg|*.jpg;*.jpeg", 0)
  Result = SelectedFilePattern()
    If Result = 0    
      SFile$ = GetPathPart(SFile$)+GetFilePart(SFile$,#PB_FileSystem_NoExtension)+".png"
      SaveImage(10,SFile$,#PB_ImagePlugin_PNG)    
    ElseIf Result = 1    
      SFile$ = GetPathPart(SFile$)+GetFilePart(SFile$,#PB_FileSystem_NoExtension)+".bmp"
      SaveImage(10,SFile$,#PB_ImagePlugin_BMP)    
    ElseIf Result = 2
      SFile$ = GetPathPart(SFile$)+GetFilePart(SFile$,#PB_FileSystem_NoExtension)+".jpg"
      SaveImage(10,SFile$,#PB_ImagePlugin_JPEG)    
    EndIf  
EndProcedure

; lib = OpenLibrary(#PB_Any,"user32.dll")
; If lib
;    *IsProcessDPIAware=GetFunction(lib,"IsProcessDPIAware")
;  If *IsProcessDPIAware
;   aware=CallFunctionFast(*IsProcessDPIAware)
;  EndIf
;  If Not aware
;     *SetProcessDPIAware=GetFunction(dll,"SetProcessDPIAware")
;     If *SetProcessDPIAware
;      CallFunctionFast(*SetProcessDPIAware)
;          aware=CallFunctionFast(*IsProcessDPIAware)
;     EndIf
;  EndIf
; EndIf
 
;Scale = 1

If OSVersion() >= #PB_OS_Windows_XP  And OSVersion() < #PB_OS_Windows_Vista
    dc=GetDC_(0)
    Scale = GetDeviceCaps_(dc,#LOGPIXELSX)/96
    ReleaseDC_(0,dc)
ElseIf OSVersion() >= #PB_OS_Windows_Vista And OSVersion() < #PB_OS_Windows_8
      sValueName$ = "LogPixels"
      lRetVal = RegConnectRegistry_("", #HKEY_CURRENT_USER, @lHKeyhandle)
      lRetVal = RegOpenKeyEx_(lHKeyhandle, "Control Panel\DeskTop", 0,#KEY_READ|#KEY_WOW64_64KEY, @lhkey)
      lRetVal = QueryValueEx(lhkey, sValueName$)
      RegCloseKey_(lhkey)
      If vValue$ = Chr(120)
          Scale = 1.25
      ElseIf vValue$ = Chr(144)
          Scale = 1.50
      EndIf   
ElseIf OSVersion() >=#PB_OS_Windows_8
      sValueName$ = "DesktopDPIOverride"
      lRetVal = RegConnectRegistry_("", #HKEY_CURRENT_USER, @lHKeyhandle)
      lRetVal = RegOpenKeyEx_(lHKeyhandle, "Control Panel\DeskTop", 0,#KEY_READ|#KEY_WOW64_64KEY, @lhkey)
      lRetVal = QueryValueEx(lhkey, sValueName$)
      RegCloseKey_(lhkey)
      If vValue$ = "1"
          Scale = 1.25
      ElseIf vValue$ = "2"
          Scale = 1.50
      EndIf
EndIf

FWidth = GetSystemMetrics_(#SM_CXSCREEN)*Scale
FHeight = GetSystemMetrics_(#SM_CYSCREEN)*Scale

pen = CreatePen_(#PS_SOLID, 1,0 )
brush = GetStockObject_(#NULL_BRUSH)

hWnd = OpenWindow(0,-300,30,0,0,"",#PB_Window_BorderLess)
SetWindowColor(0,#Red)
SetWindowLong_(hWnd,#GWL_EXSTYLE,#WS_EX_LAYERED)
SetLayeredWindowAttributes_(hWnd,0,1,#LWA_ALPHA)
OpenWindow(1,0,0,273,112,"Capture Any Region",#PB_Window_SystemMenu| #PB_Window_Tool|#PB_Window_ScreenCentered)
SetWindowColor(1,$CCCCCC)
  ContainerGadget(1,5,-2,268,28,#PB_Container_BorderLess)
   SetGadgetColor(1, #PB_Gadget_BackColor,$CCCCCC)
    CreateToolBar(0, GadgetID(1))
      SetClassLongPtr_(ToolBarID(0),#GCL_HBRBACKGROUND,GetStockObject_(#NULL_BRUSH))
      SetWindowTheme_(ToolBarID(0), @null.w, @null.w) 
      TBIL = SendMessage_(ToolBarID(0), #TB_GETIMAGELIST , 0, 0)
      ImageList_SetIconSize_(TBIL,24,24)
      ;SendMessage_(ToolBarID(0),#TB_SETBUTTONSIZE,0,30 | 32 << 16) ; Width | Height << 16
      SendMessage_(ToolBarID(0),#TB_AUTOSIZE,0,0)
      SendMessage_(ToolBarID(0),#TB_SETPADDING,0,1 | 2 << 16)
      ToolBarImageButton(0,ImageID(0))
      ToolBarToolTip(0,0,"Select Region") 
      ToolBarImageButton(1,ImageID(1))
      ToolBarToolTip(0,1,"Save Region As") 
      ToolBarSeparator()
      ToolBarImageButton(2,ImageID(2))
      ToolBarToolTip(0,2,"Full BackGround")
      ToolBarSeparator()
      ToolBarImageButton(3,ImageID(3))
      ToolBarToolTip(0,3,"Window")
      ToolBarSeparator()
      For t=4 To 6  
        ToolBarImageButton(t,ImageID(4))
        DisableToolBarButton(0,t,1)
      Next
      ToolBarSeparator()
      ToolBarImageButton(9,ImageID(5))
      ToolBarToolTip(0,9,"Options")
      ToolBarSeparator()
      ToolBarImageButton(10,ImageID(6))
      ToolBarToolTip(0,10,"Exit")
  CloseGadgetList()
  
  Text$ = "1) Choose the border thickness in options (if desired)"+#CRLF$
  Text$ = Text$ +"2) Click on the magic wand"+#CRLF$
  Text$ = Text$ +"3) Draw the region to capture: left mouse down and drag"+#CRLF$
  Text$ = Text$ +"4) Fine-tune size shape and location with the arrow keys"+#CRLF$
  Text$ = Text$ +"   Arrow keys to move around - Ctrl+Arrow keys to resize"+#CRLF$
  Text$ = Text$ +"5) Click on save to...to save."
  TextGadget(2,0,33,274,86,Text$)
  SetGadgetColor(2, #PB_Gadget_BackColor,0)
  SetGadgetColor(2, #PB_Gadget_FrontColor,$FFFFFF)
  
  CreatePopupMenu(0)
    OpenSubMenu("Border Thickness")
        MenuItem(20, "Border Thick = 1 pix")
        MenuItem(21, "Border Thick = 2 pix")
        MenuItem(22, "Border Thick = 3 pix")
        MenuItem(23, "Border Thick = 4 pix")
    CloseSubMenu()
    OpenSubMenu("Image Status")
        MenuItem(24, "Normal Image")
        MenuItem(25, "XOR Image")
    CloseSubMenu()     ; just like in a normal menu...
  CloseSubMenu()
  
 
r.RECT
; ;For Reverse Image

StickyWindow(1,1)

SetWindowCallback(@WindowProc())
Repeat
  Select WaitWindowEvent()
      
      Case #PB_Event_CloseWindow
            Quit = 1
            
      Case #PB_Event_Menu
        Select EventMenu() 
          Case 0
              ResizeWindow(0,0,0,FWidth,FHeight)
              SetForegroundWindow_(WindowID(0))
              
          Case 1          
              ResizeWindow(0,-300,30,0,0)
              width = r\right*Scale-r\left*Scale-2
              height = r\bottom*Scale-r\top*Scale-2 
              If width > 0 And height > 0
                  ShowWindow_(WindowID(1),#SW_MINIMIZE)
                  hBitmap = CreateImage(10,width,height)
                  hdc = StartDrawing(ImageOutput(10))
                    SelectObject_(hdc, hBitmap)
                    BitBlt_(hdc, 0, 0, width, height, GetDC_(GetDesktopWindow_()), r\left*Scale+1, r\top*Scale+1, #SRCCOPY | #CAPTUREBLT)
                  StopDrawing()                             
                  ReleaseDC_(hWnd, hdc)
                  ShowWindow_(WindowID(1),#SW_RESTORE)
                  Saveimg()
              Else
                  MessageRequester("Error","Please select Region first ",#PB_MessageRequester_Ok|#MB_ICONERROR)  
              EndIf
                            
               
          Case 2          
              ResizeWindow(0,-300,30,0,0)
              If IsImage(10)
                 FreeImage(10)
              EndIf
              ShowWindow_(WindowID(1),#SW_HIDE)
              MinResAll()
              Delay(300)
              hBitmap = CreateImage(10,FWidth,FHeight)
              hdc = StartDrawing(ImageOutput(10))
                SelectObject_(hdc, hBitmap)
                BitBlt_(hdc, 0, 0, FWidth,FHeight, GetDC_(GetDesktopWindow_()), 0, 0, #SRCCOPY | #CAPTUREBLT)
              StopDrawing()
              MinResAll()
              ShowWindow_(WindowID(1),#SW_SHOW)              
              ResizeWindow(0,-300,30,0,0)
              ReleaseDC_(WindowID(0), hdc)
              Saveimg()
              
          Case 9
              DisplayPopupMenu(0,WindowID(1))
               
          Case 10
              Quit = 1               
              
          Case 20
              Border = 1
              _pen
 
          Case 21
              Border = 2
              _pen
              
          Case 22
              Border = 3
              _pen
              
          Case 23          
              Border = 4
              _pen
                    
          Case 24
              Img = #PS_SOLID
              _pen
                      
          Case 25
              Img = #PS_NULL
              _pen            
                             
        EndSelect
          
      Case #WM_KEYDOWN
          If EventwParam() = 27
              ResizeWindow(0,-300,30,0,0)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) = 0 And EventwParam() = 39
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left+1,r\top,r\right+1,r\bottom)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) = 0 And EventwParam() = 37
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left-1,r\top,r\right-1,r\bottom)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) = 0 And EventwParam() = 40
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top+1,r\right,r\bottom+1)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) = 0 And EventwParam() = 38
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top-1,r\right,r\bottom-1)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) <> 0 And EventwParam() = 39
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top,r\right+1,r\bottom)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) <> 0 And EventwParam() = 37
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top,r\right-1,r\bottom)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) <> 0 And EventwParam() = 38
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top,r\right,r\bottom-1)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) <> 0 And EventwParam() = 40
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top,r\right+1,r\bottom+1)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          EndIf           
          
      Case #WM_MOUSEMOVE
          If Flag = 1
              GetCursorPos_(p.POINT)
              _Rectangle
              r\right = p\x
              r\bottom = p\y
              _Rectangle
          EndIf         
  
      Case #WM_LBUTTONDOWN
          GetCursorPos_(p.POINT)
          If IsMouseOver(WindowID(1))
            SendMessage_(WindowID(1), #WM_NCLBUTTONDOWN, #HTCAPTION, 0) 
          Else
            hdc = GetWindowDC_(0)
            SelectObject_(hdc, pen)
            SelectObject_(hdc, brush)
            SetRect_(r,p\x,p\y,(p\x-1),(p\y-1))
            SetROP2_(hdc, #R2_NOT)
            _Rectangle
            Flag = 1
          EndIf
        
       Case #WM_LBUTTONUP                          
               ReleaseDC_(hWnd, hdc)
               Flag = 0      
  EndSelect
Until Quit = 1
End

DataSection
Magicwand:
   Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$414449BF030000F8
   Data.q $536C5D93ADDA7854,$ED7539EFFFC71865,$D304CC2B1D759759,$C65B4AB99A8D6E8C,$95C31D2653219158
   Data.q $1344C6E44CA4A44D,$E12342F410259189,$3468985E378C6F42,$34B170870133F010,$B70374A090571486
   Data.q $CE3F475561448E9E,$1AD3EBCF6BACADBA,$FB792766DB188D17,$C3AF9EFDFD3DE7B6,$70ACAC6B3995C650
   Data.q $F1818E6B1733E627,$DA3DC080AD9EB80F,$6A52A1A6FA70E566,$F82595967AFFE650,$6FE061D7888018C6
   Data.q $984123A815E59ED1,$51AD20388B9C716B,$A17AD69F3209655C,$20C66E11F8E859C1,$6008D00C13545032
   Data.q $832CD565AE19C5A9,$52DCC887DE125CC3,$3D8CCF826944FC7D,$1AE6CEAD51A764A8,$38025680B5682AC4
   Data.q $58581A40F4BBD461,$E09173226748859C,$D09DB5C7CC82D162,$8F0A36E61F090622,$4C0D5257774D5342
   Data.q $1695F92412B40BB4,$1A106CB430ECA9ED,$2C70AA10E08A535E,$0D58A81E9D01CAD7,$AE0354E95968D826
   Data.q $3C045C80D7E704DE,$4BA7F36FE6CB029B,$DE157C83DAC9D12B,$710430F5FA469D56,$3504A46A16CD0413
   Data.q $C08FD127EAAA017B,$3BD12A41B022652C,$91059AD51F320945,$48E3AEA5CCF5571F,$71E092B3A74156EB
   Data.q $A7E7350F40927412,$41A62CA55FD14C35,$E03292FEE1AE05B3,$986F19D6183D555F,$1D98C11BCA805B1F
   Data.q $532AAA44A150F082,$F51CC0C81EA07E89,$4C168A9F83280E81,$A1A9E5723A6E6BBE,$0F51D13D3636CF3D
   Data.q $7D102069E1A21EA6,$A944114E3CE229A7,$A5AEC817CF7CD1C1,$985E0778168A5A0C,$3079F7F5357771E8
   Data.q $9AEB08A8D1137A9F,$A55630959DFBF0F7,$4327C9526AEA45C1,$FF942240F48B4225,$772F3DCFBD82515F
   Data.q $A64124F0F25B7777,$E235057036F893A7,$F4FEFEA14D60D86B,$28FC7366AF1F7A8C,$D8240CF17A66D5BD
   Data.q $B5B6406F8F609451,$68D4D09B1D1D2CD8,$138820408E2C74C1,$6FEB86E2F6BCBEA7,$776598BFDEDCF4EC
   Data.q $55674DBD14221D54,$6275697A8CB7D3FA,$DB657976BB057FEE,$78224FADAE96B5DA,$EAEA2B05146632E9
   Data.q $ECBCCFC7AFF3EA70,$AD5EA27F8EE95A3F,$C5F93D854181A3E9,$3BFC9C126EC309DD,$DDB2FD9D9E053FE3
   Data.q $C8F00ADBDDB8B0EE,$922448A2A6DF8CA4,$EEF6C58DD3A1A191,$D3A7657BDBED829E,$EFE5E083D1D9E961
   Data.q $090A6A7B71961931,$F868A67437391125,$D6D6E4DB5D5D053D,$5C112E2F4F5E96F5,$B9A99F97EB71870E
   Data.q $FF824AE7F3F9C889,$6B6B6E55B9D9D04B,$645967F33FF5F4B5,$11294D9813E3E319,$9B043FF864B87FBF
   Data.q $EF5EE451D7916F37,$791463EB8DF825EE,$24BE0B285C081232,$16EDEDF5E4B9B570,$2214347C12DF5EDF
   Data.q $F0D95DF232323C78,$BA37DA8670E9C082,$82F0ECBFDBEDF79A,$C01BE7DC8383D5E0,$61C082F0ECB83048
   Data.q $58F34AF03A5E8477,$082F0BCBA3631468,$D4C9932196341FF2,$72C8FE0946C58B1C,$72AB7AF91FD7F3C1
   Data.q $00000000553762BF,$826042AE444E4549
Magicwandend:

Save:
   Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$41444957050000F8
   Data.q $54507B95A5DA7854,$80BBB1F7BFC71C55,$10B04CCC0C8A63E2,$8941D095271D7604,$71C712430A510112
   Data.q $D2A66C3FA66951D2,$C71AB2C9CB46D1A9,$60432391F31989B1,$E35C57075A60AF8A,$CA882040C3929231
   Data.q $4F73EF771303E202,$3B0F6E354C797BBF,$F9CE7B39CF73DEF7,$52E5DFDF3BF7EFEC,$21318F1048593B8A
   Data.q $60D05180E6E8C022,$342DBFB1CC145E14,$0DE197EFE8E9AFDF,$34B5C9AD3EADC10E,$B61EA505E7F86622
   Data.q $2A3B871CAC185E65,$8F15ADF8488BCE83,$A53601FD2B433E47,$B7B76E869FCB395D,$1B74BFEC64F479A2
   Data.q $F184FE6CE79F1E4D,$525EF61EE3BCD4E6,$E34013EE2ABD9C18,$0C5C54406FDCE444,$159B56FEE87F5D74
   Data.q $69A8590B04381DDF,$8A3249822627A61A,$B5A6A19158C54C47,$C4C56AA7B2BD5D0F,$3120AC1B91CE5CF1
   Data.q $602050AC3004950C,$20253A9C888BBDF1,$473FEBD908243420,$BB331FAAC83CA2F4,$7121C5013DBA61CF
   Data.q $96EA8F226C3A71B0,$4A57B89AF977743E,$94DD70E1D982B1AE,$06B7AB20B2001A21,$AC56C10181B10991
   Data.q $19072FAF1C38E2FC,$940EEC3842CE898D,$082C2334CAC0728C,$5D9706E9AF2809B6,$CF65408A4BAD957C
   Data.q $01154F6160B78020,$F3B558AC820302E2,$911E30A1F372E204,$63A51E2E3D86BE67,$0B1639CD57EAC066
   Data.q $B50EB2E03DF5B38F,$58247A70F1E482B1,$442E3D320B02C378,$BE6B0592460303D9,$994D2A1F2F3E2272
   Data.q $3F7C7609B113B154,$9D37200830592676,$75B0B5F7320B27AB,$B216190DE3F013A9,$E4C4E6B8C8AC114D
   Data.q $D6D783140181F169,$86745079F4C4466D,$38B3DCFB107731D4,$C0B6195D56192E3A,$56669EE98E8BA17D
   Data.q $3600873A2A34FA90,$407B0EC9893F682C,$810ED6DAB8082880,$E893C458433F33E6,$2008D2135386D2BC
   Data.q $2FCDC079D7CE030F,$EBF2849E5F6B646C,$4B1B1782C9522E03,$A80B553406617F61,$143A18394DE79E03
   Data.q $39B19C2D7725DD68,$ADAE11D2205A0CB0,$3B5B32FBBA9700ED,$222D1048743F123F,$2E304ABB46104B74
   Data.q $A5FDA10059D231FC,$BC97B8DBAE9EB018,$8A45CB23812A8204,$B0357652011D5D41,$E8455D76385169B5
   Data.q $56F1A19ABBE0D52F,$B5FE3100FFADBBFC,$967D8A1A3C3F815F,$7EE6E0EDD50BEEE9,$55C9428F4EAD9179
   Data.q $0F2F3D23956FAB15,$8AA70E1502809CFF,$3021180589FFB08A,$EC0B8ECE6010D434,$81B0515F14688C8D
   Data.q $82B8335494CCC6AF,$A65463B4CC0B9BC0,$FD83715190D2067C,$7D50C630D69F97A1,$32949185981D89DA
   Data.q $8EA4FC4B80AF6B1A,$1B1916A2829ACAAD,$F3DA8F98CA48F3F4,$21515505B9E9E8F5,$42A4B2191BE5322B
   Data.q $CAA053457D4ABEA3,$249F0481D23596D4,$4DFB7ADE24545261,$42126B33E24ECAB8,$6A8F801955347E2D
   Data.q $632CD43831C58AD8,$6833748C9CC2E6A3,$DB53E04FC75C5A8F,$FCF7056EEAD0135C,$EF1926C1C04C9F96
   Data.q $144E669E9D98956B,$C86E1EE99C409144,$DC6343DE87E7D425,$A82B2C8145548F80,$A026296DDB0A793A
   Data.q $B2D9B936010B5CED,$EA07C5ECB81C389C,$167E59C265672469,$D7B20916E49DED1D,$2483E07A4122AF0B
   Data.q $DB3644B92F24504B,$1FAF81E7A2EE4CAA,$9C2777BDD831D1D1,$15084BD07B628F87,$636D37057FB87475
   Data.q $5E0DBD8F1B965B15,$EE2170BC902A526C,$1CFD8A93F741F5F5,$D005371AC0E8E17D,$E33F5F1951B6CCB8
   Data.q $F0808B043F75C632,$C16D863B299C0888,$8E7066EEDD05A669,$FBEC0EA592D92B77,$FE640209EACD8BD9
   Data.q $2CA0E3E0125418AF,$8B813774DC755A84,$BE1A77357B34E77F,$EC94865C8B62F7A9,$2F677743ACAAA845
   Data.q $CFAF22E432DC88B9,$45138C8BB0CF1BEC,$D851519100F4AF6D,$35B14A4A2A3B6BB1,$086B771D531D3164
   Data.q $B03AE76593BD6530,$062987BCDB0FA2E7,$1E3802F01D0CD059,$A0F6B0F0F53481C3,$B299DF13335D3410
   Data.q $86A211839A1CD8A3,$C23CAD4F7046EAFE,$0F87C1A8A324D7B2,$9C0A72FE5162166F,$0765D5BE31EE48F2
   Data.q $7D260835F0D6C5BF,$C81A450003F55D78,$520543631120D69A,$FF50C50344CD7FF2,$C243A752093AFBDD
   Data.q $1A8B5FB03BFB2CCC,$000000002889CE04,$826042AE444E4549
Saveend:

Display:
   Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$41444945040000F8
   Data.q $1C4C6B55ADDA7854,$F18B2CCCEEFE1455,$06343F894B692107,$C1A4D1AABFA1FD13,$FA52EB4B829695A6
   Data.q $54D1B04B421E5B60,$5894636D8DAD344D,$ABCA5940B6E8A7D3,$D1052B2F2D81763C,$68C6247C6A354D10
   Data.q $9616052EC5AD1A8C,$696ECCCF5C79D9D9,$D9B33BB3C4B2B169,$7BBEF9CE77CF7399,$B0A2098E7A57732E
   Data.q $1FFC738032D96527,$D0C2AFBF95C318C6,$DD2F2D6EFDCCE3F5,$F59A69A1D555045D,$37A3517C6FAC9092
   Data.q $ECF5CAC9364A494E,$38773F16B6B006E9,$CB7ECDFBC7382933,$1009C7FA8C4F6ED7,$1B6DB2B32810C251
   Data.q $DCD607DBC7A18101,$4FA0C2379B9DCED0,$DF1AB7DD3F1BAF9B,$241A6DC7DF3415FC,$8A4E1DEEC11F19AC
   Data.q $5AEA1AC0BB9AF806,$F4742FD9AE5716F9,$A216302BC917C45E,$22B0931A08FC584C,$860022CB6DCF0970
   Data.q $B8E733BAB00EC6B6,$0CF6740C008F30AB,$17941630C79487E0,$67E79425E8E0F00D,$6AC0DAEB1A18A351
   Data.q $A0388BA95179EAAB,$081027D4D7E0080A,$5FF7004E916A8B29,$5010026CD6D9411E,$45E1EDCAAC09A67F
   Data.q $437DFC1A1861DB25,$162B4C4C4AEF7CB8,$23F3E5FB108616C9,$05D3A2A231724672,$4CBC92827DBFA909
   Data.q $AEE608D353C0245A,$5445A00ABBC5E6AC,$4C74B4F18C387EF4,$11C9969D02AB3484,$ADD76FD61030C50E
   Data.q $BDF224228B77E044,$3CFF2425174026CB,$5B5016020C9C8284,$2E2F34E279560F5D,$1077BE7153550EDD
   Data.q $6410B197E1D68781,$6D8F054217A69615,$C7EF7F9622427B1B,$8AA782490407429E,$6C17E79B88E2745A
   Data.q $ED05DAD3C0CF2286,$5E39EA8E981167C9,$A57835438844B6E3,$E8A9134B6992D738,$250C6D1E7927DBC8
   Data.q $7733D803EBA5A0AC,$15419228BC84CAE2,$8301CBBCF0A7FD68,$4A3ADF87009AF74A,$FD7C3099E1072D1B
   Data.q $E2E4E8C729CA4843,$50F7FE531D825800,$D3B5F060388EBB96,$CA6C770EF438AB46,$A5823C3FD1921C86
   Data.q $2A3DC50C1A3017CE,$C4ADE6305518AE4C,$F5F1E800AA74AC8E,$3A7FAF82B071BD82,$1E1D5575421CB213
   Data.q $C11788675905503D,$89D8AC7E066B0F74,$17DDFD0716255DF2,$AD6467937FEE0EC0,$D276A6B9C4183046
   Data.q $C6081B8296868466,$5A566CE71B1E086C,$3B7609C09D17E63C,$C92215B5CBAA920C,$43DEFF6C107FA077
   Data.q $584DAFC63A46557C,$B9744200A449250F,$B0DFC374D5BFF015,$E0787B23A2370226,$D57C7F00F5780223
   Data.q $CDE8AB715702044A,$B6E104C07D90B4F9,$19FC3A7C366CD976,$8B58EB5F097E6158,$0BE86E9AB7361D08
   Data.q $04901F738828BFEA,$9004C7F9F0A727A7,$DB37D534D4E8579F,$3929208E122C9BCE,$B2893B88A7C18EE9
   Data.q $A494418AACDC639D,$E2F3B64360363BDC,$05353CB35BEFAF6B,$46A295E6950C8CF2,$7E3F8AB5EA1128A0
   Data.q $DD9D83EDADED13FF,$D9FF377DB5FEA7DE,$CD672B22814B61B4,$2C4A9AEEB53AF9B3,$E27408ECCE84BA59
   Data.q $00A67E1A74983CC4,$317DE5F7B0D702C6,$856C12D8458CCDA2,$195900BCFD6B7F5E,$7A9C3D4E78D6DF39
   Data.q $A68355542C9CEA4F,$9013A00A2D0051AB,$1D6E8C946C925419,$3E1F8E35F97D5F30,$05E647CE85CF5DF9
   Data.q $6903DA68E67FAC70,$B446834053045A2F,$CA6514B0D2A3986E,$6E975B8BA75CCCD0,$62726DC98E7258F9
   Data.q $C7AE978EBEF9D8F2,$86C61E07EEEB07FC,$454900000000DBAA,$826042AE444E
Displayend:

Application:
   Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$4144490B060000F8
   Data.q $535009558DDA7854,$484B0FC93F3D1457,$1446A06810505B0C,$5D7B88A0A1514411,$D58C2B86E0AA1DC7
   Data.q $52EA568AAD5AAD3A,$05C528CA0B8EEEB5,$088B54B882D5A0CB,$A214480A44B8086E,$6BE5F7F5902484EC
   Data.q $6FF9FCCEE1D076D5,$3EF39CBB9EF7FBDE,$76A6CFE3F0DA7685,$5C53143870A41173,$8F6A4B299ACD8EA5
   Data.q $83C7C1C866D6D51F,$E7FA54EB87B9AD1D,$6D7AF65906FDE2B7,$3C45040F889CC7BD,$AC5EB2CEE016F662
   Data.q $7476C5DFA2EEC86F,$DF02EE6E699D06B7,$FCCE4C7B1802EDAB,$97582DDFDE432914,$247DBD19BD061F7A
   Data.q $A67B5F3D95D51CD8,$5851E68156157F14,$9F562D996088191B,$802ED51968B9C12A,$437AF30399772D80
   Data.q $DA8346AA7F5C0364,$1C02E3C1EC3DA180,$83D51FB207AAD00E,$C00D5A211F088E64,$E3E034B7910F43C2
   Data.q $04D72A08EE1B6E00,$BACC9925A76B2C69,$2C416429E3E8C1D9,$5AEC8D6A340CDD56,$BEBF66F84483CB6C
   Data.q $1C91C562D0BF9005,$F5E74036D61CECD4,$A9D7CE88797BA3F9,$77597CA5C527FA74,$701DB387F0CE242F
   Data.q $F4F1CAD7138CDE43,$E3E6E77992F91951,$55D018A483E985EB,$3C43CA556026EA88,$75701E2ECF065C7B
   Data.q $EB97F0D50BE145B4,$366F2BAE00B167FA,$B2815BAB150BAF64,$8531274690C93D1A,$14137E9191CBE72D
   Data.q $C3980C98B17C1ADF,$608D8DF433186786,$8EDF0C3E3B18ADF4,$E394928181B2A291,$8488F5527B0B6EE3
   Data.q $802C4EA18FC53A9C,$2BEEFE1189EBCACB,$C9C237A3417B8766,$769E91CB97FD878E,$67EC38A01EAEB60D
   Data.q $D261659A7E2B5C55,$2F35ACB2F25A27E9,$4887F31C29309815,$7297DA444236AB51,$B7AB924AB71902A3
   Data.q $ADF0DE33D7798D0D,$179878B01359E4CC,$D835C0E121573EEE,$5345016DA7403A38,$B7B0F9ED86DB35F1
   Data.q $DB76A460E2B3CBCE,$BA26B06956A16C89,$0CBB3070887A7A1F,$7FD4614D8A618439,$859B8C899ABA1459
   Data.q $F704A339F85E11B8,$BE506FA421C1AA4A,$6C5B5571343C6C4A,$B6ECEE726DA6C713,$464B09DBDFC412D2
   Data.q $AC7EDC5285D7637B,$C6D47C919C200F7C,$470B08838B966DC5,$0972E93FF48EC0F9,$B75CC2B972FB8474
   Data.q $BF8C754A53F70C7F,$0E5CD0E775F7F268,$A6C26ADAD1BDC3A2,$6FA2DD7AAFA887B4,$F6622DEF85443FAA
   Data.q $03AD46AA8AC1EDCD,$34D602BE42E0E69F,$6319EB976F32D717,$08018FDA7999C30F,$D52A131C8D9524A6
   Data.q $C9A306E819184D19,$B07F9804CA86FACC,$93D1CD739CFD9408,$8F05B7B05AB1D9FB,$A324F81D694EF40C
   Data.q $75CF4E6AD4AE67B3,$A26A4729820554FE,$F2F4660DE93886A2,$0D4AF650A4622076,$E29E814664E0C313
   Data.q $62A7EAE87429D98D,$C67177046F1088AF,$5EA4686C087A8AFD,$F1D5428BE5634129,$9A99987782B6FF28
   Data.q $EEA8EC6FADD5C1D7,$CAF2FA88CB391350,$0FFADC32676470EB,$9643F7F703F16544,$7373BB1A9CF12CC5
   Data.q $BEA5226CBD1E104C,$743AAABB0FE25511,$61FC169B1D3453F1,$02D3D503CA4C5170,$AD093AB9DFEDC6C9
   Data.q $561583B1C137A2D0,$78C5E1ECE281DD27,$C6F9F5167BDF7C76,$4F00F093E5FE1247,$EDD99B32601D4BF8
   Data.q $21B15B1B286B628E,$8721474B8DAD68E1,$E9D66B552E0BBFC7,$5DAC576B945E6A86,$1084B43D99F014E0
   Data.q $796DC29A5C6444D5,$E9A349854D1DCE2D,$F964802CD7C4BC88,$6C6ABC30A2CF6615,$BC8F158108C5AA81
   Data.q $48EC4A90D017B00D,$D0972296AF470A4C,$30F4C475BB7D62CF,$536508CEAD084B29,$1CECE856F1B8882B
   Data.q $9E2FDEE051AF66E2,$EF8EC26BFA582B6F,$3662E722542D5DA7,$D03C2F84C10C4782,$F62E06D8B3A031A4
   Data.q $401B7DC0731570D6,$2DB666CDD7CF6E47,$DCB7FCC93E732495,$6090C845CECADC0A,$A437AFDAC276F984
   Data.q $82A96066EF498011,$B21ED306CF3335BD,$04E5E810C3F188DC,$B911056044819983,$068684303CF9AD9A
   Data.q $3D66FA84C1AD42D2,$EB8CCC80D1545BEB,$6003CC060DE516D0,$9B8639E96DA4F627,$3B51E80FFE6DCC5B
   Data.q $B0CE76847EA08F18,$9D6CA4D2EA5973E2,$10C8C4485BAACCD1,$5F4FF93CB02A5A1A,$ED79D9ED0C5C5943
   Data.q $2C76674BCC38E1FB,$4A2547D34224811B,$BF06ED2843E617D4,$DD46A8AF2E7B1900,$4BD7C30606385CFD
   Data.q $B4335BE58F324882,$C6AC00BB4128E4AA,$FD2836359E8FCEED,$FC8E18FEB7351CBA,$91CF4C8D88DC59ED
   Data.q $BA60974BC2F3D923,$412593F5C0C29ABA,$63E48E7E85C7A7A1,$0BB785C7A5D4FFE7,$9169229BA19C62C0
   Data.q $33BFC1516D2E89F8,$939AC26A0FDA3F9A,$97D660DB7AA09F97,$34F669A4D43BBF1E,$051F38ADB2755E5F
   Data.q $12B08A4ABE09BFF8,$C43553AF7A59B788,$3FDF8F69C9CD4F6B,$FBEDD4BE9277D032,$444E454900000000
   Data.q $826042AE
Applicationend:

Exit:
   Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$41444941040000F8
   Data.q $554C7D9495DA7854,$DCAFB9CFBFC71C65,$2666BC0DA9124BA0,$0AE04653C3F89763,$82282A492F941CE7
   Data.q $1A912B0568E73030,$32D6CD65AC07F565,$D692F9B9D316B9A5,$1D061321B1883732,$17961417B978A85F
   Data.q $B9EF72F5706EDD91,$1CAD72E73D3CE72F,$9E777B9E76FD3970,$BDF9EFDF9F7EFCF3,$E008707F5790A810
   Data.q $3CCC8402D5A35E38,$2196541921422940,$012D1A2C35E52487,$3FC12DECE5780351,$AB4416FC5F6FE2E1
   Data.q $056C42C623101483,$FE87CFAEB0030521,$C68F1D2678AC38A1,$4EABBBE2D7AB1068,$B6BB8447A78D8075
   Data.q $968B8C237EB7BE7E,$F16219D05D96F561,$14C1A6B72C0CAAD4,$62590A64C0A4826B,$3AB55F0435185060
   Data.q $0D4C2C393A5E01D4,$7F5AC0378FBEF8D9,$67E037879F5B1509,$0CE8095D89319946,$404A9B634396831D
   Data.q $DBCFD1B9E090E34E,$2D280B9AC9E1E60E,$00A3AA8C1FD10D58,$CC775807551E5D4E,$B68783F00F0D4C26
   Data.q $845E0B8A1CEAB920,$94477DF0179A1FCF,$775FF351160BDC08,$B87104061BB3DFC2,$7EBF163E45F1BF9F
   Data.q $02279FE1B3DBF91A,$00515B8EA68356BD,$47C79849C98A5629,$2BB6B4BB3763CAC9,$276BE244EF0E46AB
   Data.q $8B1D00BCED70B9B0,$9A953584C03452E0,$756B0A3FA906EFF6,$EBE38E776F5C534B,$CC2A6C1BE4A4789D
   Data.q $8B29CE34E6062885,$66657100FEBA3A01,$DB631AB004B1EE52,$3184E9D718E06A91,$C353466DD61861ED
   Data.q $658D3B8B58AF5455,$E1EB45B90471DF88,$73D25551408F6717,$E78838FB3DC413DB,$4E359E34BF547DC3
   Data.q $0D6A075840AC84E4,$988CDE2E0E399C08,$B96461EEFFD15B0D,$36BBB908779B1146,$2E04CB6E288088CD
   Data.q $8398BACCA293085F,$728AB6B774556368,$2200E9B9AFACCDDD,$273AB0034945128B,$B7F5C62B6D30B171
   Data.q $9E5358B50BF2F1EB,$D39D986D3FCF9087,$56BCC9C128B71FB0,$9802B200C9B28974,$6C599F84EA92A778
   Data.q $11FBFFE9D10DC89A,$23D2672775858329,$EB87B9681C69E526,$B758183E5300359F,$1847E66BD8527DBA
   Data.q $2303711559524FF6,$526CEBAA0DFFB00C,$4A3CAA31183112B2,$C4578D023492A85E,$ACA875B93513BB11
   Data.q $BC7B2F83D0524429,$401854B59834E830,$674CB34CE20C37D7,$CF51A61281183C96,$D20E2F1E21C960BC
   Data.q $8B599487EAEA7C64,$EB23B41390CAEA4F,$7F37FC2E960B085C,$737BD8C8AECA11FF,$8BAD489092BD32EE
   Data.q $DCAD2FB1B97498CD,$0BDD9C0E6A9C9EDD,$D183CDCC48FBD677,$366076109CC842EB,$2C07450EBF310051
   Data.q $1C964A3A3491EA34,$75335CEF68D5A5F8,$15B6581A8CCE06B1,$752E74A1001D91B1,$00745B1EA6345650
   Data.q $BBDBAA5BBF8672EF,$C3DF9B7ACFDD23F5,$48528EC4F0B7CAD8,$5CC41CB284D11FA2,$4B1937A8D01B9BEB
   Data.q $20BDEF964CB32C02,$E900CADFDE36E3C8,$300156439514B095,$CFCACBA69BA9BF08,$C23EDB07CED3B20B
   Data.q $F640F64A4B02B598,$5803A8F577D00FCD,$7435A0E70EFCCF4A,$565C91BB29630EB9,$6BF6B97CAC002F31
   Data.q $3FD0F6A7C54900EA,$5A91C79D67499307,$17C971F0B4A5A6FD,$DA3CF4E361E2A688,$CFEC901E015487BA
   Data.q $71CCD21939052D3B,$A3A3F5B13F15BACD,$3C07FFE6FEE47D2A,$FECBCED9296081F7,$827A85616ED33360
   Data.q $A5ECDFF8EB9B1C19,$0000D93FDC5E9EDD,$42AE444E45490000,$8260
Exitend:
EndDataSection

Edit #1:Bug fixed
Edit #2:Help support by IV(You can complain him if you did not understand it

)

IdeasVacuum · Post by **IdeasVacuum** » Tue Apr 14, 2015 10:47 am

Hi Rashad

Looks good, doesn't work on XP 32bit though

[ERROR] Line: 114
[ERROR] The specified #Image is not initialised.

...also, the border pixel size - is that a border around the captured image or the thickness of the selection region rectangle?

RASHAD · Post by **RASHAD** » Tue Apr 14, 2015 12:07 pm

Hi IV
Previous post updated
You must select the Region first then save it

Yes I mean the width of the selection rectangle

Thanks for reporting

IdeasVacuum · Post by **IdeasVacuum** » Tue Apr 14, 2015 2:45 pm

Ah - I was just about to write that it still does not work - but it does work:

1) Choose the border thickness in options (if desired);
2) Click on the magic wand;
3) Draw the region to capture: left mouse down and drag;
4) Fine-tune size shape and location with the arrow keys;
5) Click on save to, erm, save.

RASHAD · Post by **RASHAD** » Tue Apr 14, 2015 3:34 pm

Help support by IV
Previous post updated
Thanks

Otrebor · Post by **Otrebor** » Tue Apr 14, 2015 4:57 pm

Nice

Thank you!

heartbone · Post by **heartbone** » Tue Apr 14, 2015 9:27 pm

After defining and resizing the selection rectangle, often I get the "Please select region first." error when clicking the save icon.
Sometimes the arrow adjustment would be applied to both X & Y dimensions simultaneously.
VLC playback (windowed) goes blank after the wand icon is chosen, preventing any video image capture.

32 bits Windows® XP SP3

RASHAD · Post by **RASHAD** » Wed Apr 15, 2015 6:26 am

Hi guys and thanks
The problem with VLC should be solved now

After selecting the region
- Press Return to capture one snap
- Or Ctrl-Return to capture up to 99 snaps without refreshing the region
- Press Escape to refresh the session

Code: Select all

#CAPTUREBLT  = $40000000
#VK_STARTKEY = $5B
#ERROR_NONE = 0
#KEY_WOW64_64KEY=$100
#KEY_WOW64_32KEY=$200

Global Scale.f,Border,Img,pen,brush,Ser
Border = 1
Scale = 1
Img = #PS_SOLID

UseJPEGImageEncoder()
UsePNGImageEncoder()
UsePNGImageDecoder()

CatchImage(10, ?Magicwand)
CreateImage(0,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(0))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

CatchImage(10, ?Save)
CreateImage(1,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(1))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

CatchImage(10, ?Display)
CreateImage(2,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(2))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

CatchImage(10, ?Display)
CreateImage(3,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(3))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

CreateImage(4,24,24)
StartDrawing(ImageOutput(4))
  Box(0,0,24,24,$FFFFFF)
StopDrawing()

CatchImage(10, ?Application)
CreateImage(5,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(5))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

CatchImage(10, ?Exit)
CreateImage(6,24,24,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(6))
DrawAlphaImage(ImageID(10),0,0,255)
StopDrawing()

FreeImage(10)

Macro _pen
  If pen
     DeleteObject_(pen)
     pen = CreatePen_(img ,Border,0 )
  EndIf
EndMacro

Macro _Rectangle
  Rectangle_(hdc, r\left*Scale,r\top*Scale,r\right*Scale,r\bottom*Scale)
EndMacro

Procedure.l QueryValueEx(lhkey.l, szValueName$)
      Shared vValue$
      cch    = 255
      sValue$ = Space(255)
      lrc    = RegQueryValueEx_(lhkey, szValueName$, 0, @lType, @sValue$, @cch)
      If lrc = #ERROR_NONE
        vValue$ = Left(sValue$, cch - 1)
      Else
        vValue$ = "Empty"
      EndIf
      ProcedureReturn lrc
EndProcedure

Procedure WindowProc(hWnd,uMsg,wParam,lParam)
  Result = #PB_ProcessPureBasicEvents
  Select uMsg
    Case  #WM_SIZE
           
    Case #WM_NCACTIVATE
            Result = 1
            
    Case #WM_WINDOWPOSCHANGING
        *wPos.WINDOWPOS 
        *wPos = lParam
        *wPos\hwndInsertAfter = #HWND_TOPMOST

  EndSelect
  ProcedureReturn Result
EndProcedure

Procedure IsMouseOver(hWnd) 
  GetWindowRect_(hWnd,r.RECT) 
  GetCursorPos_(p.POINT) 
  Result = PtInRect_(r,p\y << 32 + p\x) 
  ProcedureReturn Result 
EndProcedure

Procedure MinResAll()
  keybd_event_(#VK_LWIN, 0, 0, 0)
  keybd_event_(#VK_D, 0, 0, 0)
  keybd_event_(#VK_D, 0, #KEYEVENTF_KEYUP, 0)
  keybd_event_(#VK_LWIN, 0, #KEYEVENTF_KEYUP, 0)
EndProcedure

Procedure Saveimg()
  SFile$ = SaveFileRequester("Save image as", "Image", "png|*.png|bmp|*.bmp|jpg|*.jpg;*.jpeg", 0)
  Result = SelectedFilePattern()
    If Result = 0    
      SFile$ = GetPathPart(SFile$)+GetFilePart(SFile$,#PB_FileSystem_NoExtension)+RSet(Str(Ser),2,"0")+".png"
      SaveImage(10,SFile$,#PB_ImagePlugin_PNG)    
    ElseIf Result = 1    
      SFile$ = GetPathPart(SFile$)+GetFilePart(SFile$,#PB_FileSystem_NoExtension)+RSet(Str(Ser),2,"0")+".bmp"
      SaveImage(10,SFile$,#PB_ImagePlugin_BMP)    
    ElseIf Result = 2
      SFile$ = GetPathPart(SFile$)+GetFilePart(SFile$,#PB_FileSystem_NoExtension)+RSet(Str(Ser),2,"0")+".jpg"
      SaveImage(10,SFile$,#PB_ImagePlugin_JPEG)    
    EndIf
    Ser + 1 
EndProcedure

; lib = OpenLibrary(#PB_Any,"user32.dll")
; If lib
;    *IsProcessDPIAware=GetFunction(lib,"IsProcessDPIAware")
;  If *IsProcessDPIAware
;   aware=CallFunctionFast(*IsProcessDPIAware)
;  EndIf
;  If Not aware
;     *SetProcessDPIAware=GetFunction(dll,"SetProcessDPIAware")
;     If *SetProcessDPIAware
;      CallFunctionFast(*SetProcessDPIAware)
;          aware=CallFunctionFast(*IsProcessDPIAware)
;     EndIf
;  EndIf
; EndIf
 
;Scale = 1

If OSVersion() >= #PB_OS_Windows_XP  And OSVersion() < #PB_OS_Windows_Vista
    dc=GetDC_(0)
    Scale = GetDeviceCaps_(dc,#LOGPIXELSX)/96
    ReleaseDC_(0,dc)
ElseIf OSVersion() >= #PB_OS_Windows_Vista And OSVersion() < #PB_OS_Windows_8
      sValueName$ = "LogPixels"
      lRetVal = RegConnectRegistry_("", #HKEY_CURRENT_USER, @lHKeyhandle)
      lRetVal = RegOpenKeyEx_(lHKeyhandle, "Control Panel\DeskTop", 0,#KEY_READ|#KEY_WOW64_64KEY, @lhkey)
      lRetVal = QueryValueEx(lhkey, sValueName$)
      RegCloseKey_(lhkey)
      If vValue$ = Chr(120)
          Scale = 1.25
      ElseIf vValue$ = Chr(144)
          Scale = 1.50
      EndIf   
ElseIf OSVersion() >=#PB_OS_Windows_8
      sValueName$ = "DesktopDPIOverride"
      lRetVal = RegConnectRegistry_("", #HKEY_CURRENT_USER, @lHKeyhandle)
      lRetVal = RegOpenKeyEx_(lHKeyhandle, "Control Panel\DeskTop", 0,#KEY_READ|#KEY_WOW64_64KEY, @lhkey)
      lRetVal = QueryValueEx(lhkey, sValueName$)
      RegCloseKey_(lhkey)
      If vValue$ = "1"
          Scale = 1.25
      ElseIf vValue$ = "2"
          Scale = 1.50
      EndIf
EndIf

FWidth = GetSystemMetrics_(#SM_CXSCREEN)*Scale
FHeight = GetSystemMetrics_(#SM_CYSCREEN)*Scale

pen = CreatePen_(#PS_SOLID, 1,0 )
brush = GetStockObject_(#NULL_BRUSH)

hWnd = OpenWindow(0,0,0,FWidth,FHeight,"",#PB_Window_BorderLess|#PB_Window_Invisible)
;SetWindowPos_(WindowID(0), #HWND_TOPMOST, 0, 0, 0, 0,#SWP_NOSIZE|#SWP_NOMOVE| #SWP_SHOWWINDOW|#SWP_NOACTIVATE)
SetWindowColor(0,#Red)
SetWindowLong_(hWnd,#GWL_EXSTYLE,#WS_EX_LAYERED)
SetLayeredWindowAttributes_(hWnd,0,1,#LWA_ALPHA)
OpenWindow(1,0,0,274,136,"Capture Any Region",#PB_Window_SystemMenu| #PB_Window_Tool|#PB_Window_ScreenCentered)
SetWindowColor(1,$CCCCCC)
  ContainerGadget(1,5,-2,268,28,#PB_Container_BorderLess)
   SetGadgetColor(1, #PB_Gadget_BackColor,$CCCCCC)
    CreateToolBar(0, GadgetID(1))
      SetClassLongPtr_(ToolBarID(0),#GCL_HBRBACKGROUND,GetStockObject_(#NULL_BRUSH))
      SetWindowTheme_(ToolBarID(0), @null.w, @null.w) 
      TBIL = SendMessage_(ToolBarID(0), #TB_GETIMAGELIST , 0, 0)
      ImageList_SetIconSize_(TBIL,24,24)
      ;SendMessage_(ToolBarID(0),#TB_SETBUTTONSIZE,0,30 | 32 << 16) ; Width | Height << 16
      SendMessage_(ToolBarID(0),#TB_AUTOSIZE,0,0)
      SendMessage_(ToolBarID(0),#TB_SETPADDING,0,1 | 2 << 16)
      ToolBarImageButton(0,ImageID(0))
      ToolBarToolTip(0,0,"Select Region") 
      ;ToolBarImageButton(1,ImageID(1))
      ;ToolBarToolTip(0,1,"Save Region As") 
      ToolBarSeparator()
      ToolBarImageButton(2,ImageID(2))
      ToolBarToolTip(0,2,"Full BackGround")
      ToolBarSeparator()
      ToolBarImageButton(3,ImageID(3))
      ToolBarToolTip(0,3,"Window")
      ToolBarSeparator()
      For t=4 To 7  
        ToolBarImageButton(t,ImageID(4))
        DisableToolBarButton(0,t,1)
      Next
      ToolBarSeparator()
      ToolBarImageButton(9,ImageID(5))
      ToolBarToolTip(0,9,"Options")
      ToolBarSeparator()
      ToolBarImageButton(10,ImageID(6))
      ToolBarToolTip(0,10,"Exit")
  CloseGadgetList()
  
  Text$ = "1) Choose the border thickness in options (if desired)"+#CRLF$
  Text$ = Text$ +"2) Click on the magic wand"+#CRLF$
  Text$ = Text$ +"3) Draw the region to capture: left mouse down and drag"+#CRLF$
  Text$ = Text$ +"4) Fine-tune size shape and location with the arrow keys"+#CRLF$
  Text$ = Text$ +"   Arrow keys to move around - Ctrl+Arrow keys to resize"+#CRLF$
  Text$ = Text$ +"5) Press Enter to save image"+#CRLF$
  Text$ = Text$ +"    Press Ctrl-Enter (up to 99 times) to save multiple images"+#CRLF$
  Text$ = Text$ +"    and Esc to End capture session"+#CRLF$
  
  TextGadget(2,0,30,274,106,Text$)
  SetGadgetColor(2, #PB_Gadget_BackColor,0)
  SetGadgetColor(2, #PB_Gadget_FrontColor,$FFFFFF)
  
  CreatePopupMenu(0)
    OpenSubMenu("Border Thickness")
        MenuItem(20, "Border Thick = 1 pix")
        MenuItem(21, "Border Thick = 2 pix")
        MenuItem(22, "Border Thick = 3 pix")
        MenuItem(23, "Border Thick = 4 pix")
    CloseSubMenu()
    OpenSubMenu("Image Status")
        MenuItem(24, "Normal Image")
        MenuItem(25, "XOR Image")
    CloseSubMenu()     ; just like in a normal menu...
  CloseSubMenu()  
 
r.RECT
StickyWindow(1,1)
SetWindowCallback(@WindowProc())
Repeat
  Select WaitWindowEvent()
      
      Case #PB_Event_CloseWindow
            Quit = 1
            
      Case #PB_Event_Menu
        Select EventMenu() 
          Case 0
          ShowWindow_(WindowID(0),#SW_SHOW)                           
               
          Case 2
              ShowWindow_(WindowID(0),#SW_HIDE)
              If IsImage(10)
                 FreeImage(10)
              EndIf
              ShowWindow_(WindowID(1),#SW_HIDE)
              MinResAll()
              Delay(300)
              hBitmap = CreateImage(10,FWidth,FHeight)
              hdc = StartDrawing(ImageOutput(10))
                SelectObject_(hdc, hBitmap)
                BitBlt_(hdc, 0, 0, FWidth,FHeight, GetDC_(GetDesktopWindow_()), 0, 0, #SRCCOPY | #CAPTUREBLT)
              StopDrawing()
              MinResAll()
              ShowWindow_(WindowID(1),#SW_SHOW)
              ShowWindow_(WindowID(0),#SW_HIDE)
              ReleaseDC_(WindowID(0), hdc)
              Saveimg()
              
          Case 9
              DisplayPopupMenu(0,WindowID(1))
               
          Case 10
              Quit = 1               
              
          Case 20
              Border = 1
              _pen 
          Case 21
              Border = 2
              _pen              
          Case 22
              Border = 3
              _pen              
          Case 23          
              Border = 4
              _pen                    
          Case 24
              Img = #PS_SOLID
              _pen                      
          Case 25
              Img = #PS_NULL
              _pen           
                             
        EndSelect
          
      Case #WM_KEYDOWN
          If EventwParam() = 27
              ShowWindow_(WindowID(0),#SW_HIDE)
          ElseIf EventwParam() = 13
              ShowWindow_(WindowID(0),#SW_HIDE)
              width = r\right*Scale-r\left*Scale-2
              height = r\bottom*Scale-r\top*Scale-2 
              If width > 0 And height > 0
                  ShowWindow_(WindowID(1),#SW_MINIMIZE)
                  hBitmap = CreateImage(10,width,height)
                  hdc = StartDrawing(ImageOutput(10))
                    SelectObject_(hdc, hBitmap)
                    BitBlt_(hdc, 0, 0, width, height, GetDC_(GetDesktopWindow_()), r\left*Scale+1, r\top*Scale+1, #SRCCOPY | #CAPTUREBLT)
                  StopDrawing()                             
                  ReleaseDC_(hWnd, hdc)
                  ShowWindow_(WindowID(1),#SW_RESTORE)
                  Saveimg()
              Else
                  MessageRequester("Error","Please select Region first ",#PB_MessageRequester_Ok|#MB_ICONERROR)  
              EndIf
          ElseIf GetAsyncKeyState_(#VK_CONTROL) = 0 And EventwParam() = 13
              ShowWindow_(WindowID(0),#SW_HIDE)
              width = r\right*Scale-r\left*Scale-2
              height = r\bottom*Scale-r\top*Scale-2 
              If width > 0 And height > 0
                  ShowWindow_(WindowID(1),#SW_MINIMIZE)
                  hBitmap = CreateImage(10,width,height)
                  hdc = StartDrawing(ImageOutput(10))
                    SelectObject_(hdc, hBitmap)
                    BitBlt_(hdc, 0, 0, width, height, GetDC_(GetDesktopWindow_()), r\left*Scale+1, r\top*Scale+1, #SRCCOPY | #CAPTUREBLT)
                  StopDrawing()                             
                  ReleaseDC_(hWnd, hdc)
                  ShowWindow_(WindowID(1),#SW_RESTORE)
                  Saveimg()
                  ShowWindow_(WindowID(0),#SW_SHOW)
              Else
                  MessageRequester("Error","Please select Region first ",#PB_MessageRequester_Ok|#MB_ICONERROR)  
              EndIf
          ElseIf GetAsyncKeyState_(#VK_CONTROL) = 0 And EventwParam() = 39
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left+1,r\top,r\right+1,r\bottom)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) = 0 And EventwParam() = 37
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left-1,r\top,r\right-1,r\bottom)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) = 0 And EventwParam() = 40
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top+1,r\right,r\bottom+1)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) = 0 And EventwParam() = 38
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top-1,r\right,r\bottom-1)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) <> 0 And EventwParam() = 39
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top,r\right+1,r\bottom)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) <> 0 And EventwParam() = 37
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top,r\right-1,r\bottom)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) <> 0 And EventwParam() = 38
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top,r\right,r\bottom-1)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          ElseIf GetAsyncKeyState_(#VK_CONTROL) <> 0 And EventwParam() = 40
              hdc = GetWindowDC_(0)
              SelectObject_(hdc, pen)
              SelectObject_(hdc, brush)
              SetROP2_(hdc, #R2_NOT)
              _Rectangle
              SetRect_(r.RECT,r\left,r\top,r\right+1,r\bottom+1)
              _Rectangle
              ReleaseDC_(hWnd, hdc)
          EndIf           
          
      Case #WM_MOUSEMOVE
          If Flag = 1
              GetCursorPos_(p.POINT)
              _Rectangle
              r\right = p\x
              r\bottom = p\y
              _Rectangle
          EndIf         
  
      Case #WM_LBUTTONDOWN
          GetCursorPos_(p.POINT)
          If IsMouseOver(WindowID(1))
            SendMessage_(WindowID(1), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)
          Else
            hdc = GetWindowDC_(0)
            SelectObject_(hdc, pen)
            SelectObject_(hdc, brush)
            SetRect_(r,p\x,p\y,(p\x-1),(p\y-1))
            SetROP2_(hdc, #R2_NOT)
            _Rectangle
            Flag = 1
          EndIf
        
       Case #WM_LBUTTONUP                          
               ReleaseDC_(hWnd, hdc)
               Flag = 0      
  EndSelect
Until Quit = 1
End

DataSection
Magicwand:
   Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$414449BF030000F8
   Data.q $536C5D93ADDA7854,$ED7539EFFFC71865,$D304CC2B1D759759,$C65B4AB99A8D6E8C,$95C31D2653219158
   Data.q $1344C6E44CA4A44D,$E12342F410259189,$3468985E378C6F42,$34B170870133F010,$B70374A090571486
   Data.q $CE3F475561448E9E,$1AD3EBCF6BACADBA,$FB792766DB188D17,$C3AF9EFDFD3DE7B6,$70ACAC6B3995C650
   Data.q $F1818E6B1733E627,$DA3DC080AD9EB80F,$6A52A1A6FA70E566,$F82595967AFFE650,$6FE061D7888018C6
   Data.q $984123A815E59ED1,$51AD20388B9C716B,$A17AD69F3209655C,$20C66E11F8E859C1,$6008D00C13545032
   Data.q $832CD565AE19C5A9,$52DCC887DE125CC3,$3D8CCF826944FC7D,$1AE6CEAD51A764A8,$38025680B5682AC4
   Data.q $58581A40F4BBD461,$E09173226748859C,$D09DB5C7CC82D162,$8F0A36E61F090622,$4C0D5257774D5342
   Data.q $1695F92412B40BB4,$1A106CB430ECA9ED,$2C70AA10E08A535E,$0D58A81E9D01CAD7,$AE0354E95968D826
   Data.q $3C045C80D7E704DE,$4BA7F36FE6CB029B,$DE157C83DAC9D12B,$710430F5FA469D56,$3504A46A16CD0413
   Data.q $C08FD127EAAA017B,$3BD12A41B022652C,$91059AD51F320945,$48E3AEA5CCF5571F,$71E092B3A74156EB
   Data.q $A7E7350F40927412,$41A62CA55FD14C35,$E03292FEE1AE05B3,$986F19D6183D555F,$1D98C11BCA805B1F
   Data.q $532AAA44A150F082,$F51CC0C81EA07E89,$4C168A9F83280E81,$A1A9E5723A6E6BBE,$0F51D13D3636CF3D
   Data.q $7D102069E1A21EA6,$A944114E3CE229A7,$A5AEC817CF7CD1C1,$985E0778168A5A0C,$3079F7F5357771E8
   Data.q $9AEB08A8D1137A9F,$A55630959DFBF0F7,$4327C9526AEA45C1,$FF942240F48B4225,$772F3DCFBD82515F
   Data.q $A64124F0F25B7777,$E235057036F893A7,$F4FEFEA14D60D86B,$28FC7366AF1F7A8C,$D8240CF17A66D5BD
   Data.q $B5B6406F8F609451,$68D4D09B1D1D2CD8,$138820408E2C74C1,$6FEB86E2F6BCBEA7,$776598BFDEDCF4EC
   Data.q $55674DBD14221D54,$6275697A8CB7D3FA,$DB657976BB057FEE,$78224FADAE96B5DA,$EAEA2B05146632E9
   Data.q $ECBCCFC7AFF3EA70,$AD5EA27F8EE95A3F,$C5F93D854181A3E9,$3BFC9C126EC309DD,$DDB2FD9D9E053FE3
   Data.q $C8F00ADBDDB8B0EE,$922448A2A6DF8CA4,$EEF6C58DD3A1A191,$D3A7657BDBED829E,$EFE5E083D1D9E961
   Data.q $090A6A7B71961931,$F868A67437391125,$D6D6E4DB5D5D053D,$5C112E2F4F5E96F5,$B9A99F97EB71870E
   Data.q $FF824AE7F3F9C889,$6B6B6E55B9D9D04B,$645967F33FF5F4B5,$11294D9813E3E319,$9B043FF864B87FBF
   Data.q $EF5EE451D7916F37,$791463EB8DF825EE,$24BE0B285C081232,$16EDEDF5E4B9B570,$2214347C12DF5EDF
   Data.q $F0D95DF232323C78,$BA37DA8670E9C082,$82F0ECBFDBEDF79A,$C01BE7DC8383D5E0,$61C082F0ECB83048
   Data.q $58F34AF03A5E8477,$082F0BCBA3631468,$D4C9932196341FF2,$72C8FE0946C58B1C,$72AB7AF91FD7F3C1
   Data.q $00000000553762BF,$826042AE444E4549
Magicwandend:

Save:
   Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$41444957050000F8
   Data.q $54507B95A5DA7854,$80BBB1F7BFC71C55,$10B04CCC0C8A63E2,$8941D095271D7604,$71C712430A510112
   Data.q $D2A66C3FA66951D2,$C71AB2C9CB46D1A9,$60432391F31989B1,$E35C57075A60AF8A,$CA882040C3929231
   Data.q $4F73EF771303E202,$3B0F6E354C797BBF,$F9CE7B39CF73DEF7,$52E5DFDF3BF7EFEC,$21318F1048593B8A
   Data.q $60D05180E6E8C022,$342DBFB1CC145E14,$0DE197EFE8E9AFDF,$34B5C9AD3EADC10E,$B61EA505E7F86622
   Data.q $2A3B871CAC185E65,$8F15ADF8488BCE83,$A53601FD2B433E47,$B7B76E869FCB395D,$1B74BFEC64F479A2
   Data.q $F184FE6CE79F1E4D,$525EF61EE3BCD4E6,$E34013EE2ABD9C18,$0C5C54406FDCE444,$159B56FEE87F5D74
   Data.q $69A8590B04381DDF,$8A3249822627A61A,$B5A6A19158C54C47,$C4C56AA7B2BD5D0F,$3120AC1B91CE5CF1
   Data.q $602050AC3004950C,$20253A9C888BBDF1,$473FEBD908243420,$BB331FAAC83CA2F4,$7121C5013DBA61CF
   Data.q $96EA8F226C3A71B0,$4A57B89AF977743E,$94DD70E1D982B1AE,$06B7AB20B2001A21,$AC56C10181B10991
   Data.q $19072FAF1C38E2FC,$940EEC3842CE898D,$082C2334CAC0728C,$5D9706E9AF2809B6,$CF65408A4BAD957C
   Data.q $01154F6160B78020,$F3B558AC820302E2,$911E30A1F372E204,$63A51E2E3D86BE67,$0B1639CD57EAC066
   Data.q $B50EB2E03DF5B38F,$58247A70F1E482B1,$442E3D320B02C378,$BE6B0592460303D9,$994D2A1F2F3E2272
   Data.q $3F7C7609B113B154,$9D37200830592676,$75B0B5F7320B27AB,$B216190DE3F013A9,$E4C4E6B8C8AC114D
   Data.q $D6D783140181F169,$86745079F4C4466D,$38B3DCFB107731D4,$C0B6195D56192E3A,$56669EE98E8BA17D
   Data.q $3600873A2A34FA90,$407B0EC9893F682C,$810ED6DAB8082880,$E893C458433F33E6,$2008D2135386D2BC
   Data.q $2FCDC079D7CE030F,$EBF2849E5F6B646C,$4B1B1782C9522E03,$A80B553406617F61,$143A18394DE79E03
   Data.q $39B19C2D7725DD68,$ADAE11D2205A0CB0,$3B5B32FBBA9700ED,$222D1048743F123F,$2E304ABB46104B74
   Data.q $A5FDA10059D231FC,$BC97B8DBAE9EB018,$8A45CB23812A8204,$B0357652011D5D41,$E8455D76385169B5
   Data.q $56F1A19ABBE0D52F,$B5FE3100FFADBBFC,$967D8A1A3C3F815F,$7EE6E0EDD50BEEE9,$55C9428F4EAD9179
   Data.q $0F2F3D23956FAB15,$8AA70E1502809CFF,$3021180589FFB08A,$EC0B8ECE6010D434,$81B0515F14688C8D
   Data.q $82B8335494CCC6AF,$A65463B4CC0B9BC0,$FD83715190D2067C,$7D50C630D69F97A1,$32949185981D89DA
   Data.q $8EA4FC4B80AF6B1A,$1B1916A2829ACAAD,$F3DA8F98CA48F3F4,$21515505B9E9E8F5,$42A4B2191BE5322B
   Data.q $CAA053457D4ABEA3,$249F0481D23596D4,$4DFB7ADE24545261,$42126B33E24ECAB8,$6A8F801955347E2D
   Data.q $632CD43831C58AD8,$6833748C9CC2E6A3,$DB53E04FC75C5A8F,$FCF7056EEAD0135C,$EF1926C1C04C9F96
   Data.q $144E669E9D98956B,$C86E1EE99C409144,$DC6343DE87E7D425,$A82B2C8145548F80,$A026296DDB0A793A
   Data.q $B2D9B936010B5CED,$EA07C5ECB81C389C,$167E59C265672469,$D7B20916E49DED1D,$2483E07A4122AF0B
   Data.q $DB3644B92F24504B,$1FAF81E7A2EE4CAA,$9C2777BDD831D1D1,$15084BD07B628F87,$636D37057FB87475
   Data.q $5E0DBD8F1B965B15,$EE2170BC902A526C,$1CFD8A93F741F5F5,$D005371AC0E8E17D,$E33F5F1951B6CCB8
   Data.q $F0808B043F75C632,$C16D863B299C0888,$8E7066EEDD05A669,$FBEC0EA592D92B77,$FE640209EACD8BD9
   Data.q $2CA0E3E0125418AF,$8B813774DC755A84,$BE1A77357B34E77F,$EC94865C8B62F7A9,$2F677743ACAAA845
   Data.q $CFAF22E432DC88B9,$45138C8BB0CF1BEC,$D851519100F4AF6D,$35B14A4A2A3B6BB1,$086B771D531D3164
   Data.q $B03AE76593BD6530,$062987BCDB0FA2E7,$1E3802F01D0CD059,$A0F6B0F0F53481C3,$B299DF13335D3410
   Data.q $86A211839A1CD8A3,$C23CAD4F7046EAFE,$0F87C1A8A324D7B2,$9C0A72FE5162166F,$0765D5BE31EE48F2
   Data.q $7D260835F0D6C5BF,$C81A450003F55D78,$520543631120D69A,$FF50C50344CD7FF2,$C243A752093AFBDD
   Data.q $1A8B5FB03BFB2CCC,$000000002889CE04,$826042AE444E4549
Saveend:

Display:
   Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$41444945040000F8
   Data.q $1C4C6B55ADDA7854,$F18B2CCCEEFE1455,$06343F894B692107,$C1A4D1AABFA1FD13,$FA52EB4B829695A6
   Data.q $54D1B04B421E5B60,$5894636D8DAD344D,$ABCA5940B6E8A7D3,$D1052B2F2D81763C,$68C6247C6A354D10
   Data.q $9616052EC5AD1A8C,$696ECCCF5C79D9D9,$D9B33BB3C4B2B169,$7BBEF9CE77CF7399,$B0A2098E7A57732E
   Data.q $1FFC738032D96527,$D0C2AFBF95C318C6,$DD2F2D6EFDCCE3F5,$F59A69A1D555045D,$37A3517C6FAC9092
   Data.q $ECF5CAC9364A494E,$38773F16B6B006E9,$CB7ECDFBC7382933,$1009C7FA8C4F6ED7,$1B6DB2B32810C251
   Data.q $DCD607DBC7A18101,$4FA0C2379B9DCED0,$DF1AB7DD3F1BAF9B,$241A6DC7DF3415FC,$8A4E1DEEC11F19AC
   Data.q $5AEA1AC0BB9AF806,$F4742FD9AE5716F9,$A216302BC917C45E,$22B0931A08FC584C,$860022CB6DCF0970
   Data.q $B8E733BAB00EC6B6,$0CF6740C008F30AB,$17941630C79487E0,$67E79425E8E0F00D,$6AC0DAEB1A18A351
   Data.q $A0388BA95179EAAB,$081027D4D7E0080A,$5FF7004E916A8B29,$5010026CD6D9411E,$45E1EDCAAC09A67F
   Data.q $437DFC1A1861DB25,$162B4C4C4AEF7CB8,$23F3E5FB108616C9,$05D3A2A231724672,$4CBC92827DBFA909
   Data.q $AEE608D353C0245A,$5445A00ABBC5E6AC,$4C74B4F18C387EF4,$11C9969D02AB3484,$ADD76FD61030C50E
   Data.q $BDF224228B77E044,$3CFF2425174026CB,$5B5016020C9C8284,$2E2F34E279560F5D,$1077BE7153550EDD
   Data.q $6410B197E1D68781,$6D8F054217A69615,$C7EF7F9622427B1B,$8AA782490407429E,$6C17E79B88E2745A
   Data.q $ED05DAD3C0CF2286,$5E39EA8E981167C9,$A57835438844B6E3,$E8A9134B6992D738,$250C6D1E7927DBC8
   Data.q $7733D803EBA5A0AC,$15419228BC84CAE2,$8301CBBCF0A7FD68,$4A3ADF87009AF74A,$FD7C3099E1072D1B
   Data.q $E2E4E8C729CA4843,$50F7FE531D825800,$D3B5F060388EBB96,$CA6C770EF438AB46,$A5823C3FD1921C86
   Data.q $2A3DC50C1A3017CE,$C4ADE6305518AE4C,$F5F1E800AA74AC8E,$3A7FAF82B071BD82,$1E1D5575421CB213
   Data.q $C11788675905503D,$89D8AC7E066B0F74,$17DDFD0716255DF2,$AD6467937FEE0EC0,$D276A6B9C4183046
   Data.q $C6081B8296868466,$5A566CE71B1E086C,$3B7609C09D17E63C,$C92215B5CBAA920C,$43DEFF6C107FA077
   Data.q $584DAFC63A46557C,$B9744200A449250F,$B0DFC374D5BFF015,$E0787B23A2370226,$D57C7F00F5780223
   Data.q $CDE8AB715702044A,$B6E104C07D90B4F9,$19FC3A7C366CD976,$8B58EB5F097E6158,$0BE86E9AB7361D08
   Data.q $04901F738828BFEA,$9004C7F9F0A727A7,$DB37D534D4E8579F,$3929208E122C9BCE,$B2893B88A7C18EE9
   Data.q $A494418AACDC639D,$E2F3B64360363BDC,$05353CB35BEFAF6B,$46A295E6950C8CF2,$7E3F8AB5EA1128A0
   Data.q $DD9D83EDADED13FF,$D9FF377DB5FEA7DE,$CD672B22814B61B4,$2C4A9AEEB53AF9B3,$E27408ECCE84BA59
   Data.q $00A67E1A74983CC4,$317DE5F7B0D702C6,$856C12D8458CCDA2,$195900BCFD6B7F5E,$7A9C3D4E78D6DF39
   Data.q $A68355542C9CEA4F,$9013A00A2D0051AB,$1D6E8C946C925419,$3E1F8E35F97D5F30,$05E647CE85CF5DF9
   Data.q $6903DA68E67FAC70,$B446834053045A2F,$CA6514B0D2A3986E,$6E975B8BA75CCCD0,$62726DC98E7258F9
   Data.q $C7AE978EBEF9D8F2,$86C61E07EEEB07FC,$454900000000DBAA,$826042AE444E
Displayend:

Application:
   Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$4144490B060000F8
   Data.q $535009558DDA7854,$484B0FC93F3D1457,$1446A06810505B0C,$5D7B88A0A1514411,$D58C2B86E0AA1DC7
   Data.q $52EA568AAD5AAD3A,$05C528CA0B8EEEB5,$088B54B882D5A0CB,$A214480A44B8086E,$6BE5F7F5902484EC
   Data.q $6FF9FCCEE1D076D5,$3EF39CBB9EF7FBDE,$76A6CFE3F0DA7685,$5C53143870A41173,$8F6A4B299ACD8EA5
   Data.q $83C7C1C866D6D51F,$E7FA54EB87B9AD1D,$6D7AF65906FDE2B7,$3C45040F889CC7BD,$AC5EB2CEE016F662
   Data.q $7476C5DFA2EEC86F,$DF02EE6E699D06B7,$FCCE4C7B1802EDAB,$97582DDFDE432914,$247DBD19BD061F7A
   Data.q $A67B5F3D95D51CD8,$5851E68156157F14,$9F562D996088191B,$802ED51968B9C12A,$437AF30399772D80
   Data.q $DA8346AA7F5C0364,$1C02E3C1EC3DA180,$83D51FB207AAD00E,$C00D5A211F088E64,$E3E034B7910F43C2
   Data.q $04D72A08EE1B6E00,$BACC9925A76B2C69,$2C416429E3E8C1D9,$5AEC8D6A340CDD56,$BEBF66F84483CB6C
   Data.q $1C91C562D0BF9005,$F5E74036D61CECD4,$A9D7CE88797BA3F9,$77597CA5C527FA74,$701DB387F0CE242F
   Data.q $F4F1CAD7138CDE43,$E3E6E77992F91951,$55D018A483E985EB,$3C43CA556026EA88,$75701E2ECF065C7B
   Data.q $EB97F0D50BE145B4,$366F2BAE00B167FA,$B2815BAB150BAF64,$8531274690C93D1A,$14137E9191CBE72D
   Data.q $C3980C98B17C1ADF,$608D8DF433186786,$8EDF0C3E3B18ADF4,$E394928181B2A291,$8488F5527B0B6EE3
   Data.q $802C4EA18FC53A9C,$2BEEFE1189EBCACB,$C9C237A3417B8766,$769E91CB97FD878E,$67EC38A01EAEB60D
   Data.q $D261659A7E2B5C55,$2F35ACB2F25A27E9,$4887F31C29309815,$7297DA444236AB51,$B7AB924AB71902A3
   Data.q $ADF0DE33D7798D0D,$179878B01359E4CC,$D835C0E121573EEE,$5345016DA7403A38,$B7B0F9ED86DB35F1
   Data.q $DB76A460E2B3CBCE,$BA26B06956A16C89,$0CBB3070887A7A1F,$7FD4614D8A618439,$859B8C899ABA1459
   Data.q $F704A339F85E11B8,$BE506FA421C1AA4A,$6C5B5571343C6C4A,$B6ECEE726DA6C713,$464B09DBDFC412D2
   Data.q $AC7EDC5285D7637B,$C6D47C919C200F7C,$470B08838B966DC5,$0972E93FF48EC0F9,$B75CC2B972FB8474
   Data.q $BF8C754A53F70C7F,$0E5CD0E775F7F268,$A6C26ADAD1BDC3A2,$6FA2DD7AAFA887B4,$F6622DEF85443FAA
   Data.q $03AD46AA8AC1EDCD,$34D602BE42E0E69F,$6319EB976F32D717,$08018FDA7999C30F,$D52A131C8D9524A6
   Data.q $C9A306E819184D19,$B07F9804CA86FACC,$93D1CD739CFD9408,$8F05B7B05AB1D9FB,$A324F81D694EF40C
   Data.q $75CF4E6AD4AE67B3,$A26A4729820554FE,$F2F4660DE93886A2,$0D4AF650A4622076,$E29E814664E0C313
   Data.q $62A7EAE87429D98D,$C67177046F1088AF,$5EA4686C087A8AFD,$F1D5428BE5634129,$9A99987782B6FF28
   Data.q $EEA8EC6FADD5C1D7,$CAF2FA88CB391350,$0FFADC32676470EB,$9643F7F703F16544,$7373BB1A9CF12CC5
   Data.q $BEA5226CBD1E104C,$743AAABB0FE25511,$61FC169B1D3453F1,$02D3D503CA4C5170,$AD093AB9DFEDC6C9
   Data.q $561583B1C137A2D0,$78C5E1ECE281DD27,$C6F9F5167BDF7C76,$4F00F093E5FE1247,$EDD99B32601D4BF8
   Data.q $21B15B1B286B628E,$8721474B8DAD68E1,$E9D66B552E0BBFC7,$5DAC576B945E6A86,$1084B43D99F014E0
   Data.q $796DC29A5C6444D5,$E9A349854D1DCE2D,$F964802CD7C4BC88,$6C6ABC30A2CF6615,$BC8F158108C5AA81
   Data.q $48EC4A90D017B00D,$D0972296AF470A4C,$30F4C475BB7D62CF,$536508CEAD084B29,$1CECE856F1B8882B
   Data.q $9E2FDEE051AF66E2,$EF8EC26BFA582B6F,$3662E722542D5DA7,$D03C2F84C10C4782,$F62E06D8B3A031A4
   Data.q $401B7DC0731570D6,$2DB666CDD7CF6E47,$DCB7FCC93E732495,$6090C845CECADC0A,$A437AFDAC276F984
   Data.q $82A96066EF498011,$B21ED306CF3335BD,$04E5E810C3F188DC,$B911056044819983,$068684303CF9AD9A
   Data.q $3D66FA84C1AD42D2,$EB8CCC80D1545BEB,$6003CC060DE516D0,$9B8639E96DA4F627,$3B51E80FFE6DCC5B
   Data.q $B0CE76847EA08F18,$9D6CA4D2EA5973E2,$10C8C4485BAACCD1,$5F4FF93CB02A5A1A,$ED79D9ED0C5C5943
   Data.q $2C76674BCC38E1FB,$4A2547D34224811B,$BF06ED2843E617D4,$DD46A8AF2E7B1900,$4BD7C30606385CFD
   Data.q $B4335BE58F324882,$C6AC00BB4128E4AA,$FD2836359E8FCEED,$FC8E18FEB7351CBA,$91CF4C8D88DC59ED
   Data.q $BA60974BC2F3D923,$412593F5C0C29ABA,$63E48E7E85C7A7A1,$0BB785C7A5D4FFE7,$9169229BA19C62C0
   Data.q $33BFC1516D2E89F8,$939AC26A0FDA3F9A,$97D660DB7AA09F97,$34F669A4D43BBF1E,$051F38ADB2755E5F
   Data.q $12B08A4ABE09BFF8,$C43553AF7A59B788,$3FDF8F69C9CD4F6B,$FBEDD4BE9277D032,$444E454900000000
   Data.q $826042AE
Applicationend:

Exit:
   Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$41444941040000F8
   Data.q $554C7D9495DA7854,$DCAFB9CFBFC71C65,$2666BC0DA9124BA0,$0AE04653C3F89763,$82282A492F941CE7
   Data.q $1A912B0568E73030,$32D6CD65AC07F565,$D692F9B9D316B9A5,$1D061321B1883732,$17961417B978A85F
   Data.q $B9EF72F5706EDD91,$1CAD72E73D3CE72F,$9E777B9E76FD3970,$BDF9EFDF9F7EFCF3,$E008707F5790A810
   Data.q $3CCC8402D5A35E38,$2196541921422940,$012D1A2C35E52487,$3FC12DECE5780351,$AB4416FC5F6FE2E1
   Data.q $056C42C623101483,$FE87CFAEB0030521,$C68F1D2678AC38A1,$4EABBBE2D7AB1068,$B6BB8447A78D8075
   Data.q $968B8C237EB7BE7E,$F16219D05D96F561,$14C1A6B72C0CAAD4,$62590A64C0A4826B,$3AB55F0435185060
   Data.q $0D4C2C393A5E01D4,$7F5AC0378FBEF8D9,$67E037879F5B1509,$0CE8095D89319946,$404A9B634396831D
   Data.q $DBCFD1B9E090E34E,$2D280B9AC9E1E60E,$00A3AA8C1FD10D58,$CC775807551E5D4E,$B68783F00F0D4C26
   Data.q $845E0B8A1CEAB920,$94477DF0179A1FCF,$775FF351160BDC08,$B87104061BB3DFC2,$7EBF163E45F1BF9F
   Data.q $02279FE1B3DBF91A,$00515B8EA68356BD,$47C79849C98A5629,$2BB6B4BB3763CAC9,$276BE244EF0E46AB
   Data.q $8B1D00BCED70B9B0,$9A953584C03452E0,$756B0A3FA906EFF6,$EBE38E776F5C534B,$CC2A6C1BE4A4789D
   Data.q $8B29CE34E6062885,$66657100FEBA3A01,$DB631AB004B1EE52,$3184E9D718E06A91,$C353466DD61861ED
   Data.q $658D3B8B58AF5455,$E1EB45B90471DF88,$73D25551408F6717,$E78838FB3DC413DB,$4E359E34BF547DC3
   Data.q $0D6A075840AC84E4,$988CDE2E0E399C08,$B96461EEFFD15B0D,$36BBB908779B1146,$2E04CB6E288088CD
   Data.q $8398BACCA293085F,$728AB6B774556368,$2200E9B9AFACCDDD,$273AB0034945128B,$B7F5C62B6D30B171
   Data.q $9E5358B50BF2F1EB,$D39D986D3FCF9087,$56BCC9C128B71FB0,$9802B200C9B28974,$6C599F84EA92A778
   Data.q $11FBFFE9D10DC89A,$23D2672775858329,$EB87B9681C69E526,$B758183E5300359F,$1847E66BD8527DBA
   Data.q $2303711559524FF6,$526CEBAA0DFFB00C,$4A3CAA31183112B2,$C4578D023492A85E,$ACA875B93513BB11
   Data.q $BC7B2F83D0524429,$401854B59834E830,$674CB34CE20C37D7,$CF51A61281183C96,$D20E2F1E21C960BC
   Data.q $8B599487EAEA7C64,$EB23B41390CAEA4F,$7F37FC2E960B085C,$737BD8C8AECA11FF,$8BAD489092BD32EE
   Data.q $DCAD2FB1B97498CD,$0BDD9C0E6A9C9EDD,$D183CDCC48FBD677,$366076109CC842EB,$2C07450EBF310051
   Data.q $1C964A3A3491EA34,$75335CEF68D5A5F8,$15B6581A8CCE06B1,$752E74A1001D91B1,$00745B1EA6345650
   Data.q $BBDBAA5BBF8672EF,$C3DF9B7ACFDD23F5,$48528EC4F0B7CAD8,$5CC41CB284D11FA2,$4B1937A8D01B9BEB
   Data.q $20BDEF964CB32C02,$E900CADFDE36E3C8,$300156439514B095,$CFCACBA69BA9BF08,$C23EDB07CED3B20B
   Data.q $F640F64A4B02B598,$5803A8F577D00FCD,$7435A0E70EFCCF4A,$565C91BB29630EB9,$6BF6B97CAC002F31
   Data.q $3FD0F6A7C54900EA,$5A91C79D67499307,$17C971F0B4A5A6FD,$DA3CF4E361E2A688,$CFEC901E015487BA
   Data.q $71CCD21939052D3B,$A3A3F5B13F15BACD,$3C07FFE6FEE47D2A,$FECBCED9296081F7,$827A85616ED33360
   Data.q $A5ECDFF8EB9B1C19,$0000D93FDC5E9EDD,$42AE444E45490000,$8260
Exitend:
EndDataSection

PureBasic Forums - English

Capture Any Region [Windows]

Capture Any Region [Windows]

Re: Capture Any Region [Windows]

Re: Capture Any Region [Windows]

Re: Capture Any Region [Windows]

Re: Capture Any Region [Windows]

Re: Capture Any Region [Windows]

Re: Capture Any Region [Windows]

Re: Capture Any Region [Windows]