Hola a todos, tengo unos problemas con el MSComm, y ojala ustedes puedan darme una mano con esto, les explico.
Estoy usando esta componente para efectuar llamados desde el modem, en un principio mi codigo funciona bien, ya que efectua la llamada, pero cuando voy a colgar, el computador se reinicia y nose a que se deba, ojala puedan ayudarme con esto. Les coloco el codigo, ya que en una de esas pueda ser que este sea el problema.
Private Sub Form_Load()
' Búfer para almacenar la cadena de entrada
Dim Instring As String
' Usar COM3.
MSComm1.CommPort = 3
' 9600 baudios, sin paridad, 8 bits de datos y 1
' bit de parada.
MSComm1.Settings = "9600,N,8,1"
' Indicar al control que lea todo el búfer al usar
' Input.
MSComm1.InputLen = 0
' Abrir el puerto.
MSComm1.PortOpen = True
' Enviar al módem el comando de atención.
MSComm1.Output = "ATV1Q0" & Chr$(13) ' Asegúrese de que
' el módem responde con "OK".
' Esperar a que vuelvan los datos al puerto serie.
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
MsgBox buffer$
Loop Until InStr(buffer$, "OK" & vbCrLf)
MSComm1.Output = "ATH1" & vbCrLf
MSComm1.Output = "ATI0" & vbCrLf
MsgBox MSComm1.Input
MSComm1.Output = "ATDT 666" & vbCrLf
' Leer los datos de respuesta de aceptación en el
' puerto serie.
'MSComm1.Output = "ATH0" & vbCrLf
' Cerrar el puerto serie.
MSComm1.PortOpen = False
End Sub
