我如何使这个 link 根据 vbs 随机选择的名称进行更改？

Question

Dim names, Rans

names = Array("1","2","3","4","5","6","7","8","9","10","11","12")

Rans = Int((UBound(names)+1)*Rnd())

D = names(Rans)

当它选择一个时，我希望它像 ex 一样更改 url。 https://website.com/user/1 or https://website.com/user/2 我希望它导航到 link.

我该怎么做？

Answer 1

你快到了。

首先，我会介绍对 Randomize 的调用，这样您就不会每次都获得相同的随机数。

Dim names, Rans, oShell
names = Array("1","2","3","4","5","6","7","8","9","10","11","12")
Randomize
Rans = Int((UBound(names)+1)*Rnd())
D = names(Rans)

Set oShell = CreateObject("WScript.Shell")
oShell.Run("https://website.com/user/" & D)

像这样使用 oShell.Run 将在默认浏览器中打开 URL。

我已经避免对您的代码进行其他更改，但一些更有意义的变量名称会使代码更容易阅读。

我如何使这个 link 根据 vbs 随机选择的名称进行更改？

How do i make this link change according to the name vbs pick randomly?

vbscript