Question

vb怎么点击网页的button按钮

<input id="callNo" style="height: 44px;width: 100%;color:#999" value="输入被叫号码" onfocus="cls()" onblur="res()" type="tel">
</div>
<div style="padding:6px 5px 5px 5px;width: 25%" class="ui-field-button">
<button onclick="makecall()">呼叫</button>
</div>
</div>

请问用vb怎么实现点击按钮后将text1的内容传入网页的输入被叫号码输入框中，
再有就是点击程序按钮怎么实现同时点击网页的“呼叫”按钮，
ps：这个页面没有有form表单，考js实现的提交

Answer 1

给一个测试网址，做个demo给你

追问

这是我自己写的网页，你可以自己在本地写一个html页面，做个demo给我谢谢

追答

不会做网页。。。

追问

你的扣扣号码多少

追答

可以私信我

你可以先试试下面的代码：

Option Explicit

Private Sub Command1_Click()
    Dim a As Object
    '填信息
    For Each a In WebBrowser1.Document.getElementsByTagName("input")
        Select Case a.id
            Case "callNo"
                a.Value = txtTest.Text
                Exit For
        End Select
    Next
    '点击value为“呼叫”的button按钮（这种方法不准确，会点击全部value为“呼叫”的button按钮）
    '最好的方法是执行网页的JS
    For Each a In WebBrowser1.Document.getElementsByTagName("button")
        Select Case a.Value
            Case "呼叫"
                a.onclick
        End Select
    Next
    '直接执行网页JS函数
    'WebBrowser1.Document.parentWindow.execScript "makecall();"
End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate2 "你的网页url"
End Sub

 

不行的话再说