VB绑定IP的问题

Question

请教VB程序如何用Winsock控件来绑定IP,
比如说,程序只能在 192.168.0.1 的IP地址下运行,换了IP就不能运行,是否可以用Winsock控件来实现

Answer 1

你问的问题有问题，不是绑定，而是去判断本机的LocalIPPrivate Sub Command1_Click()
  '判断IP
  If Me.Winsock1.LocalIP = "192.168.0.1" Then
     Debug.Print "正确"
  Else
     MsgBox "IP不正确，不能运行程序"
     Unload Me
 End If
End Sub

Answer 2

用winsock1.localip进行判断应该就可以做到

Answer 3

服务端   
  winsock.localport=???   
  winsock.listen   
    
  客户端   
  Winsock1.RemoteHost   =   "xxx.xxx.xxx.xxx"   
  Winsock1.RemotePort   =   999   
  Winsock1.Connect   
    
  服务端的ConnectionRequest事件   
  Private   Sub   Winsock1_ConnectionRequest(ByVal   requestID   As   Long)   
  Winsock1.Close   
  Winsock1.Accept   requestID   
  End   Sub   
    
  ok   连接完成   
Winsock可以绑定IP吗？请参见：
http://topic.csdn.net/t/20021013/11/1092286.html