重奖300分: 如何找到IE网页的控件句柄向他们发送模拟按键(如数值500)? ( 积分: 300 )

  • 主题发起人 主题发起人 dragonx23
  • 开始时间 开始时间
D

dragonx23

Unregistered / Unconfirmed
GUEST, unregistred user!
重奖500分:&nbsp;如何找到网页的控件句柄(文本框),并向他们发送模拟按键(如数值500)?<br>必须提供程序
 
是不是想取地址栏?
 
觀注中。。。。。。。。。。。。
 
function&nbsp;SetDivValue(var&nbsp;Wbrowser:&nbsp;TEmbeddedwb;&nbsp;FieldName,<br>&nbsp;&nbsp;Value:&nbsp;string;&nbsp;index:&nbsp;integer):&nbsp;boolean;<br>var<br>&nbsp;&nbsp;webdoc:&nbsp;IHTMLDocument2;<br>&nbsp;&nbsp;weblabel:&nbsp;IHtmlElement;<br>&nbsp;&nbsp;tmpval:&nbsp;string;<br>begin<br>&nbsp;&nbsp;//得到网页中的DIV值<br>&nbsp;&nbsp;webdoc&nbsp;:=&nbsp;wbrowser.Document&nbsp;as&nbsp;IHTMLDocument2;<br>&nbsp;&nbsp;weblabel&nbsp;:=&nbsp;(webdoc.all.tags('div')&nbsp;as&nbsp;IhtmlElementCollection).item(FieldName,<br>&nbsp;&nbsp;&nbsp;&nbsp;index)&nbsp;as<br>&nbsp;&nbsp;&nbsp;&nbsp;IHtmlElement;<br>&nbsp;&nbsp;if&nbsp;not&nbsp;Assigned(weblabel)&nbsp;then<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;result&nbsp;:=&nbsp;false;<br>&nbsp;&nbsp;&nbsp;&nbsp;Exit;<br>&nbsp;&nbsp;end;<br>&nbsp;&nbsp;weblabel.innerHTML&nbsp;:=&nbsp;value;<br>&nbsp;&nbsp;result&nbsp;:=&nbsp;true;<br>end;<br><br>//===========================================<br><br>function&nbsp;SetTextBoxValue(var&nbsp;Wbrowser:&nbsp;TEmbeddedwb;&nbsp;FieldName,<br>&nbsp;&nbsp;Value:&nbsp;string;&nbsp;index:&nbsp;integer):&nbsp;boolean;<br>var<br>&nbsp;&nbsp;webdoc:&nbsp;IHTMLDocument2;<br>&nbsp;&nbsp;webEdit:&nbsp;IHTMLInputElement;<br>&nbsp;&nbsp;tmpval:&nbsp;string;<br>begin<br>&nbsp;&nbsp;//设置网页中的文本框对象值<br>&nbsp;&nbsp;webdoc&nbsp;:=&nbsp;wbrowser.Document&nbsp;as&nbsp;IHTMLDocument2;<br>&nbsp;&nbsp;webEdit&nbsp;:=&nbsp;(webdoc.all&nbsp;as&nbsp;IhtmlElementCollection).item(FieldName,&nbsp;index)&nbsp;as<br>&nbsp;&nbsp;&nbsp;&nbsp;IHTMLInputElement;<br>&nbsp;&nbsp;if&nbsp;not&nbsp;Assigned(webEdit)&nbsp;then<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;result&nbsp;:=&nbsp;false;<br>&nbsp;&nbsp;&nbsp;&nbsp;Exit;<br>&nbsp;&nbsp;end;<br>&nbsp;&nbsp;webEdit.value&nbsp;:=&nbsp;Value;<br>&nbsp;&nbsp;result&nbsp;:=&nbsp;true;<br>end;<br><br>function&nbsp;SetHideTextValue(var&nbsp;Wbrowser:&nbsp;TEmbeddedwb;&nbsp;FieldName,<br>&nbsp;&nbsp;Value:&nbsp;string;&nbsp;index:&nbsp;integer):&nbsp;boolean;<br>var<br>&nbsp;&nbsp;webdoc:&nbsp;IHTMLDocument2;<br>&nbsp;&nbsp;webEdit:&nbsp;IHTMLInputElement;<br>begin<br>&nbsp;&nbsp;////给隐藏的字段设置新<br>&nbsp;&nbsp;webdoc&nbsp;:=&nbsp;wbrowser.Document&nbsp;as&nbsp;IHTMLDocument2;<br>&nbsp;&nbsp;webEdit&nbsp;:=&nbsp;(webdoc.all&nbsp;as&nbsp;IhtmlElementCollection).item(FieldName,&nbsp;index)&nbsp;as<br>&nbsp;&nbsp;&nbsp;&nbsp;IHTMLInputElement;<br>&nbsp;&nbsp;if&nbsp;not&nbsp;Assigned(webEdit)&nbsp;then<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;result&nbsp;:=&nbsp;false;<br>&nbsp;&nbsp;&nbsp;&nbsp;Exit;<br>&nbsp;&nbsp;end;<br>&nbsp;&nbsp;webEdit.value&nbsp;:=&nbsp;Value;<br>&nbsp;&nbsp;result&nbsp;:=&nbsp;true;<br>end;
 
