Spostare da codice il mouse sullo schermo - Cronologia

Vuott il 03:55, 28 nov 2023

2023-11-28T03:55:22Z

← Versione meno recente		Versione delle 21:55, 27 nov 2023
Riga 5:		Riga 5:

	Mostriamo un esempio pratico, nel quale il puntatore del mouse sarà spostato al centro dello schermo:		Mostriamo un esempio pratico, nel quale il puntatore del mouse sarà spostato al centro dello schermo:
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Mouse.Move(Screen.W / 2, Screen.H / 2)		Mouse.Move(Screen.W / 2, Screen.H / 2)

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


	===Uso del file-device della periferica mouse===		===Uso del file-device della periferica mouse===
	Quest'altra modalità prevede che agisca sul file-device ''/dev/input/mouse...'' del mouse.		Quest'altra modalità prevede che agisca sul file-device ''/dev/input/mouse...'' del mouse. <SUP>[[[#Note\|nota 1]]]</sup>

	Mostriamo di seguito un esempio, nel quale il puntatore viene spostato ripetutamente sia verso destra che in basso:		Mostriamo di seguito un esempio, nel quale il puntatore viene spostato ripetutamente sia verso destra che in basso:
Riga 35:		Riga 35:


	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim eventoX, eventoY, fine_evento As New Input_event		Dim eventoX, eventoY, fine_evento As New Input_event
Riga 42:		Riga 42:
	Dim b As Byte		Dim b As Byte


	<FONT color=gray>' ''Individuiamo esattamente il file-device del mouse:''</font>		<FONT color=gray>' ''Individuiamo esattamente il file-device del mouse:''</font>
	s = File.Load("/proc/bus/input/devices")		s = File.Load("/proc/bus/input/devices")

	<FONT color=gray>' ''Individuiamo la riga contenente il testo "Handlers=mouse..."; l'ultima parola della riga sarà il nome del file-device del mouse:''</font>		<FONT color=gray>' ''Individuiamo la riga contenente il testo "Handlers=mouse..."; l'ultima parola della riga sarà il nome del file-device del mouse:''</font>
	s = Scan(s, "Handlers=mouse * *")[2]		s = Scan(s, "Handlers=mouse * *")[2]

	<FONT color=gray>' ''Per leggere il file-device individuato, bisogna avere i necessari permessi.''		<FONT color=gray>' ''Per leggere il file-device individuato, bisogna avere i necessari permessi.''
	' ''Pertanto, se non sono stati modificati i permessi del file-device, allora vengono modificati (bisognerà inserire la propria password !):''</font>		' ''Pertanto, se non sono stati modificati i permessi del file-device, allora vengono modificati (bisognerà inserire la propria password !):''</font>
	Input pw		Input pw

	If Stat("/dev/input" &/ s).Auth <> "rwsrwxrwx" Then		If Stat("/dev/input" &/ s).Auth <> "rwsrwxrwx" Then
	Shell "echo " & pw & " \| sudo -S chmod 4777 /dev/input" &/ s Wait		Shell "echo " & pw & " \| sudo -S chmod 4777 /dev/input" &/ s Wait
	Endif		Endif


	fl = Open "/dev/input" &/ s For Write		fl = Open "/dev/input" &/ s For Write
	If IsNull(fl) Then Error.Raise("Impossibile aprire il file-device !")		If IsNull(fl) Then Error.Raise("Impossibile aprire il file-device !")

	<FONT color=gray>' ''Assegna i dati per lo spostamento orizzontale del mouse sullo schermo:''</font>		<FONT color=gray>' ''Assegna i dati per lo spostamento orizzontale del mouse sullo schermo:''</font>
	With eventoX		With eventoX
	.type = EV_REL		.type = EV_REL
	.code = REL_X		.code = REL_X
	<FONT color=gray>' ''Si assegna un valore positivo per lo spostamento a destra, un valore negativo per lo spostamento a sinistra:''</font>		<FONT color=gray>' ''Si assegna un valore positivo per lo spostamento a destra, un valore negativo per lo spostamento a sinistra:''</font>
	.value = 100		.value = 100
	End With		End With

	<FONT color=gray>' ''Assegna i dati per lo spostamento verticale del mouse sullo schermo:''</font>		<FONT color=gray>' ''Assegna i dati per lo spostamento verticale del mouse sullo schermo:''</font>
	With eventoY		With eventoY
	.type = EV_REL		.type = EV_REL
	.code = REL_Y		.code = REL_Y
	<FONT color=gray>' ''Si assegna un valore positivo per lo spostamento in basso, un valore negativo per lo spostamento in alto:''</font>		<FONT color=gray>' ''Si assegna un valore positivo per lo spostamento in basso, un valore negativo per lo spostamento in alto:''</font>
	.value = 100		.value = 100
	End With		End With

	With fine_evento		With fine_evento
	.type = EV_SYN		.type = EV_SYN
	.code = SYN_REPORT		.code = SYN_REPORT
	.value = 0		.value = 0
	End With		End With

	For b = 1 To 5		For b = 1 To 5
	Write #fl, eventoX As Input_event <FONT color=gray>' ''Sposta il mouse orizzontalmente''</font>		Write #fl, eventoX As Input_event <FONT color=gray>' ''Sposta il mouse orizzontalmente''</font>
	Write #fl, fine_evento As Input_event <FONT color=gray>' ''Mostra lo spostamento del mouse''</font>		Write #fl, fine_evento As Input_event <FONT color=gray>' ''Mostra lo spostamento del mouse''</font>
	Wait 1		Wait 1
	Write #fl, eventoY As Input_event <FONT color=gray>' ''Sposta il mouse verticalmente''</font>		Write #fl, eventoY As Input_event <FONT color=gray>' ''Sposta il mouse verticalmente''</font>
	Write #fl, fine_evento As Input_event <FONT color=gray>' ''Mostra lo spostamento del mouse''</font>		Write #fl, fine_evento As Input_event <FONT color=gray>' ''Mostra lo spostamento del mouse''</font>
	Wait 1		Wait 1
	Next		Next

	<FONT color=gray>' ''Va in chiusura:''</font>		<FONT color=gray>' ''Va in chiusura:''</font>
	fl.Close		fl.Close

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



			=Note=
			[1] Vedere anche: [[Intercettare i dati del mouse dai file-device mouse, mice, event]]

Vuott il 22:49, 12 mar 2023

2023-03-12T22:49:32Z

← Versione meno recente		Versione delle 16:49, 12 mar 2023
Riga 2:		Riga 2:

	===Uso del Metodo ".Move()" della Classe ''Mouse''===		===Uso del Metodo ".Move()" della Classe ''Mouse''===
	Si potrà utilizzare il Metodo "''.Move( )''" della Classe "''Mouse''", che accetta due parametri formali, i quali rappresentano le coordinate "x" e "y" dall'angolo alto sinistro dello schermo.		Si potrà utilizzare il Metodo ".Move()" della Classe ''Mouse'', che accetta due parametri formali, i quali rappresentano le coordinate "x" e "y" dall'angolo alto sinistro dello schermo.

	Mostriamo un esempio pratico, nel quale il puntatore del mouse sarà spostato al centro dello schermo:		Mostriamo un esempio pratico, nel quale il puntatore del mouse sarà spostato al centro dello schermo:

Vuott il 22:48, 12 mar 2023

2023-03-12T22:48:46Z

← Versione meno recente		Versione delle 16:48, 12 mar 2023
Riga 46:		Riga 46:
	s = File.Load("/proc/bus/input/devices")		s = File.Load("/proc/bus/input/devices")

	<FONT color=gray>' ''Individuiamo la riga contenente il testo "Handlers=mouse...";''		<FONT color=gray>' ''Individuiamo la riga contenente il testo "Handlers=mouse..."; l'ultima parola della riga sarà il nome del file-device del mouse:''</font>
	~~' ''~~l'ultima parola della riga sarà il nome del file-device del mouse:''</font>
	s = Scan(s, "Handlers=mouse * *")[2]		s = Scan(s, "Handlers=mouse * *")[2]

Vuott il 22:48, 12 mar 2023

2023-03-12T22:48:04Z

← Versione meno recente		Versione delle 16:48, 12 mar 2023
Riga 51:		Riga 51:

	<FONT color=gray>' ''Per leggere il file-device individuato, bisogna avere i necessari permessi.''		<FONT color=gray>' ''Per leggere il file-device individuato, bisogna avere i necessari permessi.''
	' ''Pertanto, se non sono stati modificati i permessi del file-device, allora vengono modificati''		' ''Pertanto, se non sono stati modificati i permessi del file-device, allora vengono modificati (bisognerà inserire la propria password !):''</font>
	~~' ''~~(bisognerà inserire la propria password !):''</font>
	Input pw		Input pw

Riga 67:		Riga 66:
	.type = EV_REL		.type = EV_REL
	.code = REL_X		.code = REL_X
	<FONT color=gray>' ''Si assegna un valore positivo per lo spostamento a destra,''		<FONT color=gray>' ''Si assegna un valore positivo per lo spostamento a destra, un valore negativo per lo spostamento a sinistra:''</font>
	~~' ''~~un valore negativo per lo spostamento a sinistra:''</font>
	.value = 100		.value = 100
	End With		End With
Riga 76:		Riga 74:
	.type = EV_REL		.type = EV_REL
	.code = REL_Y		.code = REL_Y
	<FONT color=gray>' ''Si assegna un valore positivo per lo spostamento in basso,''		<FONT color=gray>' ''Si assegna un valore positivo per lo spostamento in basso, un valore negativo per lo spostamento in alto:''</font>
	~~' ''~~un valore negativo per lo spostamento in alto:''</font>
	.value = 100		.value = 100
	End With		End With

Vuott il 14:08, 28 ago 2022

2022-08-28T14:08:10Z

← Versione meno recente		Versione delle 08:08, 28 ago 2022
Riga 1:		Riga 1:
	Per poter spostare da codice sia orizzontalmente che verticalmente il puntatore del mouse all'interno dello schermo, si potranno adottare almeno due modalità.		Per poter spostare da codice sia orizzontalmente che verticalmente il puntatore del mouse all'interno dello schermo, si potranno adottare almeno due modalità.

	===Uso del Metodo "''.Move( )''" della Classe "''Mouse''"===		===Uso del Metodo ".Move()" della Classe ''Mouse''===
	Si potrà utilizzare il Metodo "''.Move( )''" della Classe "''Mouse''", che accetta due parametri formali, i quali rappresentano le coordinate "x" e "y" dall'angolo alto sinistro dello schermo.		Si potrà utilizzare il Metodo "''.Move( )''" della Classe "''Mouse''", che accetta due parametri formali, i quali rappresentano le coordinate "x" e "y" dall'angolo alto sinistro dello schermo.

Riga 10:		Riga 10:

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


	===Uso del file-device della periferica mouse===		===Uso del file-device della periferica mouse===

Vuott il 13:59, 28 ago 2022

2022-08-28T13:59:50Z

← Versione meno recente		Versione delle 07:59, 28 ago 2022
Riga 99:		Riga 99:

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



			=Riferimenti=
			* https://www.kernel.org/doc/Documentation/input/event-codes.txt
			* /usr/include/linux/input-event-codes.h

Vuott il 01:49, 27 ott 2021

2021-10-27T01:49:14Z

← Versione meno recente		Versione delle 19:49, 26 ott 2021
Riga 1:		Riga 1:
	Per poter spostare da codice sia orizzontalmente che verticalmente il puntatore del mouse all'interno dello schermo, si potranno adottare almeno due modalità.		Per poter spostare da codice sia orizzontalmente che verticalmente il puntatore del mouse all'interno dello schermo, si potranno adottare almeno due modalità.


	===Uso del Metodo "''.Move( )''" della Classe "''Mouse''"===		===Uso del Metodo "''.Move( )''" della Classe "''Mouse''"===
Riga 11:		Riga 10:

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


	===Uso del file-device della periferica mouse===		===Uso del file-device della periferica mouse===
	Quest'altra modalità prevede che agisca sul file-device ''/dev/input/mouse...'' del mouse.		Quest'altra modalità prevede che agisca sul file-device ''/dev/input/mouse...'' del mouse.


	Mostriamo di seguito un esempio, nel quale il puntatore viene spostato ripetutamente sia verso destra che in basso:		Mostriamo di seguito un esempio, nel quale il puntatore viene spostato ripetutamente sia verso destra che in basso:

Vuott il 14:20, 29 set 2017

2017-09-29T14:20:52Z

← Versione meno recente		Versione delle 08:20, 29 set 2017
Riga 1:		Riga 1:
	Per poter spostare da codice sia orizzontalmente che verticalmente il puntatore del mouse all'interno dello schermo, si ~~dovrà agire~~ sul ~~suo~~ file-device ''/dev/input/mouse...'' .		Per poter spostare da codice sia orizzontalmente che verticalmente il puntatore del mouse all'interno dello schermo, si potranno adottare almeno due modalità.


			===Uso del Metodo "''.Move( )''" della Classe "''Mouse''"===
			Si potrà utilizzare il Metodo "''.Move( )''" della Classe "''Mouse''", che accetta due parametri formali, i quali rappresentano le coordinate "x" e "y" dall'angolo alto sinistro dello schermo.

			Mostriamo un esempio pratico, nel quale il puntatore del mouse sarà spostato al centro dello schermo:
			'''Public''' Sub Button1_Click()

			Mouse.Move(Screen.W / 2, Screen.H / 2)

			'''End'''


			===Uso del file-device della periferica mouse===
			Quest'altra modalità prevede che agisca sul file-device ''/dev/input/mouse...'' del mouse.

Vuott il 10:55, 29 set 2017

2017-09-29T10:55:25Z

← Versione meno recente		Versione delle 04:55, 29 set 2017
Riga 25:		Riga 25:

	Dim eventoX, eventoY, fine_evento As New Input_event		Dim eventoX, eventoY, fine_evento As New Input_event
	Dim s As String		Dim s, pw As String
	~~Dim ss As String[]~~
	Dim fl As File		Dim fl As File
	Dim b As Byte		Dim b As Byte
Riga 33:		Riga 32:
	<FONT color=gray>' ''Individuiamo esattamente il file-device del mouse:''</font>		<FONT color=gray>' ''Individuiamo esattamente il file-device del mouse:''</font>
	s = File.Load("/proc/bus/input/devices")		s = File.Load("/proc/bus/input/devices")
	~~s = Replace$(s, "\n", " ")~~
	~~ss = Split(s, " ", "", True)~~		<FONT color=gray>' ''Individuiamo la riga contenente il testo "Handlers=mouse...";''
			' ''l'ultima parola della riga sarà il nome del file-device del mouse:''</font>
	~~For b = 0 To ss.Max~~		s = Scan(s, "Handlers=mouse * *")[2]
	<FONT color=gray>' ''Individuiamo la riga contenente il testo "Handlers=mouse...",
	' ''~~e quindi raccogliamo~~ l'ultima parola della riga ~~medesima.''~~
	~~' ''Tale parola~~ sarà il nome del file-device del mouse:''</font>
	~~If ss[b] Like~~ "Handlers=mouse*" ~~Then s = ss~~[~~b + 1~~]
	~~Next~~

	~~<FONT color=gray>''''''''''''''''</font>~~


	<FONT color=gray>' ''Per leggere il file-device individuato, bisogna avere i necessari permessi.''		<FONT color=gray>' ''Per leggere il file-device individuato, bisogna avere i necessari permessi.''
	' ''Pertanto, se non sono stati modificati i permessi del file-device, allora vengono modificati''		' ''Pertanto, se non sono stati modificati i permessi del file-device, allora vengono modificati''
	' ''(bisognerà inserire la propria password !):''</font>		' ''(bisognerà inserire la propria password !):''</font>
			Input pw

	If Stat("/dev/input" &/ s).Auth <> "rwsrwxrwx" Then		If Stat("/dev/input" &/ s).Auth <> "rwsrwxrwx" Then
	Shell "echo ~~'password'~~ \| sudo -S chmod 4777 /dev/input" &/ s Wait		Shell "echo " & pw & " \| sudo -S chmod 4777 /dev/input" &/ s Wait
	Endif		Endif

Vuott il 01:14, 11 mag 2014

2014-05-11T01:14:46Z

← Versione meno recente		Versione delle 19:14, 10 mag 2014
Riga 39:		Riga 39:
	<FONT color=gray>' ''Individuiamo la riga contenente il testo "Handlers=mouse...",		<FONT color=gray>' ''Individuiamo la riga contenente il testo "Handlers=mouse...",
	' ''e quindi raccogliamo l'ultima parola della riga medesima.''		' ''e quindi raccogliamo l'ultima parola della riga medesima.''
	' ''Tale parola sarà in nome del file-device del mouse:''</font>		' ''Tale parola sarà il nome del file-device del mouse:''</font>
	If ss[b] Like "Handlers=mouse*" Then s = ss[b + 1]		If ss[b] Like "Handlers=mouse*" Then s = ss[b + 1]
	Next		Next