none
VB NET Trying to load ASPX page on WebBrowser RRS feed

  • Pergunta

  • Hello, 

    i am trying to load a aspx page on a webbrowser but it can't display the page, i would give the page to you but is necessary to login.

    If i get the URL it says the right one, but no page is displayed.

    The url is myprio.com

    If i load google.com or any other page i dont get any errors.

    My goal is to fill some fields and then click the button to submit them.

    my code:

     wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_Name").SetAttribute("value", sheet.Range("B" & i).Value.ToString)
                                    wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_Street").SetAttribute("value", ".")
                                    wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_PostalCode").SetAttribute("value", "0000-000")
                                    wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_City").SetAttribute("value", sheet.Range("D" & i).Value.ToString)
                                    wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_CCBI").SetAttribute("value", ".")
                                    wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_NIF").SetAttribute("value", sheet.Range("A" & i).Value.ToString)
                                    wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_Phone").SetAttribute("value", "910000000")
                                    Dim element2 As HtmlElement = wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_TypeBottleId")
                                    If element2 IsNot Nothing Then
                                        Dim value As Integer = CInt(Int((2 * Rnd()) + 1))
                                        Dim artigo As String = ""
                                        If value = 1 Then
                                            artigo = "G110 - PROPANO 45 kg"
                                        ElseIf value = 2 Then
                                            artigo = "G22 - PROPANO 9 kg"
    
                                        End If
                                        Dim TheCombo =
            (
                From X In wb.Document _
                .GetElementsByTagName("select").Cast(Of HtmlElement)()
                Where X.GetAttribute("ID") = "DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_TypeBottleId"
                Select X.GetElementsByTagName("option")
            ).FirstOrDefault
    
                                        Dim ItemToSelect =
            (
                From X In TheCombo.Cast(Of HtmlElement)()
                Where X.InnerText = artigo
            ).FirstOrDefault
    
                                        ItemToSelect.SetAttribute("selected", CStr(True))
                                        Console.WriteLine("cOMBO: " & wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_TypeBottleId").GetAttribute("value").ToString)
    
                                    Else
                                        MsgBox("Nao existe")
                                    End If
    
                                    wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_PurchaseDate").SetAttribute("value", Today.ToString("yyyy-MM-dd"))
                                    wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtBail_Number").SetAttribute("value", sheet.Range("C" & i).Value.ToString)
                                    wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtValueBailConfigWB_wtListRecords1_ctl00_wt1").InvokeMember("click")
                                    Console.WriteLine("Radio: " & wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtValueBailConfigWB_wtListRecords1_ctl00_wt1").GetAttribute("value"))
                                    'wb.Document.GetElementById("DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtButtonSave").InvokeMember("submit")
                                    Dim myHtmlElement As HtmlElement
                                    For Each myHtmlElement In wb.Document.All
    
                                        If myHtmlElement.GetAttribute("value") = "Registar Caução" AndAlso myHtmlElement.GetAttribute("type") = "submit" Then
    
    
                                            myHtmlElement.Focus()
                                            SendKeys.Send("{ENTER}")
    
    
                                        End If
                                    Next

    html code of the button: 

    <input onclick="if (OsPage_ClientValidate('DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtButtonSave')) OsAjax(arguments[0] || window.event,'DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtButtonSave','DublinTheme_wt19$block$wtMainContent$wtRegisterBailWB$wtButtonSave','','__OSVSTATE,',''); return false;" type="submit" name="DublinTheme_wt19$block$wtMainContent$wtRegisterBailWB$wtButtonSave" value="Registar Caução" id="DublinTheme_wt19_block_wtMainContent_wtRegisterBailWB_wtButtonSave" tabindex="42" class="Button Is_Default ThemeGrid_MarginGutter">

    My webbrowser

    I'm with this problem at like 4 hours.. can't solve it.

    Any suggestions?

    If you need any more information please ask

    Thanks!


    • Editado ImKookiE sexta-feira, 15 de junho de 2018 14:41
    sexta-feira, 15 de junho de 2018 12:06

Respostas

  • Boa tarde, ImKookiE. Tudo bem?

    Obrigado por usar ó fórum MSDN.

    Esse é o fórum para perguntas em português, para perguntas em inglês, use o seguinte link: https://social.msdn.microsoft.com/Forums/en-US/home

    Atenciosmamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 15 de junho de 2018 21:46
    Moderador

Todas as Respostas

  • Boa tarde, ImKookiE. Tudo bem?

    Obrigado por usar ó fórum MSDN.

    Esse é o fórum para perguntas em português, para perguntas em inglês, use o seguinte link: https://social.msdn.microsoft.com/Forums/en-US/home

    Atenciosmamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 15 de junho de 2018 21:46
    Moderador
  • Bom dia, 

    agradeço a indicaçao, devo-me ter enganado.

    Obrigado! :)

    segunda-feira, 18 de junho de 2018 07:05