Agire sulla finestra di un qualunque programma - Cronologia

Vuott il 23:45, 8 giu 2024

2024-06-08T23:45:27Z

← Versione meno recente		Versione delle 17:45, 8 giu 2024
Riga 9:		Riga 9:
	Dim ii As Integer[]		Dim ii As Integer[]

	<FONT color=#006400>' ''~~Individuiamo~~ il numero identificativo della "finestra" del programma, inserendo il nome esatto della finestra (si può utilizzare anche l'asterisco "*":''</font>		<FONT color=#006400>' ''Individua il numero identificativo della "finestra" del programma, inserendo il nome esatto della finestra (si può utilizzare anche l'asterisco "*":''</font>
	ii = Desktop.FindWindow("<FONT color=gray>''nome_della_finestra_del_programma_da_gestire''</font>")		ii = Desktop.FindWindow("<FONT color=gray>''nome_della_finestra_del_programma_da_gestire''</font>")

	With dw = New DesktopWindow(ii[0])		With dw = New DesktopWindow(ii[0])
	<FONT color=#006400>' ''~~Ne vediamo~~ il titolo:''</font>		<FONT color=#006400>' ''Mostra il titolo:''</font>
	Print .VisibleName		Print .VisibleName
	<FONT color=#006400>' ''~~Ne vediamo~~ il numero identificativo in decimale ed in esadecimale:''</font>		<FONT color=#006400>' ''Mostra il numero identificativo in decimale ed in esadecimale:''</font>
	Print .Id, hex(.Id)		Print .Id, hex(.Id)
	<FONT color=#006400>' ''~~Impostiamo~~ i valori dello spostamento, ed eventualmente anche il ridimensionamento della finestra (i due parametri relativi al ridimensionamento della finestra sortiscono il loro effetto soltanto se la finestra del programma è ridimensionabile):''</font>		<FONT color=#006400>' ''Imposta i valori dello spostamento, ed eventualmente anche il ridimensionamento della finestra (i due parametri relativi al ridimensionamento della finestra sortiscono il loro effetto soltanto se la finestra del programma è ridimensionabile):''</font>
	.Move(<FONT color=gray>''valoreX''</font>, <FONT color=gray>''valoreY''</font>, <FONT color=gray>''valoreW''</font>, <FONT color=gray>''valoreY''</font>)		.Move(<FONT color=gray>''valoreX''</font>, <FONT color=gray>''valoreY''</font>, <FONT color=gray>''valoreW''</font>, <FONT color=gray>''valoreY''</font>)
	End With		End With
Riga 52:		Riga 52:
	Dim dw As DesktopWindow		Dim dw As DesktopWindow

	<FONT color=#006400>' ''~~Individuiamo~~ l'handle della finestra attiva in primo piano:''</font>		<FONT color=#006400>' ''Individua l'handle della finestra attiva in primo piano:''</font>
	i = Desktop.ActiveWindow		i = Desktop.ActiveWindow

	<FONT color=#006400>' ''...quindi la ~~gestiamo~~:''</font>		<FONT color=#006400>' ''...quindi la gestisce:''</font>
	With dw = New DesktopWindow(i)		With dw = New DesktopWindow(i)
	Print .VisibleName		Print .VisibleName
Riga 75:		Riga 75:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim pr As Process		Dim pr As Process
Riga 88:		Riga 88:
	Wend		Wend

	<FONT color=#006400>' ''~~Dividiamo~~ la stringa contenente il primo valore esadecimale, in modo tale da ottenere la seconda parte utile, priva di “0x”:''</font>		<FONT color=#006400>' ''Divide la stringa contenente il primo valore esadecimale, in modo tale da ottenere la seconda parte utile, priva di “0x”:''</font>
	x = Split(ss[4], "x")		x = Split(ss[4], "x")
	<FONT color=#006400>' ''~~Dividiamo~~ la stringa contenente il secondo valore esadecimale, in modo tale da ottenere le ultime due cifre più a destra:''</font>		<FONT color=#006400>' ''Divide la stringa contenente il secondo valore esadecimale, in modo tale da ottenere le ultime due cifre più a destra:''</font>
	y = Right(ss[9], 2)		y = Right(ss[9], 2)
	<FONT color=#006400>' ''Individua il valore esadecimale preciso della finestra, lo trasforma in decimale:''</font>		<FONT color=#006400>' ''Individua il valore esadecimale preciso della finestra, lo trasforma in decimale:''</font>

