dim n,ans,i n=inputbox('n(0=n=170)=') ans=1 for i=1 to n ans=ans*i next msgbox(ans)

第一个页面： html head script language='VBScript' Sub Hello() Document.All.myScriptlet.Hello End Sub /script /head body onload='Hello()' OBJECT ID='myScriptlet' TYPE='text/x-scriptlet' DATA='2.htm' HEIGHT='0' WIDTH='0' /OBJECT /body /html 2.htm里的源码： script

将下面的代码，保存为 vbs即可 复制代码 代码如下: If WScript.Arguments.Count = 0 Then GetI = -1 Else GetI = CInt(WScript.Arguments(0)) End If Call YourCode() ''把你弄到的代理都写在一个文本文件里（IP.txt），格式是一行一个： ip:端口 IPS = CreateObject('Scripting.FileSystemObject').OpenTextFile('IP.txt',

Dim ls_File Set objArgs = WScript.Arguments''命令行参数 if objArgs.Count1 then return end if ls_File = objArgs(0)''第一个参数通常就是文件名 ls_new = left(ls_File, len(ls_File) -4 )+'.pdf' Set pptApp = CreateObject('PowerPoint.Application') ''申明调用函数 pptApp.Visible = T

首先在HTML 页面中加入WebBrowser 的Object: OBJECT classid='CLSID:8856F961-340A-11D0-A96B-00C04FD705A2' height=0 id=wb name=wb width=0/OBJECT 之后，使用如下代码进行打印： script language='VBScript' sub printvb() wb.execwb 6,2,3 End Sub /script 关键代码 wb.execwb 6,2,3 可以在 VBScri

复制代码 代码如下: ''/*========================================================================= '' * Intro VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP '' * FileName VBScript-ADSI-IIS-Add-Deny-Grant-IP-Change-MetaBase.xml.vbs '' *=======================================

vbs下载者有很多了，我这里是一个伟大的发明，利用CDO.Message做的vbs下载者。伟大是装B的意思。 NP先把代码写完了，详情看这里：http://hi.baidu.com/vbs_zone/blog/item/f254871382e6d0045aaf5358.html LCX大哥在写他的BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西，说是研究研究或许可以用来当下载者用。 于是研

dir='E:\Temp' Set fso=CreateObject('Scripting.FileSystemObject') cmd='shutdown -s -f -t 60' Set ws=WScript.CreateObject('WScript.Shell') Wscript.Echo 'emule自动关机脚本已运行……' count=0 do until count-1 chksize = fso.GetFolder(dir).Size If chksize=0 Then ws.r