|
|
|
|
|
|
|
|
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
|
|
|
|
|
