16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Lobdotcn()
Dim strComputer As String = "."
Dim objWMIService As Object = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Dim objItem As Object
Dim colItems As Object = objWMIService.ExecQuery _
("Select * from Win32_DesktopMonitor")
For Each objItem In colItems
MsgBox(objItem.ScreenWidth & " * " & objItem.ScreenHeight)
Next
End Sub