Visual Basic.NET - No consigo controlar el modem

   
Vista:

No consigo controlar el modem

Publicado por Twosisters (1 intervención) el 18/02/2014 13:48:57
Hola amigos,

Estoy intentando realizar un programa para enviar datos entre Pcs mediante dos modems GPRS conectados al COM. El caso que consigo conectarlos y enviar datos pero NO COSIGO colgar el modem. He buscado por todo Internet y siempre me refieren al comando ATH0 pero, nada. Os dejo el código por si alguien sabe que está pasando. Mil Gracias.


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Aqui Conecto y envio sin problemas
TextBox1.Text = " "
Com1.NewLine = vbCr
Com1 = My.Computer.Ports.OpenSerialPort("COM1", 9600)
Com1.WriteLine("ATDT656854159")
System.Threading.Thread.Sleep(30000)
Com1.DtrEnable = True
Com1.WriteLine("Hola Mundo")
TextBox1.Text = "conectado"
Com1.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Aqui se supone que enviando estos códigos el modem deberia colgar.
Com1.NewLine = vbCr
Com1 = My.Computer.Ports.OpenSerialPort("COM1", 9600)

Com1.WriteLine("+++")
System.Threading.Thread.Sleep(5000)
Com1.WriteLine("ATH0")
Com1.DiscardOutBuffer()
Com1.Close()
TextBox1.Text = "Cerrado"

End Sub


He probado realizar esto mismo a mano en el Hyperterminal y tampoco.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder