实现winrar密码破解的vbs代码

2016年07月27日 83 阅读

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

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

2016年07月27日 81 阅读

某个人问的问题： 我本来想获取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函数的返回值使用技巧

2016年07月27日 83 阅读

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

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

2016年07月27日 88 阅读

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

2016年07月27日 72 阅读

复制代码 代码如下: 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列出内网的中计算机（工作组也可以）

2016年07月27日 78 阅读

复制代码 代码如下: "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 注册表操作类代码

2016年07月27日 75 阅读

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

2016年07月27日 73 阅读

复制代码 代码如下: 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发送短信的实现代码（通过飞信）

2016年07月27日 75 阅读

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

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

2016年07月27日 76 阅读

示例代码（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中的代码

2016年07月27日 82 阅读

复制代码 代码如下: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关键字使用介绍

2016年07月27日 83 阅读

其实 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关键字使用介绍

2016年07月27日 74 阅读

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

VBS变量名Wsh等于WScript对象？

2016年07月27日 83 阅读

复制代码 代码如下: set wsh = createobject（"wscript.shell"） wscript.sleep 15 * 60 * 1000 wsh.run "shutdown /s /t 0" 双击运行，居然弹出个错误对话框 复制代码 代码如下: Line: 1 Char: 1 Error: Wrong number of arguments or invalid property assignment: ‘wsh" Code: 80...

Msxml2.XMLHTTP Msxml2.ServerXMLHTTP与缓存

2016年07月27日 83 阅读

在大部分情况下，Msxml2.XMLHTTP 能够很好地完成工作，因为它是有缓存的。比如，我们用 Msxml2.XMLHTTP 发送 HTTP POST 请求模拟登陆了某个网站，它会把登陆时的 Cookie 和 Session 缓存下来，当我们想获取网站的数据时直接 HTTP GET 就行了，不需要人工发送 Cookie 和 Session。 但是，在有些时候，缓存会给我们造成麻烦。比如我们要写一个 VBS 脚本暴力破解某个网站的账号，假设我们已经破解了一...

VBS打开选择文件对话框代码（Win7）

2016年07月27日 82 阅读

相信很多人都看过“嗨，Scripting Guy！”上面的一个问题，就算没有看过原文，也应该看过被复制粘贴后的代码。 我如何向用户显示一个用来选择文件的对话框？ 问：嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？ — BF 答：您好，BF。如果您使用的是 Windows 2000，我们不知道实现此操作的方法，至少操作系统中没有内置这样的方法。但如果您使用的是 Windows XP，情况就不同了。在 ...

VBS通过WMI获取CPU使用率的代码

2016年07月27日 84 阅读

Python固然强大，但是调用WMI还是用VBS比较“正宗”。 复制代码 代码如下: On Error Resume Next strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"） Set colItems = objWMIService.ExecQuery（"Select * from Win32_Processor",,48） ...

用VBS控制鼠标的实现代码（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）

2016年07月27日 78 阅读

怎么用VBS模拟鼠标左键单击、左键双击、右键单击？…… 网上搜到的答案普遍是VBS无法实现，或者是要用第三方COM（ActiveX？）组件。我对第三方组件是很反感的，使用第三方组件毫无可移植性可言，因为别人的系统中不一定注册了这个组件。我的建议是，尽量不要在VBS代码中调用第三方组件，除非你的程序只是写来自己用。（顺便说一下，也尽量不要用不靠谱的Sendkeys方法，原因不解释） 好了，废话就说这么多，现在说说用VBS控制鼠标的方法。我以前写过一篇《VBS...

TXT转HTM、HTML「TXT转网页」的vbs实现代码

2016年07月27日 86 阅读

在众多文本编辑器中，Microsoft的Word是功能很强大的。况且XP PRO本身支持VBS调用Word文档对象，那么使用VBS是最好不过的了。思路如下：VBS打开Word，Word打开TXT，另存为网页，退出。 1. VBS调用Word.Application组件 如果电脑中安装了Word，那么用VBS打开Word其实很简单，如下： Set objWord = CreateObject（"Word.Application"） objWord.Visib...