遇到一个Sendkeys的使用问题，想和大家讨论下！

wuzhuayu · 发表于 2007-9-10 17:18:27

在使用Sendkeys函数中遇到的一个问题，希望和大家讨论下！
先贴下代码：
Browser("Browser").Page("页面测试").Frame("mainFrame").WebEdit("to").Set "abcd"
Browser("Browser").Page("页面测试").Frame("mainFrame").WebEdit("subject").Set "测试快捷键"
Browser("Browser").Page("页面测试").Frame("Frame").WebElement("writeFrame").Click
Browser("Browser").Page("页面测试").Frame("Frame").WebElement("writeFrame").Object.innerText="test"
Dim wss
Set wss = createObject("Wscript.shell")
wss.SendKeys "^~"

我的需求是，在一些Edit框和iframe框中输入了部分内容后，然后再提交这些信息。在提交的时候可以点击提交，也可以使用快捷键Ctrl+Enter或者Alt+s，现在测试快捷键的情况，我使用SendKeys 的方法，但是执行到这一步，页面没有任何变化。

有些想不明白，请大家指导下。先谢过了。

rivermen · 发表于 2007-9-10 17:33:55

wss.SendKeys "(^~)"

加个括号呢？

wuzhuayu · 发表于 2007-9-10 17:59:14

没有啥变化。

wuzhuayu · 发表于 2007-9-11 00:20:39

我们在页面中实现这个功能是使用js去实现的，无法接受sendkeys这个函数发过去的键盘模拟，难道是因为js的原因么？期望有知情者解答。自己顶下贴。

yuandjing · 发表于 2007-9-11 09:32:04

wss.SendKeys "^{ENTER}"

wuzhuayu · 发表于 2007-9-11 11:53:33

{ENTER}和~的效果应该是一样的吧。有没有别的什么办法呢？

volvoo · 发表于 2007-9-11 14:17:35

Extern.Declare micVoid, "keybd_event", "user32.dll", "keybd_event", micByte,micByte,micDWord,micULong '调用键鼠操作
Extern.keybd_event 40,0,0,0 'down arrow
也可以发组合键盘码，屡试不爽，研究研究把

hsjzfling · 发表于 2007-9-11 14:25:34

要发送ALT+S的话使用wsh.sendkeys "(%s)"
Alt+Enter 应该是使用wsh.sendkeys "(%~)"

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 遇到一个Sendkeys的使用问题，想和大家讨论下！

相关帖子

站长推荐 /1