Visualizza wikitesto di Individuare ed estrarre l'ID della finestra di un programma

Vi sono diverse modalità per trovare il numero identificativo ('''ID''') della finestra di un'applicazione.



=Uso delle Classi di Gambas=
Potremo utilizzare varie Classi e risorse di Gambas.


==Individuare l'ID della finestra del programma Gambas principale==
Per individuare l'ID della finestra del programma gambas <span style="text-decoration:underline">principale</span> potremo utilizzare la Classe ''FMain'' o la parola ''Me'', oppure la funzione <i>ActiveWindow</i> della Classe <FONT color="red">''Application''</font>.


===Uso della Classe <FONT color="red">''FMain''</font> o la parola <FONT color="red">''Me''</font>===
L'uso della Classe ''FMain'' o della parola ''Me'' è senz'altro il metodo più veloce per conoscere l'ID della finestra del programma principale:
 Public Sub Button2_Click()
 
  With FMain
 <font color="#006400">' ''L'ID della "finestra" del programma principale viene mostrato in decimale ed in esadecimale:''</font>
    Print .Id, Hex(.Id)
  End With
 
 End


===Uso della funzione <i>ActiveWindow</i> della Classe <FONT color="red">''Application''</font>===
 Public Sub Button1_Click()
 
  Dim w As Window
 
  w = Application.ActiveWindow
 
  Print w.Id, hex(w.Id)
  
 End
o più velocemente:
 Public Sub Button1_Click()
 
  Print Application.ActiveWindow.Id
 
 End


==Individuare l'ID della finestra che contiene un Controllo==
Per individuare l'ID della finestra che contiene un Controllo, possiamo usare la proprietà <FONT color="red"><i>Window</i></font> del Controllo medesimo.

Poniamo per esempio di avere un applicativo con due <i>Form</i>: uno principale (<i>FMain</i>) ed uno secondario (<i>Form1</i>). Sul <i>Form</i> secondario, <i>Form1</i>, è posto un <i>Button</i>. Supponiamo di voler individuare l'ID della finestra del Form secondario, ove è posto il <i>Button</i>, al fine di conoscere il nome della finestra e di gestirla. Nel codice della Classe, alla quale appartiene il Form secondario, avremo:
 Public Sub aperturaFormSecondario()
 
  Form1.Show()
 
  With Button1.Window
 <font color="#006400">' <i>Otteniamo l'ID ed il nome della finestra del Form secondario...:</i></font>
    Print Hex(.Id), .Name
 <font color="#006400">' <i>...inoltre, la spostiamo e la ridimensioniamo:</i></font>
    .Move(200, 500, 50, 300)
  End With
 
 End


==Uso della Classe DesktopWindow==
In tal caso sarà necessario caricare il componente <i>gb.desktop</i>.


===Individuare l'ID di tutte le finestre aperte nella scrivania===
Se si intende individuare e raccogliere l'ID di tutte le finestre aperte in quel momento sulla scrivania, si potrà procedere con il seguente algoritmo:
 Public Sub Button1_Click()
 
  Dim i As Integer
  Dim dw As DesktopWindow
 
 <font color="#006400">' <i>Otteniamo gli ID di tutte le "finestre" aperte sulla scrivania:</i></font>
  For Each i In Desktop.FindWindow(Null, Null, Null)
    With dw = New DesktopWindow(i)
 <font color="#006400">' <i>La console mostra il nome visibile della finestra ed il suo ID:</i></font>
      Print .VisibleName, Hex(i), i
    End With
  Next
 
 End


