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

Esccc 发布于 2022-09-07 12:04， 2336 次点击

如何在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编辑过]

15 回复

Esccc2022-09-07 12:08

在线等跪求解答

Esccc2022-09-07 12:13

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

yuma2022-09-07 12:43

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

apull2022-09-07 13:41

这个是你？
https://ask.

yuma2022-09-07 14:05

回复 5楼 apull

就是那小子。我这代码是不是比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截图：

只有本站会员才能查看附件，请登录

apull2022-09-07 15:53

回复 6楼 yuma

你说的CSDN那小子就是我

。
写成函数灵活一点，做成代码片段，其他地方也能用。

风吹过b2022-09-07 17:14

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

yuma2022-09-07 17:34

以下是引用apull在2022-9-7 15:53:01的发言：

你说的CSDN那小子就是我

。
写成函数灵活一点，做成代码片段，其他地方也能用。

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

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

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

#10

Esccc2022-09-08 02:23

感谢各位大哥

#11

Esccc2022-09-08 02:24

回复 4楼 yuma

是我哈哈

#12

Esccc2022-09-08 02:24

回复 3楼 Esccc

感谢

#13

Esccc2022-09-08 02:26

回复 7楼 apull

浪客？能把我那20块现大洋退给我嘛

#14

apull2022-09-08 09:33

回复 13楼 Esccc

没问题，私信我。

#15

Esccc2022-09-09 02:37

回复 14楼 apull

早知道是你在csdn我就不结贴了删帖跑路

#16

apull2022-09-09 09:08

回复 15楼 Esccc

哈哈，以后有问题可以先在这里问，别小看这个论坛，隐藏着好多大神呢。