|
GETUSER As String = "21" ''''在线用户列表|||消息格式:21+用户名+EP
Const MAKHOLD As String = "22" ''''打洞命令|||消息格式:22+IP
Const LOGINOK As String = "23" ''''登陆成功
Const SERVCLS As String = "24" ''''服务器关闭
Const MSGEND As String = "25" ''''消息结束 ''''以下是客户端到客户端的消息开头
Const HOLDOK As String = "30" ''''打洞成功
Const CHATMSG As String = "31" ''''聊天消息
Const CHTMSGEND As String = "32" ''''聊天消息发送成功 ''''以下是客户端的命名
Const EXITPRO As String = "EXIT" ''''退出命令
Const SHOWULIST As String = "SHOWUSER" ''''显示在线用户
Const HELP As String = "HELP" ''''显示帮助
Const SEND As String = "SEND" ''''发送消息 #End Region #Region "全局全量" Delegate Sub myMethodDelegate(ByRef myInData As Byte()) ''''登陆时用的事件 ''''Dim MaxTry As Integer = 5
Dim msgSendEnd As Boolean = False ''''消息是否发送成功,若发送成功,则会返回结束消息
Dim ThListen As New Thread(AddressOf listen) ''''监听的线程
Dim ClientSocket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) ''''客户端套节字的定义
Dim username As String ''''当前用户名
Dim ServerEP As IPEndPoint ''''服务器的IPEP
Dim holdBytes As [Byte]() = Encoding.Unicode.GetBytes(HOLDLINE & username) ''''和服务器保持连接连接时用到的byte数组
Dim OLUserName() As String
Dim OLUserEP() As IPEndPoint
Dim getUrecCount As Integer
Dim testHold As Boolean = False
Dim testChat As Boolean = False Private receiveDone As ManualResetEvent ''''在登陆时用来阻塞线程,等待收到数据
Private sendDone As ManualResetEvent ''''用来阴塞发送消息的线程.等待收到回送的确认消息
Private getUDone As ManualResetEvent ''''用来阻塞请求好友名单的线程,等待接收好友名单
Private holdDone As ManualResetEvent ''''用来阻塞打洞时的线程
Private chatDone As ManualResetEvent ''''用来阻塞发送聊天消息时的线程 Dim timerDelegate As New TimerCallback(AddressOf holdonline) ''''为保持在线状态弄得 #End Region #Region "方法" ''''主函数,程序入口
Sub Main()
Dim InputIP As String
Dim InputOK As Boolean = False
''''判断输入的IP,并且保存服务器的IPEP
While InputOK <> True
Console.Write("请输入服务器IP:")
InputIP = Console.ReadLine()
Try
ServerEP = New IPEndPoint(IPAddress.Parse(InputIP), 11000)
InputOK = True
Catch
Console.WriteLine("你输入的服务器IP不正确,请重新输入.")
InputOK = False
End Try
End While
Dim bool As Boolean = False ''''判断用户是否登陆成功
While bool <> True Dim LoginOK As Boolean = Login()
If LoginOK = True Then
bool = True
Else
Console.Write("是否重试:输入Y重试,输入任意值退出程序:")
Dim tempYN As String = Console.ReadLine.ToUpper
If tempYN = "Y" Then
bool = False
Else
Exit Sub
End If
End If End While Console.WriteLine("用户名:" & username)
holdBytes = Encoding.Unicode.GetBytes(HOLDLINE & username)
''''登陆成功后.用一个timer,每隔50秒向服务器发送消息,保持在线状态跟在主机注册的端口
Dim timer As New Timer(timerDelegate, Nothing, 10000, 50000) ''''请求在线名单
Console.WriteLine("正在获取在线名单,请稍后....")
Dim getUbool As Boolean = False
While getUbool <> True
getUbool = getU()
If getUbool = False Then
Console.Write("是否重试:输入Y重试,输入任意值退出程序:")
Dim tempYN As String = Console.ReadLine.ToUpper
If tempYN = "Y" Then
bool = False
Else
Exit Sub
End If
End If
End While ThListen.Start() ''''用来处理客户端的一些命令
Dim SVInput As String
While True
Console.Write("Client>")
SVInput = Console.ReadLine().ToUpper
Select Case SVInput
Case EXITPRO
exitApp()
ThListen.Abort()
ClientSocket.Close()
Exit Sub
Case SHOWULIST
Console.WriteLine("*********************************")
showUserList()
Console.WriteLine("*********************************")
Case HELP
Console.Write("*********************************" & Chr(10) & Chr(13) & "exit:输出当前程序" & Chr(10) & Chr(13) & "showuser:显示当前在线用户例表" & Chr(10) & Chr(13) & "send:发送消息.格式:send 用户名 消息" & Chr(10) & Chr(13) & "help:显示帮助" 上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页
[C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口
[系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板：Paint.Net3.0RC1官方下载
[常用软件]用内建的“Net Meeting”聊天 [VB.NET程序]Henry的VB.NET之旅（三）—共享成员
[VB.NET程序]Henry的VB.NET之旅（二）—构造与析构 [VB.NET程序]Henry的VB.NET之旅（一）—失踪的窗体
[VB.NET程序]在托盘上显示Balloon Tooltip（VB.NET） [VB.NET程序]Henry手记－VB.NET中动态加载Treeview节点（二）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