Vuott il 23:44, 8 giu 2024

2024-06-08T23:44:03Z

← Versione meno recente		Versione delle 17:44, 8 giu 2024
Riga 4:		Riga 4:
	==Agire sulla finestra di un programma qualsiasi==		==Agire sulla finestra di un programma qualsiasi==
	Esporremo una possibile modalità di uso della Classe ''DesktopWindow'' e ''Desktop'' per una ''semplice'' azione su una finestra:		Esporremo una possibile modalità di uso della Classe ''DesktopWindow'' e ''Desktop'' per una ''semplice'' azione su una finestra:
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim dw As DesktopWindow		Dim dw As DesktopWindow
	Dim ii As Integer[]		Dim ii As Integer[]

	<FONT color=#006400>' ''Individuiamo il numero identificativo della "finestra" del programma, inserendo il nome esatto della finestra (si può utilizzare anche l'asterisco "*":''</font>		<FONT color=#006400>' ''Individuiamo il numero identificativo della "finestra" del programma, inserendo il nome esatto della finestra (si può utilizzare anche l'asterisco "*":''</font>
	ii = Desktop.FindWindow("<FONT color=gray>''nome_della_finestra_del_programma_da_gestire''</font>")		ii = Desktop.FindWindow("<FONT color=gray>''nome_della_finestra_del_programma_da_gestire''</font>")

	With dw = New DesktopWindow(ii[0])		With dw = New DesktopWindow(ii[0])
	<FONT color=#006400>' ''Ne vediamo il titolo:''</font>		<FONT color=#006400>' ''Ne vediamo il titolo:''</font>
	Print .VisibleName		Print .VisibleName
	<FONT color=#006400>' ''Ne vediamo il numero identificativo in decimale ed in esadecimale:''</font>		<FONT color=#006400>' ''Ne vediamo il numero identificativo in decimale ed in esadecimale:''</font>
	Print .Id, hex(.Id)		Print .Id, hex(.Id)
	<FONT color=#006400>' ''Impostiamo i valori dello spostamento, ed eventualmente anche il ridimensionamento della finestra (i due parametri relativi al ridimensionamento della finestra sortiscono il loro effetto soltanto se la finestra del programma è ridimensionabile):''</font>		<FONT color=#006400>' ''Impostiamo i valori dello spostamento, ed eventualmente anche il ridimensionamento della finestra (i due parametri relativi al ridimensionamento della finestra sortiscono il loro effetto soltanto se la finestra del programma è ridimensionabile):''</font>
	.Move(<FONT color=gray>''valoreX''</font>, <FONT color=gray>''valoreY''</font>, <FONT color=gray>''valoreW''</font>, <FONT color=gray>''valoreY''</font>)		.Move(<FONT color=gray>''valoreX''</font>, <FONT color=gray>''valoreY''</font>, <FONT color=gray>''valoreW''</font>, <FONT color=gray>''valoreY''</font>)
	End With		End With

	~~'''~~End~~'''~~		End
	E' ovviamente possibile utilizzare anche le altre funzioni e proprietà disponibili per la Classe ''DesktopWindow''.		E' ovviamente possibile utilizzare anche le altre funzioni e proprietà disponibili per la Classe ''DesktopWindow''.

Riga 32:		Riga 32:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Me.Center		Me.Center
Riga 44:		Riga 44:
	End With		End With

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Timer1_Timer()		Public Sub Timer1_Timer()

	Dim i As Integer		Dim i As Integer
Riga 63:		Riga 63:
	End With		End With

	~~'''~~End~~'''~~		End


