1. 创建一个vbs文件:TestVbs.vbs
内容如下:
’##################################################################################
Sub CloseWeb()
’ 此处可以用到描述性编程,把先期打开的IE窗口全关闭
Dim WinIe,Ie,i,m
Set WinIe=descrīption.Create()
WinIe(\"regexpwndtitle\").value=\" Microsoft Internet Explorer\" ’所有页面的regexpwndtitle属性值都是\" Microsoft Internet Explorer\",也可以用其他属性
Set Ie=desktop.ChildObjects(WinIe)
m=Ie.count
For i=1 to m
Ie(i-1).close ’ 0为最后打开的一个,可关闭打开的几个,,循环改成for i=1 to m
Next
End Sub
’##################################################################################
function TestVbs(format)
msgbox \"参数是\" & format
end function
’#################################################################
’#################################################################
’往文件里面写内容
’第一个参数 文件的路径
’第二个参数:写入的内容
’第三个参数:写入的格式(\"Appending/Writing\")
’ See also \"FileSystemObject\"
Sub Write2File(FilePath,content,style)
Dim fso,f
Dim stl
If Ucase(style)=\"APPENDING\" Then
stl=8
else
if Ucase(style)=\"WRITING\" then
stl=2
else
reporter.ReportEvent 1,\"参数错误\",\"Writing <\" & FilePath &\">:<\"& content &\">With<\" & style & \">\"
Exit Sub
end if
End If
Set fso=CreateObject(\"scrīpting.FileSystemObject\")
Set f=fso.OpenTextFile(FilePath,stl,true)
’content=\"写入的第一行内容\"
f.WriteLine(content)
f.Close
Set f=nothing
Set fso=nothing
End Sub
’#################################################################
文章来源于领测软件测试网 https://www.ltesting.net/