+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Problemi con WebBrowser

  1. #1
    Francesco53 non è in linea Scolaretto
    Post
    209
    Like Inviati  
    0
    Like Ricevuti  
    0
    Un saluto a tutto il Forum, prima tramite WebBrowser riuscivo a visualizzare un sito,
    purtroppo adesso mi segnala che internet explorer non è più supportato, per cui essendo
    il comando WebBrowser basato su internet explorer, così mi ricordo, adesso non riesco più
    a visualizzare la pagina web.
    Chiedo se esiste una soluzione alternativa che consenta di non utilizzare explorer.

    Posto il codice presente in unica form.

    Public Class Form1
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim indirizzo As String
            indirizzo = "https://www.lottomatica.it/lotterie/10elotto"
            WebBrowser1.Navigate(indirizzo)
        End Sub
        Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
            WebBrowser1.ScrollBarsEnabled = True
            WebBrowser1.Document.Window.ScrollTo(10, 200) 'Oriz - Vert
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Close()
        End Sub
    End Class
    
    Spero in un vostro aiuto in quanto penso possa essere un problema che col tempo sarà presente su altri siti.
    Grazie a chi può aiutarmi,
    Francesco

  2. #2
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,491
    Blogs
    5
    Like Inviati  
    6
    Like Ricevuti  
    34
    Non ho provato ma leggi questo

    https://docs.microsoft.com/en-us/mic...arted/winforms

    e prova tu webview2
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    L'avatar di SirJo
    SirJo non è in linea Scolaretto
    Post
    56
    Like Inviati  
    6
    Like Ricevuti  
    3
    Per fortuna la soluzione è semplice, basta dire al WebBrowser che deve simulare Microsoft Edge
    Devi chiamare questa routine nel Form_Load della tua prima form

    Public Sub InitEDGE()
    
            ' Computer\HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION
            Dim VersionCode = 12001 ' EDGE
            Dim Root As String = "HKEY_CURRENT_USER\"
            Dim AppName = My.Application.Info.AssemblyName
            Dim Key As String = "Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION"
            Dim CurrentSetting As String = CStr(Microsoft.Win32.Registry.CurrentUser.OpenSubKey(Key).GetValue(AppName & ".exe"))
            If CurrentSetting Is Nothing OrElse CInt(CurrentSetting) <> VersionCode Then
                Microsoft.Win32.Registry.SetValue(Root & Key, AppName & ".vshost.exe", VersionCode)
                Microsoft.Win32.Registry.SetValue(Root & Key, AppName & ".exe", VersionCode)
            End If
    
        End Sub
    
    Ultima modifica di SirJo; 27-01-2021 08:58 

  4. #4
    Francesco53 non è in linea Scolaretto
    Post
    209
    Like Inviati  
    0
    Like Ricevuti  
    0
    Buongiorno, ringrazio entrambi per le indicazioni date, AntonioG per il link utile che risulta molto istruttivo,
    SirJo per il codice che funziona alla perfezione.
    Francesco

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Webbrowser e RAM
    Da Laiton nel forum Visual Basic .Net
    Risposte: 13
    Ultimo Post: 22-11-2015, 13:55
  2. Problemi con Webbrowser
    Da ArmandoVBA nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 05-05-2015, 21:35
  3. WebBrowser
    Da trito nel forum Visual Basic .Net
    Risposte: 1
    Ultimo Post: 06-11-2010, 19:57
  4. WebBrowser
    Da mariorossi4770 nel forum Visual Basic .Net
    Risposte: 8
    Ultimo Post: 10-05-2009, 11:40
  5. WebBrowser
    Da Vanessa nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 19-01-2006, 15:22