|
|
|
|
|
Dicas
|
|
Visual Basic (Internet)
|
|
|
Título da Dica: Discar com o modem via API
|
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Public Declare Function tapiRequestMakeCall _ Lib "TAPI32.DLL" (ByVal Dest As String, _ ByVal AppName As String, ByVal _ CalledParty As String, ByVal Comment _ As String) As Long
Public Sub PhoneCall(sNumber As String, sName As String) Dim lRetVal As Long lRetVal = tapiRequestMakeCall(sNumber, _ App.Title, sName, "") If lRetVal <> 0 Then 'Erro qualquer ou não conseguiu! End If End Sub Crie um controle com um textbox e uma imagem de um telefone ao lado. Quando o Text tem algo, se o usuário clicar na imagem a função é executada.
|
|
|
|
|