RegisterUserFunc "WebEdit","Set","WriteLog_WebEdit_Set"
Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").Set "shkunshikun"
Function WriteLog_WebEdit_Set(Object,SetValue)
Object.Set SetValue '执行原来的设置值的步骤
'定义I/O模式
Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Set fso = CreateObject("scripting.filesystemobject")
LogFileName = cstr(Year(Now)&Month(Now)&Day(Now))+ ".txt"
oParentFolder = Environment("ResultDir") '返回当前测试的测试报告的保存地址,不包括最后的“\”
LogFilePath = oParentFolder+ "\" +LogFileName
print LogFilePath
'判断日志文件是否存在,若不存在,则创建一个新文件;若在直接打开
If Not fso.FileExists(LogFilePath) Then
Set txtFile = fso.CreateTextFile(LogFilePath,false)
else
print "open"
Set txtFile = fso.OpenTextFile(LogFilePath,ForAppending,true)
End If
'等待写入日志的内容
WriteContent = cstr(Time)+"Object:["+Object.GetTOProperty("micClass")+ "-" +Object.GetTOProperty("TestObjectName")+"]-Descript:"+"Set Value is <"+ SetValue+">"
'写入操作
txtFile.WriteLine WriteContent
Set txtFile = nothing
Set fso = nothing
End Function