Riga 95:		Riga 95:
	i = Val("&" & x[1]) - Val("&" & y)		i = Val("&" & x[1]) - Val("&" & y)

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim dw As DesktopWindow		Dim dw As DesktopWindow
Riga 109:		Riga 110:
	End With		End With

	~~'''~~End~~'''~~		End
	Il puntatore del mouse muterà a forma di crocetta. Si dovrà cliccare una volta sulla finestra interessata. Quindi cliccando successivamente sul Button1, la finestra si sposta alle coordinate X ed Y stabilite. Potrà anche essere previsto il ridimensionamento della finestra ponendo anche i valori relativi a ''Weigth'' e ''Width'': ''.Move(x, y, w, h).		Il puntatore del mouse muterà a forma di crocetta. Si dovrà cliccare una volta sulla finestra interessata. Quindi cliccando successivamente sul Button1, la finestra si sposta alle coordinate X ed Y stabilite. Potrà anche essere previsto il ridimensionamento della finestra ponendo anche i valori relativi a ''Weigth'' e ''Width'': ''.Move(x, y, w, h).

Riga 115:		Riga 116:
	===Uso del programma ''wmctrl'' con ''Shell''===		===Uso del programma ''wmctrl'' con ''Shell''===
	Si potrà fare anche uso del comando ''wmctrl'' lanciato con ''Shell'':		Si potrà fare anche uso del comando ''wmctrl'' lanciato con ''Shell'':
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	<FONT color=#006400>' ''La finestra del programma, in questo esempio, viene posta in basso al centro dello schermo:''</font>		<FONT color=#006400>' ''La finestra del programma, in questo esempio, viene posta in basso al centro dello schermo:''</font>
	Shell "wmctrl -r ''nome_della_finestra_del_programma'' -e 0,500,800,600,300"		Shell "wmctrl -r ''nome_della_finestra_del_programma'' -e 0,500,800,600,300"

	~~'''~~End~~'''~~		End
	riguardo ai valori inseriti dell'esempio precedente:		riguardo ai valori inseriti dell'esempio precedente:
	* 500 = <FONT color=#B22222>coordinate x</font>;		* 500 = <FONT color=#B22222>coordinate x</font>;

Vuott il 19:00, 20 ago 2022

2022-08-20T19:00:08Z

← Versione meno recente		Versione delle 13:00, 20 ago 2022
Riga 6:		Riga 6:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	Dim dw As DesktopWindow		Dim dw As DesktopWindow
	Dim a As Integer[]		Dim ii As Integer[]

	<FONT color=#006400>' ''Individuiamo il ~~PID~~ della "finestra" del programma:''</font>		<FONT color=#006400>' ''Individuiamo il numero identificativo della "finestra" del programma, inserendo il nome esatto della finestra (si può utilizzare anche l'asterisco "*":''</font>
	a = Desktop.FindWindow("<FONT color=gray>''nome_della_finestra_del_programma_da_gestire''</font>")		ii = Desktop.FindWindow("<FONT color=gray>''nome_della_finestra_del_programma_da_gestire''</font>")

	dw = New DesktopWindow(a[0])		With dw = New DesktopWindow(ii[0])

	~~With dw~~
	<FONT color=#006400>' ''Ne vediamo il titolo:''</font>		<FONT color=#006400>' ''Ne vediamo il titolo:''</font>
	Print .VisibleName		Print .VisibleName
	<FONT color=#006400>' ''Ne vediamo il numero ~~del suo PID~~ in decimale ed in esadecimale:''</font>		<FONT color=#006400>' ''Ne vediamo il numero identificativo in decimale ed in esadecimale:''</font>
	Print .Id, hex(.Id)		Print .Id, hex(.Id)
	<FONT color=#006400>' ''Impostiamo i valori dello spostamento, ed eventualmente anche il ridimensionamento della finestra (i due parametri relativi al ridimensionamento della finestra sortiscono il loro effetto soltanto se la finestra del programma è ridimensionabile):''</font>		<FONT color=#006400>' ''Impostiamo i valori dello spostamento, ed eventualmente anche il ridimensionamento della finestra (i due parametri relativi al ridimensionamento della finestra sortiscono il loro effetto soltanto se la finestra del programma è ridimensionabile):''</font>
	.Move(''valoreX'', ''valoreY'', ''valoreW'', ''valoreY'')		.Move(<FONT color=gray>''valoreX''</font>, <FONT color=gray>''valoreY''</font>, <FONT color=gray>''valoreW''</font>, <FONT color=gray>''valoreY''</font>)
	End With		End With

	'''End'''		'''End'''
