VBS版百度贴吧代码格式化调整工具

2016年07月27日 101 阅读

百度抽风，老是把吃掉行首空格，导致代码没有缩进。可以用以下方法来解决： 1、在百度贴吧切换到经典版 2、用以下脚本把代码中的制表符和空格替换成unicode编码格式 复制代码 代码如下: "cscript //nologo C: est est.vbs C: est est.bat Set objFSO = CreateObject（"Scripting.FileSystemObject"） Set objFile = objFSO.OpenTextFil...

运行bat时隐藏cmd窗口的方法（bat隐藏窗口 隐藏运行bat文件）

2016年07月27日 103 阅读

这里脚本之家简单的整理下常用方法，方便大家使用。都是通过vbscript的代码。运行bat时隐藏cmd窗口的方法 可以编辑一个vbs脚本，在其中以隐藏窗口运行批处理程序。 复制代码 代码如下: Set ws = CreateObject（"Wscript.Shell"） ws.run "cmd /c 批处理程序名",vbhide 将上面代码拷贝到记事本中，保存为"runbat.vbs"或者其它的名字（扩展名必须是.vbs），然后点击运行生成的脚本runb...

读取Access数据库的vbscript代码打包下载

2016年07月27日 100 阅读

效果如图所示:核心代码:复制代码 代码如下: Option Explicit Dim arrTables（ ）, i, idxTables, intValidArgs Dim blnContent, blnFieldNames Dim objConn, objFSO, objRS, objSchema Dim strConnect, strHeader, strOutput Dim strFile, strResult, strSQL, strTable ...

网络接口利用率监控VBS脚本代码（Windows）

2016年07月27日 107 阅读

复制代码 代码如下:"程序名称: btlwchk_netinterface.vbs "程序用途: 监测windows主机网络接口利用率 "创建日期: 2011-09-1 "作者信息: zhangkai "运行环境: vbs "处理参数 MonSubject="NetInterface" Set Args=WScript.Arguments If （Args.Count<1） Then Wscript.Echo MonSubject & " -1:co...

用vbs读取Excel文件的函数代码

2016年07月27日 110 阅读

