Microsoft Visual Basic Express
Ver Más instrucciones
1
Inicie Microsoft Visual Basic Express , haga clic en "Nuevo proyecto ... " en el panel izquierdo de la pantalla y seleccione " Aplicación de Windows Forms ". Haga clic en " Aceptar".
2
doble clic en " botón" en la " caja de herramientas " para añadir un nuevo botón . Haga doble clic en " Label " para añadir una etiqueta. Añadir una segunda etiqueta con el mismo proceso . Haga doble clic en " TextBox " para agregar un cuadro de texto.
3
doble clic en " Button1 " para abrir el módulo " Form1.vb " . Copia y pega el siguiente en la primera línea del módulo:
Imports System.Windows.Forms
4
Copia y pega el siguiente para declarar la DLL TAPI32 en " Public Class Form1 ", pero por encima de la " Button1_Click "Procedimiento :
Declarar Función Auto tapiRequestMakeCall Lib" tapi32.dll "_
( DestAddress ByVal como secuencia, AppName ByVal As String , _
< p > CalledParty ByVal como secuencia , el comentario de ByVal como secuencia) como Integer
Const TAPIERR_NOREQUESTRECIPIENT Como corta: -2
Const TAPIERR_REQUESTQUEUEFULL Como Short = -3
Const TAPIERR_INVALDESTADDRESS Como corta: -4
el procedimiento " Button1_Click " se ha creado al hacer doble clic en " Button1 " en su formulario .
5
Copia y pega el siguiente dentro del procedimiento " Button1_Click " para crear las variables :
phoneNum Dim As String Dim
TResult en corto
tmpStr dévil como secuencia
El procedimiento " Button1_Click " se ha creado cuando se hace doble - hace clic en " Button1 " en su Formulario
6
Copia y pega el siguiente para conseguir el número de teléfono introducido en el cuadro de texto y lo llaman : .
phoneNum = Trim ( TextBox1.Text )
Trate
TResult = tapiRequestMakeCall ( phoneNum , "Dial " , phoneNum , "")
Catch ex As Exception
Label2.Text = " Error "
End Try
7
Copia y pega el siguiente para comprobar si hay errores :
Si TResult < > 0 Entonces
tmpStr = "Error"
Select Case TResult
Case TAPIERR_NOREQUESTRECIPIENT
tmpStr = tmpStr & " No aplicación de marcación de telefonía de Windows está en ejecución y no se pudo iniciar. "
Case TAPIERR_REQUESTQUEUEFULL
tmpStr = tmpStr y " La cola de espera de las solicitudes de marcado de telefonía de Windows está lleno. "
Case TAPIERR_INVALDESTADDRESS
tmpStr = tmpStr y " El número de teléfono no es válido. "
Case Else
tmpStr = tmpStr y " error Unkown ".
End Select
demás
tmpStr = "Marcado "
End If
Label2.Text = tmpStr
End Sub End Class
8
Press "F5 " para ejecutar el programa , a continuación, introduzca un número de teléfono en el cuadro de texto y haga clic en " Button1 ".