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

yanfang84

Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").Link("创建专辑").Click
Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").WebEdit("name").Set "12345678901"  '此输入框规定最多输入10个字，超出后自动弹出提示框“专辑名不能超过10个字”
Browser("互动汽车_3互动汽车").Dialog("来自网页的消息").WinButton("确定").Click
Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").WebEdit("connect").Set "防疫站通告"
Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").Link("驴行").Click
Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").Link("新手").Click
Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").Link("老款").Click
Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").WebButton("创建").Click
Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").Link("我的个人主页").Click
Browser("互动汽车_3互动汽车").Page("互动汽车-DRIVE FOR LIFE,爱汽车、爱生活、爱网").Link("我的专辑2").Click

但是回放时到了输入超出10个字时就是不弹框，也没有对超出字数的文字做自动删除动作，请问怎么解决？

yanfang84

回复 3# WANDY


    谢谢，我的问题已经解决，使用的是sendkeys方法，不过这个方法目前还只能遍历输入字母的用例，对于中文的遍历还没有好的方法去实现，你的这个方法我会去试试的，希望是可行的。

WANDY

你需要使用FireEvent 。

Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").WebEdit("name").Set "12345678901"  '此输入框规定最多输入10个字，超出后自动弹出提示框“专辑名不能超过10个字”
Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").WebEdit("name").FireEvent ”写入事件名“
'事件类型有”onchange, onclick, ondblclick, onblur, onfocus, onmousedown, onmouseup, onmouseover, onmouseout, onsubmit, onreset, onpropertychange.“
Browser("互动汽车_3互动汽车").Dialog("来自网页的消息").WinButton("确定").Click

WANDY

Set  改type 试试。 (这方法不行，webEdit没有type.. winedit有= =.)
既然没触发弹出框和自动删除。那么使用FireEvent吧

Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").WebEdit("name").FireEvent "onChange"

onChange改成相对于HTML里面的事件即可。

FireEvent 共有以下事件 onchange, onclick, ondblclick, onblur, onfocus, onmousedown, onmouseup, onmouseover, onmouseout, onsubmit, onreset, onpropertychange.