Как программно заполнить форму на сайте?

Question

[rfvgy]

На сайте b98300b7.beget.tech я разместил форму, которая записывает данные, введенные в 2 текстовых поля - логин и пароль.(позже я эту форму удалю). Мне нужно чтобы допустим по нажатию кнопки(на форме в моей программе) в эти 2 поля на сайте вводились данные и нажималась кнопка "Войти".
Пожалуйста, не кидайте ссылки на другие такиеже темы, там не очень понятно.

Comments

[Ярослав Иванов]

Пахнет мошенничеством

[h8nor]

Пути извращенцев неисповедимы. Где код?

А-я-яй, как не красиво https://ru.stackoverflow.com/questions/1134192/
Про непрерывные логи в отладчике слышал:

instagramstatic-a.akamaihd.net
connect.facebook.net
csrfmiddlewaretoken=6812e2894b63d62edd6f9021814e3055&username=tester&password=kek
<meta http-equiv="refresh" content="0;URL=https://instagram.com/accounts/login/">

Передача данных в post.php. А это что, ещё и авторизашка через куки фейсбука?
Стилей нет только потому, что на CDN.CSS ссылка битая.

[rfvgy]

Ребята, я этот скрипт на ютубе год назад нашел, а сейчас залил на бесплатный хостинг, я не шарю в PHP. Никакого мошенничества нет, кто поведется на такую страницу без style.css? А если вы говорите про какую-то авторизацию то прошу мне объяснить что делает эта авторизация и если не сложно удалить все лишнее из скрипта. И все таки тема этого вопроса "Как программно заполнить форму на сайте?", поэтому прошу помочь.

[h8nor]

Ога, тут тоже люди API светили для доступа к Маркету, а потом страницу удалили.

[rfvgy]

На других форумах ко мне более дружелюбно отнеслись.

[h8nor]

Вы обиделись? Здесь не форум, и осуждаются любые схемы обмана. https://youtu.be/x5AuK_IbJlg?t=230

[rfvgy]

Я не обиделся, я просто констатирую факт. Это не форум? А что это? На счет скрипта я правда не знал что с ним что-то не так, за это извините.

Answer 1

[rfvgy]

Вобщем сам нашел ответ на свой вопрос:

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim AuthThread As New System.Threading.Thread(AddressOf DataAuth)
        AuthThread.IsBackground = True
        AuthThread.Start()
    End Sub
    Sub DataAuth()
        Invoke(Sub() WebBrowser1.Document.GetElementById("id_username").InnerText = "Login")
        Threading.Thread.Sleep(50)
        Invoke(Sub() WebBrowser1.Document.GetElementById("id_password").InnerText = "Password")
        Threading.Thread.Sleep(300)
        Invoke(Sub()
                   Dim buttons As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
                   For Each btn As HtmlElement In buttons
                       If btn.GetAttribute("classname") = "button-green" Then
                           btn.InvokeMember("Click")
                       End If
                   Next
               End Sub)
    End Sub