vb.net判断端口 vbnet接口

vb.net改端口物理地址怎么查

1、点击右侧的网络连接，在弹出的对话框中点击打开网络和共享中心。

成都创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都做网站、成都网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的桐乡网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

2、在网络和共享中心界面中点击更改适配器设置。

3、进入网络连接界面，右键本地连接。

4、在弹出的菜单中选择属性。

5、在本地连接属性界面中点击配置按钮。

6、切换到高级选项卡，在属性列表中找到并点击网络地址，在右侧输入修改后的网络地址，点击确定按钮。

7、使用命令提示符，输入Ipconfig-all，可以查看修改后的物理地址。

怎样用VB来判断串口是否存在,是否被占用？是否有数据输入？

如下是检测串口是否存在,是否被占用的代码:

Option Explicit

Dim a As Integer

Private Sub Form_Load()

MSComm1.Settings = "9600,n,8,1"

MSComm1.InputMode = comInputModeBinary '采用二进制传输

MSComm1.InBufferCount = 0 '清空接受缓冲区

MSComm1.OutBufferCount = 0 '清空传输缓冲区

MSComm1.RThreshold = 1 '产生MSComm事件

MSComm1.InBufferSize = 1024

Shape1.FillStyle = 0

OpenPortNum

End Sub

Private Sub OpenPortNum()

On Error GoTo uerror

For a = 1 To 16

MSComm1.CommPort = a

MSComm1.PortOpen = True

If MSComm1.PortOpen = True Then

Print "可用Com号= "; a

MSComm1.PortOpen = False

End If

Next

Exit Sub

uerror:

Print "出错或占用Com号= "; a

Resume Next

End Sub

如要探测某个COM口是否有数据输入则需在打开某个串口后,用OnComm事件来接收.

vb.net 指定IP端口是否开放

using System.Net;

if(!string.IsNullOrEmpty(txtPort.Text))

{

IPAddress ip = IPAddress.Parse(txtIp.Text);

IPEndPoint point=new IPEndPoint(ip,int.Parse(txtPort.Text));

try

{

TcpClient tcp=new TcpClient();

tcp.Connect(point);

MessageBox.Show("端口打开");

}catch(Exception ex)

{

MessageBox.Show(ex.Message);

}

}

通过以上这个方法，只能判断你是否能链接这个端口。

通过以下这个方法，能判断端口是否开放

public static void GetTcpConnections() 

{ 

IPGlobalProperties properties = IPGlobalProperties.GetIPGlobalProperties(); 

TcpConnectionInformation[] connections = properties.GetActiveTcpConnections(); 

string str="";

foreach (TcpConnectionInformation t in connections) 

{ 

str+="Local endpoint:"+ t.LocalEndPoint.ToString()+","; 

str+="Remote endpoint:"+ t.RemoteEndPoint.ToString()+","; 

str+=t.State.ToString()+","; 

} 

MessageBox.Show(str);

}

怎样在vb中自动检测到可用串口号的具体程序代码

j = 0

For i = 1 To 16 Step 1

If comISP.PortOpen = True Then '先关闭串口

comISP.PortOpen = False

End If

comISP.CommPort = i

On Error Resume Next '说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。

comISP.PortOpen = True

If Err.Number 8002 Then '无效的串口号。这样可以检测到虚拟串口，如果用Err.Number = 0的话检测不到虚拟串口

If j = 0 Then

j = i

End If

cboPort.AddItem "COM" i '生成串口选择列表

End If

comISP.PortOpen = False

Next i

If j = 1 Then

cboPort.Text = "COM" j '自动打开可用的最小串口号

comISP.CommPort = j

comISP.PortOpen = True

cmdOpenCom.Caption = "关闭串口"

shpCOM.FillColor = vbGreen

If Err.Number = 8005 Then '串口已打开,vbExclamation '

comISP.PortOpen = False

cboPort.Text = ""

cmdOpenCom.Caption = "打开串口"

shpCOM.FillColor = vbRed

End If

End If