Как сделать «невидимый» функционирующий браузер?

Question

[Дядя Богдан]

Делаю программу на C#. Нужно чтобы с сайта он брал Cookie фаилы сайта и некоторую информацию, но нужные куки появлялись только после нажатия кнопки на сайте, но для работы программы обязательно нужны cookie как незаметно для пользователя нажимать на эту кнопку на сайте?
В проекте использую CefSharp

Answer 1

[Sergey В.]

Для эмуляции браузера в "невидимом режиме" используйте CefSharp.OffScreen.
Для эмуляции нажатия используйте SendMouseClickEvent

Comments

[Дядя Богдан]

Круто, но как определить координаты клика?

[Sergey В.]

Дядя Богдан, не понял вопроса.

[Дядя Богдан]

BasiC2k, Ну типо у метода SendMouseClickEvent есть перегрузка где нужно указать x,y клика. Типо координаты куда кликать.

[Sergey В.]

Дядя Богдан, да, есть и что?
Выражайтесь яснее.

[Дядя Богдан]

BasiC2k, Так как эти координаты получить? Как узнать где кнопка находится?

[Sergey В.]

Дядя Богдан, ниже функция с моего старого проекта на VB.NET. Возвращает координаты элемента страницы по xPath.
Критиковать не надо, на вопросы отвечу.

' Получение координат элемента
    Public Async Function GetCoord(sXPath As String) As Task(Of CResult)
        Dim oTask As Task(Of JavascriptResponse), sJSRes As String, sJSErr As String, sFrameUrl As String, sArr() As String
        Dim iX As Double, iY As Double, iR As Double, iB As Double

        sXPath = Replace(sXPath, """", "'")
        If sXPath.Contains(vbTab) Then sFrameUrl = Split(sXPath, vbTab)(0) : sXPath = Split(sXPath, vbTab)(1) ' Есть Frame
        Call AddLog("Get Coordinates to '" & sXPath & "'")

        oTask = Me.GetFrame(sFrameUrl).EvaluateScriptAsync("(function () 
                                                        {  
                                                            var element = document.evaluate(""" & sXPath & """, document, null, XPathResult.FIRST_ORDERED_NODE_TYPE, null).singleNodeValue;
                                                            var position = element.getBoundingClientRect();
                                                            var x = position.left;
                                                            var y = position.top;
                                                            var r = position.right;
                                                            var b = position.bottom;                                                   
                                                            return x + ' ' + y + ' ' + r + ' ' + b;
                                                        })();
                                                        ", Nothing)

        Await oTask.ContinueWith(Sub(t) ' Выполнение JS
                                     If Not t.IsFaulted Then ' Таск ещё работает
                                         Dim response As JavascriptResponse = t.Result
                                         If response.Success Then                ' Выполнено успешно
                                             If IsNothing(response.Result) Then  ' Нулевой ответ
                                                 sJSRes = "False"
                                             Else                                ' Есть ответ
                                                 sJSRes = response.Result.ToString()
                                             End If
                                         Else                                    ' Завершено с ошибкой
                                             sJSRes = "False"
                                             sJSErr = response.Message
                                         End If
                                     End If
                                 End Sub, TaskScheduler.FromCurrentSynchronizationContext())

        If sJSErr <> "" Then Me.Busy = False : Return New CResult(False, 0, "Error JS: '" & sJSErr & "'") ' Выпонено с ошибкой

        sJSRes = sJSRes.Replace(".", ",")
        sArr = Split(sJSRes, " ")

        If UBound(sArr) <> 3 Then Return New CResult(False, 0, "Invalid number of elements") ' Выпонено с ошибкой

        If Not Double.TryParse(sArr(0), iX) Then Return New CResult(False, 0, "Invalid X coord of element") ' Выпонено с ошибкой
        If Not Double.TryParse(sArr(1), iY) Then Return New CResult(False, 0, "Invalid Y coord of element") ' Выпонено с ошибкой
        If Not Double.TryParse(sArr(2), iR) Then Return New CResult(False, 0, "Invalid Width of element") ' Выпонено с ошибкой
        If Not Double.TryParse(sArr(3), iB) Then Return New CResult(False, 0, "Invalid Height of element") ' Выпонено с ошибкой

        Return New CResult(True, 0, Math.Round(iX, 0) & " " & Math.Round(iY, 0) & " " & Math.Round(iR, 0) & " " & Math.Round(iB, 0))
    End Function