|
公告: |
中国政府把13亿“龙“带成了“小绵羊”!!!!
祥龙网吧语音系统 Bate V1.0
作者:admin 日期:2009-07-04
网吧电影导航
作者:admin 日期:2009-06-19
网吧温馨提示
作者:admin 日期:2009-06-19
小贩之歌 社会底层人民的心声
作者:admin 日期:2009-05-22
VB实现自动取得服务器IP并连接服务器
作者:admin 日期:2009-05-07
普通的讲解WINSOCK控件等网络控件的用法的资料中,无论是使用TCP还是UDP,客户端程序连接服务端程序时,无一例外的要指定IP地址(或机器名)和端口号,那么,在端口已知而服务端程序所在机器地址或名称未知的情况下,怎样实现客户端程序自动取得服务端IP并建立连接呢,笔者在实际编程中遇到了这种情况,并使用以下方法解决了这个问题。
这种方法就是服务器端添加两个Winsock控件,一个作为服务端,一个以UDP来广播本机IP,客户端也用UDP方式取得服务器IP,然后再将客户端改为TCP方式来向服务器发起连接。完整代码如下:
'服务器端程序加代码(程序出处www.ibiancheng.cn)
'新建一个工程,然后在窗体上放两个个Winsock控件,名为Winsock1和Winsock2
'一个定时器控件Timer1,Interval属性设置为1000(也可以自己设置)
'---------------------向整个网络广播本机IP---------------------------
Dim MeIp As String '储存本机IP
Dim netmask As String '储存本机广播地址
这种方法就是服务器端添加两个Winsock控件,一个作为服务端,一个以UDP来广播本机IP,客户端也用UDP方式取得服务器IP,然后再将客户端改为TCP方式来向服务器发起连接。完整代码如下:
'服务器端程序加代码(程序出处www.ibiancheng.cn)
'新建一个工程,然后在窗体上放两个个Winsock控件,名为Winsock1和Winsock2
'一个定时器控件Timer1,Interval属性设置为1000(也可以自己设置)
'---------------------向整个网络广播本机IP---------------------------
Dim MeIp As String '储存本机IP
Dim netmask As String '储存本机广播地址






播放音频文件



