tcp_defs.bas

一个VB做的语音系统控件

Attribute VB_Name = "TCP_Defs"
Option Explicit

'== TCP Port Array Processing Const.s ===================================
Public Const MINTCP = 1                     ' Minimum index for tcpsocket control instance
Public Const MAXTCP = 32                    ' Maximum index for tcpsocket control instance
Public Const VOICEIP = "192.168.0.3"
Public Const VOICEPORT = 701                ' Voice chat Port To Listen On...
Public Const NULLPORTID = 0                 ' Null Port ID - A Port ID That Will Never Be Used...
Public conn As Object
Public rs As Object
Public Const db_host = "192.168.0.3"
Public Const db_name = "voice_db"
Public Const db_user = "sa"
Public Const db_pass = "cb.sky"