Differenze tra le versioni di "Conoscere il nome delle interfacce di rete presenti nel proprio sistema"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Il riferimento alle interfacce di rete presenti nel proprio sistema può essere riscontrato nei file contenuti nella cartella "''/proc/net/dev_snmp6''", i quali riportano appu...")
 
 
(3 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Il riferimento alle interfacce di rete presenti nel proprio sistema può essere riscontrato nei file contenuti nella cartella "''/proc/net/dev_snmp6''", i quali riportano appunto il nome della relativa interfaccia.
+
Il riferimento alle interfacce di rete presenti nel proprio sistema può essere riscontrato nei file contenuti nella cartella "''/proc/net/dev_snmp6'' ", i quali riportano appunto il nome della relativa interfaccia.
  
 
Pertanto sarà semplice ricavare il solo e semplice nome delle interfacce di rete ad esempio mediante il seguente codice:
 
Pertanto sarà semplice ricavare il solo e semplice nome delle interfacce di rete ad esempio mediante il seguente codice:
  '''Public''' Sub Main()
+
  Public Sub Main()
 
    
 
    
   Dim archivos As String[]
+
   Dim ss As String[]
 
   Dim s As String
 
   Dim s As String
 +
 +
  ss = Dir("/proc/net/dev_snmp6", Null, gb.Device)
 +
 +
  For Each s In ss
 +
    Print s
 +
  Next
 
    
 
    
  archivos = Dir("/proc/net/dev_snmp6", Null, gb.Device)
+
End
   
+
oppure con la riga:
  For Each s In archivos
+
ss = Dir("/proc" &/ CStr(Application.Handle) &/ "net/dev_snmp6", Null, gb.Device)
    Print s
 
  Next
 
 
 
'''End'''
 
  
  
Un'altra possibilità di conoscere il nome di ciascuna interfaccia di rete è quella di estrapolarlo dalle informazioni testuali contenute nel file  "''/proc/net/dev''":
+
Un'altra possibilità di conoscere il nome di ciascuna interfaccia di rete è quella di estrapolarlo dalle informazioni testuali contenute nel file  "''/proc/net/dev'' ":
  '''Public''' Sub Main()
+
  Public Sub Main()
 
    
 
    
 
   Dim ss As String[]
 
   Dim ss As String[]
 
   Dim s As String
 
   Dim s As String
 
   Dim b As Byte
 
   Dim b As Byte
 +
 +
  s = File.Load("/proc/net/dev")
 +
 +
  ss = Split(s, gb.NewLine)
 
    
 
    
  s = File.Load("/proc/net/dev")
+
  For b = 2 To ss.Max
 +
    If Not IsNull(ss[b]) Then Print LTrim(Scan(ss[b], "*:*")[0])
 +
  Next
 
    
 
    
  ss = Split(s, gb.NewLine)
+
End
 
+
oppure con la riga:
  For b = 2 To ss.Max
+
s = File.Load("/proc" &/ CStr(Application.Handle) &/ "net/dev")
    If IsNull(ss[b]) = False Then Print LTrim(Scan(ss[b], "*:*")[0])
 
  Next
 
 
 
'''End'''
 

Versione attuale delle 17:38, 8 ott 2023

Il riferimento alle interfacce di rete presenti nel proprio sistema può essere riscontrato nei file contenuti nella cartella "/proc/net/dev_snmp6 ", i quali riportano appunto il nome della relativa interfaccia.

Pertanto sarà semplice ricavare il solo e semplice nome delle interfacce di rete ad esempio mediante il seguente codice:

Public Sub Main()
 
 Dim ss As String[]
 Dim s As String

 ss = Dir("/proc/net/dev_snmp6", Null, gb.Device)

 For Each s In ss
   Print s
 Next
 
End

oppure con la riga:

ss = Dir("/proc" &/ CStr(Application.Handle) &/ "net/dev_snmp6", Null, gb.Device)


Un'altra possibilità di conoscere il nome di ciascuna interfaccia di rete è quella di estrapolarlo dalle informazioni testuali contenute nel file "/proc/net/dev ":

Public Sub Main()
 
 Dim ss As String[]
 Dim s As String
 Dim b As Byte

 s = File.Load("/proc/net/dev")

 ss = Split(s, gb.NewLine)
 
 For b = 2 To ss.Max
   If Not IsNull(ss[b]) Then Print LTrim(Scan(ss[b], "*:*")[0])
 Next
 
End

oppure con la riga:

s = File.Load("/proc" &/ CStr(Application.Handle) &/ "net/dev")