Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Pete on December 01, 2018, 04:25:10 pm

Title: Mapping the desktop for _SCREENCLICK
Post by: Pete on December 01, 2018, 04:25:10 pm
Say I want to open Firefox and run it full screen. If I want to find out where click spots are located, I thought the following would help, but maybe someone has a better approach. I did not include this in the program section, as it is very rudimentary. Basically all it does is ask you to put whatever you want to be displayed and mapped up, press your PrtScr button to d a screen shot, and then it will copy that image and show the mouse coordinates. Move the mouse to what you wanted _SCREENCLICK to activate, and click the left mouse button. The muse cursor will move to position 0, 0 and in about a second, the mouse cursor will appear where it was, only this time that's a _SCREENCLICK but no worries, nothing will happen because this is only a copied image running in this program.

Oh, I had to update to version 1.2 for the _CLIPBOARDIMAGE keyword.

So, any easier ways to do this?

Pete

Code: QB64: [Select]
  3. _SCREENMOVE 0, -25 ' Hides title bar above computer top screen margin.
  5. oldx% = -1: w = 0: v = 0
  8.     x% = _MOUSEX
  9.     y% = _MOUSEY
  10.     mb% = _MOUSEBUTTON(1)
  11.     IF mb% THEN
  12.         mb% = 0
  13.         _MOUSEMOVE 0, 0
  14.         _DELAY 1
  15.         PRINT "Confirmed: Row ="; y%; "   Column ="; x%,
  16.         _SCREENCLICK x%, y%: oldx% = x%: oldy% = y%
  17.         _DELAY 2
  18.     END IF
  19.     IF oldx% <> x% OR oldy% <> y% THEN
  20.         IF dispon% = 0 THEN
  21.             IF _CLIPBOARDIMAGE < -1 THEN
  22.                 _PUTIMAGE (w, v * _FONTHEIGHT), _CLIPBOARDIMAGE
  23.                 dispon% = -1
  24.             ELSE
  25.                 PRINT "Put program to be mapped on screen and do a screen shot..."
  26.                 DO
  27.                     _LIMIT 30
  28.                     IF INKEY$ = CHR$(27) THEN END
  29.                 LOOP UNTIL _CLIPBOARDIMAGE < -1
  30.                 _PUTIMAGE (w, v * _FONTHEIGHT), _CLIPBOARDIMAGE
  31.                 dispon% = -1
  32.             END IF
  33.         END IF
  34.         LOCATE 20, 10: PRINT "Row ="; y%; "   "; "Column ="; x%; "   ";
  35.         oldx% = x%: oldy% = y%
  36.     END IF
  39.  
Title: Re: Mapping the desktop for _SCREENCLICK
Post by: FellippeHeitor on December 01, 2018, 04:33:59 pm
This is not an answer to "any easier ways to do this?", but an important warning: Don't call _CLIPBOARDIMAGE like that as every time you do so a new image is created in memory and you'll quickly run out it. Check out the example from the wiki page to see how every time before attempting to fetch a new image from the clipboard I tried to free any previous existing image:

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  3.     CLS
  4.     COLOR _RGB32(177, 177, 177)
  5.     PRINT "Monitoring clipboard..."
  6.     IF img& < -1 THEN _FREEIMAGE img&
  7.     img& = _CLIPBOARDIMAGE
  8.     IF img& < -1 THEN
  9.         PRINT "Image found:"
  10.         COLOR _RGB32(255, 255, 255)
  11.         PRINT "Width :"; _WIDTH(img&)
  12.         PRINT "Height:"; _HEIGHT(img&)
  13.         w = _WIDTH / 2 - _WIDTH(img&) / 2
  14.         IF w < 0 THEN w = 0
  15.         _PUTIMAGE (w, CSRLIN * _FONTHEIGHT), img&
  16.     ELSE
  17.         PRINT "No image found."
  18.     END IF
  19.     _DISPLAY
  20.     _LIMIT 10
  22.  
Title: Re: Mapping the desktop for _SCREENCLICK
Post by: Pete on December 01, 2018, 05:07:27 pm
I forgot to take out a line when experimenting... I went back and edited out the line: dispon% = 0

So the image isn't freed now, because it is only placed in memory one time. In other words, when dispon%  =  -1, the _CLIPBOARD statement is no longer polled.

So with that modification, is there any need to perform a free image?

