VBS
关注
分享
扫一扫
文章平均质量分 91
笑虾
一壶泪，暗淡醇香味。
化作万樽与谁对？
忧举杯，乐举杯，地老天荒只一醉。
欲哭时，男儿无泪，千般相思苦。
杯中汇……
展开
-
VBS 学习笔记
常用语法声明变量dim arr '声明变量arr = split("123,456", ",") '切字符串msgbox arr(0) '数组引用字符串拼接msgbox "用 & 符连接 " & Chr(13) & "用 Chr(13) 回车"遍历dim原创 2019-01-28 11:05:46 · 2442 阅读 · 1 评论 -
显示隐藏文件 和 显示隐藏扩展名
XP隐藏和显示：文件Dim WSHShellSet WSHShell = WScript.CreateObject("WScript.Shell")If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 ThenWSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explore原创 2020-12-28 14:05:45 · 363 阅读 · 0 评论 -
VBS 按键 SendKeys：启动应用，执行热键
不完美WshShell.Run "Postman" '启动 Postman' 判断标题为 Postman 的窗口是否已经激活While WshShell.AppActivate("Postman") = false wscript.sleep 5000Wend暂时没能实现启动 + 执行热键。只好先打开Postman再执行下面on error resume nextDim WshShell Set WshShell=WScript.CreateObject("WScript.Shell"原创 2020-08-03 20:38:45 · 3811 阅读 · 0 评论 -
游戏数据更新检查
类型|存放数据的文件夹（相对路径）类型1|gameData\95vs\origin类型2|gameData\loude\origin类型3|gameData\trid\origin类型4|gameData\xway\origin读取上面的数据，遍历每个类型对应的文件夹，检查最近更新的时间。并显示Dim FSO, Folder, listFilePath, currentpathSet FSO = CreateObject("Scripting.FileSystemObject")curre原创 2020-06-23 22:12:15 · 1070 阅读 · 0 评论 -
BMFont _Assistant 生成位图字体/动态字体的辅助脚本
大家好，我是笨笨，笨笨的笨，笨笨的笨，谢谢！BMFont _Assistant 是一个用于辅助bmfont的小脚本。bmfont_Assistant 源码'---------------------------------------------------'大家好，我是笨笨，笨笨的笨，笨笨的笨，谢谢'bmfont_Assistant by Jerryjin 2...原创 2015-11-29 00:23:24 · 2203 阅读 · 0 评论 -
Ipad 与 PC 内网传输文件
利用 Python 的 SimpleHTTPServer 实现内网传输吐槽：经常想向ipad发张图，要打开这个打开那个，很烦。虽然说有QQ等工具，但还是不够便利。 不如直接把当前目标变成一个网站，ipad上直接访问不就行了。 正好 python 就提供了这个功能。可以一条命令就创建一个http服务。 并把这个功能加在右键上，这样只要右键一点。就可以在其它设备上像浏览网页一样访问这个目录了。开工...原创 2017-02-02 20:27:46 · 8930 阅读 · 0 评论 -
MAC地址与IP绑定_辅助脚本.vbs
'-------------------------------------------------------'公司有一二十台电脑，今天要做个MAC绑定，免得有人蹭网。'说多不多，说少不说。写有脚本，辅助一下。'MAX和IP的对应关系写在脚本当前目标的 ip_list.txt 中，一行一个MAC,IP。'MAC和IP用逗号分隔。'2013-12-30 by笨笨 广州乐天'------...原创 2018-10-24 11:03:23 · 747 阅读 · 0 评论 -
设置 MAYA 2013 界面 语言
on error resume next '系统环境变量的数组对象Environment("user")或Environment("system")set sysenv = CreateObject("WScript.Shell").Environment("system") '如果是中文就切成英文，如果是英文就切成中文If (sysenv(&原创 2018-10-25 09:42:43 · 510 阅读 · 0 评论 -
汉字2Unicode
'将汉字转为10进制Unicode码！可用Alt + 小键盘数字输出。'前提是要在 Unicode 文本中。比如QQ聊天窗口 word文档 '执行后结果自动复制到剪切板原创 2016-04-09 09:48:36 · 468 阅读 · 0 评论 -
vbs 合并 excel 表格
项目进入到要测试数据的阶段了。从数据库导出一堆 excel 表，但看它们就这样散着真不舒服。所以合并一下吧。在网上搜了半天，竞然都没有找到现成通用的VBS脚本，真坑爹。只能自己来了。Dim source_XLS,final_XLS_name,fileConut,xls_name'----------------------------------- 配置参数 -----原创 2016-03-05 18:49:04 · 3609 阅读 · 0 评论 -
注册当前目录为 ACCESS 2007 信任位置
'----------------------------------------------声明变量-初始化数据-----------------------------------------------'作者： 笨笨'Q Q : 112177423'时间： 2010-12-11 19:27'功能： 将当前目录测试成 ACCESS 2007 的信任位置'原因： 给果果用 '---...原创 2011-08-28 09:52:00 · 883 阅读 · 0 评论 -
VBS 自动 注册
前几天发现个邪恶的论坛，于是我批判性的进去看看。我要看清它到底有多邪恶，可是论坛有等级限制，可以用推广注册的方法升级。于是写了这个。当然最后也没用上，出错的。不过大概的流程是这样，也许以后到的到。当VBS的学习笔记吧。 option Explicit'*************** 测试用代码 **************'MsgBox "rnd_str" & "@hotm...原创 2012-02-20 08:46:45 · 1372 阅读 · 0 评论 -
VBS 实现 通过 ISBN 查信息
公司要整理图书，于是想到有ISBN码又有网络，难道还要一个字一个字打么？于是做了这个。哈哈'通过 ISBN 获取信息'Copyright (C) 2012 笑虾Sub getBooksDetail() '从中国图书网通过 ISBN 获取书的详细信息 Dim ie Dim msgStr Set ie = CreateObject("internetexplor原创 2012-10-25 13:20:19 · 1568 阅读 · 1 评论 -
拖放转换 批量转换 xls 2 txt (使用HTA实现UI)
'----------------------------------------------------------'拖放转换：'支持拖放到VBS上将xls转换成txt'批量转换：'将指定目录下的xls批量转换为txt。（支持遍历子目录）'----------------------------------------------------------'...原创 2015-09-18 09:40:13 · 1168 阅读 · 0 评论 -
VBS 调用 HTA 实现进度条加载
因为工作需要前几天做了个导表脚本 XLS2TXT但是当表很多时有个纠结的问题，不显示EXCEL会让人不知道进展，还以为卡死了。显示excel 不停的刷表格，很不美观。我是无法接受这种情况的，所以硬着头皮做了个进度条。这里只是进度条的部分，还没有放进导表工具里。些脚本的编写中学到的知识点如下：1、VBS中JS中环境变量的应用2、VBS调用MSHTA 只所以没有写临时文件...原创 2015-09-27 10:40:05 · 4087 阅读 · 0 评论 -
VbsEdit 不能调试了
WIN7 x64 上 VbsEdit 不能调试了。找了N多版本都不行。急煞寡人了。报错如下：“Failed to load pdm.dll. Ensure that pdm.dll is installed on this computer”。寡人把 Microsoft Script Debugger 也给它装上了。但注册时说模块“pdm.dll”已加载。但对DllRegister原创 2013-10-19 11:04:37 · 4073 阅读 · 0 评论 -
VBS 发邮件
N年前刚开始玩VBS的时候就想试试发邮件的功能。结果后来失败了。最近在群里看到又有人发了发邮件的代码，于是也玩了一下。最后成功了。这里记录下，QQ邮箱的安全策略，在使用smtp 客户端时要使用独立的授权码（也就是密码，要发短信获取）。如果改了QQ密码或邮箱密码，这个授权码就会失效，要重新获取。QQ企业邮箱好像没有这个设置，于是不知道怎么用。直接用邮箱密码试了不行。附件试了...原创 2016-02-01 21:42:04 · 3275 阅读 · 0 评论 -
查杀进程 VBS
今天一位狐朋狗友说他老婆玩游戏入迷了，想让她的游戏运行不了。VBS短小精干用来干这种卑劣的事，最合适不过：（注释已经很详细了，就不多说了）On Error Resume Next'-----------------初始化，可以自定义的数据后都有说明，要重原创 2011-08-28 09:37:58 · 1335 阅读 · 0 评论