Поиск и нажатие кнопки в интернете

[Jaroslav]

Открывает в новом окне. Как сделать так, чтобы нужное окно открывалось вместо окна, где есть кнопка "Send_FREE_message"?
Если кликаю в IE (а не в VBA), то открывает так, как надо

[doober]

Открывает в новом окне. Как сделать так, чтобы нужное окно открывалось вместо окна, где есть кнопка "Send_FREE_message"?

Не могу помочь,надо быть на странице и посмотреть на скрипты, и все это проделать в своем браузере
Где -то так.
Для темной обработки сгодится
Правте по месту

Sub Send_FREE_message()
    Dim WebBrowser As Object
    Set WebBrowser = CreateObject("InternetExplorer.Application")
    WebBrowser.Visible = True
    WebBrowser.Navigate "https://www.natashaclub.com/profile.php?ID=1000770574"
    Do While Not (WebBrowser.ReadyState = 4)
        DoEvents
    Loop

    For Each he In WebBrowser.Document.GetElementById("UnderPhotoLinkDiv").GetElementsByTagName("a")
        WebBrowser.Navigate he.href
        Exit For
    Next
    Do While Not (WebBrowser.ReadyState = 4)
        DoEvents
    Loop

    Set he = WebBrowser.Document.body.all("text")

    he.SetAttribute "value", "Привет,как и просил,мне 70 лет"

    he.RaiseEvent ("onKeyDown")

    For Each he In WebBrowser.Document.GetElementsByTagName("submit")
        If he.Value = "Send" Then
            he.Click
            Exit For
        End If

    Next

End Sub

[Jaroslav]

Спасибо, doober.
Вчера все было нормально, а сегодня Ваш код:

Set he = WebBrowser.Document.body.all("text")

    he.SetAttribute "value", "Привет,как и просил,мне 70 лет"

    he.RaiseEvent ("onKeyDown")

прописывается так в html-коде:

<textarea name="text" id="text" onkeydown="javascript: this.form.textcounter.value = this.form.text.value.length;" onkeyup="javascript: this.form.textcounter.value = this.form.text.value.length;" rows="12" cols="55" value=Привет,как и просил,мне 70 лет></textarea>

а должно быть так:

<textarea name="text" id="text" onkeydown="javascript: this.form.textcounter.value = this.form.text.value.length;" onkeyup="javascript: this.form.textcounter.value = this.form.text.value.length;" rows="12" cols="55">Привет,как и просил,мне 70 лет</textarea>

То есть после "55" вместо "value=Привет,как и просил,мне 70 лет>" должно быть ">Привет,как и просил,мне 70 лет".

Подскажите, пожалуйста, как правильно в таком случае исправить код на VBA

[Jaroslav]

Вчера все было нормально, а сегодня Ваш код:

Set he = WebBrowser.Document.body.all("text")

    he.SetAttribute "value", "Привет,как и просил,мне 70 лет"

    he.RaiseEvent ("onKeyDown")

прописывается так в html-коде:

<textarea name="text" id="text" onkeydown="javascript: this.form.textcounter.value = this.form.text.value.length;" onkeyup="javascript: this.form.textcounter.value = this.form.text.value.length;" rows="12" cols="55" value=Привет,как и просил,мне 70 лет></textarea>

а должно быть так:

<textarea name="text" id="text" onkeydown="javascript: this.form.textcounter.value = this.form.text.value.length;" onkeyup="javascript: this.form.textcounter.value = this.form.text.value.length;" rows="12" cols="55">Привет,как и просил,мне 70 лет</textarea>

То есть после "55" вместо "value=Привет,как и просил,мне 70 лет>" должно быть ">Привет,как и просил,мне 70 лет".

Подскажите, пожалуйста, как правильно в таком случае исправить код на VBA

[doober]

he.innertext="Привет,как и просил,мне 70 лет"

use F1

[Jaroslav]

Спасибо, doober

[Jaroslav]

doober, в вашем коде:

 Set he = WebBrowser.Document.body.all("text")

    he.SetAttribute "value", "Привет,как и просил,мне 70 лет"

    he.RaiseEvent ("onKeyDown")
For Each he In WebBrowser.Document.GetElementsByTagName("submit")
            If he.Value = "Send" Then
                he.Click
                Exit For
            End If
        Next

кнопка Send не нажимается.
Вариант:

For Each he In WebBrowser.Document.GetElementById("UnderPhotoLinkDiv").GetElementsByTagName("submit")
            If he.Value = "Send" Then
                he.Click
                Exit For
            End If
        Next

и вариант:

For Each he In WebBrowser.Document.GetElementById("UnderPhotoLinkDiv").GetElementsByTagName("submit")
            If he.Value = "Send" Then
                WebBrowser.Navigate he.href
                Exit For
            End If
        Next

не проходит.

[Jaroslav]

Вот кусок html-кода:

<td align=right width=100%><input class=no type=submit value="Send"></td>
</table>
</td></tr>
</table>
<input type=hidden name=SEND_MESSAGE value=YES></form>
 
</td></table>
</div>
<!-- end box Составить и отправить новое сообщение -->
<p></p></div>
 
<!-- CONTENT (Составить и отправить новое сообщение) [END] -->

[doober]

Акела промахнулся.

    For Each he In WebBrowser.Document.GetElementsByTagName("input")
        If he.Type = "submit" Then
            If he.Value = "Send" Then
                he.Click
                Exit For
            End If
        End If
    Next

[Jaroslav]

Спасибо, теперь работает