|
lz是要描述性编程吗?
如题?
/* Code Dummy */
Function CreateBrowser(strType)
Select Case strType
Case "IE6"
SystemUtil.Run "iexplore.exe","about:blank","",""
Case "IE7"
SystemUtil.Run "<systemfolder>\iexplore.exe","about:blank","",""
Case "FireFox"
SystemUtil.Run "FireFox.exe","about:blank","",""
Case Else
Report.Event micFail, "Create Browser", strType & " not recognised"
End Select
Set CreateBrowser = Browser("micclass:=Browser", "openurl:=about:blank")
Report.Event micDone, "Create Browser", strType
End Function
希望有帮助 |
|