Pete
Title: Re: Mapping the desktop for _SCREENCLICK
Post by: FellippeHeitor on December 01, 2018, 05:32:56 pm
As said, each time the function is called a new image is created in memory (provided there is one in clipboard). I see it even in a loop condition there, so if you'll poll the clipboard more than once, make sure to always store the handle in a variable and then free it before you poll again.
Title: Re: Mapping the desktop for _SCREENCLICK
Post by: Pete on December 01, 2018, 10:41:14 pm
Well after the edit, it only gets polled once, but once it is up on the screen, it no longer needs to be hogging memory. I used freeimage in this next example...

I get tired of FireFox session managers going defunct, so I thought some day, I'd make my own. This is a rudimentary program that returns the URLS you choose to save as a session.

WARNING: If you try this code, be aware it will use _SCREENCLICK wherever you left click, so when you make a right click to start the _SCREENCLICK process, it will make a _SCREENCLICK on each of the tabs or whatever it was you left clicked with the mouse.

Code: QB64: [Select]
  1. REDIM tabx(1000) AS INTEGER, taby(1000) AS INTEGER
  4. _SCREENMOVE 100, 100
  5. _CLIPBOARD$ = "" ' Clear any images from clipboard memory.
  6. oldx% = -1: w = 0: v = 0
  8.     IF oldx% <> x% OR oldy% <> y% THEN
  9.         IF dispon% = 0 THEN
  10.             PRINT "Press any key when ready and follow these 3 steps..."
  11.             PRINT
  12.             PRINT "1) Make FireFox full screen."
  13.             PRINT
  14.             PRINT "2) Press PrtScr to make a screen shot."
  15.             PRINT
  16.             PRINT "3) Left click the tabs you want remembered and right click when done."
  17.             DO
  18.                 _LIMIT 30
  19.                 b$ = INKEY$
  20.                 IF b$ = CHR$(27) THEN END
  21.             LOOP UNTIL b$ <> ""
  22.             _SCREENHIDE
  23.             DO
  24.                 _LIMIT 30
  25.                 b$ = INKEY$
  26.                 img& = _CLIPBOARDIMAGE
  27.                 IF INKEY$ = CHR$(27) THEN END
  28.             LOOP UNTIL img& < -1
  29.             GOSUB putimage
  30.             _SCREENSHOW
  31.         END IF
  32.         LOCATE 20, 10: PRINT "Row ="; y%; "   "; "Column ="; x%; "   ";
  33.         oldx% = x%: oldy% = y%
  34.     END IF
  36.     x% = _MOUSEX
  37.     y% = _MOUSEY
  38.     mb% = _MOUSEBUTTON(1)
  39.     rb% = _MOUSEBUTTON(2)
  40.     IF mb% THEN
  41.         mb% = 0
  42.         PRINT "Confirmed: Row ="; y%; "   Column ="; x%,
  43.         num = num + 1
  44.         tabx(num) = x%
  45.         taby(num) = y%
  46.         DO: I = _MOUSEINPUT: LOOP UNTIL _MOUSEBUTTON(1) = 0
  47.     ELSE
  48.         IF rb% THEN
  49.             _SCREENHIDE
  50.             _DELAY .25
  51.             REDIM url$(num)
  52.             FOR I = 1 TO num
  53.                 _SCREENCLICK tabx(I), taby(I)
  54.                 _DELAY .25
  55.                 _SCREENCLICK 700, 80 ' Firefox URL input field.
  56.                 _DELAY .1
  57.                 _SCREENPRINT CHR$(1) ' Select the URL.
  58.                 _DELAY .1
  59.                 _SCREENPRINT CHR$(3) ' Copy the URL.
  60.                 _DELAY .25
  61.                 url$(I) = _CLIPBOARD$
  62.             NEXT
  63.             SCREEN 0
  64.             WIDTH 140, 25
  65.             _SCREENMOVE 100, 100
  66.             _DELAY .1
  67.             _SCREENSHOW
  68.             PRINT "These are your selected URLs...": PRINT
  69.             _DELAY .25
  70.             FOR I = 1 TO num
  71.                 PRINT LTRIM$(STR$(I)); ") "; url$(I)
  72.             NEXT
  73.             PRINT: PRINT "Press any key to exit..."
  74.             DO
  75.                 _LIMIT 30
  76.                 b$ = INKEY$
  77.                 IF b$ <> "" THEN EXIT DO
  78.             LOOP
  79.             EXIT DO
  80.         END IF
  81.     END IF
  84.  
  85. putimage:
  88. _SCREENMOVE 0, -25 ' Hides title bar above computer top screen margin.
  90. _PUTIMAGE (w, v * _FONTHEIGHT), img&
  92. dispon% = -1

Pete
Text Only | Text with Attachments