ABRIR LINK DE E-MAIL DO WEBBROWSER EM NOVA JANELA

USUARIO.EXCLUIDOS 10/06/2005 14:46:10
#88264
Galera,
Como não consegui solução para o problema do trópico postado anteriormente ( LINKS NO WEBBROWSER VIA VB), resolvi postar novamente para ver se tenho alguma solução, pois já tentei de tudo, pesquisei na Net, procurei aqui alguns amigos, mas nada. A questão é:
Gostaria que o usuário ao clical em um link de e-mail no controle WEBBrowser, este componente abrisse uma janela específica do programa ao invés do Editor de e-mail, além disto gostaria que ao clicar no link este fosse armazenada numa variável pública ou global.
Espero que alguém possa me dar uma luz], pois tá difícil, mas o desafios foram feitos para serem superados...
Até...
[S25][S51][S91][S95][S43][S38]
USUARIO.EXCLUIDOS 10/06/2005 17:49:09
#88317 Resposta escolhida
Tem um exemplo que mostra um WEBBROWSER com envio de e-mail http://www.macoratti.net/vb_web.htm
Agora quanto a clicar em um item e vc controlar/manipular o mesmo,Wcosta, acho meio difícil você conseguir isso, o que vc quer fazer é o mesmo carregar uma foto num picturebox e controlar as partes da foto... tipo, se clicar no olho faz isso, se clicar na boca entra ali, se clicar no cabelo com o botão direito fecha... entendeu? o WebBrowser é um componente ActiveX que usa o IE para exibir documentos HTML, online ou ofline, note (veja no macoratti) que as propriedade, métodos e eventos deste componente são um tanto limitadas, por mais que esteja inserido no vb, é um controle externo, o que aparece no web a princípio é externo e não tem como ser manipulado...
Porém existem exemplos que chegar perto do que você quer, controlando novas janelas, o clique no e-mail...
Best WebBrowser
Se tiver o VB.NET este é 10...


ALPHA WEBBROWSER
Este é em VB6...


Fire WebBrowser
Este é em VB6...


E para finalizar... alguns comandos básicos do WEBBROWSER

' Assumes:Shdocvw.dll and Comdlg32.dll r
'     equired.
I didn't bother To make this a Tutorial because I didn't think it belonged in that category. Most of the codes are commented on what it does.
'
'Go to the previous webpage
WebBrowser1.GoBack
'Go to the present webpage
WebBrowser1.GoForward
'Go to the default IE home
WebBrowser1.GoHome
'Go to the default search page
WebBrowser1.GoSearch
'Refresh the current webpage
WebBrowser1.Refresh
'Navigate to a webpage
WebBrowser1.Navigate "www.YourSite.com"
[txt-backcolor=#00ff00]'Printing:
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
'Saving a webpage:
WebBrowser1.ExecWB OLECMDID_SAVEAS,OLECMDEXECOPT_PROMPTUSER[/txt-backcolor]

'Open a webpage file on located on your 
'     computer:
On Error Goto fileOpenErr
CommonDialog1.CancelError = True
CommonDialog1.flags = &H4& Or &H100& Or cdlOFNPathMustExist Or cdlOFNFileMustExist
CommonDialog1.DialogTitle = "Select File To Open"
CommonDialog1.Filter = "HTM (*.htm)|*.htm|Txt Files (*.txt)|*.txt|Jpg Files (*.jpg)|*.jpg|Gif Files (*.gif)|*.gif|All Files (*.*)|*.*"
CommonDialog1.ShowOpen
webbrowser1.Navigate CommonDialog1.FileName
fileOpenErr:
Exit Sub

[txt-backcolor=#ffff00]'Open a new web browser using your progr
'     am and not IE:
Dim NewBrowser as Form1
NewBrowser.Show
NewBrowser.Caption = "MyBrowser"
'Load IE Preferences:
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0", 5)[/txt-backcolor]

'An advanced Stop:
If webbrowser1.Busy Then
    webbrowser1.Stop
    webbrowser1.GoBack
End If

Espero ter ajudado...
Tópico encerrado , respostas não são mais permitidas
Voltar