Tendo o conhecimento de como fazer chamadas telefónicas de Microsoft Visual Basic.NET ( VB.NET ) aplicativo você pode economizar tempo se você precisa para fazer chamadas de forma contínua. VB.NET é uma linguagem de programação de computador usado para criar aplicativos móveis, web e desktop. Fazer telefonemas de VB.NET pode ser feito usando a Interface de Programação de Aplicativos de Telefonia ( TAPI) . TAPI dá aos programadores as camadas necessárias para o acesso da Microsoft Telefonia DLLs ( dynamic link libraries ) . Telefonia integra computadores com dispositivos como câmeras e redes de Internet . Coisas que você precisa
Microsoft Visual Basic Express
Visualizar Mais instruções
1
Inicie o Microsoft Visual Basic Express , clique em " New Project ... " no painel esquerdo da tela e selecione " Windows Forms Application ". Clique em " OK".
2
Clique duas vezes em "Button" na " caixa de ferramentas " para adicionar um novo botão . Dê um duplo clique em " Rótulo " para adicionar um rótulo. Adicionar uma segunda etiqueta usando o mesmo processo. Clique duas vezes em " TextBox " para adicionar uma caixa de texto .
3
Clique duas vezes em "Button1 " para abrir o módulo " Form1.vb " . Copie e cole o seguinte na primeira linha do módulo :
System.Windows.Forms Imports
4
Copie e cole o seguinte a declarar a DLL Tapi32 em " Public Class Form1 ", mas acima do" Button1_Click " procedimento :
Declare Function Auto tapiRequestMakeCall Lib" TAPI32.dll "_
(ByVal DestAddress as String , ByVal AppName as String , _
ByVal CalledParty As String , ByVal Comentário As String ) As Integer
Const TAPIERR_NOREQUESTRECIPIENT As Short = -2
Const TAPIERR_REQUESTQUEUEFULL As Short = -3
Const TAPIERR_INVALDESTADDRESS As Short = -4
o procedimento " Button1_Click " foi criado quando você clicou duas vezes "Button1 " no seu formulário.
5
Copie e cole o seguinte dentro do procedimento " Button1_Click " para criar suas variáveis :
Dim phoneNum as String Dim
TResult as Short
Dim tmpStr as String
O procedimento " Button1_Click " foi criada quando faz duplo clicado "Button1 " no seu formulário
6
Copie e cole o seguinte para obter o número de telefone introduzido na caixa de texto e chamá-lo : .
phoneNum = Trim ( TextBox1.Text )
Experimente em
TResult = tapiRequestMakeCall ( phoneNum , "Dial " , phoneNum , "")
Pegar ex As Exception
Label2.Text = " Erro "
End Try
7
Copie e cole o seguinte para verificar se há erros :
Se TResult < > 0 Then
tmpStr = "Erro "
Select Case TResult
caso
TAPIERR_NOREQUESTRECIPIENT
tmpStr = tmpStr & "No aplicativo de discagem por janelas de telefonia está em execução e nenhum pôde ser iniciado. "
Caso TAPIERR_REQUESTQUEUEFULL
tmpStr = tmpStr & " A fila de pedidos pendentes de marcação do Windows telefonia está cheio. "
Caso TAPIERR_INVALDESTADDRESS
tmpStr = tmpStr & " O número de telefone não é válido. "
caso
Else
tmpStr = tmpStr &" erro Unkown . "
End Select
Else
tmpStr = "Discagem"
End If
Label2.Text = tmpStr
End Sub End Class
8
Imprensa "F5" para executar o programa , em seguida, digite um número de telefone na caixa de texto e clique em " Button1 ".
