VB. NET GeckoFX, Нажатие кнопки, Объект пуст? - PullRequest
Новая
       47

VB. NET GeckoFX, Нажатие кнопки, Объект пуст?

0 голосов
/ 13 января 2020

Итак, я делаю скрипт для браузерной игры, который бы автоматически нашел для меня покемона,

Сайт: pokemon-vortex.com

Я проверил несколько сообщений и попробовал все, но объекты просто не будут импортированы в коллекцию элементов

. Я также попробовал GeckoHtmlCollection, но также безрезультатно, я получаю больше ошибок. Пожалуйста, помогите. 

 Dim Html As Gecko.GeckoElementCollection
 Dim Buttons As Gecko.GeckoElementCollection
 Dim Legendaries As New List(Of String) From
            {"Articuno", "Zapdos", "Moltres", "Mewtwo", "Mew", "Raikou", "Entei", "Suicune", "Lugia", "Ho-oh", "Celebi", "Regirock", "Regice", "Registeel", "Latias", "Latios", "Kyogre", "Groudon", "Rayquaza", "Jirachi", "Deoxys", "Uxie", "Mesprit", "Azelf", "Dialga", "Palkia", "Giratina", "Heatran", "Regigigas", "Cresselia", "Darkrai", "Phione", "Manaphy", "Shaymin", "Arceus", "Victini", "Cobalion", "Terrakion", "Virizion", "Keldeo", "Tornadus", "Thundurus", "Landorus", "Reshiram", "Zekrom", "Kyurem", "Meloetta", "Genesect", "Xerneas", "Yveltal", "Zygarde", "Tapu"}

// This part is in a timer
        Html = MainBrowser.Document.GetElementsByTagName("img")
        Buttons = MainBrowser.Document.GetElementsByTagName("img")
        For Each button As Gecko.GeckoHtmlElement In Buttons
            If button.GetAttribute("src").Equals("https://static.pokemon-vortex.com/v4/images/maps/arrows/arrowup.gif") Then 
// Error Shows here that object is null, the script gets stuck in here and the program wont run                
                button.Click()
            ElseIf button.GetAttribute("src").Equals("https://static.pokemon-vortex.com/v4/images/maps/arrows/arrowdown.gif") Then
                button.Click()
            Else

            End If
        Next

        For Each Pokemon As Gecko.GeckoElement In Html
            For I = 0 To Legendaries.Count - 1
                If Pokemon.GetAttribute("src").Contains(Legendaries.Item(I)) Then
                    AutoPokemonFinder.Enabled = False
                End If
            Next
        Next
...