如何在VBS中在绑定搜索框里生成指定范围内随机数字？

Set ie = WScript.CreateObject("InternetExplorer.Application")
With ie
.Navigate "http://www.baidu.com/"
.Visible = True '让浏览器是可见的
End With
Do
Wscript.Sleep 2000
Loop Until ie.readyState = 4 '等页面载入完整再进行下一步
Set kw = ie.Document.getElementById("kw") '绑定搜索框
Set su = ie.Document.getElementById("su") '绑定搜索按钮
kw.value="天气" '搜索框内输入天气
su.click '点击搜索

这个是在搜索框内搜索天气
搜索内容是固定的
vbs中要怎么在绑定搜索框里生成指定范围内随机数字
我想在搜索框内搜索"50000-59999"范围内随机的一个数字
怎么才能让他在搜索框内随机生成指定范围内的随机数？

[此贴子已经被作者于2022-9-7 12:21编辑过]

在线等 跪求解答

怎么在绑定搜索框里生成指定范围内随机数字

Randomize
kw.value=Int((59999 - 50000 + 1) * Rnd) + 50000

这个是你？
https://ask.

就是那小子。我这代码是不是比CSDN那小子代码简洁？

Set ie = WScript.CreateObject("InternetExplorer.Application")
With ie
.Navigate "http://www.baidu.com/"
.Visible = True '让浏览器是可见的
End With
Do
Wscript.Sleep 2000
Loop Until ie.readyState = 4 '等页面载入完整再进行下一步
Set kw = ie.Document.getElementById("kw") '绑定搜索框
Set su = ie.Document.getElementById("su") '绑定搜索按钮
Randomize
kw.value=Int((59999 - 50000 + 1) * Rnd) + 50000
su.click '点击搜索

CDDN截图：

你说的CSDN那小子 就是我。
写成函数灵活一点，做成代码片段，其他地方也能用。

支持 做成 函数 。
CSDN 那里不愿去了，也不想去注册。。。。。

一个随机的函数，一句代码就行了，不需要做成函数。

Int((59999 - 50000 + 1) * Rnd) + 50000

[此贴子已经被作者于2022-9-7 17:42编辑过]

感谢各位大哥