|
例如要过滤回帖内容中的“你好”2个字
set objChildobjects="此处是父窗口".Childobjects()
strInputContent="你好,楼主真是好人你好,呵呵你好啊啊" '要回复的内容
filtestr = "你好" '要过滤的内容
msgbox checkfilter(objChildobjects,strInputContent,filtestr) '调用测试函数
set objChildobjects=nothing
function checkfilter(objChildobjects,strInputContent,filtestr)
dim i
i=0
do while i<objChildobjects.count
if objChildobjects(i).geroproperty("micclass")="webeidt" and objChildobjects(i).geroproperty("text")="回帖编辑框" then '类似这样判断 因为不知道LZ的具体测试对象
Childobjects(i).set strInputContent
i=0
do while i<objChildobjects.count
if objChildobjects(i).geroproperty("micclass")="webbutton" and objChildobjects(i).geroproperty("text")="发表回复" then
objChildobjects(i).click
exit do
end if
i=i+1
loop
exit do
end if
i=i+1
loop
dim getstr
getstr=""
i=0
do while i<objChildobjects.count
if objChildobjects(i).geroproperty("micclass")="webeidt" and objChildobjects(i).geroproperty("text")="显示区域" then
getstr= objChildobjects(i).geroproperty("text")
exit do
end if
i=i+1
loop
'以上假设所有操作对象均存在
if not instr(getstr,filtestr,1) then
checkfilter=1
else
checkfilter=0
end if
end function |
|