vbscript 相关问题

修改GIF文件夹预览脚本

也许这里有人可以帮我修改这个脚本吗？我希望文件名位于 gif 下方，并且文本大小稍小一些，以便更多的 gif 可以出现在一行中。 <p>也许这里有人可以帮我修改这个脚本吗？我希望文件名位于 gif 下方，并且文本大小稍小一些，以便更多的 gif 可以出现在一行中。</p> <pre><code>&lt;script type=&#34;text/vbs&#34;&gt; set fso=CreateObject(&#34;Scripting.FileSystemObject&#34;) set fldr=fso.GetFolder(&#34;.&#34;) for each file in fldr.files if lcase(right(file.name,4))=&#34;.gif&#34; then document.write &#34;&lt;img src=&#34;&#34;&#34; &amp; file.name &amp; &#34;&#34;&#34;&gt;&#34; document.write file.name &amp; &#34;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&#34; end if next &lt;/script&gt; </code></pre> </question> <answer tick="false" vote="0"> <p>如评论中所述，您可以使用一些应用于 Div 的 CSS 并创建一个类来设置图像大小。大小可以指定为任何所需的单位。这里使用 Ems 是因为在设置不同缩放值的显示器上尺寸保持相当恒定。这是 HTA 代码：</p> <p><strong>GIFshow.hta</strong></p> <pre><code>&lt;!DOCTYPE html&gt; &lt;html&gt; &lt;head&gt; &lt;meta http-equiv=&#34;x-ua-compatible&#34; content=&#34;IE=10&#34;&gt; &lt;script language=&#34;VBScript&#34;&gt; Set oFSO = CreateObject(&#34;Scripting.FileSystemObject&#34;) Set oFolder = oFSO.GetFolder(&#34;.&#34;) For Each oFile In oFolder.Files If LCase(oFSO.GetExtensionName(oFile.Name)) = &#34;gif&#34; Then document.write &#34;&lt;div class=&#34;&#34;image-container&#34;&#34;&gt;&#34; document.write &#34;&lt;img class=&#34;&#34;image&#34;&#34; src=&#34;&#34;&#34; &amp; oFile.Name &amp; &#34;&#34;&#34; alt=&#34;&#34;&#34; &amp; oFile.Name &amp; &#34;&#34;&#34;&gt;&#34; document.write &#34;&lt;br&gt;&#34; &amp; oFile.Name document.write &#34;&lt;/div&gt;&#34; End If Next &lt;/script&gt; &lt;style&gt; .image-container { display: inline-block; text-align: center; } .image { width: 10em; height: 10em; } &lt;/style&gt; &lt;/head&gt; &lt;body&gt; &lt;/body&gt; &lt;/html&gt; </code></pre> </answer> </body></html>

制造假病毒的最佳语言

我不知道为什么，但我喜欢假病毒，我想制作一个，但我不知道最好的语言是什么。 我尝试了批处理、python、vbscript 等，但遇到了很多问题。我的目标是贝莱...

在 Office 365 中将签名保存在用户帐户上，而不是设备上

这个问题超出了我的想象，我实际上正在查看页面上漂亮的字母、数字和符号。 我们使用了 Visual Basic 脚本来应用和更新我们的电子邮件签名

如何使用vbscript读取注册表项的所有值？

我的注册表中有以下值 钥匙： HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Accepted Documents\ 价值观： * -> 应用程序/msword ** -> 应用程序/v...

VBScript 单击按钮

我正在尝试用 VBScript 编写一个程序来自动执行我在 Internet Explorer 中执行的任务。我需要单击一系列按钮和文本框，我想知道是否有人可以给我提示......

如果单元格包含特定文本，则复制整行+下一行

我对 VBS 非常陌生，需要帮助。 我有sheet1和sheet2。我所有的原始数据都在sheet1 A列中，sheet2将是总结报告。我希望我的脚本搜索 A 列和海中的每个单元格...

在VBS中将一个Array的部分数据存储到另一个Array中

我有一个以下格式的 CSV 文件： abc, 定义 吉、XYZ 我使用此函数将文件内的数据放入数组中： 公共函数 readeEachColumnDataExcel() 暗淡文件名 ...

如何使用 VBScript 列出所有 WMI 事件类？

使用 VBScript，如何列出表示事件的所有 WMI 类？ 预先感谢。

Powershell 是否是一项足够成熟的技术可供企业使用？

Powershell 是否是一项足够成熟的技术供企业使用？ 它的众多好处是否值得您花时间和精力来转换现有的 VBS 脚本，还是您只会将它用于新的脚本项目？ ...

从多个Excel文件复制列的数据并将其粘贴到新的Excel文件中

我想从文件夹中的 Excel 文件中复制特定列，并将所有值粘贴到新的 Excel 工作表中。 完全的- 我能够循环浏览文件夹中的所有文件。 我是

使用 VBScript 打开 VBA 用户窗体？

所以我一直在 Excel 中开发一个项目，该项目创建一个用户窗体以运行三个不同的宏。用户表单已创建，但我现在面临的问题是，每当我使用...

尝试使用 VBScript 编写静默卸载脚本

我正在尝试编写一个脚本来卸载某些应用程序。我的脚本可以工作，但是每个程序在运行时都会发出提示。 我知道应用程序支持“/S”参数...

OpentextFile 权限被拒绝错误

我使用 opentextfile 时遇到错误。这个问题很奇怪，因为它适用于几百个文件，然后弹出。 基本上，该脚本获取文件集合，在其中搜索字符串...

如何解决“请求的 URL 被拒绝。请咨询您的管理员。”错误？

我有一个 ASP 应用程序。单击特定链接时，会执行一些 VB 脚本并显示 ASP 页面，但我得到的屏幕显示： 信息不可用。 要求...

使用“查找”比较两个不同工作表中的两列[关闭]

如果工作表 1 的列值与工作表 2 相匹配，则在工作表 1 对应的第二个列中写入匹配的列值 (B) 列写入值匹配，否则写入不匹配 这是我的示例代码，而我...

尝试在 VbsScript 中使用“MSScriptControl”中的“ScriptControl”时出错

我尝试运行这段代码： 昏暗的 jsonString、jsonDictionary jsonString = "{ ""name"": ""John"", ""age"": 30, ""city"&q...

如何检查参数是否被调用到 vbscript？

我尝试使用 if 语句，但出现错误，下标超出范围，我知道为什么会出现错误。如何检查 vbscript 脚本是否调用了参数。 如果 args.count > -1 那么 ...

用于打印 pdf 和电子邮件的 Qlikview Macro VBScript 将无法一致运行 - 电子邮件失败

过去几天我一直在绞尽脑汁地试图让这个宏在 Windows 调度程序上一致地工作。 基本上工作流程如下： 1) Windows 计划程序 - 每日，

在 VBScript 中搜索字符串以验证是否包含字符

我想看看一个字符串是否包含一个点。 设置 Root_Currency = Root_TaxDataSummary.SlvObject("货币") curr_val = InStr(Root_Currency,".") 如果 curr_val.exist 那么 经过 别的 辉...

如果使用 vb 脚本调用，宏将被禁用

我正在尝试使用vbs调用我的excel宏。这是我的代码片段。 设置 objExcel = CreateObject("Excel.Application") 设置 objWorkbook = objExcel.Workbooks.Open("C:\Folder\Test_PO.xls") 哦...