以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]能否用控件的方式实现填写网页的相关内容(如网页内的文本框输入)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113467)

--  作者:foxtable1
--  发布时间:2018/1/16 15:55:00
--  [求助]能否用控件的方式实现填写网页的相关内容(如网页内的文本框输入)
能否用窗口控件的方式实现填写网页的相关内容(如网页内的文本框输入):
  如点击一个按钮,在webbrowser的网页内的文本框输入一个设定的值。这个功能如何实现?

--  作者:foxtable1
--  发布时间:2018/1/16 16:11:00
--  
主要是想规范网页文本框的输入内容,达到控制随意输入文本的目的。
这个功能可不可以实现,请大咖给个思路。

--  作者:有点甜
--  发布时间:2018/1/16 16:26:00
--  

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107739&skin=0

 


--  作者:foxtable1
--  发布时间:2018/1/17 9:14:00
--  
@有点甜:谢谢。有关这个内容,帮助内没有一点介绍,精灵内也没有。哪里有相关内容介绍吗?帅哥哟,离线,有人找我吗?


--  作者:foxtable1
--  发布时间:2018/1/17 9:56:00
--  
Dim Inputs = web.Document.getElementsByName("loginForm") 提示getElementsByName不是Document.的成员。而GetElementById不会提示出错。
getElementsByName为什么不是呢?
 附:
</script>
<object classid="clsid:707C7D52-85A8-4584-8954-573EFCE77488" id="JITDSignOcx" width="0" codebase="./JITDSign.cab#version=2,0,24,19"></object>
</head>
<body>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><table width="522" height="328" border="0" cellpadding="0" cellspacing="0" background="images/bg.jpg">
<tr>
<td width="241" height="120">&nbsp;</td>
<td width="281">&nbsp;</td>
</tr>
<tr>
<td>&nbsp;</td>
<td valign="top">
<form name="loginForm" method="post" action="" onsubmit="return false;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60" height="40" class="txt1">用户名:</td>
<td><input id="userName" type="text" class="textfield1" onChange="getName()" onkeypress="if(event.keyCode == 13){document.all.password.focus();}"><input id="userId" type="hidden"></td>
</tr>
<tr>
<td height="40" class="txt1">密 码:</td>
<td><input id="password" name="password" type="password" class="textfield1"></td>
</tr>
<tr>
<td>&nbsp;</td>
<td><input name="imageField" type="image" class="bt1" src="images/bt_submit.gif" width="67" height="22" border="0" onClick="login()">
<input name="imageField2" type="image" class="bt1" src="images/bt_reset.gif" width="67" height="22" border="0" onClick="document.all.userName.getName()\';return document.all.userName.focus();">
</td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>


--  作者:有点甜
--  发布时间:2018/1/17 10:19:00
--  

参考代码,不会做请上传实例

 

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol

Dim Inputs = web.Document.GetElementsByTagName("input")
For Each Input As object In Inputs

    msgbox(Input.getAttribute("name"))

    msgbox(Input.getAttribute("id"))
Next


--  作者:foxtable1
--  发布时间:2018/1/17 14:03:00
--  
@有点甜,在webbrowser中操作网页时,为什么后续网页会自动跳转到IE中去,而不是仍然在webbrowser中显示?
--  作者:有点甜
--  发布时间:2018/1/17 14:38:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73886&skin=0

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=98827&skin=0

 


--  作者:foxtable1
--  发布时间:2018/1/24 8:48:00
--  
浏览器控件内点击下一步后,提示浏览器屏蔽了弹出窗口,所以新窗口无法在webbrowser中显示,网页无法继续下去。继续求助如何消除。
--  作者:foxtable1
--  发布时间:2018/1/24 9:15:00
--  
ie设置里,已经将阻止弹窗做了关闭,也还是出现这个提示,下一步网页无法在控件中显示