RECARREGAR WEB

JUNINHOODIAS 17/07/2014 14:57:32
#439611
Tipo ta muito estranho isso.. :/
FILMAN 17/07/2014 21:47:22
#439630
como você esta fazendo no timer?

talvez o seu timer esta sempre recarregando a página para URL inicial ai nunca vai mudar!

nos mostre

- como esta carregando o WebBrowser
- como esta mudando o link
- qual o código do timer
JUNINHOODIAS 17/07/2014 22:45:05
#439632

WebBrowser1.Navigate([Ô]http://form.jotformz.com/form/33646650711655[Ô]) [ô]ESSE WEB RECARREGA NORMALMENTE SE EU ATUALIZAR O HTML JÁ AS OUTRAS DUAS AI EM BAIXO NÃO ATUALIZA
WebBrowser4.Navigate([Ô]http://apa.qlix.com.br/SoftApa/Grade.html[Ô])
WebBrowser3.Navigate([Ô]http://apa.qlix.com.br/SoftApa/publicidadeBaixo.html[Ô])

esse é o codigo que uso no timer [ô]-[ô], só isso
FILMAN 19/07/2014 16:28:35
#439675
Vamos lá

Crie um Form e nele você coloca os seguintes Controls

WebBrowser1
WebBrowser2
WebBrowser3
Timer1

Mude as seguintes propriedades dos Controls

Para os WebBrowser deixa as seguintes propriedades conforme abaixo
IsWebBrowserContextMenuEnabled = False
ScriptErrorsSuppressed = True
ScrollBarsEnabled = False [ô]Caso não queira que apareça barra de rolagem

Para o Timer deixe a propriedade
Interval = 1000


No Declarations do form declare 3 variáveis
    Private liberou1 As Boolean = False
    Private liberou2 As Boolean = False
    Private liberou3 As Boolean = False



No Load do Form faça o seguinte
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate([Ô]C:\pagina1.html[Ô])
        WebBrowser2.Navigate([Ô]C:\pagina2.html[Ô])
        WebBrowser3.Navigate([Ô]C:\pagina3.html[Ô])

        Timer1.Start()
    End Sub



No Closing do Form faça o seguinte
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Timer1.Stop()
    End Sub



No DocumentCompleted dos WebBrowser faça o seguinte
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        liberou1 = True
    End Sub

    Private Sub WebBrowser2_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted
        liberou2 = True
    End Sub

    Private Sub WebBrowser3_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser3.DocumentCompleted
        liberou3 = True
    End Sub



No Tick do Timer faça o seguinte
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If liberou1 Then
            liberou1 = False

            If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                WebBrowser1.Navigate([Ô]C:\pagina1.html[Ô])
            End If
        End If

        If liberou2 Then
            liberou2 = False

            If WebBrowser2.ReadyState = WebBrowserReadyState.Complete Then
                WebBrowser2.Navigate([Ô]C:\pagina2.html[Ô])
            End If
        End If

        If liberou3 Then
            liberou3 = False

            If WebBrowser3.ReadyState = WebBrowserReadyState.Complete Then
                WebBrowser3.Navigate([Ô]C:\pagina3.html[Ô])
            End If
        End If

        Application.DoEvents()
    End Sub



Aqui não deu problema nenhum! fiquei alterando várias as vezes e alterou normalmente!
FILMAN 31/07/2014 12:20:56
#440074
E ai deu certo?

Caso o problema tenha sido resolvido, por favor encerre o tópico

Obrigado
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar