Effettuare il PING - Cronologia

Vuott il 10:30, 18 ott 2025

2025-10-18T10:30:05Z

← Versione meno recente		Versione delle 04:30, 18 ott 2025
Riga 40:		Riga 40:
	<FONT Color=gray>' ''int close(int _fd)''		<FONT Color=gray>' ''int close(int _fd)''
	' ''Close the file descriptor FD.''</font>		' ''Close the file descriptor FD.''</font>
	Private Extern close_C(_fd As Integer) As Integer ~~In "libc:6"~~ Exec "close"		Private Extern close_C(_fd As Integer) As Integer Exec "close"

Vuott il 10:16, 30 giu 2025

2025-06-30T10:16:33Z

← Versione meno recente		Versione delle 04:16, 30 giu 2025
Riga 62:		Riga 62:
	DestAddr.SinAddr = Alloc(SizeOf(gb.Pointer), 2)		DestAddr.SinAddr = Alloc(SizeOf(gb.Pointer), 2)

			<FONT Color=gray>' ''Ad esempio, fa il PING al seguente indirizzo IP di un server DNS pubblico:''</font>
	rc = inet_pton(AF_INET, "84.200.70.40", DestAddr.SinAddr)		rc = inet_pton(AF_INET, "84.200.70.40", DestAddr.SinAddr)
	If rc < 1 Then		If rc < 1 Then

Vuott il 10:13, 30 giu 2025

2025-06-30T10:13:27Z

← Versione meno recente		Versione delle 04:13, 30 giu 2025
Riga 54:		Riga 54:
	sockfd = socket(AF_INET, SOCK_DGRAM, IPPROTO_ICMP)		sockfd = socket(AF_INET, SOCK_DGRAM, IPPROTO_ICMP)
	If sockfd < 0 Then		If sockfd < 0 Then
	Print "~~Socket call error~~: " & System.Error		Print "Errore di chiamata del socket: " & System.Error
	Quit		Quit
	Endif		Endif
Riga 64:		Riga 64:
	rc = inet_pton(AF_INET, "84.200.70.40", DestAddr.SinAddr)		rc = inet_pton(AF_INET, "84.200.70.40", DestAddr.SinAddr)
	If rc < 1 Then		If rc < 1 Then
	Print "~~Error converting address.~~"		Print "Errore nella conversione dell'indirizzo !"
	Quit		Quit
	Endif		Endif
Riga 74:		Riga 74:
	gettimeofday(start_time, 0)		gettimeofday(start_time, 0)

	Dim p As Pointer = Alloc(32)		<FONT Color=gray>' ''Cerca di risolvere in Gambas il "cast" fra le seguenti Strutture scritte in C « (struct sockaddr *)&dest_addr »:''</font>
			Dim p As Pointer = Alloc(Object.SizeOf(DestAddr), 1)
	Dim st As Stream		Dim st As Stream
	st = Memory p For Write		st = Memory p For Write
Riga 84:		Riga 85:
	rc = sendto(sockfd, aHeader, 8, 0, p, Object.SizeOf(DestAddr))		rc = sendto(sockfd, aHeader, 8, 0, p, Object.SizeOf(DestAddr))
	If rc < 0 Then		If rc < 0 Then
	Print "~~Send error~~:", System.Error		Print "Errore invio:", System.Error
	Else		Else
	Print "Byte inviati:", rc		Print "Byte inviati:", rc
Riga 104:		Riga 105:
	Endif		Endif
	If rc < 0 Then 'error		If rc < 0 Then 'error
	Print "~~Close error~~: " & System.Error		Print "Errore di chiusura: " & System.Error
	Endif		Endif

	Catch		Catch
	Debug Error.Text;; "a";; Error.Where		Debug Error.Text; " a "; Error.Where

	End		End

Vuott il 00:29, 30 giu 2025

2025-06-30T00:29:29Z

Mostra modifiche

Vuott il 18:14, 9 feb 2024

2024-02-09T18:14:23Z

← Versione meno recente		Versione delle 12:14, 9 feb 2024
Riga 23:		Riga 23:
	Repeat		Repeat
	fread(p1, 1, 1, p2)		fread(p1, 1, 1, p2)
	s &= String@(p1))		s &= String@(p1)
	Wait 0.001		Wait 0.001
	Until Right(s, 1) = "\n"		Until Right(s, 1) = "\n"

Vuott: Creata pagina con "Per effettuare il [https://it.wikipedia.org/wiki/Ping PING] (''Packet INternet Groper'' ) con Gambas, si potrà lanciare l'omonimo comando bash "ping" seguito dal prefisso "ww..."

2023-11-24T08:49:40Z

Creata pagina con "Per effettuare il [https://it.wikipedia.org/wiki/Ping PING] (''Packet INternet Groper'' ) con Gambas, si potrà lanciare l'omonimo comando bash "ping" seguito dal prefisso "ww..."

Nuova pagina

Per effettuare il [https://it.wikipedia.org/wiki/Ping PING] (''Packet INternet Groper'' ) con Gambas, si potrà lanciare l'omonimo comando bash "ping" seguito dal prefisso "www." più il nome del dominio oppure dall'indirizzo IP mediante le istruzioni ''Shell'' o ''Exec[]''.

In alternativa si potrà anche utilizzare la funzione esterna di C "popen()", ad esempio come segue:
Library "libc:6"

' ''FILE *popen (const char *__command, const char *__modes)''
' ''Create a new stream connected to a pipe running the given command.''
Private Extern popen(__command As String, __modes As String) As Pointer

' ''size_t fread (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream)''
' ''Read chunks of generic data from STREAM.''
Private Extern fread(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long

Public Sub ToggleButton1_Click()

If ToggleButton1.Value Then
Dim p1, p2 As Pointer
Dim s As String
p1 = Alloc(SizeOf(gb.Byte), 1)
p2 = '''popen'''("ping www.gambas-it.org", "r")
While ToggleButton1.Value
Repeat
fread(p1, 1, 1, p2)
s &= String@(p1))
Wait 0.001
Until Right(s, 1) = "\n"
ListBox1.Add(RTrim(s))
s = Null
Wend
Else
Free(p1)
p1 = 0
Endif

End

Public Sub Form_Close()

Quit

End