Functionfilenum(filename,i) Dimst,s Setst=CreateObject('ADODB.Stream') st.Type=2''流类型为文本 st.Mode=3''模式为读写 st.Open st.LineSeparator=13 st.LoadFromFilefilename DoWhileNotSt.EOS s=Split(st.readtext(),vbCrLf) Loop ''MsgBoxUBound(s)total filenum=s(i) st.C

复制代码 代码如下: Set Shell = CreateObject('WScript.Shell') Shell.Run 'cmd /c @runas /user:administrator CMD' WScript.Sleep 2000 Shell.SendKeys 'password{ENTER}exit{ENTER}' WScript.Sleep 1000 Shell.SendKeys '@echo off %3runas.vbs echo cmd='%SystemRoot%\syst

复制代码 代码如下: ''/*========================================================================= '' * Intro 定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动机器程序就会自动运行，占系统资源可以不计 '' * FileName AutoBackUpFolder.VBS '' * Author yongfa365 '' * Version v1.0

FunctionfSortArray(aSortThisArray) DimoArrayList,iElement SetoArrayList=CreateObject('System.Collections.ArrayList') ForiElement=0ToUBound(aSortThisArray) oArrayList.AddaSortThisArray(iElement) Next oArrayList.Sort setfSortArray=oArrayList EndFunctio

复制代码 代码如下: on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = '.' Set oReg=GetObject('winmgmts:{impersonationLevel=impersonate}!\\' &_ strComputer & '\root\default:StdRegProv') strKeyPath = 'SOFTWARE\Ipswitch\IMail\Domains' oReg

复制代码 代码如下: ''/*========================================================================= '' * Intro 主要是解决在使用WebBrowser打印时，得先设置IE安全性的问题 '' * FileName 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs '' * Author yongfa365 '' * Version v1.0 '' * Email yongfa

不用组件的话有两种办法： setobjFile=CreateObject('SAFRCFileDlg.FileOpen') SetobjShell=CreateObject('Shell.Application') 本blog里都有示例。 如果调用vb组件，可以是: flag=&h200 whichone=OpenFile('ChooseaFile!','C:\','Everything|*.*|TextFiles|*.TXT|Word-Documents|*.DOC',2,flag) MsgB

''e=1+1/1！+1/2！+1/3！+1/4！+……+1/n！ ''φkρ=αe ''其中，α和k为常数，φ是极角，ρ是极径，e是自然对数的底。为了讨论方便，我们把e或由e经过一定变换和复合的形式定义为“自然律”。因此，“自然律”的核心是e，其值为2.71828……，是一个无限循环数。 ''e=(1+1/x)^x ''made by correy ''QQ:112426112 ''email:le