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

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

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

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

在找自动生成文件夹的批命令时遇到的，不会用，麻烦帮忙看看，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代码锁机了，咋办

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

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

现在我也会vbs进度条了

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

贴吧粘代码好像没缩进，所以就放个链接吧： http://www.bathome.net/thread-65037-1-1.html

一楼防吞

请问怎么恢复正常？

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

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

目前在玩一个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基础教学

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

来个会玩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打开打指定印机共享功能

有概率立即窗口和程序输出结果不一致，为什么啊？

Title:关于WMI的事件 Author:次碳酸钴 事件的动作通常只有以下四个，只是他们作用的对象不同而已。 __InstanceCreationEvent __InstanceModificationE

WScript.Sleep 60000 msgbox"突然蹦出来一下，气不气" ————————————————————————————以上是代码 这个东西刚打开屁事没有，干别的事去了，一分钟后突然弹出个窗口

'猜物品' dim name,a dim timu a="Please tell me the title" timu=inputbox(a) dim Clues1 a="Tell me the Clues1" Clues1=inputbox(a) dim Clues2 a="Tell me the Clues2" Clues2=inputbox(a) dim input msgbox"Please guess" a="The first Clues is" msgbox(a) msgbox(Clues1) a="The second Clues is" msgbox(a) msgbox(Clues2) a="Can you guess" do input=inputbox(a) if input=timu Then msgbox"you are right" end if exit do else msgbox"you wrong" Loop

各位大神，现在我有一个问题研究了一天了，对VBS不是很精通所有求解，事情是这样的我在网上下载了一个vbsedit64.dll插件，此控件有一个截屏功能我想用在西门子的wincc里面我注册了这个插件然后我用记事本写个vbs脚本他是可以运行的但是在wincc中通过相同的方法不能使用这个插件，请问难道还有其他的方式吗？ 这个可以在win10里面保存为VBS直接运行 Set toolkit = CreateObject("Vbsedit.Toolkit") toolkit.DesktopWindow.Screenshot "c:\desktop.png" 在wincc里面 dim

vbs里写了一个简单的连发消息的组。请问有没有什么暂停或者退出的语句？比如说我手动输入1或者按1键直接结束的？

在按键精灵里明明可以运行。代码如下： Declare Function GetAsyncKeyState lib "user32" (vkcode as long) as long Do If GetAsyncKeyState(65) > 0 Then MsgBox "按下了A键" End If Delay 50 Loop

以下脚本是哪里写错了？ 第1句就报错： Declare Function GetAsyncKeyState lib "user32" (vkcode as long) as long Do If GetAsyncKeyState(65) > 0 Then MsgBox "按下了A键" End If Delay 50 Loop

dim name,input do input="say dad to me" input=inputbox(input) if input="dad" Then msgbox"Good son" exit do end if loop

这些怎么下载啊？？？ 求了 demon.tw

do strComputer = "." strProcessToKill1 = "QQ.exe" strProcessToKill2 = "cloudmusic.exe" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = '" & strProcessToKill1 & "' OR Name = '" & strProcessToKill2 & "'") count = 0 For Each objProcess in colProcess objProcess.Terminate count = count + 1 loop 请教下我这个VBS

请问有没有vbs入门学习文档最好是翻译的

CreateObject("SAPI.SpVoice").Speak("ABC") 在我电脑上执行这个方法时是女声，我想改成男声，请问该如何设置？谢谢！