关于delphi点击webbrowser中任意一点的问题 - jxgxy - 博客园
随笔 - 260, 文章 - 0, 评论 - 71, 引用 - 1
有时候我们需要delphi载入webbrowser1打开网页的时候 需要点击某一个点的位置 可能是坐标 可能是按钮 可能是其他的控件应该如何来实现呢？ 这里来简单说明一下点击坐标的过程点击过程很明显我们移动鼠标来点击或者发送消息来点击移动鼠标点击的比较常见 这里详细说明一下发送消息来点击的办法发送消息来点击的思路是sendmessage()发送消息来实现的导入句柄 点击的就可以了。但是这里的句柄(webbrowser的句柄)其实是不好找的。如果找到了合适的正确的句柄点击起来还是非常容易的这里有一个过程可以清楚的说明sendmessage的点击过程procedure sendclick(var x,y:integer) ;beginSendMessage(GetWindow(GetWindow(form1.WebBrowser1.Handle, GW_CHILD), GW_CHILD),WM_LBUTTONDOWN,////MK_LBUTTON, MAKELONG(strtoint(edit2.Text),strtoint(edit3.Text)));MK_LBUTTON, MAKELONG(x,y));sleep(500);SendMessage(GetWindow(GetWindow(form1.WebBrowser1.Handle, GW_CHILD), GW_CHILD),WM_LBUTTONUP,////MK_LBUTTON, MAKELONG(strtoint(edit2.Text),strtoint(edit3.Text)));MK_LBUTTON, MAKELONG(x,y)) ;PostMessage(GetWindow(GetWindow(form1.WebBrowser1.Handle, GW_CHILD), GW_CHILD),WM_LBUTTONDOWN,////MK_LBUTTON, MAKELONG(strtoint(edit2.Text),strtoint(edit3.Text)));MK_LBUTTON, MAKELONG(x,y));sleep(500);PostMessage(GetWindow(GetWindow(form1.WebBrowser1.Handle, GW_CHILD), GW_CHILD),WM_LBUTTONUP,////MK_LBUTTON, MAKELONG(strtoint(edit2.Text),strtoint(edit3.Text)));MK_LBUTTON, MAKELONG(x,y)) ;这里定义了一个过程GetWindow(GetWindow(form1.WebBrowser1.Handle, GW_CHILD), GW_CHILD) 这是webbrowser的句柄整个过程发送了 sendmessage和postmessage2个包 这里是防止一次没点中 所以再补点一次关于点击的坐标是过程中导入的参数 x,y。这里的X Y坐标是相对于窗体的坐标 就是相对于webbrowser的坐标 所以必须要用spy++来查找点击的坐标&delphi webbrowser1 网页弹出 确认 阻止或拦截的问题
delphi开发的程序，使用webbrowser1对某个网页&自动填表和自动提交后，网页弹出&确认&，怎样阻止或拦截呢？
网页弹出的确认是一个对话框窗口，标题为，Microsoft&Internet&Explorer，
对话框窗口提示内容为
14:16&&&[]
delphi&webbrowser1&屏蔽网页自动播放音乐&和&flash的问题
Delphi&如何屏蔽
有的人的空间有一些插件&比如说自动播放音乐&
flash一些&如何屏蔽掉
回复讨论(解决方案
13:43&&&[]
我使用的是
WebBrowser1.Document.Links.Item(i).InvokeMember(&click&)
去点击链接
用了很多方法都没办法做到
不是IE弹窗就是没反应了～
回复讨论(解决方案)
这种方式的点击是不是与鼠标点击完全
-18:46&&&[]
网页&框架中还有框架&不知道怎么获取
下面可以获取框架中的代码&
procedure&TForm1.Button5Click(Sender:&TObject);
01:42&&&[]
WebBrowser1里，但是到内网后，就有问题了，提示停在WebBrowser1.Navigate2&WebBrowser1.Document.activeElement.href
这一句上，说是未能试别的什么什么的，大家帮想个辙吧
回复讨论(解决方案)
在窗体上再放一个
-18:36&&&[]
如何通过inet1或webbrowser1的&
Content-Type:&multipart/form-&方式向网页POST数据&
POST数据分&
application/x-www-form-urlencoded&nbsp
-12:27&&&[]
如何通过inet1或webbrowser1的&
Content-Type:&multipart/form-&方式向网页POST数据
POST数据分
application/x-www-form-urlencoded
Content-Type
-17:15&&&[]
如何通过webbrowser1的&
Content-Type:&multipart/form-&方式向网页POST数据&
POST数据分&
application/x-www-form-urlencoded&
-12:26&&&[]
窗体上放了两个WebBrowser控件，WebBrowser1和WebBrowser2.
WebBrowser1中有个链接，点击过后会弹出IE浏览器。如何点击链接过后，在WebBrowser2中打开？而不是浏览器中。
回复讨论(解决方案)
本帖最后由 wuyazhe 于
-16:29&&&[]
我的程序使用了WebBrowser1的控件。
然后连接到了一个登入页面。
我想问下。用这个登入页面输入账号密码后。那么比如我的启动项是form1，WebBrowser1的页面是form2。
我用form1打开了form2后。然后在form2内的WebBrowser1控件内输入账号密码了
-10:03&&&[]
WebBrowser1&对&提交&按钮，
用下列代码执行没有问题
&input&type=&submit&&class=&best-submit&&name=&quot
-16:37&&&[]
delphi&webbrowser1&访问网页出现invalid&url
invalid&url
the&requested&URL&is&invalid&&如何修正呢？？
01:56&&&[]关于webbrowser设置值的问题，请教-.NET技术/C#-c/c++-电脑编程网关于webbrowser设置值的问题，请教-.NET技术/C#作者：uvvvw　和相关&&窗体里放了一个webbrowser 名称为 web代码如下web.Url = new Uri(&&);if (web.ReadyState == plete)&
{&HTMLDocument doc = (HTMLDocument)web.Document.DomD&
IHTMLDocument3 hh3 = (IHTMLDocument3)&
IHTMLElementCollection hhc2 = hh3.getElementsByTagName(&form&);&
foreach (IHTMLElement h in hhc2)&
setSubmit(h);&
void setSubmit(IHTMLElement h)&
setSubmitChildren(h);&
IHTMLFormE&
ht = (IHTMLFormElement)h;&
ht.onsubmit = &&;&
ht.action = &&;&
h.setAttribute(&target&, &_self&,0);&
void setSubmitChildren(IHTMLElement h)&
if (h.children != null)&
IHTMLElementCollection tmp = (IHTMLElementCollection)h.&
foreach (IHTMLElement h2 in tmp)&
if (h2.tagName.ToLower() == &input&)&
if (h2.getAttribute(&type&, 0).ToString().ToLower() == &submit&)&
h2.setAttribute(&onclick&, &&, 0);&
IHTMLElement2 h2t = (IHTMLElement2)h2;&
h2t.attachEvent(&onclick&, this);&
setSubmitChildren(h2);&
catch (Exception ex)&
}我想实现的是，阻止新浪邮箱的提交。我把form的onsubmit设置为 不行。设置为 function (){} 不行设置为return function (){} 不行设置为 function aa(){};return aa() 不行设置为 script:return false 不行设置为 script:return function (){} 不行同样，我在 input type=submit 中设置 onclick=以上值还是不行。我的目的是要在webbrowser里阻止表单提交，但表单还是提交了。我用 .net 自带的 htmlelement 来设置值还是不行。在调试时，可以看得到这些值都设置上了的.得到的outhtml如下&\r\n&FORM class=formpadding name=free onsubmit=\&\&
method=post&&UL&\r\n&LI class=loginhead&&SELECT id=freeselect onchange=\&showE('mail_suffix')\& name=logintype& &OPTION value=login&会员名&/OPTION& &OPTION value=uid selected&邮箱名&/OPTION&&/SELECT& &/LI&\r\n&LI&&INPUT class=\&input1 input2\& id=username onfocus=mail_clear(this); value=请输入邮箱名 name=u& &/LI&\r\n&LI&\r\n&DIV id=mail_suffix&\r\n&DIV style=\&FLOAT: LINE-HEIGHT: 22px\&&@&/DIV&&SELECT id=vipselect style=\&FLOAT: WIDTH: 80px\& name=domain& &OPTION
selected&&/OPTION& &OPTION &&/OPTION&&/SELECT&&/DIV&&/LI&&/UL&\r\n&DIV id=na style=\&DISPLAY: none\&&请填写正确用户名&/DIV&\r\n&UL&\r\n&LI class=loginhead&&LABEL for=password&密 码&/LABEL& &/LI&\r\n&LI&&INPUT class=input1 id=password type=password value=\&\& name=psw& &/LI&&/UL&\r\n&SCRIPT type=text/javascript&createAuthcode();&/SCRIPT&\r\n\r\n&UL id=save1 style=\&DISPLAY: none\&&\r\n&LI class=\&loginhead loginheadsingle\&&&/LI&\r\n&LI&&INPUT id=savelogin type=checkbox value=\&\& name=savelogin& &LABEL for=savelogin&记住会员名&/LABEL& &/LI&\r\n&LI class=getpsw style=\&MARGIN-LEFT: 20px\&&&A href=\&.cn/getpass.html\& target=_blank&找回密码&/A& &/LI&&/UL&\r\n&UL id=save2 style=\&DISPLAY: block\&&\r\n&LI class=\&loginhead loginheadsingle\&&&/LI&\r\n&LI&&INPUT id=saveuid type=checkbox value=\&\& name=savelogin& &LABEL for=saveuid&记住邮箱名&/LABEL& &/LI&\r\n&LI class=getpsw style=\&MARGIN-LEFT: 20px\&&&A href=\&.cn/getpass.html\& target=_blank&找回密码&/A& &/LI&&/UL&\r\n&UL&\r\n&LI class=\&loginhead loginheadsingle\&&&/LI&\r\n&LI title=对登录信息进行传输，防止密码泄露。&&INPUT id=ssl_free type=checkbox value=\&\& name=ssl& &LABEL class=ssl-label for=ssl_free&增强安全性&/LABEL& &/LI&&/UL&&INPUT class=freedl1 onmousedown=\&this.className='freedl3'\& onmouseover=\&this.className='freedl2'\& onclick=\&\& onmouseout=\&this.className='freedl1'\& type=submit value=\&登 录\& name=btnloginfree& &/FORM&&请问下，这是怎么回事？谢谢。------回答---------------其他回答（50分）---------
C# code
web.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(web_DocumentCompleted);
你的代码是不是放在这个事件里面的？
------其他回答（50分）---------
WebBrower1.Enabled = False行不行？
相关资料：｜｜｜｜｜｜｜关于webbrowser设置值的问题，请教-.NET技术/C#来源网络，如有侵权请告知，即处理！编程Tags：　　　　　　　　　　　　　　　　&　　　　　　　　　　　　　　　　　　　　Delphi（146）
webbrowser中有一个隐藏域，id为xx，值为0
procedure TForm1.btn1Click(Sender: TObject);
doc:=wb1.D
//获取元素的值
{str:=doc.all.xx.
ShowMessage(str);}
//写入htnl
doc.write('&html&&head&&/head&&body&&p&新的html&/p&&input type=&hidden& value=&0& id=&xx& /&&/body&&/html&');
//改变元素的值
doc.all.xx.value:='1';
ShowMessage(doc.all.xx.value);
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：392608次
积分：12931
积分：12931
排名：第518名
原创：895篇
转载：245篇
评论：42条
(14)(1)(10)(10)(8)(23)(12)(18)(15)(17)(31)(56)(34)(42)(80)(32)(28)(22)(59)(43)(103)(41)(50)(42)(39)(60)(46)(59)(68)(56)(4)(18)}