想用VB编一个无限局域网的监控软件,是将一个无线网络摄像机的图像传到电脑上,用的协议是802.11b协议,不知该怎么办,请各位高人指教.
解决方案 »
- 大小写转换问题
- 关于用VB修改注册表的问题 有一份程序请帮忙看看!!!!!!!
- dim 与 private的声明有何区别?
- 如何把mscomm读出的二进制数转成其它进制数
- 在水晶报表中,两个表能否作交错式的报表?
- 请教一个用VBA算个人所税问题
- Data1读取数据库出错问题 请高手帮忙!
- 如何调用.chm帮助文件??
- 我将 SQL Server 2000 企业版,以混合模式验证 安装在 Windows 2000 Advanced Server 上.以 SQL Server 身份验证的方式,新建了一个登录帐
- 救救我啊!!
- 如何取得commdialog.showopen的文件路径?
- 求vb微积分运算控件
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