maybe try the other connect without ip in LAN at first and/or print
data on screen.
windows firewall / other firewall software / router firewall or config can be the reason too.
source code i used:
function SendChatMessage(iNetID,text$,toClient)
iMsgID=CreateNetworkMessage()
AddNetworkMessageString( iMsgID, "C" )
AddNetworkMessageString( iMsgID, text$ )
//toClient =0 //an alle Clients
SendNetworkMessage( iNetID, toClient, iMsgID )
endfunction
function GetUpdate(iNetID,iChat,sGetStone,sSetStone)
do
iMsgID=GetNetworkMessage( iNetID )
if iMsgID = 0 then exit
cmd$=GetNetworkMessageString( iMsgID )
if cmd$="C"
text$=GetNetworkMessageString( iMsgID )
SetTextString( iChat, text$)
endif
if cmd$="COLOR"
Player.Color=GetNetworkMessageinteger( iMsgID )
endif
DeleteNetworkMessage( iMsgID )
loop
endfunction
function Host()
iNetID=HostNetwork(Config.NetworkName$,Config.PlayerName$, Config.ServerPort )
if IsNetworkActive(iNetID)=1
else
//return 0 if it failed to listen on the specified port
message("can't open network")
iNetID=0
endif
endfunction iNetID
function ConnectAsClient()
iNetID=JoinNetwork(Config.NetworkName$,Config.PlayerName$)
endfunction iNetID
function ConnectAsClientInternet()
iNetID=JoinNetwork( Config.ServerIP$, Config.ServerPort,Config.PlayerName$ )
endfunction iNetID
function NetClose(iNetID)
if iNetID then CloseNetwork( iNetID )
iNetID=0
endfunction iNetID
