com口的用出

百度有字数限制，连源代码的一个类都粘不上，下面这个类是发送接收短信的类的一部分，这个类总共有一千二百多行，根本粘不全，你可以参考一下。
短信终端操作的关键是短信的编码和解码，英文资料很多，中文的基本找不到，你可以多查些资料。

Option Explicit On

Public Class Jwc

'_______________声明mscomm控件__________________
Public MSComm1 As New MSCommLib.MSComm

'__________________串口调试_____________________
Dim bug As String
Public B_bug As Boolean = False

'__________________串口设置_____________________
Public L_com(256) As String
Public I_P As Integer = 1 '端口号
Public S_Set As String = "9600,n,8,1" '初始字符串
Public C_open As Boolean = False
Public ret_l As Double

'__________________短信共用变量_________________
Dim l_msg_c As Integer = 0
Dim l_msg_i As Integer = 0
Dim l_msg_t As Integer = 0
Dim l_msg_x As Integer = 16

'__________________读取短信_________________