Differenze tra le versioni di "Conoscere il nome delle interfacce di rete presenti nel proprio sistema"
Da Gambas-it.org - Wikipedia.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 2: | Riga 2: | ||
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() | |
Dim ss As String[] | Dim ss As String[] | ||
| Riga 13: | Riga 13: | ||
Next | 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'' ": | 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 ss As String[] | ||
| Riga 31: | Riga 33: | ||
Next | Next | ||
| − | + | End | |
| + | oppure con la riga: | ||
| + | s = File.Load("/proc" &/ CStr(Application.Handle) &/ "net/dev") | ||
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")
