一次载入2个vbs脚本的方法_vbs

现有两个函数A、B，分别用VBScript和JavaScript写的

用下面的语句可以分别加载

<body Onload="VbScript:A">
<body Onload="JavaScript:B；">

我想在同一个<body>中同时加载这两个函数

复制代码 代码如下:

<script>
function js(){alert("a")}
</script>
<script language=vbscript>
sub vbs()
msgbox "b"
end sub
</script>
<body onload="js();load.click();">
<input type=hidden name="load" onclick="vbscript:vbs">
用了隐藏的按钮，在页面load之后，先执行js，然后在自动触发隐藏按钮的click事件来执行vbs代码，关注其他更好的办法。
</body>

时间： 2024-10-11 07:04:33

一次载入2个vbs脚本的方法_vbs的相关文章

VBS中inlcude另一个vbs脚本的方法

VBS中inlcude另一个vbs脚本的方法54powerman' Test program for the IncludeFile and ReadConfigFile functions.' Author: Christian d'Heureuse (www.source-code.biz)' License: GNU/LGPL (http://www.gnu.org/licenses/lgpl.html) Option Explicit Dim fso: set fso = CreateO

在一个vbs中包含其他vbs文件的方法_vbs

asp中   include file   包含其他文件vbs中 复制代码 代码如下:  Option Explicit  On Error Resume Next Sub include(vbs)  Dim fso : Set fso = CreateObject("scripting.FileSystemObject")  Dim p : p   = Split(Wscript.ScriptFullName,"\")  p(UBound(p))  = vbs  

VBS教程：方法-MoveFolder 方法_vbs

MoveFolder 方法 将一个或多个文件夹从某位置移动到另一位置. object.MoveFolder source, destination 参数 object 必选项.应为 FileSystemObject 的名称. source 必选项.要移动的文件夹的路径.source 参数字符串仅可在路径的最后一个组成部分中包含通配符. destination 必选项.指定路径,表示要将文件夹移动到该目标位置.destination 参数不能包含通配符. 说明 如果 source 包含通配符或 d

VBS教程：方法-Add 方法(Dictionary)_vbs

Add 方法(Dictionary) 向 Dictionary 对象添加键和项目对. object.Add key, item 参数 object 必选项.应为 Dictionary 对象的名称. key 必选项.与添加的 item 相关的 key. item 必选项.与添加的 key 相关的 item. 说明 如果 key 已经存在,则会出现错误. 下面例子举例说明如何使用 Add 方法: Dim d '创建变量.Set d = CreateObject("Scripting.Dictiona

VBS教程：方法-GetDrive 方法_vbs

GetDrive 方法 返回与指定的路径中驱动器相对应的 Drive 对象. object.GetDrive drivespec 参数 object 必选项.应为 FileSystemObject 的名称. drivespec 必选项.drivespec 可以是驱动器号 (c).带冒号的驱动器号 (c:).带有冒号与路径分隔符的驱动器号 (c:\) 或任何指定的网络共享 (\\computer2\share1). 说明 对于网络共享,检查并确保该网络共享存在. 若drivespec与已接受格式不

VBS教程：方法-ReadAll 方法_vbs

ReadAll 方法 读入全部 TextStream 文件并返回结果字符串. object.ReadAll object 应为 TextStream 对象的名称. 说明 对于大文件,使用 ReadAll 方法浪费内存资源.应该使用其他技术输入文件,例如按行读文件. Function ReadAllTextFile Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystem

VBS教程：方法-WriteLine 方法_vbs

WriteLine 方法 向 TextStream 文件写入指定字符串和新行字符. object.WriteLine([string]) 参数 object 必选项.应为 TextStream 对象的名称. string 可选项.要写入文件的文本.如果省略,将向文件写入新行字符. 说明 下面例子举例说明如何使用 WriteLine 方法: Function WriteLineToFile Const ForReading = 1, ForWriting = 2 Dim fso, f Set fs

VBS教程：方法-GetSpecialFolder 方法_vbs

GetSpecialFolder 方法 返回指定的特殊文件夹. object.GetSpecialFolder(folderspec) 参数 object 必选项.应为 FileSystemObject 的名称. folderspec 必选项.要返回的特殊文件夹名称.可以是"设置"部分列出的任何常数. 设置 folderspec 可为下列值: 常数 值 描述 WindowsFolder 0 Windows 文件夹,包含 Windows 操作系统安装的文件. SystemFolder 1

VBS教程：方法-BuildPath 方法_vbs

BuildPath 方法 向现有路径后添加名称. object.BuildPath(path, name) 参数 object 必选项.应为 FileSystemObject 对象的名称. path 必选项.要附加 name 的现有路径.可以是绝对或相对路径且无需指定现有文件夹. name 必选项.要附加到现有 path 的名称. 说明 仅在必要时,BuildPath 方法在现有路径与该名称之间插入附加路径分隔符. 下面例子举例说明如何使用 BuildPath 方法: Function GetB