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.
20 lines
688 B
20 lines
688 B
|
|
''' <summary>
|
|
''' 我想要构建的是一个去中心化的网格计算框架
|
|
''' </summary>
|
|
Module ServicesProgram
|
|
|
|
Sub Main()
|
|
|
|
Call Microsoft.VisualBasic.ComputingServices.TaskHost.test()
|
|
|
|
' Call Microsoft.VisualBasic.ComputingServices.CLI_InitStart("./GridNode.exe", "cli /wan 127.0.0.1")
|
|
|
|
Dim master As New Microsoft.VisualBasic.ComputingServices.Asymmetric.Master("1234567890")
|
|
Call Microsoft.VisualBasic.Parallel.Run(AddressOf master.Run)
|
|
Call Threading.Thread.Sleep(1000)
|
|
|
|
Dim nodeMgr As New Microsoft.VisualBasic.ComputingServices.Asymmetric.Parasitifer("./GridNode.exe", "127.0.0.1", "1234567890")
|
|
End Sub
|
|
End Module
|