EnableExplicit

InitNetwork() 

If CreateNetworkServer(1,5432)=0
  MessageRequester("","Server konnte nicht erstellt werden.",0)
Else
  MessageRequester("","Server wurde erfolgreich erstellt. Jetzt wird die Netzwerk-Kommunikationsmöglichkeit freigegeben.",0)
EndIf

WSACleanup_()

If CreateNetworkServer(1,5431)=0
  MessageRequester("","Server konnte nicht erstellt werden.",0)
Else
  MessageRequester("","Server wurde erfolgreich erstellt.",0)
EndIf