Riga 51:		Riga 49:
	'''Public''' Sub Timer1_Timer()		'''Public''' Sub Timer1_Timer()

	Dim a As Integer		Dim i As Integer
	Dim dw As DesktopWindow		Dim dw As DesktopWindow

	<FONT color=#006400>' ''Individuiamo l'handle della finestra attiva in primo piano:''</font>		<FONT color=#006400>' ''Individuiamo l'handle della finestra attiva in primo piano:''</font>
	a = Desktop.ActiveWindow		i = Desktop.ActiveWindow

	<FONT color=#006400>' ''...quindi la gestiamo:''</font>		<FONT color=#006400>' ''...quindi la gestiamo:''</font>
	With dw = New DesktopWindow(a)		With dw = New DesktopWindow(i)
	Print .VisibleName		Print .VisibleName
	Print .Id, hex(.Id)		Print .Id, hex(.Id)
Riga 74:		Riga 72:
	===Uso del comando ''xprop'' e di ''DesktopWindow''===		===Uso del comando ''xprop'' e di ''DesktopWindow''===
	Vedremo un possibile uso combinato del comando ''xprop'' e della classe ''DesktopWindow'':		Vedremo un possibile uso combinato del comando ''xprop'' e della classe ''DesktopWindow'':
	~~'''~~Private~~'''~~ i As Integer		Private i As Integer

Vuott il 22:50, 20 lug 2022

2022-07-20T22:50:06Z

← Versione meno recente		Versione delle 16:50, 20 lug 2022
Riga 19:		Riga 19:
	<FONT color=#006400>' ''Ne vediamo il numero del suo PID in decimale ed in esadecimale:''</font>		<FONT color=#006400>' ''Ne vediamo il numero del suo PID in decimale ed in esadecimale:''</font>
	Print .Id, hex(.Id)		Print .Id, hex(.Id)
	<FONT color=#006400>' ''Impostiamo i valori dello spostamento, ed eventualmente anche il ridimensionamento della finestra~~:''~~		<FONT color=#006400>' ''Impostiamo i valori dello spostamento, ed eventualmente anche il ridimensionamento della finestra (i due parametri relativi al ridimensionamento della finestra sortiscono il loro effetto soltanto se la finestra del programma è ridimensionabile):''</font>
	~~' ''~~(i due parametri relativi al ridimensionamento della finestra sortiscono il loro effetto soltanto se la finestra del programma è ridimensionabile):''</font>
	.Move(''valoreX'', ''valoreY'', ''valoreW'', ''valoreY'')		.Move(''valoreX'', ''valoreY'', ''valoreW'', ''valoreY'')
	End With		End With

Vuott il 22:48, 20 lug 2022

2022-07-20T22:48:40Z

