Newsgroup: it.comp.lang.visual-basic
Titolo: [vb6] webbrowser

si riesce ad avere l'url cui punta un link in una pagina, come nei browser 
seri? :)
grazie, a.

 seri? :)
Sě, sicuramente.
Anche se non ho capito che cosa vuoi fare :-)
-- 
Salutoni
Sergio
C'č il giorno in cui nasci e quello in cui scegli di vivere
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Anche se non ho capito che cosa vuoi fare :-)
hai presente quando passi il mouse su un link e ff/ie ti dicono in basso 
dove punta quel link? l'<a href>, insomma.
ciao, a.

 grazie, a.
Non sono convinto di aver capito....
Con IE:
set shellApp = createobject("shell.application")
for each w in shellApp.windows
  if lcase(typename(w.document)) = "htmldocument" then
    debug.print w.locationurl
  end if
Next
Considerando la molteplicità dei Browser converrebbe puntare a
FindWindowEx per puntare all'AddressBar del Browser, quindi con
SendMessage e WM_GETTEXT .....
Sempre che tu non intendessi invece una cosa del genere:
Declare Function UrlCombine Lib "shlwapi" Alias "UrlCombineA" ( _
    ByVal pszBase As String, _
    ByVal pszRelative As String, _
    ByVal pszCombined As String,
    pcchCombined As Long, _
    ByVal dwFlags As Long) As Long
' Flags
Const URL_DONT_SIMPLIFY = &H08000000
Const URL_UNESCAPE = &H10000000
Const URL_ESCAPE_UNSAFE = &H20000000
Const URL_PLUGGABLE_PROTOCOL = &H40000000
Const URL_ESCAPE_PERCENT = &H00001000
Const URL_ESCAPE_SPACES_ONLY = &H04000000
Function ResolveRelativeUrls(ByVal PageURL As String, ByVal Hyperlink
As
String) As String
Dim pcchCombined
Dim pszCombined
Dim CC As Long
CC = UrlCombine(PageURL, Hyperlink, pszCombined, pcchCombined,
URL_UNESCAPE)
ResolveRelativeUrls = PageURL & ":" & Hyperlink & ":" & pszCombined &
":" & 
pcchCombined 
End Function 
@Alex

 dove punta quel link? l'<a href>, insomma.
E t vuoi che te lo faccia dinamicamente?
Ok, un attimo che faccio qualche prova...
(a little time later)
Parrebbe che nell'evento StatusTextChange il parametro Text riporti
esattamente quello che ti serve.
Se ho capito quello che ti serve, naturalmente :-)
-- 
Salutoni
Sergio
C'è il giorno in cui nasci e quello in cui scegli di vivere


 Se ho capito quello che ti serve, naturalmente :-)
yes, grazie mille
Private Sub WB_StatusTextChange(ByVal Text As String)
    WB.ToolTipText = Text
End Sub
(ci va quello che andrebbe nella status bar, quindi anche "operazione 
completata", quello che ci scrivono eventuali js, ecc.).
ciao, a. 

 ha scritto nel messaggio
grazie, ma essendo per i miei browserini da battaglia (sto salvando 
documentazione varia in html, per non dover avere alcun office), l'altra 
soluzione e' sufficientemente semplice ed efficace.
ciao, a.

 E COME? :)
ROTFL! ;-)
Giusto ieri leggevo un post su un NG di fotografia dove il malcapitato di
turno alla solita domanda "E' possibile..." otteneva le classiche risposte
"Sě."! ;-)
Come va?

"Lord Rayden"
ciao lord, tutto bene?
qui boccheggiamo un po', non piu' per il caldo quanto per il caos.
vorrei guardarmi un po net, ho fatto un anno di data entry pesante, col vb6 
che mi e' servito giusto a impostare la cosa e alleggerirla un po'...
lo zen e l'arte della programmazione :)
ciao, a.

 End Sub
Si io ho usato proprio ora seguendo il tuo TR, questa routine come la tua:
...
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
On Error Resume Next
WebBrowser1.ToolTipText = Text
End Sub
...
Ma sei riuscito a farlo andare anche in una TEXT1.text ma solo al click?
Cioč quando scegli il click da fare, e solo allora, che ti si aggiorni anche 
su una barra testo dove io solitamente scrivo l'indirizzo da raggiungere 
come nel IE?
So che non c'e' "click"... forse il titlechange? non saprei... non sono 
riuscito
tu come hai fatto nel trasferire solo al click il contenuto letto nel 
tooltip da qualche parte?
ciao
----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com
 The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----

 ciao
sorry, temo di non  avere capito niente :)
ora sono un po' di fretta, quindi ci ragiono fra qualche giorno.
cmq al monmento uso solo queste due routine:
Private Sub wb_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As 
Long)
    On Error Resume Next
    txtNavigato = WB.LocationURL & " -- " & Int(((Progress * 100) / 
ProgressMax)) & "%"
' che comunque fa cose strane, tipo 101% o 1%. ci ragiono v. sopra :)
    txtNavigato.Refresh
End Sub
Private Sub WB_StatusTextChange(ByVal Text As String)
    WB.ToolTipText = Text
'e/o
    frmComeSiChiama.statusbar.panels(n)=text
'giusto perche' il tooltip a volte fa venire il mal di mare :)
End Sub
per il resto, al click, c'e' beforenavigate. e li' i miei utenti li inchiodo 
:)
ciao, a.

 lo zen e l'arte della programmazione :)
:-)

 grazie, a.
Ciao,
Credo che basto questi:
Private Sub Form_Load()
    WebBrowser1.Navigate ("
www.google.it
")
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    Call List1.AddItem(Text, 0)
End Sub
fammi sapere nel caso ci fossero problemi.