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

2017年02月06日 133 阅读

复制代码 代码如下: 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日 143 阅读

一、你打开好友的聊天对话框,然后记下在你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日 164 阅读

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日 193 阅读

复制代码 代码如下: 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日 176 阅读

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

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

2017年02月06日 200 阅读

用法： 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日 190 阅读

复制代码 代码如下: 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日 170 阅读

一个昵称为预言家晚报的朋友很喜欢玩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日 173 阅读

某个人问的问题： 我本来想获取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日 196 阅读

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

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

2017年02月06日 230 阅读

今天又无聊的逛了一下搜搜问问，找到这样一个问题： 有谁能提供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日 149 阅读

复制代码 代码如下: 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日 165 阅读

复制代码 代码如下: "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日 138 阅读

复制代码 代码如下: 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日 169 阅读

复制代码 代码如下: 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日 135 阅读

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

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

2017年02月06日 221 阅读

示例代码（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日 153 阅读

复制代码 代码如下: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日 144 阅读

其实 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...

VBS面向对象编程与Me关键字使用介绍

2017年02月06日 162 阅读

VBS 是一种很简单的脚本语言，正因为简单，所以仅仅支持面向对象的很小一部分特性。 其他面向对象的编程语言通常使用 this 或者 self 关键字来访问当前对象，而 VBS 使用的是 Me 关键字。Me 关键字代表着类在代码运行时的当前实例（instance），或者说，当前对象（object）。 对象是类的一个实例。同一个类可以实例化很多个具有相同属性和方法的对象，但是每个对象是唯一的，它们的成员变量并不一样。这些成员变量通过对象引用来访问。在类的外部，...