01.#Region "Server Code"
02. Public Sub btnStopServe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStopServe.Click
03. If Server Is Nothing Then
04. Exit Sub
05. Else
06. If ServerOn = False Then
07. Exit Sub
08. Else
09. Server.stopListen(True)
10. serverLogMessage("No longer serving.")
11. ServerOn = False
12. port50 = 0
13. End If
14. End If
15. End Sub
16.
17. Public Sub btnServe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnServe.Click
18. If Server Is Nothing Then
19. Server = New socketServer()
20. port50 = 1
21. Else
22. If ServerOn = False Then
23. port50 = 1
24. Server = New socketServer()
25. Else
26. Exit Sub
27. End If
28. End If
29. ServerOn = True
30. AddHandler Server.IncomingData, AddressOf handleServerIncomingData
31. AddHandler Server.Connected, AddressOf handleServerConnected
32. AddHandler Server.ConnectionError, AddressOf handleServerConnectionError
33. AddHandler Server.ConnectionRefused, AddressOf handleServerConnectionRefused
34. AddHandler Server.Disconnected, AddressOf handleServerDisconnected
35. AddHandler Server.DisconnectError, AddressOf handleServerDisconnectError
36. AddHandler Server.IncomingDataError, AddressOf handleServerIncomingDataError
37. AddHandler Server.ListenError, AddressOf handleServerListenError
38. AddHandler Server.SendDataError, AddressOf handleServerSendDataError
39. ReDim InUse(63)
40. Server.Listen(64, txtServePort.Text)
41. serverLogMessage("Now serving.")
42. End Sub
43.#End Region
