Recuperer url avec edge

Question

Bonjour, j'utilise ce code pour récupérer l'url active internet explorer, mais avec win10 je voudrais l'adapter a Edge. 'Ajout reference'Windows System32 Ieframe.dll'Microsoft Html Objet library (dcom)Imports mshtmlImports SHDocVwImports Microsoft.Win32Imports System.Runtime.InteropServices'Fonction de capture de la derniere url ouverte IEModule CaptureUrlIE Dim URLS As String 'Recupére les URLS ouverte dans IE séparer de , Dim UrlIeOld As String 'Stocke les URLS séparé par , Dim Newurl As String ' Variable De la derniere URL Private Function GetIeUrl() As String On Error Resume Next 'c'est moche mais néccéssaire Dim browser As SHDocVw.InternetExplorer Dim myLocalLink As String Dim myDoc As mshtml.IHTMLDocument2 Dim shellWindows As SHDocVw.ShellWindows = New SHDocVw.ShellWindows() Dim filename As String URLS = "" For Each ie As SHDocVw.InternetExplorer In shellWindows filename = System.IO.Path.GetFileNameWithoutExtension(ie.FullName).ToLower() If filename = "iexplore" Then browser = ie myDoc = browser.Document myLocalLink = myDoc.url URLS = URLS & myLocalLink & "," End If Next Return URLS End Function Public Function CaptureIeUrl() Dim UrlIe() = Split(GetIeUrl(), ",") 'recupére les urls dans un tableau dynamique Newurl = "" 'Vide variable If UrlIeOld <> Nothing Then 'Si il y a des données dans la variable qui stocke les URLS précedente 'Boucle sur les Urls récupérer et les recherche dans la variable old For i As Integer = 0 To UBound(UrlIe) If InStr(UrlIeOld, UrlIe(i)) = 0 Then Newurl = Newurl & UrlIe(i) & "," 'Si retour 0 donc pas dedans on ajoute a la variable newurl Next End If UrlIeOld = Join(UrlIe, ",") 'On ecrit les urls en cours dans la variable url old avec separateur , If Replace(Newurl, ",", "") <> "" Then Return (Replace(Newurl, ",", "")) Else Return Nothing 'Retour de la function End FunctionEnd Module Quelqu'un a t-il une piste ?

Whismeril · Answer

Bonjour,

C'est quoi la version de Vb? Juste pour faire déplacer dans le bon forum

ucfoutu · Answer

Bonjour, Whismeril,
1) Ce n'est pas du VB6 (cela, au moins, c'est sûr)
2)  Et si c'est du .Net, il y a utilisation de VB6 dans du .Net ...
(un sacré mélange (qui en dit long) , quoi ...)
Amitiés.
PS : cette réponse n'est faite qu'à Whismeril, juste pour LE renseigner.
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

pcpunch · Answer

C'est bien un mélange qui en dit long (UCFOUTU)

Whismeril, c'est bien du vb.net . je débute en .net, j'étais assez a l'aise en vb6 ce qui explique mon code je pense.

Merci pour ta réponse.

Zermelo · Answer

Bonjour pcpunch. 
Pour avoir un Vb net propre (qui ne bave pas sur Vb 6), ouvrir My project, puis
– dans l'onglet Compiler, 
––– mettre Option Explicit sur ON, 
––– mettre Option Strict sur ON, 
––– mettre Option Infer sur Off, 
– dans l'onglet Références, désactiver Microsoft.
Cordialement.

Recuperer url avec edge

4 réponses

Votre réponse