教 程 目 录
VBScript教程
Microsoft VBScript(Visual Basic Script)是一种由Microsoft开发的通用，轻量级和活动的脚本语言，是在Visual Basic上建模的.如今，VBScript是Quick Test Professional(QTP)的主要脚本语言，它是一种测试自动化工具.本教程将教您如何在任何基于Web或自动化项目开发的日常生活中使用VBScript.
受众
本教程是为初学者准备的，旨在帮助他们理解VBScript的基本到高级功能.完成本教程后，您将发现自己在使用Microsoft VBScript方面具有中等水平的专业知识，您可以将自己带到下一级别.
先决条件
您需要充分了解任何计算机编程语言才能充分利用本教程.如果您使用任何客户端语言(如Javascript)进行编程，那么您将很容易学习VBScript的绳索.
本文地址：https://www.itbaoku.cn/tutorial/vbscript-index.html
相关问答
你好， 我继承了一个每 1 分钟运行一次并导致 100% CPU 使用率的 VBScript.我无法修改代码，因为它是生产服务器并且没有测试环境.所以在我提出改变之前，我想听听你的意见. 基本上，脚本会遍历源文件夹中的所有文件(大约 7000 个文件)检查文件名，如果它以“D__"开头，它将把文件复制到目标文件夹.我注意到脚本运行: mid(ucase()) 更好，我认为，作为 ucase(mid)) 甚至 left()="D__" 或 left()="d__" 以避免字符串操作. 它还检查文件是否存在于目标中，因为在 copyfile() 中将覆盖标志设置为 false，所以没有用. 如果我做出这些改变，会有什么表现吗?例如，如果我用 C# 编写一个小应用程序，它会运行得更快还是不受 VBScript 限制? 谢谢 解决方案 0) 我们不知道，因为我们不熟悉您的硬件配置或编码能力. 1) 试试看. 顺便说一句，如果它在生产服务器上，我怀疑他们是否会让您在其上部署未经验证的应用程序来处理看似关键的任务. 这听起来像是一个最肮脏的解决方案.摆脱它，直到为时不晚.查看脚本正在做什么并决定要做什么.整个事情看起来并不合理.不应该使用任何不是由真实事件驱动的周期性任务. —SA 通过搜索谷歌或任何搜索引擎网站.
)
大家好， 我正在尝试在 vbs 中编写一个非常简单的查找和替换函数. 每次我运行脚本时，我都会收到拒绝访问/磁盘未准备好错误.(#71) 有什么我做错了吗? Dim objFSO, objFile, strText, strNewTextConst ForReading = 1Const ForWriting = 2Set objFSO = CreateObject("Scripting.FileSystemObject")设置 objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt"，供阅读)strText = objFile.ReadAllobjFile.关闭strNewText = Replace(strText, "Jim", "James")设置 objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForWriting)objFile.WriteLine strNewTextobjFile.Close -------------------------------------------------------- 文件存在，用户可以访问它.我可以在记事本中很好地编辑它. 错误首先出现在这里: 设置 objFile = objFSO.OpenTex
)
你好 我有以下 vbscript 从表中提取数据，然后遍历提取的行项目并将这些行项目插入到 Excel 工作表中. 该脚本 100 % 有效. 我现在需要进行更改，即当我遍历行项目并将项目插入到 Excel 电子表格中时，我想将该行项目状态从未提取更新为已提取. 这是代码的那部分.您能帮我完成更新吗? SQL3 = "SELECT * FROM PO_ITEM_Details WHERE Folder_ID = '" &文件夹ID &"' 和 Quantity_Received > 0"rstInv.Open SQL3, objcnWHILE NOT rstInv.EOF and x
)
大家好， 从过去的几天开始，我一直在与下面的 VBS 作斗争.它主要用于通过超级终端检查拨号连接.它在 WIN XP 上运行良好，但现在我已迁移到 WIN7 (x64) 并且它已停止运行. 我想请你们建议我在 WIN7(x64) 上运行它的中断修复或任何更好的脚本来达到同样的目的. ' OOB 连接检查 Dim oShell,oEnvironment, intRow, stoarcode, stonum, Popwindow, objExcel, sys, Eror, Disp, stoloc 设置oShell = CreateObject("WScript.Shell") 设置 objExcel = CreateObject("Excel.Application") 设置 objWorkbook = objExcel.Workbooks.Open _ ("C:\TAD\New_users.xls") 设置 sys=createobject("jssys3.ops") intRow = 2 x = 1 直到 objExcel.Cells(intRow,1).Value = "" stonum = objExcel.Cells(intRow,1).Value WScript.Sleep 2000 oShell.run "hypertrm"
)
不久前，我在VBScript中将此多线程代码粉碎在一起，我只是将其再次将其应用于另一个问题.我现在遇到了一个问题，即运行命令(第20行)的返回值始终为0.我意识到我已经使用False作为wateontrunturn参数，但是否则它不会线程.我很确定它可以很好地工作，否则我不会长时间保留它... 谁能看到我做错了什么? Class Thread ' Usage: ' Dim x: Set x = New Thread ' Call x.init(10) ' Call x.queue("script.bat", Array("Arg1", "output_file.txt")) ' Call x.queue("cscript.exe prog.vbs", Array("Arg1", "Arg2", "Arg3")) ' Call x.setMax(20) '''''''''''''''''''''''''''''''''''''''''''''' Private p_threads Private p_max Private Function spawn(action, args) Dim wsh: Set wsh = WScript.CreateObject("WScript.Shell") Dim
)
你好， 我有一个 HTML 输入
有几个输入字段. 当用户在输入字段中输入适当的数据并单击“提交"时，输入字段数据必须使用其安装在 Internet Explorer 中的数字证书之一进行数字签名. 签名必须从 VBScript(如果可能)通过从标准 MS Windows 安装调用标准函数(如果可能，无需额外的 ActiveX)来完成. 带有他/她公钥的用户证书必须包含在签名中，所有内容都经过 base64 编码. 可能无法使用 CAPICOM，因为它已被 Microsoft 弃用(1997 年的最新版本). 解决方案 检查此 数字签名 VBScript 示例[^]
)
联系站长