关键字: DirectPlay DPlay VB DirectX .net 网络 游戏 作者:董含君
转贴请注明来自 http://a11s.cnblogs.com
身体状况不是很好.感冒好几天了.现在嗓子还不能说话.昨天本来想发chat的,结果cnblogs居然出奇的卡.唉….
我还不知道怎么向blog上传rar.不然我也不用这么费事贴代码了.或者谁有其他的好办发来介绍一下.我现在再QQ群: <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />589626 C#游戏开发(-_- 好像我一直VB…) 这里应该能找到我们
不说废话了.先看截图
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
虽然努力压缩了,但是还是少不了200行.而且由于释放的代码省略了不少.导致多次HOST会出现问题.还有就是search host之后,一次只能接受一个,其他的点”否”.虽然guid是一样的,但是我没有进行筛选.响应的筛选代码不难,无非是用一个hashtable之类.
大体步骤是这样的.扫描完hosts之后,等待host的回复.host会给出他的applicationdescription
以及address信息当然,连通你的address也一起给返回了.从这里我们可以得到sessionname ip port等很多信息,但是,我们完全不用关心….. 只要知道sessionname以及它反馈的appdesc address对象 就够了
1 hostqueryresponse的时候建立列表,或者询问是否接受.
Peer.connect(参数列表) 还记得我们搜索时候的那个长长的列表吗?就是那个顺序,只不过我们搜索的时候填写的appdesc 以及address信息不完整罢了.这次是将host的appdesc以及address给反馈回来.也就是说,根据这两个对象可以确定唯一的host.
ClientPeer.Connect(e.Message.ApplicationDescription, e.Message.AddressSender, ClientAddr, Nothing, ConnectFlags.Sync)2 连接成功会有一个ConnectComplete事件,你可以提示用户连接已经建立 ^-^
3 同样的,也会发生SessionTerminated事件,这些响应的事件可以从列表得到.自己研究吧,是不是感觉跟VB6的WINSOCK Control差不多了.
4 发送信息.这个发送的是一个networkpacket对象.new一个看看无非是read write 方法.我们把要发送的数据(或者字符串)write进去.然后peer.sendto (playerid.allplayer,,,,,)既可.当然也可以发给某一个用户,只不过这个playerid如何取得目前我还没搞定.因为我还不会啊….本文是学习笔记…我要是一开始什么都会就不这么写了…
5 利用receive事件得到这个packet,然后e.Message.ReceiveData.ReadString直接得到字符串
贴代码的时间到了…
Imports Microsoft.DirectX.DirectPlay
Public Class Form1
Inherits System.Windows.Forms.Form
Dim g As Guid = New Guid("590E16DD-538F-40fb-A7DF-9654EA6BE71E")
'因为自己既要做HOST又要做Client所以干脆都声明一下免得看的混乱
'都还没有实例化,到时候根据是否HOST再来定义
Dim IsHost As Boolean = False
Dim IsConnected As Boolean = False
Dim WithEvents HostPeer As Peer
Dim WithEvents ClientPeer As Peer
Dim HostAddr As Address
Dim ClientAddr As Address
Dim HostDesc As ApplicationDescription
Dim ClientDesc As ApplicationDescription
#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
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(8, 8)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(120, 32)
Me.Button1.TabIndex = 0
Me.Button1.Text = "HOST"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(160, 8)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(120, 32)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Left"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(8, 56)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(120, 32)
Me.Button3.TabIndex = 3
Me.Button3.Text = "Search"
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(160, 56)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(120, 32)
Me.Button4.TabIndex = 4
Me.Button4.Text = "Left Session"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(8, 168)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(184, 21)
Me.TextBox2.TabIndex = 5
Me.TextBox2.Text = "TextBox2"
'
'ListBox1
'
Me.ListBox1.ItemHeight = 12
Me.ListBox1.Location = New System.Drawing.Point(8, 96)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(272, 64)
Me.ListBox1.TabIndex = 6
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(208, 168)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(72, 24)
Me.Button5.TabIndex = 7
Me.Button5.Text = "send"
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(8, 216)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(96, 24)
Me.Button6.TabIndex = 8
Me.Button6.Text = "New Me"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'自己HOST一下
If IsHost Then
MsgBox("你看看标题栏,已经HOST了,别点了")
Exit Sub
End If
Try
'如果参数胡乱填写很可能失败的
HostAddr = New Address
HostAddr.KeyHostname = InputBox("HOST Name:", "IP或者域名", "127.0.0.1")
HostAddr.KeyPort = InputBox("PORT:", "端口", "2603")
HostAddr.ServiceProvider = Address.ServiceProviderTcpIp
HostDesc = New ApplicationDescription
HostDesc.SessionName = InputBox("Session Name:", "起个名字", "Session1")
HostDesc.GuidApplication = g
HostDesc.Flags = SessionFlags.NoDpnServer
HostPeer = New Peer
HostPeer.Host(HostDesc, HostAddr)
Me.Text = HostDesc.SessionName
IsHost = True
Catch ex As Exception
MsgBox("失败:" + ex.Message)
Try
HostPeer.Dispose()
'失败就Over掉它
Me.Text = "No Host"
Catch exx As Exception
End Try
IsHost = False
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Not IsHost Then Exit Sub
Try
HostPeer.Dispose()
'失败就Over掉它
Me.Text = "No Host"
IsHost = False
Catch exx As Exception
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'找啊找啊找Session,找到一个好Session,敬个礼啊握握手,你是我的好Session
If IsHost Then
MsgBox("你还是再new一个窗体吧,这个已经用来host了")
Exit Sub
End If
HostAddr = New Address
HostAddr.ServiceProvider = HostAddr.ServiceProviderTcpIp
HostDesc.GuidApplication = g
'HostDesc.Flags = SessionFlags.NoDpnServer
ClientAddr = New Address
ClientAddr.KeyHostname = InputBox("本地IP", "HostName", "127.0.0.1")
ClientAddr.KeyPort = InputBox("本地端口", "端口", "3613")
ClientAddr.ServiceProvider = Address.ServiceProviderTcpIp
ClientPeer = New Peer
Me.Text = "Searching..."
ClientPeer.FindHosts(HostDesc, HostAddr, ClientAddr, Nothing, 1, 10, 2000, FindHostsFlags.None)
Me.Text = "Search OK"
'OK 期待回复吧
End Sub
Private Sub ClientPeer_FindHostResponse(ByVal sender As Object, ByVal e As Microsoft.DirectX.DirectPlay.FindHostResponseEventArgs) Handles ClientPeer.FindHostResponse
'如果已经连接了,那么这个就没意义了
If IsConnected Then Exit Sub
'假设这个时候 clientPeer还没有被你释放,其实应该try一下的... -_-b
If MsgBox("找到一个连接,Session='" + e.Message.ApplicationDescription.SessionName + "' 是否连接?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Me.Text = "连接中..."
ClientPeer.Connect(e.Message.ApplicationDescription, e.Message.AddressSender, ClientAddr, Nothing, ConnectFlags.Sync)
End If
End Sub
Private Sub ClientPeer_ConnectComplete(ByVal sender As Object, ByVal e As Microsoft.DirectX.DirectPlay.ConnectCompleteEventArgs) Handles ClientPeer.ConnectComplete
Me.Text = "连接成功"
IsConnected = True
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'发信息啊发信息
'没有连接 或者 自己不是主机
If (Not IsConnected) And (Not IsHost) Then
MsgBox("没有连接啊")
Exit Sub
End If
Dim pak As New NetworkPacket
pak.Write(TextBox2.Text)
If IsHost Then
HostPeer.SendTo(PlayerID.AllPlayers, pak, 1000, SendFlags.Guaranteed)
Else
ClientPeer.SendTo(PlayerID.AllPlayers, pak, 1000, SendFlags.Guaranteed)
End If
End Sub
Private Sub ClientPeer_Receive(ByVal sender As Object, ByVal e As Microsoft.DirectX.DirectPlay.ReceiveEventArgs) Handles ClientPeer.Receive
ListBox1.Items.Add(e.Message.ReceiveData.ReadString)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If IsHost Then Exit Sub
If ClientPeer Is Nothing Then Exit Sub
IsConnected = False
ClientPeer.Dispose()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim f As New Form1
f.Show()
End Sub
Private Sub HostPeer_Receive(ByVal sender As Object, ByVal e As Microsoft.DirectX.DirectPlay.ReceiveEventArgs) Handles HostPeer.Receive
'如果做HOST 自然是HOSTPEER 受到信息了
ListBox1.Items.Add(e.Message.ReceiveData.ReadString)
End Sub
Private Sub ClientPeer_SessionTerminated(ByVal sender As Object, ByVal e As Microsoft.DirectX.DirectPlay.SessionTerminatedEventArgs) Handles ClientPeer.SessionTerminated
Try
ClientPeer.Dispose()
MsgBox("SessionTerminated")
Catch ex As Exception
End Try
End Sub
Private Sub ClientPeer_IndicatedConnectAborted(ByVal sender As Object, ByVal e As Microsoft.DirectX.DirectPlay.IndicatedConnectAbortedEventArgs) Handles ClientPeer.IndicatedConnectAborted
Try
ClientPeer.Dispose()
MsgBox("ConnectAborted")
Catch ex As Exception
End Try
End Sub
End Class
682
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
