想用VB编一个无限局域网的监控软件,是将一个无线网络摄像机的图像传到电脑上,用的协议是802.11b协议,不知该怎么办,请各位高人指教.

解决方案 »

  1.   

    我用winsock控件的协议不能在Internet通讯
    Private Sub cmdOK_Click()
    On Error GoTo 1
    If Trim$(txtNick.Text) = "" Or Trim$(txtIP.Text) = "" Or Val(txtPort.Text) = 0 Or Val(BindPort.Text) = 0 Then Exit Sub
    ' SetPort
    With Form1.Winsock1
       .Close
    '   .RemoteHostIP = Trim$(CStr(txtIP.Text))
       .RemoteHost = Trim$(CStr(txtIP.Text))
       .RemotePort = Val(Trim$(txtPort.Text))
       .LocalPort = Val(Trim$(BindPort.Text))
       .Bind .LocalPort
       Form1.Nick = txtNick.Text
       Form1.Caption = "VB 聊天 V1.0  - " & txtNick.Text & " 本机监听端口 " & .LocalPort
    End With
    Unload Me
    Exit Sub
    1:
    If Err.Number = 10048 Then
    MsgBox "监听端口正在使权用,请重新设置.", vbCritical
    Else
    MsgBox Err.Description, vbCritical
    End If
    End Sub