再次发布我的作品！！ 这次是雨云病毒专杀，一个专门用于清除雨云病毒的专杀软件。 根据雨云病毒源代码对应写成，总共制作用时（哎呀**失败，我也忘了时间了，总之时间很长我很辛苦就是了，哈哈）

Vivid BAD SQUAD（简称VBS）是《世界计划 彩色舞台 feat. 初音未来》中的一个重要团体，由小豆泽心羽、白石杏、东云彰人和青柳冬弥四位成员组成。这个团体的成员们性格各异，但共同拥有着对音乐的热爱和追求。

求问大佬：vbs如何制作进度条？

一直想学会vbs调用win32API（主要是想搞坏事XD），但以前自己怎么学也学不明白，现在对照着微软的api文档和dwx的文档终于搞明白了

就和python一样，到时一键安装就可以继续使用vbs来编写脚本，已经在做了。不过介于现在24h2这么高的配置要求，相信windows新版的系统不会那么容易普及，我都还在死守win7

如题，例如： 对象Obj有 A1,A2,A3 这种规律属性名的属性，比如现在简单做个循环，分别获取 A1,A2,A3，但是Obj.A&1这种语法是错误的，我刚接触VBS，请问使用什么语法或者方法能够根据字符串名称来调用 Obj的 A1~3 属性呢？

工作需要~win10 要用ie浏览器，用的一个vbs"CreateObject("InternetExplorer.Application").Visible=true",被垃圾360浏览器安装后就不可以用了，报错错误800A01AD，求能人义士解救

为什么我写的无限按“1”的vbs脚本在qq输入能工作而在造梦西游3里又无反应呢，字母可以。 set ws=createobject("wscript.shell") do ws.sendkeys "{L}" wscript.sleep 20 ws.sendkeys "{1}" wscript.sleep 200 loop

电脑被VBs代码锁机了，咋办

今天在我朋友的电脑了弄了个office 2007兼容包，在弄个vbs，再在桌面创建了这个vbs脚本快捷方式，然后把图标该为office 2007兼容包图标，然后把它命名为“Microsoft Office 2007.exe”，再下载Windows 7快捷方式去除小箭头程序，去除所有小箭头，就等着他中计了 打开后：

#$language = "VBScript" #$interface = "1.0" crt.Screen.Synchronous = TRUE dim str,result,Currentdate,CurrentTime,i,timestr str=" test result: " result="OK!" i=999999 j=0 Set ws = CreateObject("WScript.Shell") Sub Main do until i=0 crt.Screen.Send "admin" crt.Screen.Send chr(13) crt.Sleep 2000 crt.Screen.Send "ssdx123" crt.Screen.Send chr(13) crt.Sleep 2000 j = j + 1 crt.Screen.Send j crt.Sleep 1000 crt.Screen.Send chr(13) crt.Sleep 2000 crt.Screen.Send "ping 1.0.1.28" crt.Screen.Send chr(13) crt.Sleep 5000 ws.SendK

我想写一个切换窗口程序的脚本 但是现在只能两个窗口切换 我想三个窗口切换怎么办 怎么才能实现多按一次tab

我用西门子的wincc连接，用的是vbs，sql版本是2019，到conn.open就不执行了，也就是链接不上

我用ai写了个vbs程序，默认打开方式程序是windows based script host，双击是没问题的，能正常运行。但是用win10的计划程序自动运行这个软件的时候，一直会弹出“如何打开这个文件”，这个该怎么弄呢

vbs只能恶搞？只有msgbox？ 看看vbs吧到底走了多少老人 又有多少人死潜了 不是vbs功能不强大 是你只会msgbox！！！

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

resizeWorkingPane这个方法是如何使用的呀？在网上没有找到(=ﾟДﾟ=)

我在客户机上做了一个VBS脚本，读取计算机名称。 strComputerName = CreateObject("WScript.Network").ComputerName WScript.Echo strComputerName WScript.Quit 执行正常。 通过一个BAT文件启动，也正常。 我在主机上使用PSexec工具远程启动BAT文件，显示执行完成，但是客户机上没有反应。 请大神帮忙看看哪里有问题！

一楼防吞

