USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Iniciar browser e outlook
Postada em 4/12/2002 por DTLucchesi            
Iniciar o seu Browser padrão e abrir uma determina página da Web ou para ativar o seu programa de E-mail com endereçamento para um determinado endereço de E-mail em um projeto VB é mais fácil do que você pensa. Vamos provar:

1- Inicie um novo projeto no VB e insira um módulo no seu projeto. Neste módulo inclua o seguinte código. (não esqueça de salvar o módulo)::

Seção General Declarations:

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


No evento Click do botão de comando - Acessar o Site - insira o seguinte código:.

Private Sub Command1_Click()

Dim sucesso As Integer
Dim site As String

If Trim(txtweb.Text) = "http://www." Or Trim(txtweb.Text) = "" Then
    MsgBox "Informe o endereço (URL) do site a acessar...", vbCritical,"Dados incompletos..."
ElseIf Left(Trim(txtweb.Text), 11) = "http://www." Then
    site = Trim(txtweb.Text)
ElseIf Left(Trim(txtweb.Text), 4) = "www." Then
    site = "http://" & Trim(txtweb.Text)
Else
    site = "http://www." & Trim(txtweb.Text)
End If

sucesso = ShellToBrowser(Me, site, 0)

End Sub


O evento click do botão de comando - Abrir E-mail para - insira o código;

Private Sub Command2_Click()
Dim sucesso As Integer

If Trim(txtemail.Text) = "" Then
   MsgBox "Informe o seu endereço de E-mail", vbCritical, "Dados Incompletos..."
Else
   site = "mailto:" & Trim(txtemail.Text)
   successo = ShellToBrowser(Me, site, 0)
End If

End Sub


O código associado ao botão de comando - Sair -é o seguinte:

Private Sub Command3_Click()
  Unload Me
End Sub


Código da função ShellToBrowser que faz todo o serviço. Voce pode inserí-la no formulário.

Function ShellToBrowser(Frm As Form, ByVal URL, ByVal WindowStyle)
    
    Dim api As Integer
    api = ShellExecute(Frm.hwnd, "open", URL, "", App.Path, WindowStyle)

    'verifica o valor retornado
    If api < 31 Then
        'codigo de erro da api
        MsgBox App.Title & " O seu navegador esta com problemas. " & _
          "Verifique se o seu navegador esta corretamente instalado." & _
          "(Error" & Format(api) & ")", 48, "Navegador Indisponivel"
        ShellToBrowser = False
    ElseIf api = 32 Then
        'arquivo sem associação
        MsgBox App.Title & " não foi possível encontrar uma associação para o arquivo " & _
          URL & " no seu seistema. Verifique o seu Navegador padrão... ", 48,_
"Navegador indisponivel"
        ShellToBrowser = False
    Else
        'funcionou
        ShellToBrowser = True
    End If
    
End Function

Código da função que ativa o Browser e o Outlook Express

Ao executar o projeto o usuário deve informar um endereço URL válido e ao clicar no botão de comando - Acessar o Site - o Browser padrão é ativado para abrir a página do site. Se informar um endereço de e-mail o sistema abre o programa de e-mail para que seja enviada uma mensagem
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página