说明: Imports System Imports System.IO.Ports Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '获取计算机有效串口 Dim ports As String() = SerialPort.GetPortNames() Dim port As String For Each <sinkerwang> 上传 | 大小:3kb
说明: Private Sub CommandButton1_Click() Dim ret As Long Dim hwnd As Long Dim str As String * 256 ret = GetDesktopWindow() hwnd = GetWindow(ret, GW_CHILD) Do While hwnd 0 GetWindowText hwnd, str, Len(str) hwnd = GetWindow(hwnd, GW_HWNDNEXT) If Left$(str, <jianzheyli> 上传 | 大小:20kb