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一样更改网址。https://website.com/user/1或https://website.com/user/2,我希望它导航到该链接。
我该怎么办?
你快到了。
首先,我将引入一个对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。
我避免了对代码的其他更改,但是一些更有意义的变量名将使代码更容易阅读。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句