参数FieldName代表什么?&nbsp;&nbsp;请详细说明
 
SENDKEY&nbsp;SndKey32.pas
 
to&nbsp;&nbsp;&nbsp;xuegaoyili:<br><br>你这个代码,好像只能在自已程序的WEBBROWSER中填吧!<br>不知道楼主,是不是想要填充外部程序(如IE)的内容?<br><br>我有些思路,弄好后,再填写上来!
 
腾云驾雾超级服务器正式免费推出!无须任何维护,可让您在1分钟之内建立属于自己的网站!&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;腾云驾雾超级服务器程序既是一个&nbsp;webserver&nbsp;又是一个网站。超级服务器的主要目的是让运行这个程序的人,立即拥有一个属于自己<br><br>的网站,理论上&nbsp;腾云驾雾超级服务器&nbsp;可以将世界上任何一个网站变成运行本服务器程序的那台电脑的网站!<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;同时您只要拥有一个全世界唯一的IP地址,那么你就可以让全世界的人来访问你的网站了!当然您要是有一个域名绑定您的IP,那就更<br><br>爽了!<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;腾云驾雾超级服务器程的最大优点是:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1、可以让你在一分钟之内完全拥有一个属于您自己的网站。(快速)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2、您拥有的这个网站将无需要任何维护!(省事)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;3、您只要申请&nbsp;google&nbsp;的&nbsp;在线广告&nbsp;AdSense&nbsp;就可以开始挣钱了。(挣钱)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;4、只要在&nbsp;参数配置文件&nbsp;tengyunjiawuserver.ini&nbsp;中填写&nbsp;您&nbsp;google&nbsp;AdSense&nbsp;的代码编码就可以开始挣钱了。<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;5、腾云驾雾超级服务器属于纯绿色软件,无需安装注册!(绿色环保)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;6、腾云驾雾超级服务器即是一个&nbsp;webserver&nbsp;又是一个网站,所以只占用大约&nbsp;1.5MB大小的空间!(不占地)<br>理论上&nbsp;腾云驾雾超级服务器&nbsp;可以将世界上任何一个网站变成运行本服务器程序的那台电脑的网站!<br>超级服务器&nbsp;奥运版&nbsp;<br>下载地址1:http://www.tengyunjaiwu.com/download/tyjw_aoyun.rar<br>下载地址2:http://www.600bbs.com/t.rar<br>超级服务器&nbsp;baidu&nbsp;版&nbsp;<br>下载地址1:http://www.tengyunjaiwu.com/download/tyjw_baidu.rar<br>下载地址2:http://www.600bbs.com/chao.rar<br><br>腾云驾雾超级服务器即是一个&nbsp;webserver&nbsp;又是一个网站,如果您的电脑正在运行&nbsp;Apache&nbsp;或&nbsp;IIS&nbsp;或&nbsp;Tomcat&nbsp;请先关掉!<br><br>有任何问题请联系我:&nbsp;http://www.tengyunjiawu.com<br><br>可以定制啊,你看上哪个网站了,告诉我,我帮你做那个网站的版本啊!<br><br>腾云驾雾超级服务器推出&nbsp;google&nbsp;版本,端口,广告可完全自定义<br><br>超级服务器&nbsp;google&nbsp;版&nbsp;<br>下载地址1:http://www.tengyunjiawu.com/download/tyjw_google.rar&nbsp;<br><br>你可以看看&nbsp;google&nbsp;版本的&nbsp;DEMO&nbsp;(本人带宽只有&nbsp;1MB,速度可能慢了点,大家多谅解啊!)<br>http://www.tengyunjiawu.com:8080<br>这个版本也叫气死&nbsp;google&nbsp;不偿命<br>做的还不是很完善,请大家多批评指教!
 
TO&nbsp;linchhero,&nbsp;<br>是外部IE的内容.&nbsp;并且一定要考虑FRAME结构的.<br><br>其实就是&nbsp;网页自动提交.&nbsp;我已经找到VC++写的.&nbsp;最好能用DELPHI写.
 
我写的“客服之星”就实现了这个功能,现在我的网站打不开了,你可以到天空或者华军去搜一下。
 
用VC++的算了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部