Airport-Basisstation reconnecten

Übersicht

BlitzMax, BlitzMax NG

Codearchiv & Module

	joasia36 Betreff: Airport-Basisstation reconnecten	So, Aug 14, 2011 23:33 Antworten mit Zitat
Machmal ist es sinnvoll (z. B. um bei einem Filehoster mit neuer IP vorstellig zu werden) einen Reconnect durchzuführen. Leider ist dies mit einer Apple-Airport-Basis nicht ganz so einfach. Mit dem folgenden Code ab sofort kein Problem mehr: Code: [AUSKLAPPEN] [EINKLAPPEN] Local host$ = "10.0.1.1" If AppArgs.Length = 2 Then host$ = AppArgs[1] Local socket:TSocket = CreateUDPSocket() If ConnectSocket( socket, HostIp(host$), 192 ) Local stream:TSocketStream = CreateSocketStream( socket, False ) Local a:Byte[] a = New Byte[116] a[0] = 6 SaveByteArray( a, stream ) Print "disconnected..." Delay 5000 a[0] = 7 SaveByteArray( a, stream ) Print "reconnected..." CloseStream(stream) EndIf CloseSocket(socket) Die IP-Adresse der Basis sollte als Kommandozeilenparameter übergeben werden. Voreingestellt habe ich hier die Apple-Defaults. Die Magic-Packets zum dis- und reconnecten habe ich im Internet gefunden und stammen von S. Sexton.

joasia36

Betreff: Airport-Basisstation reconnecten

So, Aug 14, 2011 23:33
Antworten mit Zitat

Machmal ist es sinnvoll (z. B. um bei einem Filehoster mit neuer IP vorstellig zu werden) einen Reconnect durchzuführen. Leider ist dies mit einer Apple-Airport-Basis nicht ganz so einfach. Mit dem folgenden Code ab sofort kein Problem mehr:

Code: [AUSKLAPPEN]

Local host$ = "10.0.1.1"
If AppArgs.Length = 2 Then host$ = AppArgs[1]

Local socket:TSocket = CreateUDPSocket()
If ConnectSocket( socket, HostIp(host$), 192 )

Local stream:TSocketStream = CreateSocketStream( socket, False )

Local a:Byte[]
a = New Byte[116]
a[0] = 6
SaveByteArray( a, stream )
Print "disconnected..."

Delay 5000
a[0] = 7
SaveByteArray( a, stream )
Print "reconnected..."

CloseStream(stream)

EndIf
CloseSocket(socket)

Die IP-Adresse der Basis sollte als Kommandozeilenparameter übergeben werden. Voreingestellt habe ich hier die Apple-Defaults. Die Magic-Packets zum dis- und reconnecten habe ich im Internet gefunden und stammen von S. Sexton.