您的位置：程序门 -> vb -> 网络编程

创建了个简单的服务器端程序，运行后却失去响应，也不报错！不知道为什么？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

创建了个简单的服务器端程序，运行后却失去响应，也不报错！不知道为什么？

发表于：2007-11-29 14:46:45 楼主

大家好！我刚接触网络通信，就自己照着例子编了个服务器端的小程序，但一运行就失去响应，也不报错，请大家帮忙看看，到底是程序的问题，还是机器防火墙的问题！谢谢！

这是我的源代码：
dim myip as ipaddress
dim myreceivebyte（100) as system.byte
dim mylength, i as integer
dim myinfo as asciiencoding

try
myip = ipaddress.parse（me.textbox1.text)
mylistener = new tcplistener（myip, convert.toint16（me.textbox2.text))
mylistener.start（)
me.richtextbox1.text = "成功创建服务器，正在监听客户端信息。。。。" & vbcrlf
mysocket = mylistener.acceptsocket（)
me.richtextbox1.text = "成功连接：" + mysocket.remoteendpoint.tostring + vbcrlf
mylength = mysocket.receive（myreceivebyte)
for i = 0 to mylength - 1 step 1
me.richtextbox1.text = convert.tochar（myreceivebyte（i))
next
myinfo = new asciiencoding（)
mysocket.send（myinfo.getbytes（"from server!"))
catch ex as exception
msgbox（ex.message)
end try

发表于：2007-11-29 21:56:291楼得分:0

晕！没人能帮忙吗？

发表于：2007-11-29 21:59:082楼得分:0

这是.net代码，问错地方了

发表于：2007-11-30 10:35:403楼得分:0

晕了，那我去别处问问。
谢谢提醒！

其他资讯