批处理之家 » VBS求助&讨论 » 求一些vbs的冷门用法

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 5 Rank: 5

帖子: 657
积分: 777
技术: 34
捐助: 0
注册时间: 2023-2-9

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2023-4-29 23:23 | 只看该作者

[技术讨论] 求一些vbs的冷门用法

本帖最后由 jyswjjgdwtdtj 于 2023-4-29 23:47 编辑

单纯只是好奇而已丰富一下“阅历”
提供个小小的例子（可能不冷门）吧

class example
private num
private sub class_initialize
num=1
end sub
public default function add()
add=num
num=num+1'才知道 vbs函数内返回返回值不会直接退出函数 而是继续执行到结尾 然后把与函数名相同的变量作为返回值返回
end function
end class

set a=new example
msgbox a()
msgbox a
'这么做可以拥有“函数”自己的变量 而且可以对函数进行传递 不用用那个神奇的getref了
set b=a'b和a是同一个函数
b=a'b是a的返回值
function example fn(byval obj)
'对于对象 不论byval byref 一律传址
或许可以作为“回调函数”？虽然作为一个不存在同步的语言回调函数啥用也没有……
msgbox obj()
end function
examplefn (a)
复制代码

以上没经过测试

你好

Rank: 5 Rank: 5

帖子: 657
积分: 777
技术: 34
捐助: 0
注册时间: 2023-2-9

2楼

发表于 2023-4-30 14:16 | 只看该作者

一些奇怪的特性也可以啦比如msgbox会优先去一个对象能转换为字符串的值而wscript.echo 不会

你好

Rank: 8 Rank: 8

帖子: 997
积分: 1789
技术: 205
捐助: 50
注册时间: 2016-4-17

3楼

发表于 2023-4-30 18:04 | 只看该作者

不妨来玩这个：http://www.bathome.net/thread-63315-1-1.html

Rank: 5 Rank: 5

帖子: 657
积分: 777
技术: 34
捐助: 0
注册时间: 2023-2-9

4楼

发表于 2023-5-1 10:21 | 只看该作者

说个vbs很傻的一个地方
比如拿jquery举个例子

javascript:
$(".box").css("background","red").text(123123123).slideUp()
复制代码

原封不动改成vbs

vbscript:
$(".box").css("background","red").text(123123123).slideup()
复制代码

报错

vbscript:
$(".box").css "background","red" .text 123123123 .slideup
复制代码

报错

vbscript:
a=$(".box").css("background","red").text(123123123).slideup()
复制代码

不报错

你好

Rank: 8 Rank: 8

帖子: 997
积分: 1789
技术: 205
捐助: 50
注册时间: 2016-4-17

5楼

发表于 2023-6-1 21:45 | 只看该作者

adodb.recordset