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

2017年02月06日 249 阅读

第一个代码，会使用默认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日 122 阅读

复制代码 代码如下: 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整人代码大集合 多年的代码收集

2017年02月06日 124 阅读

一、你打开好友的聊天对话框,然后记下在你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 十六进制符号

2017年02月06日 142 阅读

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，静音，打开播放器等）

2017年02月06日 176 阅读

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

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

2017年02月06日 154 阅读

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

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

2017年02月06日 171 阅读

用法： 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代码

2017年02月06日 170 阅读

复制代码 代码如下: 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 两数相加取值问题分析

2017年02月06日 151 阅读

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

VBS获取重定向的URL的代码

2017年02月06日 151 阅读

某个人问的问题： 我本来想获取aaa.com页面的内容，可是aaa.com跳转到bbb.com了。我想获取bbb.com 这个网址。 访问了一下他所谓的aaa.com，发现是HTTP 302重定向 复制代码 代码如下: HTTP/1.1 302 Moved Temporarily Server: nginx/0.8.53 Date: Fri, 08 Apr 2011 15:49:25 GMT Content-Type: text/html;charset=...

VBS中InputBox函数的返回值使用技巧

2017年02月06日 181 阅读

如果用户单击确定或按下 ENTER，则 InputBox 函数返回文本框中的内容。如果用户单击取消，则函数返回一个零长度字符串 （""）。 这是参考手册对InputBox函数返回值的说明，简单而明了，还有必要专门写一篇文章来讨论？我知道你一定对标题不屑一顾，换成是我，我也一定会不屑一顾，如果我没有看到百度VBS吧里的一个帖子。 关于Inputbox 疑惑 ———————————————————————————— 如果用户单击确定或按下 ENTER，则 In...

用VBS精确计算100的阶乘的实现代码

2017年02月06日 211 阅读

今天又无聊的逛了一下搜搜问问，找到这样一个问题： 有谁能提供vbs里20的阶乘的详细程序 下面有人给出了这样的答案： 复制代码 代码如下: function jx（x） j=1 for i=2 to x j=j*i next jx=j end function msgbox jx（20） 运行一下上面的程序，输出2.43290200817664E+18。笑而不语，再次证明了我之前的结论，在这种网站上回答问题的，大部分水平都不咋地。 其实之前在《用VBS精...

用vbs来探测端口的代码 不用注册winsock

2017年02月06日 134 阅读

复制代码 代码如下: On Error Resume Next if （lcase（right（wscript.fullname,11））="wscript.exe"） then wscript.echo "Execute it under the cmd.exe Plz！ Thx." wscript.quit end If if Wscript.Arguments.count=0 Then usage（） wscript.quit End If Set ...

vbs列出内网的中计算机（工作组也可以）

2017年02月06日 148 阅读

复制代码 代码如下: "Handle Errors On Error Resume Next "Get the provider object Set prov = GetObject（"WinNT:"） "Examine the available domains the provider can reach For each dom in prov "Examine the objects in the domain and check for Com...

vbs 注册表操作类代码

2017年02月06日 127 阅读

复制代码 代码如下: Option Explicit Const WBEM_MAX_WAIT = &H80 " Registry Hives Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_USERS = &H80000003 Const HKEY_CURREN...

提权vbs代码

2017年02月06日 146 阅读

复制代码 代码如下: on error resume next dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments （0）:password=Wscript.Arguments（1）:Else:username="hacker$":password="123456":end if:set wsnetwork=CreateObject（"WSCRIP...

利用VBS发送短信的实现代码（通过飞信）

2017年02月06日 120 阅读

光看标题就已经觉得很牛逼了，听说过可以用 PHP 发送短信（飞信），也使用过 Python 实现的 PyFetion 发送过短信（飞信）。我也看过对应的 PHP 和 Python 源码，实现起来还是比较复杂的，难道可以用 VBS 来实现？ 看到代码后更觉得牛逼，竟然是使用 10086.cn （移动官网）上面的接口来实现的，飞信官方难道已经公布飞信接口了？若不是，难道是代码的作者自己发现的接口？那也太强大了！Google 了一下才发现，哦，都不是，而是 WA...

vbs 批量修改文件，bat 批处理文件调用执行vbs，并在cmd窗口打印返回值（vbs运行结果）

2017年02月06日 200 阅读

示例代码（t.vbs）如下： 复制代码 代码如下: Set fso=Wscript.CreateObject（"Scripting.FileSystemObject"） flrName="D:Workspacesrc" "dir that you need deal with count=0 "get the count of modified files function Traversal（dir） set flr=fso.getfolder（dir）...

用vbs产生的若干个随机数并写入到一个.txt中的代码

2017年02月06日 138 阅读

复制代码 代码如下:Set a=WScript.CreateObject（"WScript.Shell"） a.Run "notepad" "打开记事本 do Randomize x= Int（（40 * Rnd） + 1） "产生一个1~40的随机数赋给X WScript.Sleep 1000 a.SendKeys x&"," "模拟键盘，输出x n=n+1 "累计器 if n=10 then wscript.quit "若累计器N为10则推出脚本 lo...

VBS类构造函数与Default关键字使用介绍

2017年02月06日 130 阅读

其实 MSDN 的 VBScript 文档中关于 Function 和 Sub 语句的部分提到过 Default 关键字： 复制代码 代码如下: Default Used only with the Public keyword in a Class block to indicate that the Function procedure is the default method for the class. An error occurs if mo...