获取浏览器的一写属性的方法:
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)
本文提供了一段VBA代码示例,演示如何获取并打印浏览器的各种属性,包括语言、名称、版本、操作系统、默认语言、代码名称、CPU等级、在线状态、用户代理字符串等。
202





