vbs专题
VBS Excel插件的安装与卸载
可以通过下面的安装与卸载脚本，将xxxxxxxx.xlam AddIns（插件）安装或卸载。 注意，在安装或卸载前需要退出所有启动的Excel文件。 下面的代码复制粘贴到文本文件，替换好文件名称，另存为.vbs文件，并将xlam文件放到同一个文件夹，双击该vbs文件即可。 安装脚本如下 install.vbs On Error Resume NextDim installPath Dim
vbs批量修改文件名
Dim sFolders, Ext, message, filenamesFolder = "D:\图片库\随机样本"Dim fs, oFolder, oFiles, oSubFoldersset fs = CreateObject("Scripting.FileSystemObject")set oFolder = fs.GetFolder(sFolder) '获取文件夹set
VBS脚本获取系统特殊目录
方法1： set fs=wscript.createobject("scripting.filesystemobject") set wshshell=wscript.createobject("wscript.shell") osdir=wshshell.expandenvironmentstrings("%systemroot%") set f =fs.getfolder(osdir)
vbs 关闭excel的piovt table自动刷新
代码如下（拷贝，将文件后缀修改为.vbs即可）： 注：如果在运行时包字节错误，此问题是vbs文件编码在电脑中没有。简单的解决办法就是修改文件的编码格式（用text打开，另存为，选择编码格式。这里可以挨个选择，看那个可以运行就保存哪个）。另外一种就是在电脑的Region里面去配置，安装和vbs编码相同的环境 Function FilesTree(sPath) dim oExce
Excel快速判断大量身份证性别,VBS代码
身份证判断性别的原理就是,身份证倒数第二位是单数表示是男的,单数是女的 可以用IF公式来判断,但是需要下拉,如果几百上千条数据还好,要是上万就不好拉取了,如果数据太多,可以用VBA代码判断 =IF(MOD(VALUE(MID(A1,17,1)),2)=0,"女","男")原理:MID(A1,17,1) 可以提取出身份证号码的第17位数字,也就是倒数第二位。VALUE() 函数将这个字符转换为
使用梦畅闹钟，结合自定义bat、vbs脚本等实现定时功能
梦畅闹钟-每隔一段时间运行一次程序 休息五分钟bat脚本（播放音乐视频，并锁屏） chcp 65001echo '回车开始休息5分钟'pauseexplorer "https://www.bilibili.com/video/BV1RT411S7Tk/?p=47"timeout /t 3 /nobreakrundll32.exe user32.dll,LockWorkStatio
vbs脚本指定时间禁止运行指定程序
通过开机启动vbs脚本的办法,来检测系统运行的程序,并停止自己想要停止的程序, 首先要到要知道这个程序在任务管理器的名字,然后定义变量并赋值禁止程序的名字,以禁止英雄联盟为例, 一.紫色字体的脚本全部复制放到一个.vbs结尾的文件里,第一句是定义变量的地方,下边有调用禁止这个程序的使用说明 二.然后dos命令regedit进入注册表 三.找到这里:[HKEY_LOCAL_MACHINE\S
VBS与CSBS的区别（备份服务） CSDR与CSHA与VHA的区别（容灾服务）
VBS(云硬盘备份服务), CSBS(云服务器备份服务), CSDR(云服务器容灾服务), VHA(云硬盘高可用服务), CSHA(云服务器高可用服务) CSDR与CSHA与VHA的区别（容灾服务） VBS与CSBS的区别（备份服务） 注意:在进行云硬盘备份时，云硬盘所属的云服务器上不能同时运行云服务器备份。也就是说，不能在云硬盘备份时进行所属云服务器备份，两者此时不能同时进行
VBS通过注册表增加新功能
REGEDIT4 ;Group - AutoPlay ;-------------------------------------------------------------------------- [HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/explorer/Advanced/AutoPlay] "
使用VBS写一个自动登录QQ的程序
Dim WSet W=WScript.CreateObject("WScript.Shell")W.run "D:\QQ\Bin\QQScLauncher.exe"WScript.Sleep 3*1000W.AppActivate "QQ2018"WScript.Sleep 500W.SendKeys "QQ账号"WScript.Sleep 500W.SendKeys "{TAB}
使用vbs .bat和java编写一个开机截屏并发送给自己邮箱的功能
首先要保证执行电脑中已经配置好java环境，因为我们执行的是java文件。 然后在java中写出截屏代码， Dimension screenSize = Toolkit.getDefaultToolkit().getScreenSize();Rectangle screenRectangle = new Rectangle(screenSize);Robot robot = n
超强幻灯片播放 HTC (VBS)
《超强幻灯片播放脚本（VBS）》是在2003年11月完成的，当时是我自己网站上图片浏览的一个附加功能。在CSDN发表后被很多网站转载。如今已经过去两年了，再看看这段代码觉得还是挺实用的。不过缺点也不少，最主要是使用不太方便。为此又重新将其编写成HTC组件，这样使用就更方便了。另外加入了几个可控制的属性，详情请查看注释中的属性说明。如有问题请留言或发邮件。 （2005-10-24 10:10）
超强幻灯片播放脚本（VBS）
<HTML> <HEAD> <TITLE>夜雨休闲 - 幻灯片播放</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"> <LINK HREF="Images/Style.css" REL="stylesheet"> </HEAD> <SCRIPT language="VBSc
cmd vbs写保护进程
查询cmd.exe有多少个进程，如果少于2个则执行运行后台运行vbs脚本。EQU - 等于NEQ - 不等于LSS - 小于LEQ - 小于或等于GTR - 大于GEQ - 大于或等于#count.cmd脚本如下：@echo off:sssTIMEOUT /T 3set /a n = 0for /f %%i in ('tasklist ^|findstr /c:"cmd.exe"') do
没有.vbs的脚本引擎的解决办法
没有扩展名.vbs的脚本引擎的解决办法 激活windows，但是windows PowerShell(管理员)运行slmgr.vbs /upk删除秘钥时报错，运行wscript.exe slmgr.exe报错“没有扩展名.vbs的脚本引擎”（图一），而且默认.vbs文件是用记事本运行。猜测是.vbs文件关联程序出错（图二），.vbs文件应该与C:\Windows\System32\wscript
slmgr.vbs帮助说明-来自程序执行命令输出结果
slmgr.vbs帮助说明-来自程序执行命令输出结果 Microsoft (R) Windows Script Host Version 5.8版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。命令参数的组合无效。Windows 软件授权管理工具用法: slmgr.vbs [MachineName [User Password]] [<Option>]
VBS是基于Visual Basic的脚本语言，全称是：Microsoft Visual Basic Script Edition
VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。 其语言类似Visual Basic（VB） 中文名 微软公司可视化BASIC语言-脚本版 外文名 Microsoft Visual Basic Script Edition 简 称 VBSc
VBS 调用 Windows Win32 API
首先下载通用库：win32exts for VBScript： https://github.com/tankaishuai/win32exts_for_VBScript 将win32exts_dll.dll 放入 搜索目录目录下注册即可。仅有此一个文件。 Regsvr32 /s win32exts_dll.dll win32exts调用的基本用法如下： 首先初始化对象
vbs脚本大全，配有实例
1 VBS取得本机IP strComputer = "." Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2") Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfigura
antiautorun v1.0.vbs
' filename："antiautorun v1.0.vbs" ' function：自动删除"autorun.inf"文件，并打上免疫补丁 ' writer：t0nsha @070812 WinXPSP2测试通过！ ' Email：liaodunxia{at}gmail.com msg = MsgBox ( " 本脚本将删除各分区根目录下的autorun.inf文件，而
vbs使用Excel.Application组件读写excel文件
vb创建xls表，并写入内容 Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象 Set ExcelBook = ExcelApp.Workbooks.Add Set ExcelSheet = ExcelBook.Worksheets(1) '添加工作页ExcelSheet.Activate ExcelApp.DisplayAl
VBS基础教程（第二版）
※[转帖]VBS基础教程 ◎Vbs脚本编程简明教程之一—为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数
VBS基础教程（第一版）
跟我学编程系列 原黑白新区记忆碎片的帖子！转贴上来，供大家学习！！！ 发现大部分黑白的朋友都不会编程, 这可不是件好事, 所以这次我就写了一个简单的编程教程, 讲一下VBScript. 主要面向菜鸟, 懂得编程的朋友就不要浪费时间了, 如果你想接触以下VBScript也可以, 但既然有编程基础推荐直接去找一些参考书来读, 会比较快. 什么是VBScript呢? VBScript的全称是:Micro