Como fazer chamadas telefônicas com o Visual Basic

Escrito por jaime avelar | Traduzido por paula mangia garcia terra
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como fazer chamadas telefônicas com o Visual Basic
Automatize chamadas telefônicas com VB.NET (telephone image by MATTHIEU FABISIAK from Fotolia.com)

O conhecimento de como fazer chamadas telefônicas a partir de um aplicativo chamado Microsoft Visual Basic.NET (VB.NET) torna possível economizar tempo, se você precisa fazer chamadas constantemente. O VB.NET é uma linguagem de programação usada para criar aplicativos para celulares, Web e computadores de mesa. É possível fazer chamadas telefônicas a partir do VB.NET usando o Telephony Application Programming Interface (TAPI), pois ele fornece aos programadores, as camadas necessárias para acessar os DLLs (biblioteca de links dinâmicos) do Microsoft Telephony. O Telephony integra computadores a dispositivos, como câmeras e redes da Internet.

Outras pessoas estão lendo

O que você precisa?

  • Microsoft Visual Basic Express

Lista completaMinimizar

Instruções

  1. 1

    Execute o Microsoft Visual Basic Express, clique em "New Project..." no painel esquerdo da sua tela e selecione "Windows Forms Application". Clique em "OK".

  2. 2

    Clique duas vezes em "Button", em "Toolbox", para adicionar um novo botão. Clique duas vezes em "Label" para adicionar uma etiqueta. Adicione uma segunda etiqueta com o mesmo processo. Clique duas vezes em "TextBox" para adicionar uma caixa de texto.

  3. 3

    Clique duas vezes em "Button1" para abrir o módulo "Form1.vb". Copie e cole o código seguinte na primeira linha do módulo:

    Imports System.Windows.Forms

  4. 4

    Copie e cole o código abaixo para declarar TAPI32 DLL em "Public Class Form1", mas acima do procedimento "Button1_Click":

    Declare Auto Function tapiRequestMakeCall Lib "TAPI32.dll" _ (ByVal DestAddress As String, ByVal AppName As String, _ ByVal CalledParty As String, ByVal Comment 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 ao clicar duas vezes em "Button1" no seu formulário.

  5. 5

    Copie e cole o seguinte código 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 criado ao clicar duas vezes em "Button1" no seu formulário.

  6. 6

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

    phoneNum = Trim(TextBox1.Text) Try tResult = tapiRequestMakeCall(phoneNum, "Dial", phoneNum, "") Catch ex As Exception Label2.Text = "Error" End Try

  7. 7

    Copie e cole o código que se segue para verificar erros:

    If tResult <> 0 Then tmpStr = "Error" Select Case tResult Case TAPIERR_NOREQUESTRECIPIENT tmpStr = tmpStr & "No windows Telephony dialing application is running and none could be started." Case TAPIERR_REQUESTQUEUEFULL tmpStr = tmpStr & "The queue of pending Windows Telephony dialing requests is full." Case TAPIERR_INVALDESTADDRESS tmpStr = tmpStr & "The phone number is not valid." Case Else tmpStr = tmpStr & "Unkown error." End Select Else tmpStr = "Dialing" End If Label2.Text = tmpStr

    End Sub End Class

  8. 8

    Pressione "F5" para executar o programa e, em seguida, insira um número de telefone na caixa de texto. Clique em "Button1".

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível