使用TcpClient和TcpListener遇到的问题
我在作一个局域网通讯的程序,一个服务器端(TcpListener),一个客户端(TcpClient)。
服务器端用多线程监听。
现在有如下问题:
1,发送消息时的字符串,我是用“控制信息|名字|消息”,所以在接收端我是这样接收的
Private sub ReceivedMess(Byval strMess as String)
Dim arrRead() as string=split(strMess,"|") '提取控制信息
Select case arrRead(0)
case "SPEAK"
txtMess.AppendText(arrRead(1) & ":" & arrRead(2) & vbCRLF)
case "Timer"
Msgbox("Timer1")
Timer1.Enable=Ture
case "IE"
Msgbox("IE")
OpenIE()
End Sub
Private sub OpenIE()
System.Diagnostics.Process.start("Http://www.google.com") '打开网页
End Sub
Private sub Timer1_Tick(.....) handles Timer1.tick
Msgbox("Timer1 is Enable")
end sub
其中在Select case句中,两个Msgbox都能显示,Timer1开始Enable=False,但是当Msgbox("Timer1")
执行后,Timer1并不工作(msgbox("Timer1 is enable")不显示),当msgbox("IE")执行后,OpenIE()
也不执行,但是添加一个按钮呼叫OpenIE()就能执行。
请大虾们告诉我是怎么回事??