用VBS设置静态IP和DNS服务器地址的代码

2016年07月27日 44 阅读

复制代码 代码如下: strIPAddress = Array（"192.168.0.148"） strSubnetMask = Array（"255.255.255.0"） strGateway = Array（"192.168.0.1"） strGatewayMetric = Array（1） arrDNSServers = Array（"192.168.0.1","192.168.0.2"） strComputer = "." Set objWMIS...

获取屏幕分辨率的VBS代码

2016年07月27日 46 阅读

我想到的方法有两种。 一种是WMI中的Win32_DesktopMonitor类 复制代码 代码如下: strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"） Set colItems = objWMIService.ExecQuery（"Select * from Win32_DesktopMonitor",,48） For Eac...

VBS调用WMI实现搜索硬盘mp3文件

2016年07月27日 47 阅读

复制代码 代码如下: strComputer = "." Set objWMIService = GetObject（"winmgmts:" _ & "{impersonationLevel=impersonate}！\" _ & strComputer & " ootcimv2"） Set colFiles = objWMIService. _ ExecQuery（"Select * from CIM_DataFile where Extension =...

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

2016年07月27日 48 阅读

可以说，对WMI的掌握程度的多少直接决定了你的VBS水平高低。看过网上普遍流传VBS版U盘小偷程序，基本上都是靠无限循环实现的，一点技术含量也没有，文章的末尾给出了我写的VBS版U盘小偷程序的下载地址。虽然用WMI也得无限循环，但是效率是不一样的。 使用WMI的Win32_VolumeChangeEvent类就可以实现，下面是示例代码，更详细的信息请参考MSND文档。复制代码 代码如下:Const Configuration_Changed = 1 Con...

用VBS实现PHP的md5_file函数代码

2016年07月27日 44 阅读

复制代码 代码如下: Function md5_file（filename, raw_output） Dim HashedData, Utility, Stream Set HashedData = CreateObject（"CAPICOM.HashedData"） Set Utility = CreateObject（"CAPICOM.Utilities"） Set Stream = CreateObject（"ADODB.Stream"） Hashe...

用VBS模拟实现PHP的sha1_file函数效果代码

2016年07月27日 45 阅读

复制代码 代码如下: Function sha1_file（filename, raw_output） Dim HashedData, Utility, Stream Set HashedData = CreateObject（"CAPICOM.HashedData"） Set Utility = CreateObject（"CAPICOM.Utilities"） Set Stream = CreateObject（"ADODB.Stream"） Hash...

VBS中通过调用CAPICOM对象实现SHA1&MD5加密

2016年07月27日 47 阅读

本来打算自己写的，但是看到复杂的算法描述就知难而退了。算了吧，有现成的COM对象调用，又何必去关心算法呢，直接拿来使用就行了。如果下面的例子代码提示无法创建对象，需要下载CAPICOM组件并注册。复制代码 代码如下:Const CAPICOM_HASH_ALGORITHM_MD2 = 1 Const CAPICOM_HASH_ALGORITHM_MD4 = 2 Const CAPICOM_HASH_ALGORITHM_MD5 = 3 Const CAPIC...

用VBS获取Unix时间戳的函数代码

2016年07月27日 44 阅读

VBS中没有类似C标准库中的time函数，怎么获取Unix时间戳呢？乍一看很简单： 复制代码 代码如下: Function UnixTime（） UnixTime = DateDiff（"s", "01/01/1970 00:00:00", Now（）） End Function 一个很想当然的方法，仅仅注意到了“1970年1月1日0时0分0秒”，而忽略了“协调世界时”。 协调世界时，又称世界标准时间或世界协调时间，简称UTC，从英文“Coordinat...

VBS模拟POST上传文件的代码

2016年07月27日 44 阅读

复制代码 代码如下:"XML Upload Class Class XMLUpload Private xmlHttp Private objTemp Private adTypeBinary, adTypeText Private strCharset, strBoundary Private Sub Class_Initialize（） adTypeBinary = 1 adTypeText = 2 Set xmlHttp = CreateObject...

由vbs sort引发.NET Framework之间的关系说明

2016年07月27日 47 阅读

如果问题就这么结束，那么也就不会有这篇文章。怪我手贱，在Google中输入“vbs sort”，回车，看到一段代码，顿时泪流满面。 复制代码 代码如下: Set outputLines = _ CreateObject（"System.Collections.ArrayList"） "add lines outputLines.Add output outputLines.Add output outputLines.Sort（） For Each out...

VBS中用CDO.Message发送邮件的实现代码

2016年07月27日 44 阅读

