Individuare i tasti della tastiera intercettando i dati grezzi dal suo file-device
E' possibile intercettare i dati grezzi provenienti dalla tastiera, per individuare di ciascun tasto pemuto il suo codice di scansione.
Per gestire direttamente i dati grezzi della tastiera, bisogna innanzitutto individuare il suo file-device. Sappiamo che esso è presente nel percorso /dev/input/, ed è rappresentato da uno dei file con il nome eventN; laddove "N" è un suffisso del nome rappresentato da un numero. nota 1
Per individuare precisamente quale sia il file-device associato alla tastiera, fra quelli che iniziano per event, bisognerà interrogare il file:
/proc/bus/input/devices
Tale file mostra quali dispositivi e gestori di input sono attualmente attivi, ed all'interno del quale bisognerà individuare la riga che inizia per H:, e che rappresenta i driver gestore associati ad un determinato dispositivo. Pertanto, la riga "H:" che si riferisce alla tastiera si presenta visivamente come segue:
H: Handlers=sysrq kbd eventn
laddove n è in realtà un numero. nota 2
Individuato, dunque, il file-device associato alla tastiera, lo gestiremo con una variabile di tipo Process.
Ogni volta che è premuto un tasto della tastiera, vengono scritti nel file-device della tastiera alcuni dati, che potranno essere ovviamente letti dal programma gambas. Il 21° dato ci darà il "Codice di Scansione" del tasto premuto. Tale codice, identificando univocamente il tasto appena premuto o rilasciato, è dunque universale per tutti i calcolatori, e quindi tranquillamente utilizzabile nei nostri programmi Gambas.
Indice
Codice esemplificativo in ambiente grafico Gambas
Mostriamo di seguito un possibile codice esemplificativo per intercettare e ricavare in ambiente grafico di Gambas, per ciascun tasto premuto, il "Codice di Scansione"
Supponiamo, nell'esempio che segue, che sia stato già individuato il file-device corrispondente alla tastiera, e che sia stato già da noi privato della sua protezione.
Tale file-device sarà aperto in lettura e posto sotto osservazione con la parola-chiave Watch.
I dati letti dal file-device saranno caricati in una variabile di tipo Stringa, dalla quale sarà estrapolato il 21° dato-valore.
Private fl As File Public Sub Form_Open() fl = Open "/dev/input/event4" For Read Watch End Public Sub File_Read() TextArea1.Clear Read #fl, s, -256 TextArea1.Text = "Codice di scansione del tasto premuto: " & Asc(Mid(s, 21, 1)) End
Usando la funzione Exec e il comando bash cat
In quest'altro esempio è necessario attivare il componente gb.desktop ed aver installato xterm: si provvederà da codice ad individuare e successivamente a eliminare la protezione del file-device corrispondente alla tastiera.
Per ogni tasto che viene premuto, vengono intercettati dal file-device della tastiera ben 144 dati; il 21° ci darà il codice di scansione del tasto premuto della tastiera.
Private pr As Process Private lett As New String[] Public Sub Form_Open() Dim s As String Dim i As Integer s = File.Load("/proc/bus/input/devices") ' Individuiamo la riga contenente il testo "Handlers=sysrq"; ed individuiamo il nome del file-device della tastiera: s = Trim(Scan(s, "*Handlers=sysrq *\n*")[1]) i = InStr(s, "event") s = Mid(s, i, 6) ' 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): If Stat("/dev/input" &/ s).Auth <> "rwsrwxrwx" Then Desktop.RunAsRoot("sudo -S chmod 4777 /dev/input" &/ s) Endif ' Poniamo un'attesa mediante un ciclo, fino a che i permessi del file-device non saranno mutati: Do Wait 0.01 Loop Until Stat("/dev/input" &/ s).Auth = "rwsrwxrwx" ' Finalmente il file-device viene gestito mediante un "Processo": pr = Exec ["cat", "/dev/input" &/ s] For Read As "processo" End Public Sub processo_Read() Dim b As Byte ' Legge i dati provenienti dal file-device della tastiera: Read #pr, b lett.Add(CStr(b)) If lett.Count = 144 Then ' Legge l'elemento di numero d'indice 20 della variabile array: Print "Codice scansione tasto: "; lett[20] lett.Clear Endif End
Come il precedente, ma in applicazione a riga di comando
Mostriamo di seguito un possibile codice esemplificativo per intercettare e ricavare nell'ambito di un'applicazione Gambas a riga di comando, per ciascun tasto premuto, il codice di scansione.
Private pr As Process Private lett As New String[] Public Sub Main() Dim s, pass As String Dim i As Integer s = File.Load("/proc/bus/input/devices") ' Individuiamo la riga contenente il testo "Handlers=sysrq"; ed individuiamo il nome del file-device della tastiera: s = Trim(Scan(s, "*Handlers=sysrq *\n*")[1]) i = InStr(s, "event") s = Mid(s, i, 6) ' Per leggere il file-device individuato, bisogna avere i necessari permessi. Essi vengono quindi modificati. ' E' necessario inserire nell'apposito spazio sottostante la Console (o nel Terminale) la password personale dell'utente: Print "Inserire nello spazio sottostante la propria 'password'." Input pass Shell "echo " & pass & " | sudo -S chmod 4777 /dev/input" &/ s Wait Print ' Finalmente il file-device viene gestito mediante un "Processo": pr = Exec ["cat", "/dev/input" &/ s] For Read As "processo" End Public Sub processo_Read() Dim b As Byte While Not Eof(pr) ' Legge i dati provenienti dal file-device della tastiera: Read #pr, b lett.Add(CStr(b)) If lett.Count = 144 Then ' Legge l'elemento di numero d'indice 20 della variabile array: Print "Codice scansione tasto: "; lett[20] lett.Clear Endif Wend End
Note
[1] Il nome event è dato dalla circostanza che il rapporto tra i vari elementi del sottosistema di input - ossia gli ingressi principali, i driver e gestori di eventi - avviene attraverso eventi.
[2] In versioni di Mint superiori alla 17 dopo la parola "eventn" è presente anche la parola "leds". Pertanto, se ne dovrà tenere conto ai fini dell'individuazione della parola eventn.