用VBS获取屏幕分辨率

标签： , , ,

标题: 用VBS获取屏幕分辨率
作者: Demon
链接: https://demon.tw/programming/vbs-screen-resolution.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

我想到的方法有两种。

一种是WMI中的Win32_DesktopMonitor类

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor",,48)

For Each objItem in colItems
	WScript.Echo "ScreenHeight: " & objItem.ScreenHeight
	WScript.Echo "ScreenWidth: " & objItem.ScreenWidth
Next

一种是HTML DOM中的screen对象

Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "about:blank"
Set screen = IE.Document.parentWindow.screen
WScript.Echo "ScreenHeight: " & screen.height
WScript.Echo "ScreenWidth: " & screen.width




参考链接


    

  1. Win32_DesktopMonitor Class
    2. 

  2. screen Object
    3. 


赞赏
微信赞赏支付宝赞赏



相关文章:
    

  1. 魔兽全屏补丁 魔兽宽屏补丁
    2. 

  2. VBS调用WMI获取CPU使用率
    3. 

  3. VBS中的GUI界面（EditPlus注册机）
    4. 

  4. 在InternetExplorer.Application中显示本地图片
    5. 

  5. 用VBS判断操作系统是32位（x86）还是64位（x64）
    6. 





随机文章:
  1. 用VBS精确计算100的阶乘
  2. Workbooks.Open中的相对路径
  3. 在VB中创建和使用VBS的内置WScript对象？
  4. OpenWrt搭建KMS服务器激活Windows和Office
  5. VBS监视网络连接与断开

				
				

					
												这篇文章发布于 2010年09月2日，星期四，23:40，归类于 程序设计。						您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 

													您可以留下评论，或者从您的站点trackback。
						
					
				


			

		


	


	
2 条评论 发表在“用VBS获取屏幕分辨率”上


	

		

		

	


	
    
			
  1. 
				
    
				
    
						郑斯彬说道：		
    
		
		
    
			2013年02月28日 15:51		
    

		
    ‘ 获得屏幕分辨率 高度和宽度
    
set o=createobject(“htmlfile”)
    
set a=o.parentwindow.screen
    
w=a.width
    
h=a.height
    
s=”高:”+cstr(h)+chr(13)+”宽:”+cstr(w)
    
msgbox s
    

		
    回复
    
				
    
				
      
		
    • 
				
      
				
      
						程式化说道：		
      
		
		
      
			2018年09月1日 10:07		
      

		
      真的可以呢，Windows object博大精深啊，就想问你是怎么知道这方法的哈
      

		
      回复
      
				
      
				
      • 

    

    2. 
	


	

		

		

	

 






留下回复