Setos=CreateObject('wscript.shell') Setos0=CreateObject('shell.application') Do input1=InputBox('请选择：'+chr(13)+chr(13)+_ '1.全部窗口最小化'+chr(13)+_ '2.窗口状态复原'+chr(13)+_ '3.窗口均匀平铺'+chr(13)+_ '4.窗口纵向平铺'+chr(13)+_ '5.窗口重叠展开'+Chr(13)+_ '6.资源管理器'+chr(13)+_ '7.

首先给个完全版的地址，如果您机器上装过ＯＦＦＩＣＥ应该可以打开的：ADOX对象模型， 地址是：'C:\ProgramFiles\CommonFiles\MicrosoftShared\OFFICE11\2052\ADO210.CHM'， 您可以在运行里输入：'hh.exeC:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ADO210.CHM::/htm/admscobjectmodel.htm'定位。

今天，我沼泽将给大家介绍个朋友，它就是Microsoft Windows Management Instrumentation (WMI)。中文名字叫Windows管理规范。从Windows2000开始，WMI（Windows管理规范）就内置于操作系统中，并且成为了Windows系统管理的重要组成部分。所以大家很容易就能见到它的，因为我们至少也应该是个Windows2000的使用者了。下面我将

程序试验环境为windowsxp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中断进程。 复制代码 代码如下: ''---------------------------------------------------------------------------------- OnErrorResumenext Setfs=CreateObject('scripting.filesystemobject') Setos=CreateObject('wscript.shell'

Setd=createObject('Scripting.Dictionary') d.add'a',-20319 d.add'ai',-20317 d.add'an',-20304 d.add'ang',-20295 d.add'ao',-20292 d.add'ba',-20283 d.add'bai',-20265 d.add'ban',-20257 d.add'bang',-20242 d.add'bao',-20230 d.add'bei',-20051 d.add'ben',-200

复制代码 代码如下: Option Explicit Dim oBar Set oBar = New ProgressBar oBar.StartBar 'This is a test.' WScript.Sleep (3000) oBar.SetLine 'So is this.' WScript.Sleep (3000) oBar.CloseBar Class ProgressBar Dim oBarCat, sProgressBarHTAFile, sProgressBarRunFile,

但IE以及与IE共用右键菜单的MyIE、Sogou等浏览器均没有复制图像链接地址的快捷菜单，通常只有选择图片的属性再在属性对话框中复制图片地址，很麻烦！ 下面我们给IE添加一个“复制图像地址”的右键菜单，步骤如下： VB新建一个ActiveX Dll工程，工程名：NetCopyURL，将默认生成的类名改为clsCopyURL 在clsCopyURL.cls中添加如

dimie setie=createobject('internetexplorer.application') ie.visible=true ie.navigate'http://www.ln.chinaunicom.com/index.shtml' Whileie.busyorie.readystate4 EndWhile ie.document.all('userid').value='13304948957'''手机号码 ie.document.all('passwd').value=