vbs

vbs判断磁盘类型和检测硬盘剩余空间的实现代码 2016-09-10

这篇文章主要介绍了vbs判断磁盘类型和检测硬盘剩余空间的实现代码,需要的朋友可以参考下核心代码: Function ShowDriveType(drvpath) Dim fso, d, t Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDr ...

window通过vbs+bat实现自动在后台运行nodejsapplication 2016-06-24

这篇文章主要介绍了window通过vbs+bat实现自动在后台运行nodejs application,需要的朋友可以参考下环境:window8.1 原理就是通过vbs无窗口后台运行bat文件 1.新建一个.bat文件.内容如: @ECHO ON f: cd \repositories\yyper start /b nodemon index.js -f 2.新建一个.vb ...

用vbs实现的一款Worm.Win32.VB.fw病毒专杀 2016-06-16

在写了<Worm.Win32.VB.fw分析与清除方案>后,也没想到要写什么专杀,不过这些天好多同学都说中了这只病毒,我要是一个一个去解决,非忙死我不可!感染范围挺大的!我之前写了一篇<VBS编程打造自己的病毒专杀工具> ,VBS相对来说熟悉点,所以这次就用VBS来写个专杀吧--下面代码不懂的,请参考那篇介绍如何写自己的病毒专杀的文章吧. 代码如下: ...

Rcmd.vbs1.01修正版增加了下载功能 2016-05-20

我修正了几个小bug.加了一个在对方机器上直接生成一个down.vbs,用来下载用.这个down.vbs的用法看这里http://www.jb51.net/article/15506.htm代码: 代码如下: On Error Resume Next Set outstreem=Wscript.stdout If (LCase(Right(Wscript.fullname, ...

ADOX.Catalog中文帮助详细说明chm文档第3/3页 2016-05-18

这个是用来操作ACCESS数据库的东西,遍历表,遍历表的所有字段及字段的属性都会用到这个三.创建索引范例 如下代码演示如何创建新的索引.索引针对表的两个列建立. Sub CreateIndex()         Dim tbl As New Table         Dim idx As New ADOX.Index         Dim cat As New ADO ...

VBS教程:运算符-Or运算符 2016-05-08

Or 运算符对两个表达式进行逻辑"或"运算.result = expression1 Or expression2参数result任意数值变量.expression1任意表达式.expression2任意表达式. 说明如果两个表达式中至少有一个为 True,则 result 为 True.下表说明如何确定 result:如果 expression1 为e ...

本地连接禁用/启用批处理脚本 2016-05-05

代码如下:Const ssfCONTROLS = 3  sConnectionName = "本地连接"  '可改成需要控制的连接名称,如"无线网络连接"等  sEnableVerb = "启用(&A)"  sDisableVerb = "禁用(&B)"   'XP系统中应为 & ...

VBS教程:VBScript基础-VBScript常数 2016-05-03

VBScript 常数常数是具有一定含义的名称,用于代替数字或字符串,其值从不改变.VBScript 定义了许多内部常数.详细信息,请参阅 VBScript 语言参考.创建常数您可以使用 Const 语句在 VBScript 中创建用户自定义常数.使用 Const 语句可以创建名称具有一定含义的字符串型或数值型常数,并给它们赋原义值.例如: Const MyString = ...

VBS教程:函数-Split函数 2016-03-23

