Ir para conteúdo
Fórum Script Brasil
  • 0

Discar


Humm

Pergunta

11 respostass a esta questão

Posts Recomendados

  • 0

Ummm bom dei uma olhada por aqui e achei uma função bem interessante, acho que pode lhe ajudar ou até solucionar seu problema.

Para iniciar uma conexão Dial-up existente em seu computador, você deverá usar a linha de código abaixo:

Shell "rundll32.exe rnaui.dll,RnaDial <NomeDaConexãoDial-up>", 1

Bom dai tem essa função que deve facilitar o processo:

Function Conecta(Nome As String, Usuario As String, Senha As String)

On Error Resume Next

Dim x As Long

x = Shell("rundll32.exe rnaui.dll,RnaDial " & Nome, 1)

DoEvents

AppActivate x, False

SendKeys "%u" & Usuario, True ' Aqui vai o username.

SendKeys "%s" & Senha, True ' Aqui vai a sua senha.

SendKeys "{ENTER}", True ' Aqui vai o click no botão Conectar.

End Function

Exemplo:

Coloque a expressão abaixo no evento Ao clicar (OnClick) de um botão de comando:

=Conecta("MeuProvedor","Julio","PPP123")

As outras entradas de Rnaui.dll são:

Ordinal Entry Point Name

------------------------------------------------------

0000 0000773e DllCanUnloadNow

0001 00002a80 DllGetClassObject

0002 00007880 Remote_CreateEntry

0003 000029ef Remote_CreateInstance

0004 00003988 Remote_EditEntry

0005 00003260 Remote_Notify

0006 000031b9 RnaDial

0007 000031da RnaRunImport

0008 00007a6a RnaWizard

Mais Informações:

a) Existem outras soluções que utilizam as funções de Wininet.dll (Win32 API) ou o controle ActiveX MSComm, instalado pelo Microsoft Office Developer (ODE) e Visual Basic.

B) Você também pode utilizar o Assistente (Wizard) do Access de criação de botões de comando num formulário, para efetuar a Discagem para o servidor Dial-up. Dentro do assistente, escolha "Miscelânea/DiscagemAutomática". O Access irá criar um procedimento no evento Ao clicar do botão, contendo o código necessário para ativar a discagem automática do Windows. Estude este código criado pelo Assistente.

c) É possível ainda efetuar a discagem a partir do Access com as técnicas descritas nos artigos da Microsoft Knowledge Base:

<url=http://support.microsoft.com/?kbid=148857> 148857: How to Dial a Phone Number from MS Access 95/97; </url> e

<url=http://support.microsoft.com/?kbid=141625>- 141625: Using TAPI to Dial a Phone Under Win95/NT 4.0 (95/97) </url>

Bom não cheguei a testar mais sempre que preciso utilizar as dicas do "JR's Access FAQ" elas funcionam bem por isso acredito que deva lhe atender.

Link para o comentário
Compartilhar em outros sites

  • 0

ahh saquei.. mas não é pra conexao não.. é so pra discar mesmo.. como se fosse um callcenter..

eu tenho o campo que tem o numero do cliente.. ai apertando o botao ao lado, efetua a discagem automaticamente..

sacou?

eu ate conheco a funcao de discagem automatica do access.. mas eu queria algo mais automatizado ainda..

Link para o comentário
Compartilhar em outros sites

  • 0

Fera achei mais este código.

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 um botão de comando ao lado. Quando o Text tem algo, se o usuário clicar no botão a função é executada.

Link para o comentário
Compartilhar em outros sites

  • 0

Bom pelo que entendi você pode colocar a função na propridade ao clicar do seu botão (sinceramente não testei), então tente colocar algo assim:

x=PhoneCall(me.seuTextoTelefone,me.seuTextoNome)

Espero que dê certo!

Link para o comentário
Compartilhar em outros sites

  • 0

não ta dando certo.. da esse erro:

Erro em tempo de execução '424':

O objeto é obrigatório.

clico em depurar e marca a linha:

lRetVal = tapiRequestMakeCall(sNumber, _

App.Title, sName, "")

eu coloquei o código assim no botao:

Private Sub BTCEL_Click()

If IsNull(Me.TELEFONE_CELULAR) Then

MsgBox "Não há número para discar.", vbCritical, "Discagem"

Else

Call PhoneCall(Me.TELEFONE_CELULAR, Me.NOME)

End If

End Sub

abraços

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...