我想把D盘的文件夹搬运到C盘的文件夹里，第一张图片文件夹名stuff的成功了，而第二张图片里名为题库的文件夹就一直没有成功，请问是中文在这里是需要用什么特殊符号吗#vbs##编程##U盘复制#？

在线等

在找自动生成文件夹的批命令时遇到的，不会用，麻烦帮忙看看，VBS版一键保存代码为批处理工具 VBS版一键保存代码为批处理工具

上次讲到folder对象，现在来讲folderitem对象 set shellapp=createobject("shell.application") set folder=shellapp.namespace("c://windows") folderitem对象可以是文件夹，也可以是文件 以下是获取folderitem对象的几种办法 1. set items=folder.items for each item in items 'item就是folderitem对象 next 2. set item=folder.parsename("system32") 3. set item=folder.self'item就是folder 以下是folderitem对象的方法和属性 1.application属性（只读） 官方解释： 属性返回包含 WebBrowser 控件的应用程序支

各位大佬，这是哪的错误求解

各位老哥好，今天找通义千问写的代码遇到了如图所示上的报错。 代码全文如下： ' 获取脚本当前所在目录的绝对路径 Dim wshShell Set wshShell = CreateObject("WScript.Shell") strCurDir = wshShell.CurrentDirectory Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False ' 打开输入文件 Const INPUT_FILE_PATH = "1.csv" Set objWorkbookInput = objExcel.Workbooks.Open(strCurDir & "\" & INPUT_FILE_PATH) Set objWorksheetInput = objWorkbookInput.Worksheets(1) ' 创建新的Excel

如题。 咱是门外汉，27号去玩魔兽世界 有时候需要出门 所以需要一个能自动原地跳的vbs防止掉线

讨论:vbs如何实现多线程并且实现线程之间的通信?

截图代码已经写好了，但是不知道怎么把剪贴板中的图片变成文件并加密成RAR。 data = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000C00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000450E6EDA016F0089016F0089016F0089016F0189006F008963701389026F0089E9700B89006F008952696368016F008900000000000000000000000000000000504500004C01010017E773460000000000000000E0000F010B0106000000000000040000000000008011000000100000001000

现在我也会vbs进度条了

计算个1000000以内素数个数就要很久。

请问怎么恢复正常？

只能一项一项地重复写出来吗？

读取的数据有中文 微信收到的只有前面数字 编码问题？

目前在玩一个window挂机游戏，需要刷技能熟练度。 执行按键循环已经写好了，但现在每次使用完以后，想要关闭只能从任务管理器里强行关闭。 想问问能不能做到监听键盘按键终止程序的，比如按Y启动循环，按N关闭循环或者退出脚本软件。 或者能做到类似功能的方法都行。 求助求助，先谢过大佬们了！！！！

.instancesof()与.instances_有什么区别呀，用法都是什么？

求大佬帮改

我弄了个每天提醒我点餐的，可是当我桌面有其他工作它弹出来被挡住了，要怎么样让它在我桌面置顶呀？ X=Msgbox("在忙也要记得点餐哦！",64,FormatDateTime(Now, vbLongDate))

以下代码： DIm wshshell Set wshshell = WSCRIPT.createobject("wscript.shell") wshshell.appactivate "魔兽世界" while true wscript.sleep 15000 wshshell.sendkeys " ""1" wend 我在我自己电脑和其他朋友电脑上都能用，但是在某一个朋友电脑上，他只能在系统和系统级 应用比如记事本上面，能产生作用，在魔兽世界的游戏内，就完全没反应，这可能是由什么原因产生的？如何解决？求大哥们的指点一下。

被人拍了不该拍的照片，有没有能帮忙黑进别人的手机，删掉照片的，求大神，跪求，很着急

这里有vbs整人代码和vbs基础教学

来个会玩vbs的兄弟 我给米

msgbox的那种太low了！ With createobject("shell.application") do .MinimizeALL '或者UndoMinimizeALL Loop End with With createobject("shell.application") For each w in .windows w.visible=false Next End with 下次再发

在线新手，代码是从网上看的，纯手打，但是不知道这个错误是为什么，求解，非常感谢各位大神！！！

如何通过vbs打开打指定印机共享功能