如何获取网页中的某个文本框的焦点?
来源:百度知道 编辑:UC知道 时间:2024/05/17 04:24:58
Private Sub Command8_Click()
Dim IEList As New ShellWindows
Dim Doc
Dim iewin As New ShellWindows
Dim ietemp As InternetExplorer
On Error Resume Next
'遍历当前地浏览器窗口
For Each ietemp In iewin
'找到需要地IE窗口
If ietemp.hWnd = hWnd1 Then
Set Doc = ietemp.document
'填写用户名字段
Doc.body.All("ti").Click '请通过修改这一段达到目标
'填写密码字段
End If
Next
Timer2.Enabled = True
Form1.Visible = False
End Sub
不是内部的WEB控件,而是直接激活外部的网站的文本对话框焦点
不知道你回答干什么?
句柄什么的的都已经获取了,只需要指定焦点
不明白我的问题就不要回答,你是白痴吗?激活外部的网站的文本对话框焦点,你取Value干什么?
Dim IEList As New ShellWindows
Dim Doc
Dim iewin As New ShellWindows
Dim ietemp As InternetExplorer
On Error Resume Next
'遍历当前地浏览器窗口
For Each ietemp In iewin
'找到需要地IE窗口
If ietemp.hWnd = hWnd1 Then
Set Doc = ietemp.document
'填写用户名字段
Doc.body.All("ti").Click '请通过修改这一段达到目标
'填写密码字段
End If
Next
Timer2.Enabled = True
Form1.Visible = False
End Sub
不是内部的WEB控件,而是直接激活外部的网站的文本对话框焦点
不知道你回答干什么?
句柄什么的的都已经获取了,只需要指定焦点
不明白我的问题就不要回答,你是白痴吗?激活外部的网站的文本对话框焦点,你取Value干什么?
记得某API可以指定当前的焦点,可以用此方法搞定。假如需要获得对象的句柄,可以尝试FindWindow……
PS:很久没玩VB了,基本忘光了,而且我API方面是菜鸟……
为什么不
Doc.getElementById("ti").Value = "baidu kuangzu"
(好像是 Doc.getElementsByTagName("ti").Value = "baidu kuangzu",记不清了)
前面的代码偶学习了~谢谢
回lz
“不明白我的问题就不要回答”为什么?
正是因为没弄明白你的问题所以才要向你确认,弄清问题,看帮不帮的上忙
“不知道你回答干什么?”弄清问题,看帮不帮的上忙
“你是白痴吗”不是
“激活外部的网站的文本对话框焦点,你取Value干什么?”哦,抱歉,这是我理解错了
但接下来“'填写密码字段”为什么不直接填写(俺的理解)?
用 .focus
这回理解对了吧,难道还差一个bringwindowtotop?