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

2017年02月06日 64 阅读

压缩代码: 复制代码 代码如下: 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函数的代码

2017年02月06日 93 阅读

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

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

2017年02月06日 65 阅读

简单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用户帐户控制实现代码

2017年02月06日 80 阅读

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

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

2017年02月06日 82 阅读

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

vbs mdb打包解包代码打包

2017年02月06日 80 阅读

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的字符串及日期操作相关函数

2017年02月06日 56 阅读

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（...

WMI中的Win32_PingStatus类（ping命令实现）

2017年02月06日 79 阅读

复制代码 代码如下: IP = "jb51.net" WQL = "Select * from Win32_PingStatus Where Address = "$IP"" WQL = Replace（WQL,"$IP",IP） n = 0 : s = 0 Do Until n = 100 Set objWMIService = GetObject（"winmgmts:\. ootcimv2"） Set colItems = objWMIService....

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

2017年02月06日 65 阅读

复制代码 代码如下: 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（i,4）） =...

vbs TLI.TLIApplication 被遗忘的COM组件

2017年02月06日 68 阅读

曾经一直很好奇VbsEdit的代码自动补全是怎么实现的，现在看来，大约的确用的就是这个COM。 比如我想知道scrrun.dll（提供fso对象的dll）这个COM组件提供了哪些接口，可以用下面的代码： 复制代码 代码如下: Set tli = CreateObject（"TLI.TLIApplication"） Set Info = tli.TypeLibInfoFromFile（"scrrun.dll"） For Each Interface In I...

msxml3.dll 错误 80070005 拒绝访问

2017年02月06日 94 阅读

昨天在采集某一个网站的时候，采集程序出错了。 是自写的采集程序。 经过搜索以后，查到一些没有用的结果，后来发现，用Msxml2.ServerXMLHTTP替换掉Msxml2.XMLHTTP,问题成功解决。 以下是分析排错过程。 老是采集一段时间就挂了，指定资源下载失败，或者拒绝访问。 后来直接全部是拒绝访问。 一开始，认为，对方服务器做了防采集设置，比如有时间限制之类的。 于是更改程序，原先是直接获取列表页，然后持续循环获得文章列表。改了采集文件结构， 原...

将WMI中的DateTime类型转换成VBS时间的函数代码

2017年02月06日 65 阅读

有两种方法可以转换，一种是自己写个函数解析： 复制代码 代码如下: Function WMIDateStringToDate（DateTime） WMIDateStringToDate = _ CDate（Mid（DateTime, 5, 2） &_ "/" &_ Mid（DateTime, 7, 2） &_ "/" &_ Left（DateTime, 4） &_ " " &_ Mid （DateTime, 9, 2） &_ ":" &_ Mid（Date...

vbs中将GB2312转Unicode的代码

2017年02月06日 83 阅读

今天写了一个类似于下面的程序： 复制代码 代码如下: Dim http Set http = CreateObject（"msxml2.xmlhttp"） http.open "GET","http://www.sina.com.cn/",False http.send WScript.Echo http.responseText 但是却发现返回的中文都是乱码，看了一下发现新浪的编码竟然是gb2312的，汗，现在都是utf-8编码的时代了。respons...

VBS中的标识符（Identifiers）

2017年02月06日 72 阅读

VBS其实存在两种标识符： 普通标识符（NORMALIDENTIFIER） 中括号标识符（BRACKETIDENTIFIER） 但是我看过的VBS书籍上都只讲了普通标识符，没有讲中括号标识符。 普通标识符的规则我们已经很熟悉了： 第一个字符必须是字母。 后面的字符可以是字母、数字和下划线（_） 长度不能超过 255 个字符 不能是VBS保留的关键字 中括号标识符的规则更简单： 中括号括起来的任意Unicode字符（换行、回车和NULL除外） 长度不能超过 ...

VBS访问剪贴板的几种方法小结

2017年02月06日 133 阅读

复制代码 代码如下: Set IE = CreateObject（"InternetExplorer.Application"） IE.Navigate（"about:blank"） Set clipboard = IE.document.parentWindow.clipboardData "SetData设置剪切板的内容 clipboard.SetData "text", "忘记了，喜欢一个人的感觉" "GetData获取剪切板的内容 WScript....

VBS伪造HTTP-REFERER的实现方法

2017年02月06日 64 阅读

在测试目录写了一个简单的referer.php，代码如下 复制代码 代码如下: <？php if （！isset（$_SERVER["HTTP_REFERER"]）） echo "No Referer"; else echo $_SERVER["HTTP_REFERER"]; ？> 如果直接点击上面的链接，那么页面会显示referer页面的链接。 复制代码 代码如下: Set http = CreateObject（"msxml2.xmlht...

网络连接状态建立于断开的VBS脚本

2017年02月06日 71 阅读

断开连接提示 复制代码 代码如下: strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootwmi"） Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ （"Select * from MSNdis_StatusMediaDisconnect"） Do While True ...

用VBS实现监视进程创建与删除的代码

2017年02月06日 88 阅读

监视进程的创建，在每次创建新的进程时，临时事件消费程序都发出警报。 1.监视进程的创建 复制代码 代码如下: strComputer = "." Set objWMIService = GetObject（"winmgmts:" _ & "{impersonationLevel=impersonate}！\" & strComputer & " ootcimv2"） Set colMonitoredProcesses = objWMIService. _ ...

用VBS实现音乐播放的多个代码小结

2017年02月06日 108 阅读

第一个代码，会使用默认mp3文件关联的程序，会出现音乐播放框 复制代码 代码如下:wscript.sleep 12000 set ws=createobject（"wscript.shell"） ws.run "兄弟你累了吗.mp3"第二段代码 调用了WMPlayer.OCX插件，不会出现音乐播放框，如果想关闭播放音乐需要在进程中关闭wscript.exe进程。复制代码 代码如下:Dim wmp Set wmp = CreateObject（"WMPlay...

Crack8 VBS整人脚本 你不说你爱我 就关机

2017年02月06日 61 阅读

复制代码 代码如下: set ierunner=createobject（"wscript.shell"） ierunner.run "cmd /c start http://www.baidu.com/",0 wscript.sleep 2000 ierunner.sendkeys "%{F4}" on error resume next dim WSHshellA set WSHshellA = wscript.createobject（"wscrip...