在文本框中输入超出规定字数的内容后自动弹出弹出框，回放失败

泰然

这个问题涉及到了Set方法和手工填写的区别了。Set方法直接给文本赋值，而手工对一个文本赋值的方式是通过在文本中按键的方式来赋值的。你所说的“此输入框规定最多输入10个字，超出后自动弹出提示框专辑名不能超过10个字”，就是在做按键时判断文本长度，如果超过10，则提示，但Set不通过按键来赋值，所以就看不到提示了。

你可以看源代码，文本框有OnKeyUp/Press/Down一类的事件，这就是当按键时在做判断。

如果要将这个判断也在QTP中体现，就要在脚本中通过CreatObject("WScript.Shell").SendKeys的方法来发送按键，使得OnKey系列的函数能起作用。

具体SendKeys如何使用，可以百度查询。

泰然

Set Clipboard = CreateObject("Mercury.Clipboard")
Clipboard.Clear '清空原有数据
ClipBoard.SetText "王"  '对“王”做ctrl+C
ClipBoard.GetText '做CTRL+V，这样就sendkey王这个汉字了，之前要先设置焦点
ClipBoard.SetText "老"
ClipBoard.GetText
ClipBoard.SetText "五"
ClipBoard.GetText  '这里一共做了3次sendkey，每次都发送一个汉字，都判断字符长度
Set Clipboard=Nothing