IDENTICAR CHAMADA TELEFONICA COM MSCOMM

USUARIO.EXCLUIDOS 03/12/2006 19:01:37
#187685
Galera, achei um código (não me lembro se foi aqui) que mostra como identificar uma chamada telefà'nica usando o controle MSCOMM. O projeto roda, mas não identifica o nro. q está chamando. Só lembrando que tenho o aparelho bina e também o serviço está habilitado. O código para identificação é o seguinte:

Private Sub Tempo_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Tempo.Tick

        Tempo.Enabled = False

        Telbina = ""
        Com.InBufferSize = 64
        Com.InputLen = 0

        Tronco = ""
        Data = ""
        Hora = ""
        Tipo = ""
        TempoLig = ""
        Tipo = ""
        Status = ""

        Com.Settings = "1200,N,8,1"

        If Com.PortOpen = False Then
            Com.CommPort = 3
            Com.PortOpen = True
        End If

        Telbina = ""
        Com.InputLen = 0

        Dim i As Integer

        If Sair = 2 Then
            Exit Sub
        End If

        Dim TXT As String
        Dim pos As Short

        Do
            System.Windows.Forms.Application.DoEvents()
            If Sair = 2 Then
                Exit Sub
            End If
            Telbina = Telbina + Com.Input
            
            ' Quando paro neste ponto o sistema mostra apenas "RING"    
           TXT = Telbina
            
            Do While Len(TXT) > 0
                System.Windows.Forms.Application.DoEvents()
                pos = InStr(TXT, vbCrLf)
                If pos = 0 Then
                    Text1.Text = TXT
                    If Len(TXT) > 13 And Len(TXT) < 22 Then
                      ' 01 1-3130822534     18:32 10/01 NA 000 22
                        If Mid(TXT, 1, 2) = "01" Then
                            If CDbl(Mid(TXT, 4, 1)) = 1 Then
                                Me.txtlinha1.ForeColor = System.Drawing.ColorTranslator.FromOle(&HC0)
                                LbLinha1.Text = "Linha 1 Chamando ..."
                                Me.txtlinha1.Text = Mid(Trim(TXT), 6, 15)
                                MostraLig(1)
                            ElseIf Mid(TXT, 4, 1) = "S" Then
                                Me.txtlinha1.ForeColor = System.Drawing.ColorTranslator.FromOle(&HC0)
                                LbLinha1.Text = "Linha 1 Discando ..."
                                Me.txtlinha1.Text = Mid(Trim(TXT), 6, 15)
                                MostraLig(1)
                            End If
                            TXT = ""
                        ElseIf Mid(TXT, 1, 2) = "02" Then
                            If CDbl(Mid(TXT, 4, 1)) = 1 Then
                                Me.txtlinha2.ForeColor = System.Drawing.ColorTranslator.FromOle(&HC0)
                                LBLINHA2.Text = "Linha 2 Chamando ..."
                                Me.txtlinha2.Text = Mid(Trim(TXT), 6, 15)
                                MostraLig(2)
                            ElseIf Mid(TXT, 4, 1) = "S" Then
                                Me.txtlinha2.ForeColor = System.Drawing.ColorTranslator.FromOle(&HC0)
                                LBLINHA2.Text = "Linha 2 Discando ..."
                                Me.txtlinha2.Text = Mid(Trim(TXT), 6, 15)
                                MostraLig(2)
                            End If
                            TXT = ""
                        End If
                    ElseIf Len(TXT) > 40 Then
                        If Mid(TXT, 1, 2) = "01" Then
                            If CDbl(Mid(TXT, 4, 1)) = 1 Then
                                Me.txtlinha1.ForeColor = System.Drawing.ColorTranslator.FromOle(&H80000008)
                                LbLinha1.Text = "Linha 1 Aguardando ..."
                                Me.txtlinha1.Text = Mid(Trim(TXT), 6, 15)
                                MostraLig(1)
                                BuscarDados(1, Trim(Me.txtlinha1.Text))
                            ElseIf Mid(TXT, 4, 1) = "S" Then
                                Me.txtlinha1.ForeColor = System.Drawing.ColorTranslator.FromOle(&H80000008)
                                LbLinha1.Text = "Linha 1 Aguardando ..."
                                Me.txtlinha1.Text = Mid(Trim(TXT), 6, 15)
                                MostraLig(1)
                                BuscarDados(1, Trim(Me.txtlinha1.Text))
                            End If
                        ElseIf Mid(TXT, 1, 2) = "02" Then
                            If CDbl(Mid(TXT, 4, 1)) = 1 Then
                                Me.txtlinha2.ForeColor = System.Drawing.ColorTranslator.FromOle(&H80000008)
                                LBLINHA2.Text = "Linha 2 Aguardando ..."
                                Me.txtlinha2.Text = Mid(Trim(TXT), 6, 15)
                                MostraLig(2)
                                BuscarDados(2, Trim(Me.txtlinha2.Text))
                            ElseIf Mid(TXT, 4, 1) = "S" Then
                                Me.txtlinha2.ForeColor = System.Drawing.ColorTranslator.FromOle(&H80000008)
                                LBLINHA2.Text = "Linha 2 Aguardando ..."
                                Me.txtlinha2.Text = Mid(Trim(TXT), 6, 15)
                                MostraLig(2)
                                BuscarDados(2, Trim(Me.txtlinha2.Text))
                            End If
                        End If
                    End If
                    TXT = ""
                Else
' E cai aqui ou seja, não identifica o nro.

                    'Text1.Text = Left$(TXT, pos - 1)
                    'MsgBox Len(Text1.Text)
                    'TXT = Mid(TXT, pos + Len(vbCrLf))
                    If Len(TXT) / 62 = 1 Then
                        List1.Items.Add(TXT)
                        Telbina = ""
                    End If
                End If
            Loop
        Loop
        If Com.PortOpen Then
            Com.PortOpen = False
        End If
End Sub


Será q falta alguma coisa no código ?

Tem mesmo como identificar um chamada sem ter que utilizar de métodos como conversor FSK/DTMF ou colocar resistor na linha telefà'nica ?

Por favor, se alguém souber como fazer isto funcionar me ajudem. Ou se souberam de algum exemplo que realmente funcione, postem aqui no site.
Já baixei uns 4 ou 5 códigos de bina (VB6 e .NET), mas nenhum funcionou até agora.


Valeu,

Marcos
USUARIO.EXCLUIDOS 03/12/2006 22:13:47
#187688
Amigo isso é uma questão de sobrevivencia
o código q esta no vbmania não funfa...
já pedi ajuda para a pessoa q criou e ao menos ela deu atenção...

Abraços.
USUARIO.EXCLUIDOS 03/12/2006 22:15:09
#187690
Porem existem pessoas comprometidas q ajudam..... q pelo menos tentaram ajudar...
Tópico encerrado , respostas não são mais permitidas
Voltar