directplay.bas

局域网语音大厅系统源代码

Attribute VB_Name = "DirectPlay"
Public Sub InitDplay()
    Set dp = dx.DirectPlayCreate("")
    Set dpl = dx.DirectPlayLobbyCreate()
End Sub

Public Sub InitAddress()
    
    If gIP <> "" Then
        Set dpa = dpl.CreateINetAddress(gIP, 0)
    Else
        Set dpa = dpl.CreateINetAddress("", 0)
    End If
    
    dp.InitializeConnection dpa
End Sub

Public Sub JoinChat()

    If dp Is Nothing Then Call InitDplay 'init dplay
    If dpa Is Nothing Then Call InitAddress 'init the dplay address
    
    frmJoin.Show 1  ' show the join form
    
    
End Sub


Public Sub StartMessageEngine()
    frmMain.tmrMSG.Interval = 500
    frmMain.tmrMSG.Enabled = True
End Sub




Public Sub CleanUp()
    
    Set dpa = Nothing
    Set dpM = Nothing
    Set dpl = Nothing
    Set dp = Nothing
    
    
    Set dsb = Nothing
    Set ds = Nothing
    Set dscb = Nothing
    Set dsc = Nothing
    Set dx = Nothing
    
End Sub