← Versione meno recente		Versione delle 16:48, 20 lug 2022
Riga 80:		Riga 80:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	Dim pr As Process		Dim pr As Process
	Dim ss, x As New String[]		Dim ss, x As New String[]
	Dim s, y As String		Dim s, y As String

	pr = Shell "xprop \| grep '(WINDOW):'" For Read		pr = Shell "xprop \| grep '(WINDOW):'" For Read


	While Not Eof(pr)		While Not Eof(pr)
	Input #pr, s		Input #pr, s
	ss.Add(s)		ss.Add(s)
	Wend		Wend


	<FONT color=#006400>' ''Dividiamo la stringa contenente il primo valore esadecimale,''		<FONT color=#006400>' ''Dividiamo la stringa contenente il primo valore esadecimale, in modo tale da ottenere la seconda parte utile, priva di “0x”:''</font>
	~~' ''~~in modo tale da ottenere la seconda parte utile, priva di “0x”:''</font>		x = Split(ss[4], "x")
	x = Split(ss[4], "x")		<FONT color=#006400>' ''Dividiamo la stringa contenente il secondo valore esadecimale, in modo tale da ottenere le ultime due cifre più a destra:''</font>
	<FONT color=#006400>' ''Dividiamo la stringa contenente il secondo valore esadecimale,''		y = Right(ss[9], 2)
	~~' ''~~in modo tale da ottenere le ultime due cifre più a destra:''</font>
	y = Right(ss[9], 2)
	<FONT color=#006400>' ''Individua il valore esadecimale preciso della finestra, lo trasforma in decimale:''</font>		<FONT color=#006400>' ''Individua il valore esadecimale preciso della finestra, lo trasforma in decimale:''</font>
	i = Val("&" & x[1]) - Val("&" & y)		i = Val("&" & x[1]) - Val("&" & y)

	'''End'''		'''End'''


	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	Dim dw As DesktopWindow		Dim dw As DesktopWindow


	dw = New DesktopWindow(i)		dw = New DesktopWindow(i)

	With dw		With dw
	Print .VisibleName		Print .VisibleName
	Print .Id, hex(.Id)		Print .Id, hex(.Id)
	.Move(Mouse.ScreenX + 10, Mouse.ScreenY)		.Move(Mouse.ScreenX + 10, Mouse.ScreenY)
	End With		End With

	'''End'''		'''End'''
	Il puntatore del mouse muterà a forma di crocetta. Si dovrà cliccare una volta sulla finestra interessata. Quindi cliccando successivamente sul Button1, la finestra si sposta alle coordinate X ed Y stabilite. Potrà anche essere previsto il ridimensionamento della finestra ponendo anche i valori relativi a ''Weigth'' e ''Width'': ''.Move(x, y, w, h).		Il puntatore del mouse muterà a forma di crocetta. Si dovrà cliccare una volta sulla finestra interessata. Quindi cliccando successivamente sul Button1, la finestra si sposta alle coordinate X ed Y stabilite. Potrà anche essere previsto il ridimensionamento della finestra ponendo anche i valori relativi a ''Weigth'' e ''Width'': ''.Move(x, y, w, h).

Vuott il 19:01, 24 mag 2020

2020-05-24T19:01:37Z

← Versione meno recente		Versione delle 13:01, 24 mag 2020
Riga 10:		Riga 10:

	<FONT color=#006400>' ''Individuiamo il PID della "finestra" del programma:''</font>		<FONT color=#006400>' ''Individuiamo il PID della "finestra" del programma:''</font>
	a = Desktop.FindWindow("''nome_della_finestra_del_programma_da_gestire''")		a = Desktop.FindWindow("<FONT color=gray>''nome_della_finestra_del_programma_da_gestire''</font>")

	dw = New DesktopWindow(a[0])		dw = New DesktopWindow(a[0])
Riga 29:		Riga 29:

	==Agire sulla finestra di un programma qualsiasi operando direttamente con il mouse==		==Agire sulla finestra di un programma qualsiasi operando direttamente con il mouse==
	In questo caso agiremo sulla finestra di un programma qualsiasi (anche se non quello dell'applicazione.gambas) individuandola con il mouse. Bisognerà fare in modo da sollevare con il mouse la finestra, cliccandoci sopra. Essa, così, diventerà attiva principale rispetto a tutte le altre presenti sul desktop. Quindi, una volta individuata, si operà su di essa attraverso una variabile del tipo della Classe ''DesktopWindow''. Utilizzeremo inoltre un ''Timer'' ponendo un ritardo abbastanza basso, e dovremo attivare il componente ''gb.desktop'':		In questo caso agiremo sulla finestra di un programma qualsiasi (anche se non quello dell'applicazione.gambas) individuandola con il mouse. Bisognerà fare in modo da sollevare con il mouse la finestra, cliccandoci sopra. Essa, così, diventerà attiva principale rispetto a tutte le altre presenti sul desktop. Quindi, una volta individuata, si operà su di essa attraverso una variabile del tipo della Classe ''DesktopWindow''. Utilizzeremo inoltre un ''Timer'' ponendo un ritardo abbastanza basso, e dovremo attivare il componente ''gb.desktop''.

			Attenzione, perché anche il desktop è rappresentato da una finestra; pertanto, se cliccheremo su di esso, comporteremo su questo le modifiche previste dal codice sotto mostrato.
			Private Timer1 As Timer


	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

