You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Darwinism/Examples/ServerCloud/Program.vb

16 lines
626 B

Imports Microsoft.VisualBasic.CommandLine.Reflection
Imports Microsoft.VisualBasic.ComputingServices.TaskHost
Module Program
Sub Main()
Call GetType(Program).RunCLI(App.CommandLine, Function() Start(CommandLine.TryParse("")))
End Sub
<ExportAPI("/start", Usage:="/start /port <port, default:1234>")>
Public Function Start(args As CommandLine.CommandLine) As Integer
Dim port As Integer = args.GetValue("/port", 1234)
Return New TaskInvoke(True, port).Run() ' No more code needs on your cloud server, just needs 2 lines code to running your task host.
End Function
End Module