vbs

  • VBS 两数相加取值问题分析

    VBS 两数相加取值问题分析 2015-05-03

    vbs中通过intpu传值进行运算的方法,需要的朋友可以参考下. 一个昵称为预言家晚报的朋友很喜欢玩SOSO问问,等级LV10,已经算比较高了.晚上挂QQ的时候,看到他的问问有更新,就点进去看了一下,问题是: 我写了如下一段VBS dim a,b,c a=inputbox("a","please input") b=inputbox("b","please input") c=a+b msgbox(c) 可是最后结果是11,我

    关键词: vbs, 两数相加
  • 使用 iisext.vbs 添加应用程序依存关系的实现方法

    使用 iisext.vbs 添加应用程序依存关系的实现方法 2015-05-03

    这篇文章主要介绍了使用 iisext.vbs 添加应用程序依存关系的实现方法,需要的朋友可以参考下 应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可以使用命令行脚本 iisext.vbs(存储在 systemroot\system32 中),在运行带有 IIS 6.0 的 Windows Server 2003 家族成员的计算机上添加应用程序与一个或多个 Web 服务扩展之间的依存关系

    关键词: 应用程序, Iisext.vbs, 依存关系
  • VBS教程:VBscript语句-Dim 语句

    VBS教程:VBscript语句-Dim 语句 2015-05-03

    Dim 语句 声明变量并分配存储空间. Dim varname[([subscripts])][, varname[([subscripts])]] . . . 参数 varname 变量的名称,符合标准变量命名约定. subscripts 数组变量的维数,最多可以声明 60 维的数组.subscripts 参数使用以下语法: upperbound [,upperbound] . . . 数组下界总是 0. 说明 用 Dim 声明的 Script 级变量可用于脚本中的所有过程,过程级变量只能用于

    关键词: S教, 教程, 程V, 语句, t语, , m语, 句D
  • 两个vbs脚本利用了wscirpt.network

    两个vbs脚本利用了wscirpt.network 2015-05-01

    Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName Const ForReading = 1 Const ForAppending = 8 Dim arrFileLines() i=0 Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=imperso

    关键词: 两个vbs脚本利用了wscirpt.network
  • 当某IP 连接我机器的3389端口 报警的脚本

    当某IP 连接我机器的3389端口 报警的脚本 2015-05-01

    希望大牛能够写一个脚本监视 当某IP 连接我机器的3389端口时报警... 我知道 用IPSEC也可以做到只让某IP访问访问,用netstat -an 可以看某IP正在访问我机器的3389端口,我想做监视 让某IP访问时 然后报警 或者输入 >*.txt 这样... 你在防火墙里面设置仅允许单一IP连你3389不行么? 脚本不是万能的-- 我刚看了.的确 windows 自带的防火墙可以记录下来..结帖 thank you you... 这里给出一种变通的方法 1.将下面代码保存为vbs文件 S

    关键词: 3389, 报警
  • math.vbs 自然数n的n次方的的和或积的级数

    math.vbs 自然数n的n次方的的和或积的级数 2015-04-30

    通项为自然数n的n次方的的和或积的级数,求和或积的表达式. dim n,m n=inputbox("input a number:","recursion") m=factorial ( n ) if n<0 then msgbox "must be input a number bigger 0." elseif n=0 then msgbox "0"&"!"&"is:&q

    关键词: math.vbs, 自然数
  • VBS教程:属性-Drive 属性

    VBS教程:属性-Drive 属性 2015-04-30

    Drive 属性 返回指定的文件或文件夹所在的驱动器的驱动器号.只读. object.Drive object 应为 File 或 Folder 对象的名称. 说明 以下代码举例说明如何使用 Drive 属性: Function ShowFileAccessInfo(filespec) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(filespec) s =

    关键词: S教, 教程, 属性, , 程属, e属, 性D
  • VBS教程:运算符-逻辑运算符

    VBS教程:运算符-逻辑运算符 2015-04-30

    逻辑运算符 And 运算符 Not 运算符 Or 运算符 Xor 运算符 具体参考请看上面内容:)

    关键词: S教, 教程, 算符, 逻辑, , 程运, 运算, 符逻, 辑运
  • VBS中的字符串连接的性能问题

    VBS中的字符串连接的性能问题 2015-04-29

    字符串连接谁不会,还用得着写?没错,在VBS中连接字符串确实很简单,无非就是&和+,不过本文不是讨论&和+用法之间的区别,而是讨论字符串连接的效率问题,即样才能快速地连接字符串? 当然,对于少量的字符串连接,效率并没有对程序造成多大影响,现在让我们考虑一个极端的问题:将1到100000之间的所有数字连接成一个字符串. 最简单的解决方案是直接使用&连接: begin = Timer For i = 1 To 100000 str = str & CStr(i) Next WS

    关键词: 性能, 字符串连接
  • VBS教程:属性-RootFolder 属性

    VBS教程:属性-RootFolder 属性 2015-04-29

    RootFolder 属性 返回一个 Folder 对象,表示指定驱动器的根文件夹.只读. object.RootFolder object 应为 Drive 对象的名称. 说明 使用返回的 Folder 对象,可以访问指定驱动器包含的所有文件和文件夹. 下面例子举例说明如何使用 RootFolder 属性: Function ShowRootFolder(drvspec) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject

    关键词: S教, 教程, 属性, , 程属, r属, 性R
  • VBS教程:VBscript语句-功能介绍

    VBS教程:VBscript语句-功能介绍 2015-04-27

    VBScript 语句 描述 语言元素 将控制权交给一个 Sub 或 Function 过程. Call 语句 声明一个类的名称. Class 语句 声明用于替换文字值的常数. Const 语句 声明变量并分配存储空间. Dim 语句 当某个条件为 True 时或在某个条件变为 True 之前重复执行一个语句块. Do...Loop 语句 重新初始化固定大小的数组的元素和释放动态数组的存储空间. Erase 语句 执行一条或多条指定语句. Execute 语句 在一个脚本的全局命名空间中执行一条

    关键词: 功能, S教, 教程, 程V, 语句, t语, 介绍, , 能介, 句功
  • 清除垃圾的VBS文件 自动查找多个盘

    清除垃圾的VBS文件 自动查找多个盘 2015-04-26

    可以删除.tmp ._mp .log .gid .chk .old file文件和 temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files"文件夹. rem made by correy rem made at 2007.9.22 rem it can be delete you computer's the follow things(except cd,dvd) rem it can be delete

    关键词: vbs, 清除垃圾
  • vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者

    vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者 2015-04-25

    这是我在菊花论坛脚本版块看到的,真的很不错,一共有四个部份,把代码复制到记事本另存为GetOwner.VBS文件, GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者 注意:大小以MB为单位,小于1MB的就显示为0MB, 以下是代码: G = WScript.arguments(0) Set oFSO = CreateObject("Scripting.FileSystemOb

    关键词: vbs, 文件, 目录, 文件夹
  • VBS实现将字符串写入剪切板的实现代码

    VBS实现将字符串写入剪切板的实现代码 2015-04-24

    VBS实现将字符串写入剪切板的实现代码,需要的朋友可以参考下. 函数代码: Sub CopyString(s) Set forms=WScript.CreateObject("forms.form.1") Set textbox=forms.Controls.Add("forms.textbox.1").Object With textbox .multiline=True .text=s .selstart=0 .sellength=Len(.text) .cop

    关键词: 字符串, 剪切板
  • 将VBS或ASP中的代码转成一句话形式

    将VBS或ASP中的代码转成一句话形式 2015-04-24

    将VBS或ASP中的代码转成一句话形式 以前都以为直接把换行符换成冒号就可以了... 结果发现,有TABLE不行 类似if xx=1 then yy=2 的也不行... //此脚本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp On Error Resume Next Set Arg=Wscript.Arguments If Arg.Count=0 Then wscript.quit 'code by NetPatch 'enjoy it Set Fso=Cr

    关键词: vbs, ASP, 一句话
  • vbs SendKey 用法 Sendkey 键盘对应的码表

    vbs SendKey 用法 Sendkey 键盘对应的码表 2015-04-23

    简单说,这个命令就是模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行 其使用格式为: object.SendKeys string "object":表示WshShell对象 "string":表示要发送的按键指令字符串,需要放在英文双引号中. 1.基本键 一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用 WshShell.SendKeys "x" 即可.

    关键词: vbs, SendKey
  • 一段病毒常用的VBS代码

    一段病毒常用的VBS代码 2015-04-23

    vbs病毒文件常用的代码,给这段代码不是想让大家做病毒,而是让大家学习一下它的代码,充分了解vbs技术. On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject("scripting.filesystemobject") Set wshell=CreateObject("WScript.shell") Set curfolder=fso.GetFolder

    关键词: vbs, 病毒
  • 使用 iisftpdr.vbs 创建 FTP 虚拟目录的方法

    使用 iisftpdr.vbs 创建 FTP 虚拟目录的方法 2015-04-22

    这篇文章主要介绍了使用 iisftpdr.vbs 创建 FTP 虚拟目录的方法,需要的朋友可以参考下 应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可以使用命令行脚本 iisftpdr.vbs(存储在 systemroot\System32\ 中)在运行带有 IIS 6.0 的 Windows Server 2003 家族成员的本地或远程计算机上创建新的 FTP 虚拟目录.该命令不创建

    关键词: FTP, 虚拟目录, Iisftpdr.vbs
  • VBS教程:方法-GetTempName 方法

    VBS教程:方法-GetTempName 方法 2015-04-22

    GetTempName 方法 返回随机生成的临时文件或文件夹的名称,用于执行要求临时文件或文件夹的操作. object.GetTempName 可选项参数 object 应为 FileSystemObject 对象的名称. 说明 GetTempName 方法不创建文件,该方法仅提供临时文件名.CreateTextFile 使用该临时文件名创建文件. 下面例子举例说明如何使用 GetTempName 方法: Dim fso, tempfileSet fso = CreateObject("Scri

    关键词: 方法, , S教, 教程, 程方, e方, 法G
  • VBS教程:VBScript 基础-使用循环语句

    VBS教程:VBScript 基础-使用循环语句 2015-04-21

    使用循环语句 循环用于重复执行一组语句.循环可分为三类:一类在条件变为 False 之前重复执行语句,一类在条件变为 True 之前重复执行语句,另一类按照指定的次数重复执行语句. 在 VBScript 中可使用下列循环语句: Do...Loop: 当(或直到)条件为 True 时循环. While...Wend: 当条件为 True 时循环. For...Next: 指定循环次数,使用计数器重复运行语句. For Each...Next:对于集合中的每项或数组中的每个元素,重复执行一组语句.

    关键词: 使用, S教, 教程, 循环, 基础, 程V, 语句, , t基, 础使, 用循, 环语
  • VBS脚本加密/解密VBS脚本(简易免杀版1.1)

    VBS脚本加密/解密VBS脚本(简易免杀版1.1) 2015-04-21

    由于杀软的原因使得"加密/解密VBS脚本"版不能正常使用,于是修改了一下加密函数逃避杀软,但同 1.0版一样由宿主解释执行脚本的特性注定了这种加密是可逆并非常脆弱的,WScript.Echo 一下Execute 后的内容即可显示源码了. 算法大家可任意改..... Dim WshSHell,FSO On Error Resume Next Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = C

    关键词: vbs, 解密, 脚本, 加密
  • 在VBS中定义字节数组Byte()介绍

    在VBS中定义字节数组Byte()介绍 2015-04-21

    在VBS中有办法定义字节数组么?就是字节子类型数组(VarType是8209的那种)注意不是VB 晚上在 QQ 上看到昵称为"乱码"的好友回答了搜搜问问里一个问题: 在VBS中有办法定义字节数组么? 在VBS中有办法定义字节数组么?就是字节子类型数组(VarType是8209的那种)注意不是VB! 但是回答实在是不堪入目,连别人问什么都没搞懂,而且那人居然还满意,真不知道他在想什么. 闲来没事,我来简单回答一下.首先要搞清楚别人在问什么,VBS 是弱类型脚本语言,只有一种数据类型,称为

    关键词: byte, 字节数组
  • 用vbs实现的确定共享文件夹的本地路径?

    用vbs实现的确定共享文件夹的本地路径? 2015-04-19

    如何确定共享文件夹的本地路径? 问: 您好,脚本专家!如果有 UNC 路径(例如 \\server1\test),可以使用脚本确定共享文件夹(例如 C:\Scripts\Test 文件夹)的本地路径吗? -- JVK 答: 您好,JVK.是的,您说得没错 噢,对了:我们几乎忘了.您能使用脚本确定共享文件夹的本地路径吗?您当然可以(尽管我们不知道为什么在棒球赛季期间还有人有闲心做这些).但如果这确实是您想要做的,那么这就告诉您该如何去做: strPath = "\\atl-fs-01\public

    关键词: 用vbs实现的确定共享文件夹的本地路径?
  • 用vbs实现的一款Worm.Win32.VB.fw病毒专杀

    用vbs实现的一款Worm.Win32.VB.fw病毒专杀 2015-04-18

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

    关键词: 用vbs实现的一款Worm.Win32.VB.fw病毒专杀
  • 重新安装ie的一个vbs

    重新安装ie的一个vbs 2015-04-18

    对于版本有点老,所以建议学习使用,不要随便直接运行. 'run_ie_reinstall.vbs - Runs the Internet Explorer Setup '?Doug Knox - 4/10/2002 'Downloaded from www.dougknox.com X = MsgBox("Do you want to reinstall Internet Explorer?", vbYesNo, "Prompt!") Y = MsgBox(&quo

    关键词: vbs, 安装ie
  • 一个把任何文件转成批处理的vbs脚本Any2Bat.vbs

    一个把任何文件转成批处理的vbs脚本Any2Bat.vbs 2015-04-18

    by [email protected] 用Base64编码数据,好处是压缩了大小(相对bin2str而言),缺点是增加处理时间和脚本复杂度. 由于效率瓶颈是在bat生成vbs这一步,所以总的来说还是合算了. 写文件用ADODB.Recordset,比debug好使多了. 大部分事都是脚本做的,批处理只是用echo来生成脚本而已. echo版的好处是,全选复制粘贴到cmd shell里就把文件上传了. 'Any2Bat.vbs by zzzEVAzzz on error resume next

    关键词: 一个把任何文件转成批处理的vbs脚本Any2Bat.vbs
  • vbs结合wget 实现下载网站图片

    vbs结合wget 实现下载网站图片 2015-04-18

    本文主要实现了使用vbs脚本调用wget,下载网站所有页面到本脚本目录,并扫描本脚本目录中所有文件,读取本脚本目录中的所有网页,匹配图片 URL 地址,保存所有图片 URL 地址到 url-img.txt 文件,然后调用wget: 下载 url-img.txt 指定的图片到本脚本 img 目录 vbs 函数过程: 1. 调用wget: 下载网站所有页面到本脚本目录 -- 2. 扫描本脚本目录中所有文件 -- 3. 读取本脚本目录中的所有网页,匹配图片 URL 地址 -- 4. 保存所有图片 UR

    关键词: wget, vbs, 图片, 下载
  • 禁止QQ上网的vbs脚本代码

    禁止QQ上网的vbs脚本代码 2015-04-17

    用vbs查找系统进程,发现qq的进程则杀掉就是这段代码的原理 dim bag,pipe,honker,good do good="." set bag=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='QQ.exe'") for each i in

    关键词: vbs, 禁止QQ上网
  • vbs sendmail发邮件带附件方法

    vbs sendmail发邮件带附件方法 2015-04-16

    vbs下实现邮件发送代码,可以发附件等 NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "[email protected]" Email.To = "[email protected]" Email.Subject = "Test se

    关键词: sendmail, vbs, 发邮件
  • 注册表-批处理-VBS之间的相互结合应用第1/2页

    注册表-批处理-VBS之间的相互结合应用第1/2页 2015-04-14

    不懂注册表.VBS.批处理不要紧,只要会学.会吸收别人的精华,会查找资料,|论坛|百度|GOOGLE|,然后能用好,就非常不错了 贴一些搜集的文字放到这吧.(绿色是标题, 蓝色的是原作者,红色的部分就是需要修改的部分,根据你自己的实际情况修改) ======打开迅闪菜单的同时连接虚拟磁盘的VBS====== Set WshShell = WScript.CreateObject("WScript.Shell") Return = WshShell.Run ("c:\clien

    关键词: 注册表-批处理-VBS之间的相互结合应用
  • VBS教程:VBscript语句-Property Get 语句

    VBS教程:VBscript语句-Property Get 语句 2015-04-14

    Property Get 语句 在 Class 块中,声明构成用来取得(返回)的值的属性过程的主体的名称.参数和代码. [Public [Default]| Private] Property Get name [(arglist)] [statements] [[Set] name = expression] [Exit Property] [statements] [[Set] name = expression] End Property 参数 Public 表明Property Get

    关键词: S教, 教程, 程V, 语句, t语, , 句P
  • vbs adox提取数据库表名和列名的类

    vbs adox提取数据库表名和列名的类 2015-04-13

    vbs结合adox实现提取表名,列名等信息的的vbs类一直没怎么了解adox,先转过来,有时间研究下!! <!--#include virtual="/include/conn.inc"--> <% '********************************* '* classname: ADOXDBOPR '* 制作人: 刘晓逸 '* 作用: 用adox进行数据库的操作 '* 版本: 1.0 '*www.jb51.net 脚本之家 '************

    关键词: vbs, 数据库, ADOX
  • VBS教程:函数-Eval 函数

    VBS教程:函数-Eval 函数 2015-04-12

    Eval 函数 计算一个表达式的值并返回结果. [result = ]Eval(expression) 参数 result 可选项. 是一个变量,用于接受返回的结果.如果未指定结果,应考虑使用 Execute 语句代替. expression 必选项.可以是包含任何有效 VBScript 表达式的字符串. 说明 在 VBScript 中,x = y 可以有两种解释.第一种方式是赋值语句,将 y 的值赋予 x.第二种解释是测试 x 和 y 是否相等.如果相等,result 为 True:否则 re

    关键词: 函数, S教, 教程, 程函, , l函, 数E
  • 用vbs将输出内容写到屏幕以覆盖当前屏幕上的内容的方法

    用vbs将输出内容写到屏幕以覆盖当前屏幕上的内容的方法 2015-04-12

    问: 您好,脚本专家!如何将输出内容写到屏幕以覆盖当前屏幕上的内容? -- KM 答: 您好,KM.如果您确实需要将输出内容写到命令窗口,那么,我们没办法给您提供答案:尽管我们多少已经处理过一些问题,但我们从未找到一种简单.直接的方法可覆盖命令窗口中的信息. 不过,如果您要将信息输出到 Internet Explorer 窗口,那么我们还确实有解决办法.而且马上就可以给出答案: Set objExplorer = CreateObject("InternetExplorer.Applicatio

    关键词: 用vbs将输出内容写到屏幕以覆盖当前屏幕上的内容的方法
  • vbs通过WMI修改文件文件夹的NTFS权限

    vbs通过WMI修改文件文件夹的NTFS权限 2015-04-12

    使用WMI修改文件文件夹的NTFS权限实现方法,需要的朋友可以参考下 使用WMI修改文件文件夹的NTFS权限, 代码: strUser = "guests" strPath = "D:\\abc.txt" RetVal = AddPermission(strUser,strPath,"R",True) '------------------------------------------------------------------------

    关键词: ntfs, wmi, 权限, 文件夹
  • 用vbs通过135端口执行命令的脚本

    用vbs通过135端口执行命令的脚本 2015-04-10

    还是高手强通过下面的代码实现远程执行计算机的exe文件 wmiexec.vbs(通过135端口执行命令) set ww=createobject("wbemscripting.swbemlocator") set cc=ww.connectserver("172.20.241.218","root/cimv2","user","password") Set pp=cc.get("Win32_Pro

    关键词: vbs, 脚本, 执行命令, 135端口
  • VBS教程:函数-IsArray 函数

    VBS教程:函数-IsArray 函数 2015-04-09

    IsArray 函数 返回 Boolean 值指明某变量是否为数组. IsArray(varname) varname 参数可以是任意变量. 说明 如果变量是数组,IsArray 函数返回 True:否则,函数返回 False.当变量中包含有数组时,使用 IsArray 函数很有效. 下面的示例利用 IsArray 函数验证 MyVariable 是否为一数组: Dim MyVariableDim MyArray(3)MyArray(0) = "Sunday"MyArray(1) =

    关键词: 函数, S教, 教程, 程函, , 数I, y函
  • 用vbs读取远程计算机上的文本文件的代码

    用vbs读取远程计算机上的文本文件的代码 2015-04-09

    问: 您好,脚本专家!如何读取远程计算机上的文本文件? -- BM 答: 您好,BM.我们得承认:我们在利用您和您的问题来达成我们自己的邪恶目的.本周早些时候我们回答了有关如何读取一组文本文件最后一行的问题:在回答中,我们承诺将会说明如何使用 FileSystemObject 对远程计算机执行同样的功能.这并无恶意,只是为了维护本专栏的精神,除非有人提出有关对远程计算机上的文本文件进行处理的问题,我们是不会做出回答的.于是我们选择了您的问题. 因此,没错,我们在利用您.但如果往好处想,您的问题得

    关键词: 用vbs读取远程计算机上的文本文件的代码
  • VBS实现工作表按指定表头自动分表

    VBS实现工作表按指定表头自动分表 2015-04-09

    下面的VBS脚本就是实现的工作表按指定表头(由用户选择)自动分表功能.需要的朋友只要将要操作的工作表拖放到脚本文件上即可轻松实现工作表分表 在我们实际工作中经常遇到将工作表按某一表头字段分开的情况,我们一般的做法是先按指定表头排序然后分段复制粘贴出去,不但麻烦还很容易搞错. 下面的VBS脚本就是实现的工作表按指定表头(由用户选择)自动分表功能.需要的朋友只要将要操作的工作表拖放到脚本文件上即可轻松实现工作表分表(暂时只适用于xp系统): '拖动工作表至VBS脚本实现按指定表头自动分表 On Er

    关键词: 工作表, 自动分表
  • 用vbs实现取消隐藏文件夹中的所有文件

    用vbs实现取消隐藏文件夹中的所有文件 2015-04-08

    问: 您好,脚本专家!如何运行脚本取消隐藏文件夹中的所有文件? -- GA 答: 您好,GA.您知道我们中的一位脚本专家在年少时和邻居家的其他小孩花费无数的时间玩各种捉迷藏.事实上,这位脚本专家仍清晰地记得躺在浅沟中,让其他组的人从他身上走过,却不知道他就在那儿.(这种方法如此奏效,以致于他正认真考虑在自己的办公室挖一条浅沟,这样有人找他的时候就可以躲在浅沟里了.) 回到那些日子,您不会想要一种能自动取消隐藏一切的脚本:这种脚本可能很有用,但却没什么乐趣.但作为系统管理员,您大概并不愿意与文件玩

    关键词: 用vbs实现取消隐藏文件夹中的所有文件
  • VBScript压缩单个文件为zip格式

    VBScript压缩单个文件为zip格式 2015-04-07

    将单个文件压缩为zip格式的vbs代码,需要的朋友可以参考下 On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenTextFile(targetfile,2,True) fp.Write Chr(80) & Chr(75) & C

    关键词: 压缩, zip
  • 利用WMI实现系统补丁检测分析

    利用WMI实现系统补丁检测分析 2015-04-05

    非常不错的应用,获取当前系统补丁的版本来判断补丁. WMI是Windows 2000/XP管理系统的核心:对于其它的Win32操作系统,WMI是一个有用的插件.WMI以CIMOM为基础,CIMOM即公共信息模型对象管理器 (Common Information Model Object Manager),是一个描述操作系统构成单元的对象数据库,为MMC和脚本程序提供了一个访问操作系统构成单元的公共接口.Windows 管理规范 (WMI) 是可伸缩的系统管理结构,它采用一个统一的.基于标准的.可

    关键词: wmi, 检测, 系统补丁
  • 用vbs清空iis log 中自己登录ip的记录

    用vbs清空iis log 中自己登录ip的记录 2015-04-05

    作用就是清除iis中的自己登陆ip的记录,方便黑友们使用 Option Explicit Dim sourcefile,ipaddress,objargs const destfile="tempfile" Const ForWriting = 2 Dim Text Dim fso,objNet,ServiceObj Dim txtStream, txtStreamOut Set objArgs = WScript.Arguments If objArgs.Count = 2 Then

    关键词: vbs, IP记录, iis log
  • 写个设置命令的VBS脚本代码

    写个设置命令的VBS脚本代码 2015-04-05

    安装成功后,可通过在程序.文件或文件夹上点右键->发送到->系统命令来设置一个命令,然后在运行中就可以输入该命令打开文件了. '作者:刘先勇 (Eric Liu) '将以下代码复制并保存为"系统命令.VBS",并运行安装. '安装成功后,可通过在程序.文件或文件夹上点右键->发送到->系统命令来设置一个命令,然后在运行中就可以输入该命令打开文件了. '脚本运行一次后在右键菜单中增加从这里运行CMD的快捷方式,还增加查找目标文件快捷方式 'On Error Res

    关键词: vbs, 设置命令
  • vbs实现的定时关机.重启的脚本和程序

    vbs实现的定时关机.重启的脚本和程序 2015-04-04

    用vbs实现的定时关机重启的脚本,没想到haiwa2005年就写了这个东西,原理就是调用了shutdown和vbs的延时功能 将下面代码存为vbs文件,如:shutdown.vbs,然后双击或在文件上点右 键选择以命令提示打开,如果到了你设置重启的时候,系统会出现关机的对话 框. 直接下面代码程序会出现关机的对话框,最后的回车注释掉了,正常使用 时,请去掉注释符. 以下代码在window 2000 下通过. '定时关机或重启的脚本,在windows 2000下通过 ' code by haiwa

    关键词: vbs, 关机, 重启
  • VBS教程:函数-DateSerial 函数

    VBS教程:函数-DateSerial 函数 2015-04-03

    DateSerial 函数 对于指定的年.月.日,返回 Date 子类型的 Variant. DateSerial(year, month, day) Arguments Year 从 100 到 9999 之间的数字或数值表达式. Month 任意数值表达式. Day 任意数值表达式. 说明 要指定日期,如 1991 年 12 月 31 日,DateSerial 函数中每个参数的取值范围都应该是可接受的:即日的取值应在 1 和 31 之间,月的取值应在 1 和 12 之间.但是,也可以使用表示

    关键词: 函数, S教, 教程, 程函, , 数D, l函
  • VBS 正则判别素数(质数)

    VBS 正则判别素数(质数) 2015-04-03

    利用正则判别素数,来源于网络,神人,喜欢vbs的朋友可以参考下 利用正则判别素数,来源于网络,神人! Set regex = New RegExp regex.Pattern = "^1?$¦^(11+?)\1+$" For i = 1 To 100 If Not regex.Test(String(i,"1")) Then WScript.Echo i End If Next 看到标题你一定会不屑一顾,枚举质数谁不会? 复制代码 代码如下: For i = 1 T

    关键词: vbs, 正则, 素数, 质数
  • VBScript把json字符串解析成json对象的2个方法

    VBScript把json字符串解析成json对象的2个方法 2015-04-03

    这篇文章主要介绍了VBScript把json字符串解析成json对象的2个方法,本文通过MSScriptControl.ScriptControl和jscript实现,需要的朋友可以参考下 asp/vbscript将json字符解析为json对象的方法,如果asp使用jscript来编写服务器端代码操作json字符串就简单了,vbscript需要MSScriptControl.ScriptControl或者服务器端的jscript来作为中间体才行. vbscript将json字符解析为json对

    关键词: json, VBScript
  • VBS教程:对象-正则表达式(RegExp)对象

    VBS教程:对象-正则表达式(RegExp)对象 2015-04-02

    正则表达式(RegExp)对象 提供简单的正则表达式支持功能. 说明 下面的代码说明了RegExp对象的用法: Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' 建立变量. Set regEx = New RegExp ' 建立正则表达式. regEx.Pattern = patrn ' 设置模式. regEx.IgnoreCase = True ' 设置是否区分字符大小写. regEx.Global = True ' 设

    关键词: S教, 教程, 对象, 正则, 表达, 达式, , 则表, 程对, 象正, 式R, p对
  • 利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码第1/2页

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

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

    关键词: vpn, vbs, 发送邮件, VBS代码, 肉鸡, 挑选速度快

iOS 开发

Android 开发

Python 开发

JAVA 开发

开发语言

PHP 开发

Ruby 开发

搜索

前端开发

数据库

开发工具

开放平台

Javascript 开发

.NET 开发

云计算

服务器

Copyright (C) codeweblog.com, All Rights Reserved.

CodeWeblog.com 版权所有 闽ICP备15018612号

processed in 0.044 (s). 9 q(s)