Uso del puerto com

Baidu tiene un límite de caracteres, e incluso el código fuente de una clase no se puede bloquear. La siguiente clase es para enviar y recibir mensajes de texto. Esta clase tiene un total de más de 1200 líneas. a ello.

La clave del funcionamiento de los terminales SMS es la codificación y decodificación de mensajes SMS. Hay mucha información en inglés, pero difícilmente puedes encontrarla en chino. Puedes consultar más información.

Opción explícita en

Clase pública Jwc

'_______________ declaración control mscomm __________________

MSComm1 público como nuevo MSCommLib.____________________ Depuración de puerto serie_ ____________________

Dim bug As String

Public B_bug As Boolean = False

' ____________________ Configuración del puerto serie____________________

Public L_com(256) As String

Public I_P As Integer = 1 'Número de puerto

Public S_Set As String = "9600, n, 8, 1" 'Cadena inicial

Public C_open Como booleano = Falso

Ret_l público Como doble

'____________________ SMS*** con variable_______________

Dim l_msg_c Como entero = 0

Dim l_msg_i como entero = 0

Dim l_msg_t como entero = 0

Dim l_msg_x como entero = 16

'____________________ Leer SMS_______________

ID público1 como cadena 'Número de SMS

ID público2 como cadena 'Categoría de SMS

Público n1 AsPúblico n1 como entero 'Longitud del número del centro de SMS

Público n2 como entero 'Longitud del número llamado

Public n3 As Integer 'Longitud de los datos del usuario

Public n4 As Integer 'Longitud de la fecha

Public np1 As String 'Número del centro de SMS

Publicnp2 As String 'Número llamado

Public da1 As String 'Fecha

Public sp1 As String 'Datos de usuario

Public Cont As Integer ' Número de mensajes SMS

Scod público como cadena 'Método de codificación

Dim ms(1000, 10)

'_______________ Enviar SMS____________________

Público s_mg como cadena

Público m_succ como booleano 'Estado de envío de SMS

Público cs1 como cadena = "0891"

Público cs2 como St

ring = "11000D91"

Público cs3 como cadena = "000800"

PublicLms como entero

'_______________ Recibir SMS_______________

Público mg_count Como entero = 0

Público mg_ade( 1000) Como entero

Público mg_N Como booleano = Falso

'_______________ Leer contacto_______________

Dim Pbook(1000, 2) Como cadena

Libro público cont como entero

'_______________ Abre el dispositivo____________________

Función pública PhoOpen() Como booleano

Dim i como entero

Dim j como entero

Dim n como entero

Dim coms(256) como entero