核心代码 复制代码 代码如下: Function ReadExcel（ myXlsFile, mySheet, my1stCell, myLastCell, blnHeader ） " Function : ReadExcel " Version : 2.00 " This function reads data from an Excel sheet without using MS-Office " " Arguments: " myXlsFile [...

从XML文件中获取信息的vbs代码

2016年07月27日 104 阅读

复制代码 代码如下: "***************************************************************** "** Script: getxmlelement.vbs "** Version: 1.0 "** Created: 1/8/2009 10:58PM "** Author: Adriaan Westra "** E-mail: "** Purpose / Comments: "** Get an e...

将信息保存到一个XML文件的vbs代码

2016年07月27日 117 阅读

This script demonstrates how to save information to a xml file with the use of MSXML. The example xml file is used for the photo album on the site. 复制代码 代码如下: "***************************************************************** "** ...

vbscript Registry 注册表操作实现代码（读写删除）

2016年07月27日 92 阅读

VBScript Code: 复制代码 代码如下: " Create a WSH Shell object: Set wshShell = CreateObject（ "WScript.Shell" ） " " Create a new key: wshShell.RegWrite "HKCUTestKey", "" " Create a new DWORD value: wshShell.RegWrite "HKCUTestKeyDWordTestVal...

WMI StdRegProv 通过wmi操作注册表的vbscript实现代码 （本地或远程）

2016年07月27日 99 阅读

Because of its length, only the code for the function itself is shown on this page. The demo script that shows how to use this function is available as a separate download. 复制代码 代码如下: Function ReadRegValue（ myComputer, myRegPath, ...

bookfind 通过ISBN序号获取图书连接的书名与作者的vbs代码

2016年07月27日 115 阅读

核心代码:复制代码 代码如下: If WScript.Arguments.UnNamed.Count <> 1 Then Syntax If WScript.Arguments.Named.Count > 1 Then Syntax blnTd = False If WScript.Arguments.Named.Count = 1 Then If UCase（ WScript.Arguments.Named（ 0 ） ） = "/TD"...

VBS脚本和BAT批处理删除自身的方法

2016年07月27日 114 阅读

VBS脚本和BAT批处理自身删除的方法（自杀） 删除自身之：VBS 把下面的脚本保存为selfkill.vbs或selfkill.vbe： 复制代码 代码如下: Set fso = CreateObject（"Scripting.FileSystemObject"） f = fso.DeleteFile（WScript.ScriptName） WScript.Echo（ WScript.ScriptName） 然后运行它，是不是发现selfkill.vb...

VBS字符串的内部实现

2016年07月27日 103 阅读

最近对 VBS 字符串 Chr（0） 注①截断讨论得比较多，看来有必要介绍一下 VBS 字符串的内部实现。Demon 友情提示：本文需要一些 C 语言和 Windows 编程的知识，VBScript 初学者慎入。 VBS 是基于微软的 ActiveX/COM 技术实现的，而 COM 对象为了做到支持任何语言，定义了一系列通用的数据类型，微软称之为自动化对象类型（Automation data types），其中之一就是 BSTR。VBS 在内部是以 BST...

ASP/VBScript中CHR（0）的由来以及带来的安全问题分析

2016年07月27日 100 阅读

该字符标识着字符串的结束，也称作null-terminated，这个给脚本编程尤其是ASP编程带来了一定的麻烦，很多人可能会问为什么要保留这个特殊字符，我们可以追溯到编写操作系统的语言之一C语言，学过C/C++的童鞋可能知道，在字符串中标识一个字符串结束靠的就是结尾的（NULL或者0），否则不能称作为字符串，只能说是字符串数组，任何对于字符串操作的函数如果传入的字符串丢掉了这个结束NULL字符，都有可能会出现异常。 复制代码 代码如下: char strb...

VBS正则表达式对象的MultiLine属性

2016年07月27日 112 阅读

在 Introduction to Regular Expressions（正则表达式简介） 一章中的 Backreferences（向后引用）一节：复制代码 代码如下: "使用上面所示的正则表达式，下面的 JScript 代码可以使用子匹配信息，在一个文字字符串中将连续出现两次的相同单词替换为一个相同的单词： var ss = "Is is the cost of of gasoline going up up？. "; var re = /（[a-z...

VBS创建正则表达式对象的两种方法

2016年07月27日 108 阅读

一直以来，我都是用 New RegExp 来创建正则表达式对象的： Set regex = New RegExp然而最新才发现 VBS 的正则表达式对象也可以这样创建： Set regex = CreateObject（"VBScript.RegExp"）貌似我看过的 VBScript 书籍没有一本介绍过这种写法，当然，书上没写的东西还有很多。 既然提到了正则表达式，那么就顺便说一下，VBS 的正则表达式对象是支持 MultiLine 模式的，对象有一个 ...

VBS实现将字符串写入剪切板的实现代码

2016年07月27日 114 阅读

函数代码: 复制代码 代码如下: 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） .copy End With End S...

用VBScript实现压缩目录中的所有文件（Zip）

2016年07月27日 106 阅读

复制代码 代码如下:On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile（path） Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists（path） Then Msgbox "目标文件夹不存在！" Else objFSO.CreateFolder targ...

用VBScript实现解压缩目录中的所有文件（Zip）

2016年07月27日 118 阅读

复制代码 代码如下: On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile（path） Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists（path） Then Msgbox "目标文件夹不存在！" Else objFSO.CreateFolder targetpath & Righ...

VBScript压缩单个文件为zip格式

2016年07月27日 110 阅读

复制代码 代码如下: On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject（"Scripting.FileSystemObject"） targetfile="D: mp.zip" Set fp=fso.OpenTextFile（targetfile,2,True） fp.Write Chr（80） & Chr（75） & Chr（5） & Chr（6） & String（...

使用脚本自动压缩指定目标下的所有文件的代码

2016年07月27日 130 阅读

为了解决这类问题，我使用Visual Basic Scripting设计了一个脚本，可以自动达到这个目标。在本脚本中，自动压缩所有文件。为了避免将脚本自己也压缩进去，使用了一些判断。 复制代码 代码如下: call main（） Sub main（） Dim fs "文件系统。 Dim f "folder Dim fc "files Dim s "string Dim ws "SHELL。 Dim subfs Dim fi "创建SHELL。 Set ws...