请问 frame内文本框的自动输入如何实现?
'以下代码在www.google.com可以将设定的内容输入到 文本框, 但如果这个文本框是 frameset 内的一个 frame的, 如何完成类似的功能?
'同样, 如何提取 frame 中的列表数据(如成绩单,比赛结果...)?
Private Sub mAutoInput()
On Error Resume Next
Dim webDoc As Object = AxWebBrowser1.Document.all
Dim webTag As Object
Dim lengthTag As Integer = webDoc.length - 1
For countTag As Integer = 0 To lengthTag
webTag = webDoc.item(countTag)
Select Case Strings.LCase(webDoc.item(countTag).tagname)
Case "input " '网页中的输入框
Select Case Strings.LCase(webTag.type)
Case "text " '文本
Select Case webTag.name
Case "q "
webTag.value = TextBox2.Text
End Select
End Select
End Select
Next
'许多网页表单，这一句简单代码即实现自动提交
AxWebBrowser1.Document.forms(0).submit()
End Sub
[解决办法]
帮顶
[解决办法]
up 学习
------解决方案--------------------
我用IFrame+javascript
<body> <iframe name=if1 location=a.htm> </iframe> </body>
<script>
if1.t1.value= "asdfas "
</script>
....a.htm
<body> <input type=text id=t1> </body>
[解决办法]
IHTMLWindow2 window;
IHTMLFramesCollection2 col;
col = AxWebBrowser1.Document.frames;
int len = col.length;
for(int i = 0; i < len; i++)
{
object index = i;
window = (IHTMLWindow2)doc.frames.item(ref index);
}
[解决办法]
UP
[解决办法]
up 学习