Private Sub Form_Load()Text1.Text = Winsock1.LocalIPEnd Sub在程序加载时，能得到本机的ip地址在连接成功时winsock1.RemoteHostIP属性能得到远程计算机的ip
