WebBrowser1如何对iframe的元素自动填表?
网页代码如下:
<iframe name="iframeLogin" id="iframeLogin" width="100%" frameborder="0" scrolling="No" src="http://www.xxxx.com/IframeLogin.asp"></iframe>请问如何自动填请呢?谢谢~
网页代码如下:
<iframe name="iframeLogin" id="iframeLogin" width="100%" frameborder="0" scrolling="No" src="http://www.xxxx.com/IframeLogin.asp"></iframe>请问如何自动填请呢?谢谢~
解决方案 »
- datagrid控件内容居中???
- ADO的问题
- 如何用.Find实现Open "select * from name where 用户名='" & Text4.Text & "' and 密码='" & Text1.Text & "'"
- 在VB中如何判断某个窗体是否处于活动状态?
- VBA开发AUTOCAD如何让-VBARUN不影响界面已经有的操作?
- 求助:关于数据环境设计器中父子命令的问题
- 请教如何在VB程序中动态的创建SQL Server中的数据库?
- 当程序在运行时,怎样让其在任务栏不可见,程序刚启动时是可见的 !!!
- 如何实时监测系统动作?
- 请问“err3265 这个集合中找不到此项目”是什么原因?
- 怎样用VB编写与自动报警主机的通信程序
- VB版国庆中秋散分专帖(一)
dim doc
set doc=me.webbrowser1.document.getElementsByTagName("IFRAME")(0).document
剩下的和一般的document访问一样了.
Dim i As Integer
Dim vDoc, vTag As Variant
Set vDoc = Me.WebBrowser1.Document.getElementsByTagName("IFRAME")(1).Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Name = "ptname" Then
vTag.Value = "1111" '这个是输入到用户名中得值
End If
If vTag.Name = "ptpwd" Then
vTag.Value = "2222" '这个是输入到密码框中的值
End If
End If
Next i
End Sub这样好像不行呀.什么原因了?
vTag.value="1111"
怎么回事了?~
dim vDoc,vTag
set vDoc=me.webbrowser1.document.getElementsByTagName("IFRAME")(1).document '第二个iframe
set vTag=vDoc.getElementsByName("ptname")(0) '必须保证ptname是text类型的input
vTag.value="1111"
if url = "表单所在地URL" then pDisp.document.………… (是用pDisp.document不是webbrowser.document肯定就OK了。) end if其实这个事件每当引发一次的时候就会出现一个新的URL与URL对应HTML代码(pDisp)。
WebBrowser1.Navigate "(父地址)http://www.xxxx.com/"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "(父地址)http://www.xxxx.com/" Then
WebBrowser1.Document.parentWindow.frames("iframeLogin").Document.All("ptname").Value = "1111"
WebBrowser1.Document.parentWindow.frames("iframeLogin").Document.All("ptpwd").Value = "2222"
WebBrowser1.Document.parentWindow.frames("loginframe").Document.All("imglogin").Click
End If
End Sub
WebBrowser1.Navigate "(父地址)http://www.xxxx.com/"
End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "(父地址)http://www.xxxx.com/" Then
WebBrowser1.Document.parentWindow.frames("iframeLogin").Document.All("ptname").Value = "1111"
WebBrowser1.Document.parentWindow.frames("iframeLogin").Document.All("ptpwd").Value = "2222"
WebBrowser1.Document.parentWindow.frames("iframeLogin").Document.All("imglogin").Click
End If
End Sub