学习笔记,VB.NET实现DirectPlay (1) HOST

3 IP
new 一个 address就可以,比如        Dim mAddr As New Address("127.0.0.1", 2552)

Imports Microsoft.DirectX.DirectPlay

Public Class Form1

    Inherits System.Windows.Forms.Form

    Dim WithEvents p As New Peer '新的peer

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()

        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

           End If

        End If

        MyBase.Dispose(disposing)

    End Sub

    'Windows 窗体设计器所必需的

    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的

    '可以使用 Windows 窗体设计器修改此过程。

    '不要使用代码编辑器修改它。

    Friend WithEvents Button1 As System.Windows.Forms.Button

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Me.Button1 = New System.Windows.Forms.Button

        Me.SuspendLayout()

        '

        'Button1

        '

        Me.Button1.Location = New System.Drawing.Point(32, 16)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(72, 32)

        Me.Button1.TabIndex = 0

        Me.Button1.Text = "HOST"

        '

        'Form1

        '

        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

        Me.ClientSize = New System.Drawing.Size(288, 197)

        Me.Controls.Add(Me.Button1)

        Me.Name = "Form1"

        Me.Text = "Form1"

        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim g As Guid

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        g = Guid.NewGuid '生成一个新的GUID,用作标识application

        Me.Text = g.ToString '这个显示在窗体标题栏

        Dim mAddr As New Address("127.0.0.1", 2552)

        mAddr.ServiceProvider = Address.ServiceProviderTcpIp

        If IsServiceProviderValid(mAddr.ServiceProvider) = False Then

            '天,还真的出问题了?

            MsgBox("创建连接的时候失败了,网络设备不能用")

            Exit Sub

        End If

        Dim appDesc As New ApplicationDescription

        appDesc.GuidApplication = g '用上刚才随机生成的Guid了,当然这里仅仅是演示,要是每次都随机生成就不用连接了

        appDesc.Flags = SessionFlags.NoDpnServer Or SessionFlags.RequirePassword

        '以下都是其他属性的演示

        appDesc.SessionName = "test"

        appDesc.MaxPlayers = 10

        appDesc.Password = "123" '这里没有加密,都是明文传输,记得写上SessionFlags.RequirePassword 否则会出问题

        p.Host(appDesc, mAddr)

        MsgBox("OK", MsgBoxStyle.OKOnly, "Test")

    End Sub

    Private Function IsServiceProviderValid(ByVal provider As Guid) As Boolean

        '这个就是上一篇关于枚举设备的,看看这指定的设备是否能用

        '虽然一般没有问题,但是MS的例子都要检查一下,所以,还是稍微重视一下吧

        ' Ask DirectPlay for the service provider list

        Dim SPInfoArray As ServiceProviderInformation() = p.GetServiceProviders(True)

        ' For each service provider in the returned list...

        Dim info As ServiceProviderInformation

        For Each info In SPInfoArray

            ' Compare the current provider against the passed provider

            If info.Guid.Equals(provider) Then

                Return True

            End If

        Next info

        ' Not found

        Return False

    End Function 'IsServiceProviderValid

    Protected Overrides Sub Finalize()

        MyBase.Finalize()

        p.Dispose()

    End Sub