Cita:
Iniciado por eperedo 
Lo hacías con simple código vb??? Yo he visto código para esto pero en aplicaciones móbiles con el Compact Framework,
mira acá.
Podrías publicar ese código que usaste para vb6 e intentar convertirlo a .NET.
Este es el codigo que utilize, aver si me pueden ayudar.
Private Sub conectar_Click()
Dim at As String
Dim Respuesta As String
Dim Memoria As String
Dim M As String 'comprueva que el puerto este cerrado para poder abrirlo
Memoria = Chr(34) & "ME" & Chr(34) & "," & Chr(34) & "ME" & Chr(34) & "," & Chr(34) & "ME"
If MSComm1.PortOpen = True Then
M = MsgBox("EL PUERTO YA ESTA ABIERTO", vbExclamation, "PRECAUCION PUERTO ABIERTO")
Else
End If
'determina el puerto que hemos seleccionado
If Combo1.ListIndex = 0 Then
MSComm1.CommPort = 1
ElseIf Combo1.ListIndex = 1 Then
MSComm1.CommPort = 2
ElseIf Combo1.ListIndex = 2 Then
MSComm1.CommPort = 3
ElseIf Combo1.ListIndex = 3 Then
MSComm1.CommPort = 4
ElseIf Combo1.ListIndex = 4 Then
MSComm1.CommPort = 5
ElseIf Combo1.ListIndex = 5 Then
MSComm1.CommPort = 6
ElseIf Combo1.ListIndex = 6 Then
MSComm1.CommPort = 7
ElseIf Combo1.ListIndex = 7 Then
MSComm1.CommPort = 8
ElseIf Combo1.ListIndex = 8 Then
MSComm1.CommPort = 9
ElseIf Combo1.ListIndex = 9 Then
MSComm1.CommPort = 10
ElseIf Combo1.ListIndex = 10 Then
MSComm1.CommPort = 11
ElseIf Combo1.ListIndex = 11 Then
MSComm1.CommPort = 12
End If
If MSComm1.PortOpen = True Then
M = MsgBox("EL PUERTO YA ESTA ABIERTO", vbExclamation, "PRECAUCION PUERTO ABIERTO")
Else
MSComm1.Settings = "115200,N,8,1" '115200
'lee todo el buffer de entrada para que quede vacio
MSComm1.InputLen = 0
MSComm1.RThreshold = 2
'Abre el puerto seleccionado
MSComm1.PortOpen = True
Me.Caption = "Conectado por el puerto " & MSComm1.CommPort
MSComm1.Output = "ATDT" & textoenviar & vbCrLf
End If
Respuesta = MSComm1.Input
texto.Text = texto.Text & Respuesta
End Sub
Private Sub desconectar_Click()
If MSComm1.PortOpen Then
'cierra el puerto
MSComm1.Output = "ATH;" & vbCrLf
MSComm1.PortOpen = False
Me.Caption = "Desconectado"
End If
End Sub
Private Sub enviar_Click()
Dim dummy As String
Dim M As String
If MSComm1.PortOpen = True Then
'envia el texto escrito.
MSComm1.Output = textoenviar.Text + vbCrLf 'PARA ENVIAR SMS TOCA CHR(26)+ CHR(13)
'coloca el texto que enviamos en la pantalla
texto.Text = texto.Text & vbCrLf & "COMPUTADOR:" & vbCrLf & textoenviar.Text
textoenviar.SetFocus
Else
M = MsgBox("AUN NO SE HA CONECTADO CON EL TELEFONO", vbExclamation, "ERROR DE CONEXION")
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
Combo1.AddItem "COM5"
Combo1.AddItem "COM6"
Combo1.AddItem "COM7"
Combo1.AddItem "COM8"
Combo1.AddItem "COM9"
Combo1.AddItem "COM10"
Combo1.AddItem "COM11"
Combo1.AddItem "COM12"
Combo1.ListIndex = 6
End Sub
Private Sub Form_Unload(Cancel As Integer)
desconectar_Click
End Sub
Private Sub limpiar_Click()
texto.Text = " "
textoenviar.Text = " "
End Sub
'Private Sub Form_Unload(Cancel As Integer)
' desconectar_Click
'End Sub
'************************************************* **
Private Sub MSComm1_OnComm()
'Dim I As Integer
'Dim i As Integer 'Declaramos una variable auxiliar como numérica
'Dim resultado As String
'Dim variable As String
'Dim COMANDO As String
'Dim pdu As String
'Dim telefono As String
'recoge el valor de entrada
'pregunta si se ejecuto el evento de recibir igual o mas de 2 caracteres (MSComm1.RThreshold = 2)
If MSComm1.CommEvent = comEvReceive Then
'valor = MSComm1.Input
'i = InStr(Valor, Chr(13))
' pdu = Mid(Valor, 17, 80)
'telefono = Mid(pdu, 23, 10)
'si se recibio pase el valor recibido a la pantalla
'Do
' DoEvents
valor = valor & MSComm1.Input
'Loop Until InStr(Valor, "OK" & vbCrLf) Or InStr(Valor, Chr(62)) Or InStr(Valor, "ERROR" & vbCrLf) Or InStr(Valor, "NO CARRIER" & vbCrLf) Or InStr(Valor, "NO DIALTONE" & vbCrLf) Or InStr(Valor, "CONNECT" & vbCrLf) Or InStr(Valor, "BUSY" & vbCrLf) Or InStr(Valor, "NO ANSWER" & vbCrLf) Or InStr(Valor, "RING" & vbCrLf)
texto.Text = texto.Text & vbCrLf & "CELULAR:" & vbCrLf & valor
texto.SelStart = Len(texto.Text)
Else
texto.Text = "NO HAY NINGUN MOVIL CONECTADO O EL MOVIL GENERO UN ERROR" 'resultado 'si se recibio pase el valor recibido a la pantalla"
End If
End Sub
'**********************************************
Private Sub Picture1_Click()
End Sub