获取浏览器的一写属性的方法:
Dim
obj,tempValue
' 获得窗体对象
set obj = Browser( " CreationTime:=1 " ).Page( " index:= " ).Object.parentWindow
' 获取浏览器的当前语言。
tempValue = obj.clientInformation.browserLanguage
print(tempValue)
' 获取浏览器的名称。
tempValue = obj.clientInformation.appName
print(tempValue)
' 获取浏览器运行的平台和版本。
tempValue = obj.clientInformation.appVersion
print(tempValue)
' 获取用户的操作系统名称。
tempValue = obj.clientInformation.platform
print(tempValue)
' 获取操作系统适用的默认语言。
tempValue = obj.clientInformation.systemLanguage
print(tempValue)
' 获取浏览器的代码名称。
tempValue = obj.clientInformation.appCodeName
print(tempValue)
' 获取指示 CPU 等级的字符串。
tempValue = obj.clientInformation.cpuClass
print(tempValue)
' 获取表明系统是否处于全局脱机模式的值。
tempValue = obj.clientInformation.onLine
print(tempValue)
' 获取等同于 HTTP 用户代理请求头的字符串。
tempValue = obj.clientInformation.userAgent
print(tempValue)
' 获得窗体对象
set obj = Browser( " CreationTime:=1 " ).Page( " index:= " ).Object.parentWindow
' 获取浏览器的当前语言。
tempValue = obj.clientInformation.browserLanguage
print(tempValue)
' 获取浏览器的名称。
tempValue = obj.clientInformation.appName
print(tempValue)
' 获取浏览器运行的平台和版本。
tempValue = obj.clientInformation.appVersion
print(tempValue)
' 获取用户的操作系统名称。
tempValue = obj.clientInformation.platform
print(tempValue)
' 获取操作系统适用的默认语言。
tempValue = obj.clientInformation.systemLanguage
print(tempValue)
' 获取浏览器的代码名称。
tempValue = obj.clientInformation.appCodeName
print(tempValue)
' 获取指示 CPU 等级的字符串。
tempValue = obj.clientInformation.cpuClass
print(tempValue)
' 获取表明系统是否处于全局脱机模式的值。
tempValue = obj.clientInformation.onLine
print(tempValue)
' 获取等同于 HTTP 用户代理请求头的字符串。
tempValue = obj.clientInformation.userAgent
print(tempValue)