VBS脚本如何往textarea里写东西

sspku · 发表于 2010-9-30 11:32:13

界面上有个textarea，想通过按钮点击后，往里面写点内容怎么实现呢

runnerhuang · 发表于 2010-9-30 15:09:22

如果正常的set无法填值的话，可以尝试模拟键盘输入sendkeys,例如：
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{DOWN}"

sspku · 发表于 2010-9-30 15:24:42

怎么得到那个textarea呢

sspku · 发表于 2010-9-30 16:29:33

怎么得到那个textarea呢

TIB · 发表于 2010-9-30 16:40:32

怎么得到那个textarea呢
sspku 发表于 2010-9-30 16:29

把这个对象添加到对象库，或者用描述性编程在脚本中描述出这个对象来

sspku · 发表于 2010-9-30 16:55:53

回复 5# TIB

跟QTP没关系，纯粹的VBS脚本

TIB · 发表于 2010-9-30 22:51:56

回复 TIB

跟QTP没关系，纯粹的VBS脚本
sspku 发表于 2010-9-30 16:55

那只能用VBS调用IE，访问DOM来找到那个对象

sspku · 发表于 2010-10-1 13:37:46

vbs好像不能识别document的对象吧，像ajax那样通过getElementById得到对象

sspku · 发表于 2010-10-3 09:47:16

没人知道嘛？顶起来

17800455 · 发表于 2010-10-5 12:26:04

你可通创建一下IE对象，通过dom去取

以下是一个例子，输入搜索关键字，自动转到百度搜索

contrent = inputbox ("百度一下你就知道！","请输入搜索内容！")

If contrent <> "" then
Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "www.baidu.com"
ie.Visible = true

While ie.Busy And ie.ReadyState <> 4

Wend

ie.Document.GetElementByID("kw").Value = contrent
ie.Document.GetElementByID("su").click

Set ie = Nothing
Else

MsgBox "您已取消搜索",,"提示:"

End If

17800455 · 发表于 2010-10-5 12:27:14

你可以参考http://hi.baidu.com/qqqql　　这个空间

sspku · 发表于 2010-10-5 21:55:11

如下为什么不行呢？没有getElementById这个方法么？？
Set objDom = CreateObject("microsoft.xmldom")
objDom.getElementById("res").value="ddd"

lyscser · 发表于 2010-10-7 10:34:29

楼主你到底要做什么？

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

[原创] VBS脚本如何往textarea里写东西

相关帖子

站长推荐 /1