WEBBROWSER NÃO CARREGA PAGINA ESPECIFICA
Fiz um outro executavel que somente aplica essas configurações esse executavel somente executa a primeira vez que se roda o programa no computador, então resolvido o problema de executar como administrador esse executavel faz exatamente isso:
Dim a As String
a = WebBrowser1.Version.ToString
Dim VIE = Split(a, [Ô].[Ô])
versaoIE = VIE(0)
If VIE(0) = [Ô]8[Ô] Then
valorIE = [Ô]8000[Ô]
End If
If VIE(0) = [Ô]9[Ô] Then
valorIE = [Ô]9000[Ô]
End If
If VIE(0) = [Ô]10[Ô] Then
valorIE = [Ô]10000[Ô]
End If
If VIE(0) = [Ô]11[Ô] Then
valorIE = [Ô]11000[Ô]
End If
Dim rk As RegistryKey = Registry.CurrentUser.OpenSubKey([Ô]SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION[Ô], True)
If rk Is Nothing Then
rk = Registry.CurrentUser.OpenSubKey([Ô]SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl[Ô], True)
rk.CreateSubKey([Ô]FEATURE_BROWSER_EMULATION[Ô])
rk.Close() [ô] close current SubKey and then open SubKey with the new Subkey that has been added
rk = Registry.CurrentUser.OpenSubKey([Ô]SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION[Ô], True)
End If
[ô]Add new names and values to the FEATURE_BROWSER_EMULATION SubKey
If rk.GetValue([Ô]WindowsApplication9.exe[Ô]) Is Nothing Then
rk.SetValue([Ô]WindowsApplication9.exe[Ô], valorIE, RegistryValueKind.DWord)
End If
If rk.GetValue([Ô]WindowsApplication9.vshost.exe[Ô]) Is Nothing Then
rk.SetValue([Ô]WindowsApplication9.vshost.exe[Ô], valorIE, RegistryValueKind.DWord)
End If
porem agora quando executo o programa no windows XP por exemplo para abrir o site http://blog.suasvendas.com/2014/03/27/3-formas-de-iniciar-boa-vendas-com-suasvendas/ o programa da um erro e trava novamente com a mensagem abaixo:
(Tentativa de leitura ou gravação em memória protegida. Normalmente, isso é uma indicação de que outra memória está danificada.)
Ja tentei de tudo e nao consigo resolver
Dim a As String
a = WebBrowser1.Version.ToString
Dim VIE = Split(a, [Ô].[Ô])
versaoIE = VIE(0)
If VIE(0) = [Ô]8[Ô] Then
valorIE = [Ô]8000[Ô]
End If
If VIE(0) = [Ô]9[Ô] Then
valorIE = [Ô]9000[Ô]
End If
If VIE(0) = [Ô]10[Ô] Then
valorIE = [Ô]10000[Ô]
End If
If VIE(0) = [Ô]11[Ô] Then
valorIE = [Ô]11000[Ô]
End If
Dim rk As RegistryKey = Registry.CurrentUser.OpenSubKey([Ô]SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION[Ô], True)
If rk Is Nothing Then
rk = Registry.CurrentUser.OpenSubKey([Ô]SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl[Ô], True)
rk.CreateSubKey([Ô]FEATURE_BROWSER_EMULATION[Ô])
rk.Close() [ô] close current SubKey and then open SubKey with the new Subkey that has been added
rk = Registry.CurrentUser.OpenSubKey([Ô]SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION[Ô], True)
End If
[ô]Add new names and values to the FEATURE_BROWSER_EMULATION SubKey
If rk.GetValue([Ô]WindowsApplication9.exe[Ô]) Is Nothing Then
rk.SetValue([Ô]WindowsApplication9.exe[Ô], valorIE, RegistryValueKind.DWord)
End If
If rk.GetValue([Ô]WindowsApplication9.vshost.exe[Ô]) Is Nothing Then
rk.SetValue([Ô]WindowsApplication9.vshost.exe[Ô], valorIE, RegistryValueKind.DWord)
End If
porem agora quando executo o programa no windows XP por exemplo para abrir o site http://blog.suasvendas.com/2014/03/27/3-formas-de-iniciar-boa-vendas-com-suasvendas/ o programa da um erro e trava novamente com a mensagem abaixo:
(Tentativa de leitura ou gravação em memória protegida. Normalmente, isso é uma indicação de que outra memória está danificada.)
Ja tentei de tudo e nao consigo resolver
Creio que o problema é por que no meu Windows XP a função acima não esta criando o registo na pasta HKEY_CURRENT_USER e sim na pasta HKEY_LOCAL_MACHINE pois eu criei manualmente o registro na pasta HKEY_CURRENT_USER e funcionou perfeitamente agora o problema é fazer isso pelo programa pois pela função acima não ta indo.
Tópico encerrado , respostas não são mais permitidas