返回基于0的一维数组,其中包含指定树木的子字符串.下面的例子,将字符串以&为标记分割开来Split 函数 返回基于 0 的一维数组,其中包含指定数目的子字符串. Split(expression[, delimiter[, count[, star) 参数 expression 必选项.字符串表达式,包含子字符串和分隔符.如果 expression 为零长度字符串, ...

无法执行vbs脚本中遇到的问题及解决方案 2016-02-19

这篇文章主要介绍了无法执行vbs脚本中遇到的问题及解决方案,需要的朋友可以参考下今天有网友反映无法执行vbs文件,一般情况下,很多坏孩子用vbs写病毒,所以有时候杀毒会误杀或取消执行vbs文件 1. 没有文件扩展".vbs"的脚本引擎.原因:有些软件会将".vbs"的文件的默认打开方式改成其他的方式.手动解决:① 先到%SYSTEMR ...

Vbs脚本编程简明教程之一 2016-02-15

在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来--.这些事情重复.琐 ...

VBS调用WMI遍历搜索硬盘文件并计数的方法 2016-02-14

这篇文章主要介绍了VBS调用WMI遍历搜索硬盘文件并计数的方法,需要的朋友可以参考下多年之前写的一个VBS调用WMI来遍历搜索硬盘文件,并计数的函数,今天整理网盘,看到了,发上来 核心代码: Function wmisfile(path_sf,justcnt) 'On Error Resume Next StrComputer = "." Set Obj ...

病毒专杀VBS模块 2016-01-29

"病毒专杀VBS模块.vbs"这个文件你可以直接执行,不会有任何破坏^^. 提供专杀模板,你就可以根据你分析出的病毒行为写出自己的病毒专杀工具. 非常的方便,非常的高效! 作为一个反病毒人士不应该仅仅能分析好病毒日志,还要知道如何分析病毒行为! 进而给出自己的解决方案! 这个解决方案并不一定非得用到网上那些出名的小软件icesword之类的. 因为你也可 ...

VBS教程:方法-SkipLine方法 2016-01-06

SkipLine 方法当读到 TextStream 文件时,跳过下一行.object.SkipLineobject 应为 TextStream 对象名称. 说明跳过一行意味着读并放弃本行所有字符并包括下一新行字符内容. 如果文件不是以读方式打开则会出现错误.下面例子举例说明如何使用 SkipLine 方法: Function SkipLineInFile Const For ...

ActiveX漏洞通用Exploitvbs修正版 2015-11-22

作者:疯狗 终于在milw0rm找到了一个不错的shellcode,down&exec的,灰常好用!顺手写了一个C测试了下,结果是成功下载并执行了"木马",muma.exe是我用delphi写的一个简单的执行测试程序,无毒无害.C++代码 代码如下:#include <stdio.h>      #include <string ...

VBS教程:方法-FileExists方法 2015-11-14

FileExists 方法如果指定的文件存在返回 True:否则返回 False.object.FileExists(filespec) 参数object必选项.应为 FileSystemObject 对象的名称.filespec必选项.文件名,表示要确定是否存在的文件.如果文件不在当前文件夹中,则必须提供完整路径名(绝对路径或相对路径).说明下面例子举例说明如何使用 Fi ...

VBS教程:运算符-乘运算符(*) 2015-10-25

乘运算符 (*)两个数相乘.result = number1*number2参数result任意数值变量.number1任意数值表达式.number2任意数值表达式. 说明如果一个或两个表达式为 Null 表达式,result 为 Null.如果一个表达式为 Empty,则按 0 处理.

用vbs读取Excel文件的函数代码 2015-10-19

用vbs读取Excel文件的函数代码,不需要安装execl,需要的朋友可以参考下.核心代码 代码如下: Function ReadExcel( myXlsFile, mySheet, my1stCell, myLastCell, blnHeader ) ' Function : ReadExcel ' Version : 2.00 ' This function reads ...

用VBS将一篇txt后缀的内容保存为html格式 2015-10-12

把txt文件托放到这个vbs上试一下,它会自动生成一个htm文件.需要修的地方说一下.do.vbs 代码如下:'BY Coo_boi If WScript.Arguments.Count=0 Then WScript.Quit Dim fso,txt,htm txt=WScript.Arguments(0) Set fso=CreateObject("Script ...

VBS基础编程教程(第3篇) 2015-09-03

第三篇(共六篇):  首先, 我来解决一下上次课程的几个疑问  第一, 那个余数问题, 16 / 5 = 3...1, 是因为我改过前面的部分, 后面的忘了改了, 不好意思.  第二, 请看一下程序清单:  1)  Dim a,b,c  a=inputbox("a是:","输入半径")  b=Inputbox("b是:&qu ...