Riga 37:		Riga 42:
	Wait 0.1		Wait 0.1

	Timer1.Start		With Timer1 = New Timer As "Timer1"
			.Delay = 100
			.Start
			End With

	'''End'''		'''End'''
Riga 48:		Riga 56:

	<FONT color=#006400>' ''Individuiamo l'handle della finestra attiva in primo piano:''</font>		<FONT color=#006400>' ''Individuiamo l'handle della finestra attiva in primo piano:''</font>
	a = Desktop.ActiveWindow		a = Desktop.ActiveWindow

	<FONT color=#006400>' ''...quindi la gestiamo:''</font>		<FONT color=#006400>' ''...quindi la gestiamo:''</font>
	With dw = New DesktopWindow(a)		With dw = New DesktopWindow(a)
	Print .VisibleName		Print .VisibleName
	Print .Id, hex(.Id)		Print .Id, hex(.Id)
	.Move(Mouse.ScreenX + 10, Mouse.ScreenY)		.Move(Mouse.ScreenX + 20, Mouse.ScreenY)
	.Resize(~~valoreW~~, ~~valoreH~~)		.Resize(200, 100)
	~~<FONT color=#006400>' ''Se cliccheremo su una finestra diversa da quella dell'applicazione principale gambas...''</font>~~		End With
	~~If .VisibleName <> Application.Title Then~~
	~~<FONT color=#006400>' ''...allora la nuova finestra cliccata sarà anche chiusa dopo 2 secondi:''</font>~~
	~~Sleep 2~~
	~~.Close~~
	End With

	'''End'''		'''End'''

Vuott il 23:06, 6 gen 2013

2013-01-06T23:06:19Z

← Versione meno recente		Versione delle 17:06, 6 gen 2013
Riga 3:		Riga 3:

	==Agire sulla finestra di un programma qualsiasi==		==Agire sulla finestra di un programma qualsiasi==
	Esporremo una possibile modalità di uso della Classe ''DesktopWindow'' e ''Desktop'' pe una ''semplice'' azione su una finestra:		Esporremo una possibile modalità di uso della Classe ''DesktopWindow'' e ''Desktop'' per una ''semplice'' azione su una finestra:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

Vuott il 23:05, 6 gen 2013

2013-01-06T23:05:53Z

← Versione meno recente		Versione delle 17:05, 6 gen 2013
Riga 2:		Riga 2:


	==Agire ~~su una~~ finestra di un programma qualsiasi==		==Agire sulla finestra di un programma qualsiasi==
	Esporremo una possibile modalità di uso della Classe ''DesktopWindow'' e ''Desktop'' pe una ''semplice'' azione su una finestra:		Esporremo una possibile modalità di uso della Classe ''DesktopWindow'' e ''Desktop'' pe una ''semplice'' azione su una finestra:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

Vuott il 23:03, 6 gen 2013

2013-01-06T23:03:19Z

← Versione meno recente		Versione delle 17:03, 6 gen 2013
Riga 49:		Riga 49:
	<FONT color=#006400>' ''Individuiamo l'handle della finestra attiva in primo piano:''</font>		<FONT color=#006400>' ''Individuiamo l'handle della finestra attiva in primo piano:''</font>
	a = Desktop.ActiveWindow		a = Desktop.ActiveWindow

	~~<FONT color=#006400>' ''Assegnamo la finestra individuata ad una variabile di tipo della Classe "DesktopWindow"...''</font>~~
	~~dw = Desktop.Windows.FromHandle(a)~~

	<FONT color=#006400>' ''...quindi la gestiamo:''</font>		<FONT color=#006400>' ''...quindi la gestiamo:''</font>

Vuott il 23:02, 6 gen 2013

2013-01-06T23:02:23Z

← Versione meno recente		Versione delle 17:02, 6 gen 2013
Riga 54:		Riga 54:

	<FONT color=#006400>' ''...quindi la gestiamo:''</font>		<FONT color=#006400>' ''...quindi la gestiamo:''</font>
	With dw		With dw = New DesktopWindow(a)
	Print .VisibleName		Print .VisibleName
	Print .Id, hex(.Id)		Print .Id, hex(.Id)