51Testing软件测试论坛

标题: 请教sendkeys的使用 [打印本页]

作者: yiyireal 时间: 2008-11-19 11:16
标题: 请教sendkeys的使用
请问页面上有一个文本框，怎样得到这个文本框并用sendkeys往里输入值?
谢谢大家！

作者: yuandjing 时间: 2008-11-19 12:12
先用基本录制focus在文本框再用sendkey操作
sendkey如何操作可以查google
举个例子：
Sub ZYGLQ()
Dim WshShell
set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys "^+{ESC}"
Set WshShell = nothing
End Sub

作者: yiyireal 时间: 2008-11-19 13:11

原帖由 yuandjing 于 2008-11-19 12:12 发表
先用基本录制focus在文本框再用sendkey操作
sendkey如何操作可以查google
举个例子：
Sub ZYGLQ()
Dim WshShell
set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys "^+{ESC}"
Set WshSh ...

太感谢了，你提供的信息很有帮助，现在我解决了，谢谢！

作者: yuandjing 时间: 2008-11-19 19:08
谢谢花花

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)