===Individuare l'ID di una finestra di nome conosciuto===
Se vogliamo conoscere l'ID di una finestra di cui conosciamo il nome, possiamo fare come segue:
 Public Sub Button1_Click()
 
  Dim dWin As DesktopWindow
 
  For Each dWin In Desktop.Windows
 <font color="#006500">' <i>cerca la finestra avente titolo "titolo_finestra_programma"...</i></font>
    If dWin.VisibleName = "titolo_finestra_programma" Then      |[[#Note|2]]|
 <font color="#006500">' <i>...per estrarne l'Id:</i></font>
      Print dWin.Id, Hex(dWin.Id)
    Endif
 
  Next
 
 End


===Individuare l'ID di una finestra di indice array conosciuto===
Se, invece, vogliamo conoscere l'ID di una finestra di cui conosciamo il numero dell'elemento dell'array di tipo integer, nella quale è posta, possiamo fare come segue:
 Public Sub Button1_Click()
 
  Dim i As Integer
  Dim dw As DesktopWindow
 
 <font color="#006400">' <i>Ottengo l'ID della finestra, aperta nella scrivania, contenuto nel tot elemento dell'array:</i></font>
  With dw = New DesktopWindow(Desktop.FindWindow(Null, Null, Null)[<i>num_Index</i>])
 <font color="#006400">' <i>La console mostra il nome visibile della finestra ed il suo ID:</i></font>
    Print .VisibleName, Hex(i), i
  End With
 
 End


===Individuare l'ID di una finestra cliccandoci sopra con il mouse===
Se vogliamo conoscere l'ID della finestra di un qualsiasi programma semplicemente cliccandoci sopra con il puntatore del mouse, possiamo utilizzare un codice come il seguente (è necessario porre un ''Timer''):
 Public Sub Form_Open()
 
  With Timer1
    .Delay = 100
    .Start
  End With
 
 End
  
 
 Public Sub Timer1_Timer()
 
  Dim dw As DesktopWindow
  Dim i As Integer
  
  i = Desktop.ActiveWindow
 
  With dw = New DesktopWindow(i)
    TextArea1.Text = .VisibleName & " = " & Hex(.Id)
  End With
 
 End



==Uso della Classe Desktop==
Con la Classe <i>Desktop</i>, richiamabile attivando il componente <i>gb.desktop</i>, si potranno utilizzare la funzione: "<i>.FindWindow</i>" e la proprietà: "<i>ActiveWindow</i>".

===Uso della funzione <FONT color="red"><i>Desktop.FindWindow</i></font>===
Il metodo <i>.FindWindow</i> ritorna un array di identificatori delle finestre X11 presenti sul desktop dell'utente. Con tale metodo si potrà usare il titolo della finestra oppure il nome dell'applicazione che ha generato la propria finestra. Si potrà procedere con il seguente algoritmo:
 Public Sub Button1_Click()
 
  Dim aHandle As Integer[]
  Dim id As Integer
 
 <FONT color=gray>' '' Cerca il numero identificativo della finestra dal titolo della finestra medesima, come memorizzato nella proprietà "WM_NAME" del sistema x11:</font>
  aHandle = Desktop.FindWindow("<FONT color=gray>''titolo_finestra_programma''</font>", Null, Null)
 <font color=gray>' ''oppure dal nome della classe della finestra del programma, come memorizzato nella proprietà "WM_CLASS" del sistema x11:''
 ' <B>aHandle = Desktop.FindWindow(Null,"</b><I>nome_classe_della_finestra</i><B>", Null)</b>
 ' ''o anche dal nome della funzione svolta dalla finestra, come memorizzata nella proprietà "WM_WINDOW_ROLE X11" del sistema x11:''
 ' <B>aHandle = Desktop.FindWindow(Null, Null, "</b><I>ruolo_della_finestra</i><B>")</b></font>
 
  If aHandle.Count = 0 Then 
    Message.Warning("Finestra non trovata&nbsp;!")
    Return
  Endif
 
  id = aHandle[0]
 
 <font color=gray>' ...<i>che va a mostrare in console:</i></font>
  Print id
 
 End
Da ricordare che <SPAN Style="text-decoration:underline">negli argomenti del metodo ''Desktop.FindWindow()'' è possibile utilizzare il metacarattere dell'asterisco * come con ''Like''</span>.

Si potrà utilizzare, però, anche il metodo <i>Windows</i> della classe <i>Desktop</i>:
 Public Sub Button1_Click()
 
 <font color="#006500">' <i>Se si conosce a quale indice corrisponde la finestra del programma da inglobare:</i></font>
  Print Desktop.Windows[n].Id
 
 End

====Individuare l'ID di tutte le finestre aperte nella scrivania====
Se si intende individuare e raccogliere, mediante la funzione <i>Desktop.FindWindow</i>, l'ID di tutte le finestre aperte in quel momento sulla scrivania, si potrà fare così:
 Public Sub Button1_Click()
 
  Dim b As Byte
 
  For b = 0 To Desktop.FindWindow(Null, Null, Null).Max
    With Desktop
      Print .FindWindow(Null, Null, Null)[b], Hex(.FindWindow(Null, Null, Null)[b])
    End With
  Next
 
 End 
oppure:
 Public Sub Button1_Click()
  
  For Each i As Integer In Desktop.FindWindow(Null, Null, Null)
    With Desktop
      Print Hex(i), .Windows.FromHandle(i).VisibleName
    End With
  Next
 
 End


===Uso della proprietà <FONT color="#FF0000"><i>Desktop.ActiveWindow</i></font>===
Per individuare l'ID della "finestra" corrente attiva di primo livello, si può utilizzare anche la proprietà "<i>ActiveWindow</i>" della classe <i>Desktop</i>.

Esempio:
 Public Sub Button1_Click()
 
  Desktop.OpenTerminal
 
 <font color="#006500">' <i>Diamo il tempo alla "finestra" del Terminale di aprirsi:</i></font>
  Wait 1 1
 
 <font color="#006500">' <i>Essendo la finestra del Terminale quella attiva in risalto, sarà restituito l'ID di tale finestra:</i></font>
  Print <font color="#B22222">Desktop.ActiveWindow</font>
 
 End



===Uso della proprietà <FONT color="#FF0000"><i>Desktop.Windows</i></font>===
La proprietà <i>.Windows</i> della Classe 'Desktop<i> ritorna un array di tipo </i>DesktopWindows<i> che rappresenta le finestre di primo livello attive sulla scrivania.</i>

Volendo, ad esempio, individuare l'ID di tutte le finestre aperte nella scrivania con detta proprietà, si potrà procedere nel modo che segue:
 Public Sub Button1_Click()
 
  Dim dw As DesktopWindow
 
  For Each dw In Desktop.Windows
    Print Hex(dw2.id)
  Next
 
 End

Ovviamente si potrà individuare una singola finestra in base all'indice dell'array restituito dalla proprietà <i>.Windows</i>:
 dw = Desktop.Windows[n]
oppure sulla base del numero dell'<i>handle</i> (che è un Integer) della finestra che si intende individuare:
 dw = Desktop.Windows.FromHandle(handle_della_finestra)



==Uso della Classe X11==
Per l'uso della Classe <i>X11</i>, richiamabile attivando il componente ''gb.desktop.x11'', si rimanda alla segute pagina della Wiki:
<BR>[[Individuare ID e nome delle finestre attive, nonché il PID dei loro programmi con le risorse del Componente gb.desktop.x11]]


=Uso delle funzioni esterne del API di X11=
Per individuare l'ID, nonché il nome, della finestra di un programma, sia di quello Gambas principale che di altro esterno, si potrà fare uso delle funzioni della libreria X11.

Per analogia di argomento rinviamo a questa pagina della Wiki:
<BR>[[Individuare l'ID ed il nome di una finestra nonché il PID del programma mediante le funzioni del API di X11]]



=Uso di comandi bash=
Si potrà fare uso anche di alcuni comandi <i>bash</i>:

==Uso del comando <FONT color="red"><i>wmctrl</i></font>==
'''wmctrl''' è un comando che in Gambas potrà essere lanciato con <i>Shell</i> o <i>Exec</i>.
<BR>Esempio: 
 Public Sub Button1_Click()
 
  Dim i As Integer
  Dim lista As String
  Dim llss As String[]
 
 <font color="#006500">' <i>Inserisce nella variabile stringa tutto il risultato del comando "wmctrl"...</i></font>
  Shell "wmctrl -p -l" To lista
  
  llss = Split(lista, Chr(10))
  
  For i = 0 To llss.Max
 <FONT Color=#006500>' ''Si inserirà il nome, anze parzialmente, della finestra del programma, di cui conoscere l'ID:''</font>
    If llss[i] Like "*<FONT Color=gray>''Nome_anche_parziale_della_finestra_di_un_programma''</font>*" Then Print Scan(llss[i], "*x* *")[1]
  Next
 
 End

==Uso del comando <font color="red"><i>xwininfo</i></font>==
Usando '''xwininfo''', bisogna indicare il preciso <u>titolo</u> della finestra dell'applicazione.
 Public Sub Button1_Click()
 
  Dim i As Integer
  Dim lista, s As String
  Dim ss As String[]
 
 <font color="#006500">' <i>Inserisce nella variabile stringa tutto il risultato del comando "xwininfo"...</i></font>
  Shell "xwininfo -name " &amp; "\"titolo_esatto_finestra_programma\"" To lista
 
 <font color="#006500">' ''Prende il contenuto vettore di tipo "stringa[]" contenente il numero dell'ID (in esadecimale) e lo converte in esadecimale compresibile da Gambas e lo mostra:''</font>
  s = Scan(lista, "*0x* *")[1]
  Print s
 
 <font color="#006500">' ''Poi lo converte in un valore di tipo di dato numerico "Integer"...</i></font>
  i = Val("&" & s))
 <font color="#006500">' ...<i>e lo mostra in console:</i></font>
  Print i
  
 End



=Note=
[1] E' possibile usare anche il metacarattere <font color="darkslategray"><b>*</b></font>  sostituendo il segno <b>=</b> con <i>LIKE</i>. 
<BR>Esempio:
 <i>If dWin.name <font color=#B22222>Like</font> "titolo_finestra_prog<font color=#B22222>*</font>" Then...</i>