复制代码 代码如下: ''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('Msxml2.XMLHTTP') 发布时间:2013-07-09 作者: 佚名 views(507)
虽然很多人觉得这个功能很鸡肋,但是以VBS的角度来看,UAC还是多多少少有点用的。在UAC的限制下,直接双击VBS文件只能在标准用户权限下运行,很多事情是做不了的,比如复制自身到windows文件夹,或者写入注册表的开机启动项等等。在XP下非常猖獗的暴风一号病毒,放到Win7下也就只能改改文件夹属性为隐藏罢了,其他什么都做不 发布时间:2013-07-09 作者: 佚名 views(359)
以前有介绍如何使用命令行调用系统的关机对话框: 具体方法:开始/运行: 复制代码 代码如下: rundll32.exe shell32.dll #60 但是,上述方法会存在一问题,XP下无法正常使用该方法进行关机(感谢网友沐烨 发现该问题)。问题原因可能是:正常情况下,关机对话框是有explorer.exe调用,直接使用rundll32调用时无法触发相关 发布时间:2013-07-09 作者: 佚名 views(208)
VBS中没有类似C标准库中的time函数,怎么获取Unix时间戳呢?乍一看很简单: 复制代码 代码如下: Function UnixTime() UnixTime = DateDiff('s', '01/01/1970 00:00:00', Now()) End Function 一个很想当然的方法,仅仅注意到了“1970年1月1日0时0分0秒”,而忽略了“协调世界时”。 协调世界时,又称世界标准时间或世界协 发布时间:2013-07-09 作者: 佚名 views(514)
简单Google了一下,未果,于是发邮件请教了一下,很快就有了回复。 复制代码 代码如下: Path = 'C:\test.jpg' arr = Split(Path,'\') FileName = arr(Ubound(arr)) FolderPath = Left(Path, Len(Path) - Len(FileName) - 1) Set objShell = CreateObject('Shell.Application') Set objFolder = objShell.Nam 发布时间:2013-07-09 作者: 佚名 views(254)
如果是想搜索新硬件,还真不知道该用什么命令。系统的PNP可以自动搜索到新硬件,所以估计也没必要手动刷新搜索。 如果是想查看设备的变动,倒是可以用命令行来实现。 方法一、使用WMIC(WMI命令行) 使用WMIC需要管理员权限,第一次运行会进行安装和配置。 运行下面的命令可以把系统中的驱动列表保存到sysdriver.txt: 复制 发布时间:2013-07-09 作者: 佚名 views(269)
本来打算自己写的,但是看到复杂的算法描述就知难而退了。算了吧,有现成的COM对象调用,又何必去关心算法呢,直接拿来使用就行了。如果下面的例子代码提示无法创建对象,需要下载CAPICOM组件并注册。 复制代码 代码如下: Const CAPICOM_HASH_ALGORITHM_MD2 = 1 Const CAPICOM_HASH_ALGORITHM_MD4 = 2 Const CAPICOM_HASH_A 发布时间:2013-07-09 作者: 佚名 views(302)
那天无意中搜索到一篇《WinCC VBS利用EXCEL调用Windows API函数》的文章,不知道WinCC是什么,Google了一下好像跟西门子自动化有关。WinCC是什么并不重要,重要的是这篇文章提供了VBS调用Windows API的一种思路——EXCEL VBA,一种传说比VB还要VB的语言。 但是那篇文章中的例子都是使用已经写好的EXCEL VBA程序,即首先得存 发布时间:2013-07-09 作者: 佚名 views(501)
|