Code: Alles auswählen
;------------------------------------------------------------------------------------
Ip$ = "127.0.0.1"
Port = 502
GerAdr = 10
Funktionscode = 3
;Register = 1
;------------------------------------------------------------------------------------
*Buffer = AllocateMemory(1600)
If CreateNetworkServer(0, Port, #PB_Network_IPv4 | #PB_Network_TCP, Ip$)
Repeat
ServerEvent = NetworkServerEvent()
If ServerEvent
ClientID = EventClient()
If ServerEvent = #PB_NetworkEvent_Data
RequestLength = ReceiveNetworkData(ClientID, *Buffer, 1600)
If PeekB(*Buffer+4) = 0 And PeekB(*Buffer+5) = 6 And PeekB(*Buffer+6) = GerAdr And PeekB(*Buffer+7) = Funktionscode And PeekB(*Buffer+10) = 0 And PeekB(*Buffer+11) = 1 ; Register
If PeekB(*Buffer+8)*256+PeekB(*Buffer+9) = $0001
PokeB(*Buffer+ 4, 0)
PokeB(*Buffer+ 5, 5)
PokeB(*Buffer+ 6, GerAdr)
PokeB(*Buffer+ 7, Funktionscode)
PokeB(*Buffer+ 8, 2)
PokeB(*Buffer+ 9, Random(255,0))
PokeB(*Buffer+10, Random(255,0))
SendNetworkData(ClientID, *Buffer, 11)
EndIf
EndIf
Else
Delay(20)
EndIf
EndIf
Until a=3
EndIf
End
;------------------------------------------------------------------------------------
