Como fazer chamadas telefónicas Com Visual Basic

Automatizar chamadas telefónicas com VB.NET.

Tendo o conhecimento de como fazer chamadas telefónicas de um Microsoft Visual Basic.NET aplicação (VB.NET) 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 de desktop móvel, Web e. Fazer chamadas telefónicas de VB.NET pode ser realizada utilizando o Application Programming Interface de telefonia (TAPI). TAPI dá aos programadores as camadas necessárias para acessar o Microsoft Telephony DLLs (dynamic link libraries). Telefonia integra computadores com dispositivos como câmeras e redes de Internet.

Coisas que você precisa

Microsoft Visual Basic Express

Inicie o Microsoft Visual Basic Express, clique em "Novo projeto..." no painel esquerdo da tela e selecione "Aplicativo do Windows Forms." Clique "ESTÁ BEM."
Duplo click "Botão" no "Caixa de ferramentas" para adicionar um novo botão. Duplo click "Rótulo" adicionar uma etiqueta. Adicionar uma segunda etiqueta utilizando o mesmo processo. Duplo click "Caixa de texto" para adicionar uma caixa de texto.
Duplo click "Button1" para abrir o "Form1.vb"módulo. Copie e cole o seguinte na primeira linha do módulo:
Importações System.Windows.Forms

Copie e cole o seguinte declarar a TAPI32 DLL sob "Form1 Classe pública" mas acima do "Button1_Click" procedimento:

Declare Auto Função 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 "Button1_Click" procedimento foi criado quando você clicou duas vezes "Button1" em seu formulário.

Copie e cole o seguinte dentro do "Button1_Click" procedimento para criar suas variáveis:
```
Dim PhoneNum As String
Dim TResult As Short
Dim tmpStr As String
```
o "Button1_Click" procedimento foi criado quando você clicou duas vezes "Button1" em seu formulário.

Copie e cole o seguinte para obter o número de telefone introduzido na caixa de texto e chamá-lo:

PhoneNum = Trim (TextBox1.Text)

ExperimentarTResult = tapiRequestMakeCall (PhoneNum, "discar", PhoneNum, "")
Captura ex As Exception


Label2.Text = "Erro"
Try End

Copie e cole o seguinte para verificar se há erros:

Se TResult lt; gt; 0 ThentmpStr = "Erro"
Select Case TResult
TAPIERR_NOREQUESTRECIPIENT caso
tmpStr = tmpStr &Amp- "No aplicativo de discagem de telefonia do Windows está em execução e nenhum pôde ser iniciado."
caso TAPIERR_REQUESTQUEUEFULL
tmpStr = tmpStr &Amp- "A fila de solicitações pendentes de discagem de telefonia do Windows está cheio."
TAPIERR_INVALDESTADDRESS caso
tmpStr = tmpStr &Amp- "O número de telefone não é válido."
Case Else
tmpStr = tmpStr &Amp- "erro desconhecido."
End Select
Outro
tmpStr = "Discagem"
Fim se
Label2.Text = tmpStr
End Sub

End Class

pressione "F5" para executar o programa, em seguida, digite um número de telefone na caixa de texto e clique "Button1."

De esta maneira? Compartilhar em redes sociais: