module1.bas

时通讯和P2P开发工具

Attribute VB_Name = "Module1"

'=========================================================
'//C_OnTimer 是由定时器调用的函数，您必须启动一个定时器，定时器间隔为3秒，定时器必须调用这个函数。
Public Declare Function DllOnTimer Lib "P2PServerDll.dll" (ByVal nTimerID As Long) As Long

'本函数启动Dll，打开端口, nAddrMsg是收到客户端自定义消息的回调。
Public Declare Function DllStartUP Lib "P2PServerDll.dll" (ByVal addMsg As Long) As Long

'//本函数为关闭Dll
Public Declare Function DllDestroy Lib "P2PServerDll.dll" () As Long


'//设置用户登录附加条件
'//此条件是UserBrief表中查询的Where 字句，比如 需要验证此人是否可以通过登录验证时，Sql语句是
'//SELECT * from UserBrief WHERE username="用户名" AND password="123456" AND enablestatus=1 则 "enablestatus=1"是条件
'//这个条件您可任意发挥，可以跨表。
Public Declare Function DllSetLoginCondition Lib "P2PServerDll.dll" (ByVal sCondition As String) As Long



'//本函数发送信息给客户端，比如您需要阻止10001号客户端说话，就可以发一条类型为1的消息给10001号，客户端收到类型为1的消息，
'//就可进行相应的动作。
Public Declare Function DllSendMsg Lib "P2PServerDll.dll" (ByVal UIN As Long, ByVal nType As Long, ByVal sMsg As String) As Long



 
'处理收到的消息，
Public Sub GetClientMsg(ByVal nVer As Long, ByVal UIN As Long, ByVal nType As Long, ByVal msg As String, ByVal sIP As String, ByVal nPort As Long)
Debug.Print "收到" & msg
Form1.Text1.Text = msg
End Sub