最近在写一个网页采集的程序,无奈那个网页写得太烂,里面的标签连ID都没有,用不了getElementById。幸好还有name属性,用getElementsByName就行了。
<input type="text" name="username">
然后就可以使用
getElementsByName("username")(0)
来获取这个对象
最近在写一个网页采集的程序,无奈那个网页写得太烂,里面的标签连ID都没有,用不了getElementById。幸好还有name属性,用getElementsByName就行了。
<input type="text" name="username">
然后就可以使用
getElementsByName("username")(0)
来获取这个对象
我想到的方法有两种。
一种是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
参考链接