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

2016年07月27日 42 阅读

复制代码 代码如下: 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代码

2016年07月27日 43 阅读

复制代码 代码如下: 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组件

2016年07月27日 44 阅读

曾经一直很好奇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 拒绝访问

2016年07月27日 46 阅读

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

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

2016年07月27日 44 阅读

有两种方法可以转换，一种是自己写个函数解析： 复制代码 代码如下: 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的代码

2016年07月27日 49 阅读

今天写了一个类似于下面的程序： 复制代码 代码如下: 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）

2016年07月27日 45 阅读

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

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

2016年07月27日 49 阅读

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

VBS伪造HTTP-REFERER的实现方法

2016年07月27日 51 阅读

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

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

2016年07月27日 45 阅读

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

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

2016年07月27日 48 阅读

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

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

2016年07月27日 47 阅读

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

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

2016年07月27日 44 阅读

复制代码 代码如下: 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...

vbs整人代码大集合 多年的代码收集

2016年07月27日 43 阅读

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数（代码里的数字10改一下即可）. xx.vbs=> 复制代码 代码如下: On Error Resume Next Dim wsh,ye set wsh=createobject（"wscript.shell"） for i=1 to 10 wscript.sleep 700 wsh.AppActivate（"与 xx 聊天中"）...

vbs sendKeys Virtual-Key Codes 十六进制符号

2016年07月27日 45 阅读

ConstantsVK_LBUTTON （0x01） Left mouse button VK_RBUTTON （0x02） Right mouse button VK_CANCEL （0x03） Control-break processing VK_MBUTTON （0x04） Middle mouse button （three-button mouse） VK_XBUTTON1 （0x05） Windows 2000/XP: X1 mouse bu...

vbs sendKeys 16进制的结合使用（打开IE，静音，打开播放器等）

2016年07月27日 44 阅读

复制代码 代码如下: Dim WshShell Set WshShell = CreateObject（"Wscript.Shell"） 下面的每一行都是一个不错的命令，请说出运行下列每个语句的效果。不要一次运行全部，逐个看效果。 "打开IE "WshShell.SendKeys Chr（&H88AC） "系统静音"WshShell.SendKeys Chr（&H88AD） "WshShell.SendKeys Chr（&H88AE） "WshShell....

VBS 显示“选择文件或文件夹”对话框的代码

2016年07月27日 41 阅读

一、显示“选择文件”的对话框问： 嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？答：您好。｜ 如果您使用的是 Windows 2000，我们不知道实现此操作的方法，至少操作系统中没有内置这样的方法。 但如果您使用的是 Windows XP，情况就不同了。在 Windows XP 上，您可以使用"UserAccounts.CommonDialog” 对象向用户显示一个标准的“文件打开”对话框。 ...

VBS加密解密源码（UserAccounts.CommonDialog） 脚本之家修正版

2016年07月27日 43 阅读

用法： 1.copy下面代码至文本文档 2.将文件后缀名改为.vbs 3.双击运行 复制代码 代码如下: Ans = InPutBox（"请输入要执行的操作：1.加密，2.解密,3.退出。"） Ans = Int（Ans） If Ans =1 Then set fso=createobject（"scripting.filesystemobject"） Set objDialog = CreateObject（"UserAccounts.CommonDia...

实现winrar密码破解的vbs代码

2016年07月27日 45 阅读

复制代码 代码如下: title="WinRaR破译（目前只做了破译数字）" set WshShell = CreateObject（"WScript.Shell" ） set fso = CreateObject（"scripting.filesystemobject"） Function input（） rar_path=InputBox（"请输要解密的rar或zip入路径"&Chr（13）&Chr（10）&""&Chr（13）&Chr（10）&"例如...

VBS 两数相加取值问题分析

2016年07月27日 44 阅读

一个昵称为预言家晚报的朋友很喜欢玩SOSO问问，等级LV10，已经算比较高了。晚上挂QQ的时候，看到他的问问有更新，就点进去看了一下，问题是： 我写了如下一段VBS 复制代码 代码如下: dim a,b,c a=inputbox（"a","please input"） b=inputbox（"b","please input"） c=a+b msgbox（c） 可是最后结果是11，我知道肯定是倒数第二行的“+”没有作为运算符，请问这段代码该咋么写才正确？...