使用CDO.Message对象就可以实现，示例代码演示的是gmail发送纯文本并带附件的邮件，至于其他的电子邮箱，需要修改代码中对应的smtp服务器和端口，原理也是一样的，就不举例了。贴出来的代码没有写注释，需要看注释的请下载源码。 复制代码 代码如下: Const Email_From = "still.demon@gmail.com" Const Password = "password" Const Email_To = "380401911@qq....

VBS中的字符串连接的性能问题

2016年07月27日 45 阅读

当然，对于少量的字符串连接，效率并没有对程序造成多大影响，现在让我们考虑一个极端的问题：将1到100000之间的所有数字连接成一个字符串。 最简单的解决方案是直接使用&连接： 复制代码 代码如下: begin = Timer For i = 1 To 100000 str = str & CStr（i） Next WScript.Echo str finish = Timer WScript.Echo finish - begin 但是这个程序在我电脑上...

用VBS精确计算2的100次方的代码

2016年07月27日 45 阅读

既然Python可以计算2的100次方，那么我就要用VBS实现。不过这个效率嘛，计算2的10000次方Python用了0.009013秒，VBS用了120.9805秒，不是一个等级的，我就不多说什么了。 直接上代码： 复制代码 代码如下: "Date: 2010/10/27 "Author: Demon "QQ: 380401911 "E-mail: still.demon@gmail.com begin = Timer n = 1 For i = 1 T...

纯vbs实现zip压缩与unzip解压缩函数代码

2016年07月27日 45 阅读

压缩代码: 复制代码 代码如下: Zip "D: est.iso", "D: est.zip" Zip "D: est", "D: est.zip" Msgbox "OK" Sub Zip（ByVal mySourceDir, ByVal myZipFile） Set fso = CreateObject（"Scripting.FileSystemObject"） If fso.GetExtensionName（myZipFile） <> "z...

VBS调用Windows API函数的代码

2016年07月27日 46 阅读

那天无意中搜索到一篇《WinCC VBS利用EXCEL调用Windows API函数》的文章，不知道WinCC是什么，Google了一下好像跟西门子自动化有关。WinCC是什么并不重要，重要的是这篇文章提供了VBS调用Windows API的一种思路——EXCEL VBA，一种传说比VB还要VB的语言。但是那篇文章中的例子都是使用已经写好的EXCEL VBA程序，即首先得存在一个EXCEL文件。我就想，能不能在VBS中通过excel.application...

vbs下用Shell.Application获取图片分辨率

2016年07月27日 44 阅读

简单Google了一下，未果，于是发邮件请教了一下，很快就有了回复。 复制代码 代码如下: Path = "C: est.jpg" arr = Split（Path,""） FileName = arr（Ubound（arr）） FolderPath = Left（Path, Len（Path） - Len（FileName） - 1） Set objShell = CreateObject（"Shell.Application"） Set objFold...

VBS和UAC用户帐户控制实现代码

2016年07月27日 44 阅读

虽然很多人觉得这个功能很鸡肋，但是以VBS的角度来看，UAC还是多多少少有点用的。在UAC的限制下，直接双击VBS文件只能在标准用户权限下运行，很多事情是做不了的，比如复制自身到windows文件夹，或者写入注册表的开机启动项等等。在XP下非常猖獗的暴风一号病毒，放到Win7下也就只能改改文件夹属性为隐藏罢了，其他什么都做不了。当然了，一些不明真相的同学喜欢把UAC功能关掉，然后装个叫什么359还是361的所谓安全软件。我也不好多说什么，不然会遭到围观的。...

vbs的字符串操作效率分析总结

2016年07月27日 41 阅读

可vbs根本就没有类似于StringBuilder这样的东东，所以咱哥们只能自己想办法优化了。正文: 我写了几段代码做了测试，得出以下结果： "普通字符串连接 StringLinkTest1（） "性能最差，大约耗时20秒（最要命的是在这20秒内，整个CPU几乎是100%满负荷在运行） "普通字符串连接，但使用了临时变量来提升效率 StringLinkTest2（） "性能令人吃惊的改善,大约耗时0.2秒 "使用数组+Join函数处理 StringArra...

vbs mdb打包解包代码打包

2016年07月27日 46 阅读

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（） & "" i = InStr（thePath,...

VBS的字符串及日期操作相关函数

2016年07月27日 47 阅读

1. Asc（x）,Chr（x）:转换字符，字符码 2. Filter:搜寻字符串数组中的特定字符串 格式：v=filter（x,s[,include[,compare]]） 实例： Dim x（）={"kjwang","wangkj","peter"} Dim v v=filter（x,"kj"） "结果v（0）="kjwang",v（1）="wangkj" v=filter（x,"kj",false） "结果v（0）="peter" v=filter（...