关于：复制の话题第10页 - 万象大数据平台 - 万象素材

5465

运行同一目录下的可执行程序的VBS代码

别离憔悴发布于 2011-01-29 00:51
收藏代码复制可执行运行程序更新时间目录下还可以

复制代码代码如下: Set objShell = CreateObject("WScript.shell") strCurrentDir = objShell.CurrentDirectory set fso = createobject("scripting.filesystemobject") set f=fso.getfolder(strCurrentDir) For Each i In f.files If LCase(right..

5552

vbs mdb打包解包代码打包

孤独的人总是晚回家发布于 2011-01-22 16:15
收藏代码目录打包根目录文件完毕复制我要

pack.vbs 用来打包文件夹, 根目录为文件所在目录. 复制代码代码如下: Dim n, ws, fsoX, thePath Set ws = CreateObject("WScript.Shell") Set fsoX = CreateObject("Scripting.FileSystemObject") thePath = ws.Exec("cmd /c cd").StdOut.ReadAll(..

5515

用VBS检测U盘插入与弹出事件的代码

在等你回头发布于 2011-01-21 22:36
收藏代码弹出都是复制脚本插入小偷很多人

可以说，对WMI的掌握程度的多少直接决定了你的VBS水平高低。看过网上普遍流传VBS版U盘小偷程序，基本上都是靠无限循环实现的，一点技术含量也没有，文章的末尾给出了我写的VBS版U盘小偷程序的下载地址。虽然用WMI也得无限循环，但是效率是不一样的..

5557

获取屏幕分辨率的VBS代码

惘叹之发布于 2011-01-21 22:15
收藏代码有两种想到对象复制参考方法原文

我想到的方法有两种。一种是WMI中的Win32_DesktopMonitor类复制代码代码如下: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_D..

5520

用来分割文本的vbs脚本

我本无情发布于 2010-11-28 20:36
收藏代码分割行数完毕复制整理 Recordset path

复制代码代码如下: On Error Resume Next 'Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject("Scripting.FileSystemObject") Set Conn = CreateObject("ADODB.Connection") Set Rs = CreateO..

5548

用vbs读取index.dat内容的实现代码

我们再无交集发布于 2010-11-28 20:28
收藏代码读取更新时间内容没有权限复制修改参考

复制代码代码如下:' +----------------------------------------------------------------------------+ ' | Contact Info | ' +----------------------------------------------------------------------------+ ' Author: Vengy ' modiy:lcx ' E..

5507

vbs字符串分割函数

相思入骨发布于 2010-11-28 21:35
收藏代码复制 sSource iLong sJoiner Dim Function CutAndJoin

复制代码代码如下:Function CutAndJoin(sSource, iLong, sJoiner) Dim I, N N = Len(sSource) / iLong If(N <> Fix(N))Then N = Fix(N) + 1 For I = 0 To N - 1 CutAndJoin = CutAndJoin & Mid(sSource, I * iLong + 1, iLong) & sJoiner Next If(..

5486

vbs 合并多个excel文件的脚本

且暂放白鹿发布于 2009-11-13 23:29
收藏文件代码目录打开存放复制更新时间多个

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

5618

重新安装ie的一个vbs

爻灵发布于 2009-08-18 01:54
收藏代码复制 Express Set WshShell vbYesNo Prompt Outlook

复制代码代码如下:'run_ie_reinstall.vbs - Runs the Internet Explorer Setup '?Doug Knox - 4/10/2002 'Downloaded from www.dougknox.com X = MsgBox("Do you want to reinstall Internet Explorer?", vbYesNo, "Prompt!") Y = MsgBox("Do you ..

5569

vbs 字符统计功能模块

韩明玄发布于 2009-08-18 01:51
收藏统计字符代码你要复制文本文件保存为字数

字符统计功能模块复制代码代码如下:Sub TongJi() Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("ok.txt", 1) strText = objFile.ReadAll All = Len(strText) S="` ~ ! @ # $ % ^ & * ( ) - _ = +..

关于：复制の话题！

相关话题

推广链接

排行榜

热门话题

热门产品

热门素材

热门圈子

热门话题