Ayúdame a leer el código VB
¿Cómo podemos leerlo si no proporcionas un control o un proyecto VB? As Integer 'NumR es el número de bytes recibidos
Dim TempData As String
Dim TempStr As String
Dim SignStr As String
Dim bWaitCommand As Boolean
Dim SignLength, StartIndex, EndIndex, Longitud As Long
Private Sub CmdEnd_Click()
Fin
End Sub
'cmd Obtener parámetros de terminal
Private Sub cmdGetInfo_Click()
'DataS = "show" & vbCr
' call Enviar
'Espera aquí un rato
Timer2.Interval = 10
Timer2.Enabled = True
bWaitCommand = True
'
''Cargando información
'
'TempData = txtR.
'If Len(TempData) = 0 Then
'MsgBox "No se obtuvieron datos del terminal, por favor verifique la conexión"
'Exit Sub
'End If
'
'SignStr = "Número de marcación PPP:"
'Temp de llamada
'If StartIndex = SignLength Then
' MsgBox " Parámetro de terminal para "Número de proveedor de servicios móviles" no encontrado"
'Else
'txtDialnumber.Text = TempStr
'End If
'
'SignStr = "Nombre de usuario PPP:"
'Temporal de llamada
'Si StartIndex = SignLength Entonces
' MsgBox " Nombre de usuario PPP "Parámetro de terminal"
'Else
'txtUsername. Texto = TempStr
'End If
'
'SignStr = "Contraseña PPP:"
'Llamar temporal
'If StartIndex = SignLength Then
' MsgBox "Parámetro de terminal para "Contraseña PPP" no encontrado"
'Else
'txtPassword.Text = TempStr
'End If
'
'
'SignStr = "Tiempo de espera de PPP:"
' Llamando a Temp
'If StartIndex = SignLength Then
' MsgBox "No se encontró el parámetro de terminal para "Tiempo de espera".
Tiempo de espera "parámetros del terminal"
'De lo contrario
'txtTimeOut.Text = TempStr
'End If
'
'SignStr = "Tiempo de reintento de PPP:"<
'Call Temp
'If StartIndex = SignLength Then
' MsgBox "No encontrado" Número de vuelve a marcar "Parámetros del terminal"
'Else
' txtReDail.Text = TempStr
'End If
'
'SignStr = "APN:"
'Call Temp
'If StartIndex = SignLength Then
' MsgBox "Parámetro de terminal "Nombre del punto de acceso APN" no se encontró"
'Else
'txtAPN.Text = TempStr
'End If
'
'SignStr = "id de usuario:"
'Call Temp
'If StartIndex = SignLength Then
' MsgBox "Parámetro de terminal "Número de identificación de terminal" no encontrado"
'Else
' txtUserID.Text = TempStr
'End If
'
Fin Sub
Private Sub CmdGo_Click()
PicShow.Enabled = True
End Sub
'cmd actualiza los parámetros del terminal
Private Sub cmdWriteCom_Click()
TempData = txtR.Text 'Dado que la cadena TempData se reduce durante el proceso de obtención de parámetros, TempData se vuelve a igualar a txtR.Text.
SignStr="Marcación PPP:"
Llamar Temp
Si txtDialnumber.Text <> TempStr Entonces
DataS = "establecer ppp marcarnúmero " & Trim(txtDialnumber.Text) & vbCr.Text) & vbCr
Llamar Enviar
Finalizar
' nombre de usuario
SignStr = "Nombre de usuario PPP:"
Llamar temporal
Si txtUsername.Text <> TempStr Entonces
DataS = "establecer nombre de usuario ppp" & Trim(txtUsername. Texto) & vbCr
Llamar Enviar
Finalizar si
' contraseña
SignStr = "Contraseña PPP:"
Llamar Temp
Si txtPassword.Text <> TempStr Entonces
DataS = "establecer contraseña ppp" & Trim(txtPassword.Text) & vbCr
Llamar Enviar
Finalizar si
SignStr = "PPP Timeout."
Llamar temporal
Si txtTimeOut.Text <> TempStr entonces
DataS = "establecer tiempo de espera de ppp " & Trim(txtTimeOut.Text) & vbCr
Enviar llamada
Finalizar si
SignStr = "PPP Tiempo de reintento: "
Temporal de llamada
Si txtReDail.Text <> TempStr Entonces
DataS = "establecer tiempo de reintento de ppp" & Trim(txtReDail.Text) & vbCr
Llamar Enviar
Fin Si
SignStr = "APN:"
Llamar Temp
Si txtAPN.Text < ;> TempStr Then
DataS = "set apn " & Trim(txtAPN.Text) & vbCr
Llamar a enviar
Finalizar si< / p>
SignStr = "id de usuario:"
Llamar a Temp
Si txtUserID.Text <> TempStr Entonces
DataS = "establecer ID de usuario de ppp " & Trim(txtUserID.Text) & vbCr
Llamar a enviar
Finalizar si
End Sub
Sub privado Form_Load()
PicShow.Move 0, 0, Me.Width, Me.Height'' Al enviar datos de caracteres, tenga en cuenta que deben ingresarse con un retorno de carro.
(vbcr) End
'MSComm1.Output = "¡Este es un buen libro!" & vbCr
'
''Splash llama al número o envía el comando AT
'MSComm1.Output = "ATDT 05778191898 , & vbCr"
Timer1.Enabled = True
'Si Timer1.Enabled Entonces
' cmdOpenCOM.Caption = "Cerrar puerto serie"
'Else
'
' cmdOpenCOM.Caption = "Abrir puerto serie"
'End If
DoErr1:
Si Err.Number = 8002 Entonces
MsgBox Err.Description, vbOKOnly, "Error"
cmdOpenCOM.Enabled = True
cmdCloseCOM.Enabled = False
cmdDataS.Enabled = False
ElseIf Err.Description <> "" Entonces
MsgBox Err.Enabled = True
cmdCloseCOM.Enabled = False
cmdDataS.Enabled = False
End Sub
Sub privado cmdDataS_Click()
DataS = Trim(txtS.
TxtS.Text = ""
Fin Sub
Sub privado cmdClsR_Click ().Click()
txtR.Text = ""
End Sub
Sub privado cmdClsS_Click()
txtDisplay.Text = ""
End Sub
Private Sub cmdQuit_Click()
End
'q = MsgBox("¿De verdad quieres ¿Salir del programa?" , vbYesNo)." , vbYesNo)
'Si q = 1 Entonces
'Descargarme
'End If
Fin Sub
Sub privado cmdResetS_Click()
NumS = 0
txtNumS.Text = NumS
Fin Sub
Sub privado cmdResetR_Click()
txtNumR.Text = "0"
Fin del sub
Sub privado txtComPortNum_Change( )
txtSeverPortNum.Text=txtComPortNum.Text
End Sub
'Recibir datos cada 50 milisegundos
Private Sub Timer1_Timer()
DatosR = Me.MSComm1.I
nput
End If
End Sub
'Obtener la subrutina para parámetros
Sub Temp()
SignLength = Len(SignStr)
StartIndex = InStr(TempData, SignStr) + SignLength
Si StartIndex = SignLength Entonces
Salir de Sub 'Si no se encuentra en " SignStr", significa que no se recibieron parámetros del terminal. InStr(StartIndex, TempData, vbCrLf)
Longitud = EndIndex - StartIndex
TempStr = Trim(Mid(TempData, StartIndex, Longitud))
' TempStr = Recortar(Mid(TempData, (InStr(TempData, ":") + 1), (InStr((InStr(TempData, ":") + 1), TempData, vbCrLf) - (InStr(TempData, ":") + 1))))
TempData = Right(TempData, Len(TempData) - EndIndex - 1)
'StartIndex = 0
'EndIndex = 0
'Longitud = 0
End Sub
' DataR
'show
'
'====== PPP =====
'Estado de PPP: inactivo
'IP local de PPP: 0.0.0.0
' Número de marcación de PPP: *99***1#
'Nombre de usuario de PPP:
'Contraseña de PPP: ******
'Tiempo de espera de PPP: 30 Segundos
'Tiempo de reintento de PPP: 3
'APN: hdgr -sj.he
'id de usuario.13912345678
' = ==== TCP =====
'Estado de TCP: Desconectado
'IP remota de TCP: bbs.tsinghua.edu.cn
'TCP puerto remoto: 23
'Modo de datos TCP: ingresar
'===== UDP =====
'Estado de TCP: roto Abierto
'IP remota TCP: bbs.t
'Puerto remoto TCP: 23
'===== FTP =====
'IP del servidor FTP: 192.168.0.1
'Puerto del servidor FTP: 21
'Nombre de usuario del servidor FTP: prueba
'Contraseña del servidor FTP: * *****
'Directorio del servidor FTP: /
'Tamaño del búfer de carga: 250
'====== SYS = === =
'Modo SYS: Manual
'Velocidad de baudios SYS: 57600
Sub privado txtUsername_Change()
Sub final