请教VB操作webbrowser代码改vfp代码，谢谢 - VFP论坛

已结贴√ 问题点数：20 回复次数：9

请教VB操作webbrowser代码改vfp代码，谢谢

根据id直接click
<button id="wordsearchbtn" class="btn">查询</button>
此按钮的点击方法
Webbrowser1.Document.GetElementsByTagname("button")("wordsearchbtn").Click
如何把上面代码改成vfp代码，谢谢

第 2 楼

得分:0

回复 2楼 cjc1010

点击没有反应

测试.rar (302.93 KB)

直接用鼠标点击webbrowser上的网页按钮可用，点击表单上的就没有反应
Thisform.Web1.Document.getElementById('button1').click()
网页代码
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <meta charset="UTF-8">
    <meta http-equiv="X-UA-Compatible" content="IE=edge">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">

<title>Document</title>
</head>
<body>

<div style="text-align:center">
  <button onclick="playPause()" id="button1">播放/暂停</button>
  <button onclick="makeBig()">放大</button>
  <button onclick="makeSmall()">缩小</button>
  <button onclick="makeNormal()">普通</button>
  <br>
  <video id="video1" width="420">
    <source src="movie.mp4" type="video/mp4">
    您的浏览器不支持 HTML5 video 标签。
  </video>
</div>

<script>
var myVideo=document.getElementById("video1");

function playPause()
{
    if (myVideo.paused)
      myVideo.play();
    else
      myVideo.pause();
}

    function makeBig()
{
    myVideo.width=560;
}

    function makeSmall()
{
    myVideo.width=320;
}

    function makeNormal()
{
    myVideo.width=420;
}
</script>

</body>
</html>

第 3 楼

得分:0

回复 3楼吹水佬

自己写的按钮

第 4 楼

得分:0

回复 6楼吹水佬

版主这样没反应
网页代码：
<button onclick="playPause()" id="button1">播放/暂停</button>

vfp代码
Thisform.Web1.Document.getElementById('button1').click

第 5 楼

得分:0

回复 8楼吹水佬

版主好，实在找不到有参考的东东，版主辛苦一下给一段示例代码，谢谢

第 6 楼

得分:0

回复 10楼吹水佬

版主你好
看了WebView2代码
    * html代码（web测试代码）
TEXT TO htmlCode TEXTMERGE NOSHOW PRETEXT 7
<!DOCTYPE html>
<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>vfp运行web代码</title>
    <script>
        var e = document.createEvent("MouseEvents");
        e.initEvent("click", true, true);

        function test()
        {
            alert("点击了test按键");
        }
    </script>
</head>
<body>
    <pre>
    <h2>vfp运行web代码</h2>
    <button id="vfprun" onclick="test()">test</button>
    </pre>
</body>
</html>
ENDTEXT

WebView_NavigateHtml(STRCONV(htmlCode+0h00,5))                  && 打开html
INKEY(1)                                                        && 因 Navigate 是异步的，此时要中断一下
jsCode = [document.getElementById("vfprun").dispatchEvent(e);]  && 执行点击按键
WebView_ExecuteScript(STRCONV(jsCode+0h00,5))                   && 解释html之后执行
这里的.dispatchEvent(e)和WebView_ExecuteScript(STRCONV(jsCode+0h00,5)) 是不是和您做的myWebViewDll.dll有关，这个WebView2看着用起来太复杂，我用的是webbrowser，请版主指导一下，辛苦了，谢谢