vb 怎么实现串口端口的扫描呢？就是将电脑上现有的串口号扫描罗列出来。

2009-09-08 08:18:20 558 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows平台SSH工具全解析：Xshell、SecureCRT、PuTTY等六款工具深度对比与选型指南 SSH（Secure Shell）是一种加密网络协议，用于在不安全的网络中提供安全的远程登录和文件传输服务。其核心原理是通过非对称加密和密钥交换，建立加密通道，确保数据传输的机密性和完整性。这项技术对于服务器管理、自动化运维和远程开发至关重要，能有效防止中间人攻击和密码窃取。在工程实践中，根据不同的应用场景，开发者需要选择合适的SSH客户端工具来提升效率。例如，对于需要强大会话管理和日志审计的企业级运维，SecureCRT的稳定性和详细日志记录功能是理想选择；而对于追求轻量化和脚本集成的自动化场景，PuTT 阅读详情

如题：
vb 怎么实现串口端口的扫描呢？就是将电脑上现有的串口号扫描罗列出来。

...全文

ZYNQ平台上基于PHY芯片的IEEE1588/PTP高效实现方案本文详细解析了在Xilinx ZYNQ平台上，如何通过选用支持IEEE1588/PTP的专用PHY芯片（如RTL8211FS-VS-CG、DP83640）来实现高精度时间同步的高效方案。文章对比了PS端与PL端MAC连接的优劣，提供了从硬件选型、接口设计、Linux驱动适配到PTP协议栈配置与性能优化的完整实战指南，并总结了关键避坑经验，为工业网络、电力系统等需要纳秒级同步的应用提供了清晰、可靠的实施路径。阅读详情

hollandjzy

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

gzhjic 2009-09-09

打赏
举报

搞错，虽然pc支持串口数没那么多，但可遍历数很大，1~1000都没问题。

hbkjccl 2009-09-08

打赏
举报

HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM

hollandjzy 2009-09-08

打赏
举报

呼叫OF123 大哥还在不

hollandjzy 2009-09-08

打赏
举报

四楼的方法是行但有时候虚拟端口的端口可能会比较大顺序查找的话没什么效率啊，而且事先也不知道查到哪为止
of123能告诉我怎么查注册表吗

yangbo_cuit 2009-09-08

打赏
举报

4楼的方法可行

of123 2009-09-08

打赏
举报

查注册表。可以得到所有固有的硬件串口和虚拟串口。

gzhjic 2009-09-08

打赏
举报





Private Sub Form_Load()

With frmPort1

If .MSComm.PortOpen = True Then .MSComm.PortOpen = False

For i = 1 To 16

    On Error Resume Next  

   '当运行发生错误时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行

    .MSComm.CommPort = i

    .MSComm.PortOpen = True

    Select Case Err.Number

       Case 0                       '错误号为0(也就是没出错),

         cboPort.AddItem "Com" & Trim(i)

         .MSComm.PortOpen = False

       Case 8005                '错误号为8005,也就是端口被占用

         cboPort.AddItem "Com" & Trim(i) & " 已经占用"

         .MSComm.PortOpen = False

    End Select

    Err = 0     '将错误号置0. 注:Err.Number可以简写为Err ,2者等效

Next

End With

End Sub

'以上是在名为' frmPort1 的窗体中添加了 一个名为MSComm的MSComm控件.

'在当前窗体中用添加一个名为 cboPort的ComboBox 控件,用于列出可用的串口端口号

来自网络。代码一看就清楚，不用解释了吧。

hollandjzy 2009-09-08

打赏
举报

我要扫描的是串口端口

帝企鹅已被占用 2009-09-08

打赏
举报

small but effective tool(if u know the rite way to use it..u might do wonders..)

--------------------
you need:

2 textboxes
1 listbox
3 commandbuttons
1 timer
1 winsock control
--------------------

Code: VB
Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = False Text2.Text = "0"End SubPrivate Sub Command3_Click() List1.ClearEnd SubPrivate Sub Timer1_Timer() On Error Resume Next Winsock1.Close Text2.Text = Int(Text2.Text) + 1 Winsock1.RemoteHost = Text1.Text Winsock1.RemotePort = Text2.Text Winsock1.ConnectEnd SubPrivate Sub Winsock1_Connect() List1.AddItem Winsock1.RemotePort & " is open!"End Sub--------------------
explanation:

text1 = IP to scan
text2 = starting port
list1 = list where all open ports are shown
command1 = start
command2 = stop and reset
command3 = clear port list
timer1 = will make the winsock control to try ports

hollandjzy 2009-09-08

打赏
举报

大家都没上班吗自己先顶

hollandjzy 2009-09-08

打赏
举报

我以前做过一个一转16 的虚拟串口每次换个USB口都会有不同的虚拟口，有时候虚拟口都到40多的所以我觉得遍历方法会不可靠

水猿兵团五哥 2009-09-08

打赏
举报

不想说话

gzhjic 2009-09-08

打赏
举报

一般pc支持16个串口，所以想1~17去遍历也不行，如果事先知道没那么多串口，可以1~8遍历就行，我试过了，这样遍历可以将虚拟串口一块罗列出来，注册表的方法也不错，但如果操作系统不同，位置会不会不同呢？还有如果人为在注册表删掉键值，读出来就是错误了。一般在form_load里面判断一次，速度应该不是问题吧？

vb 怎么实现串口端口的扫描呢？就是将电脑上现有的串口号扫描罗列出来。

相关推荐