复制代码 代码如下: randomize setfso=createobject('scripting.filesystemobject') seta=createobject('scripting.dictionary') setfile=fso.opentextfile('a.txt') dowhilefile.atendofstreamtrue m=m+1 a.addm,file.readline loop file.close h=int(rnd*m) msgbox'第'&h&'行:'&

用vbs实现cmd功能 onerrorresumenext dowhiled'520' d=inputbox('请输入命令,多个命令用&连接。关闭该VB窗口命令520') setq=createobject('scripting.filesystemobject') seta=WScript.CreateObject('WScript.Shell') a.run'%Comspec%/c'&d loop 还有一般的程序最好不要加onerrorresumenext除非你十分清楚某些对象的方法会出

第三篇（共六篇）： 首先,我来解决一下上次课程的几个疑问 第一,那个余数问题,16/5=3...1,是因为我改过前面的部分,后面的忘了改了,不好意思. 第二,请看一下程序清单: 1) Dima,b,c a=inputbox('a是:','输入半径') b=Inputbox('b是:','输入半径') c=a*2+b*2 Msgbox(c) 这个输入1、2时是6 2) Dima,b,c a=inputbox('a是:','输入

setws=createobject('wscript.shell') setfso=createobject('scripting.filesystemobject') setfolder=fso.getfolder(ws.currentdirectory) setfiles=folder.files foreachfileinfiles d=d&file.name&',' next Randomize DoUntilD='' s=Split(D,',') M=UBound(s) h=Int(

1.计算 2.处理文件和文件夹 3.管理Windows 4.处理Word,Excel,PowerPoint等Office文档 5.嵌入网页，驱动dHTML 6.编写HTTP通信 7.调用系统功能（COM组件），比如说语音说话 8.分析HTML,XML 9.调用命令行并分析返回结果 10.处理图片 11.自动化按键 12.调用WindowsMediaPlayer并管理 13.调用WindowsLiveMessenger并管理 14.服务

第二篇： 我真没想到,第一次的作业竟然有人不会. 　　看来要讲的非常非常细致才行,嗯,今天讲各种'量'和基本运算 　　先说常量,这个比较简单. 　　什么是常量呢,常量就是其值不可变化的量. 　　常量分为两种:第一种,自然常量.这叫是因为它们本身就是常量,你怎么更改21的值呢?他永远都是21,不可能变成46 如果你在程序中使用'2

复制代码 代码如下: setie=createobject('internetexplorer.application') ie.navigate'about:blank' dountilie.readystate=4:wscript.sleep25:loop setdoc=ie.document setbody=doc.body setwin=doc.parentwindow body.innerhtml='OBJECTid=dlgCLASSID=''clsid:3050f819-98b5-1

复制代码 代码如下: ONERRORRESUMENEXT DimVOL_PROD_KEY ifWscript.arguments.count1then VOL_PROD_KEY=InputBox('本程序能帮助您更换WindowsXP的序列号。'&vbCr&vbCr&'序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号，仅作格式参考。'&vbCr&vbCr&'请输入新的序列号：','WindowsXP序列号更换器bydonghai','