Mapping the desktop for _SCREENCLICK

[Pete]

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]

1. s& = _NEWIMAGE(_DESKTOPWIDTH, _DESKTOPHEIGHT - 60, 32)
2. SCREEN s&
3. _SCREENMOVE 0, -25 ' Hides title bar above computer top screen margin.
4. CLS
5. oldx% = -1: w = 0: v = 0
6. DO
7.     WHILE _MOUSEINPUT: WEND
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
37. LOOP UNTIL INKEY$ = CHR$(27)
38. SYSTEM
39.  

[FellippeHeitor]

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)
2. DO
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
21. LOOP
22.  

[Pete]

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

[FellippeHeitor]

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.

[Pete]

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
2. SCREEN 0
3. CLS
4. _SCREENMOVE 100, 100
5. _CLIPBOARD$ = "" ' Clear any images from clipboard memory.
6. oldx% = -1: w = 0: v = 0
7. DO
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
35.     WHILE _MOUSEINPUT: WEND
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
82. LOOP UNTIL INKEY$ = CHR$(27)
83. SYSTEM
84.  
85. putimage:
86. s& = _NEWIMAGE(_DESKTOPWIDTH, _DESKTOPHEIGHT - 60, 32)
87. SCREEN s&
88. _SCREENMOVE 0, -25 ' Hides title bar above computer top screen margin.
89. CLS
90. _PUTIMAGE (w, v * _FONTHEIGHT), img&
91. _FREEIMAGE img&
92. dispon% = -1
93. RETURN

Pete