vbs脚本怎么在搜索框内生成一个随机数字进行搜索？

Question

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 '点击搜索

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

Answer 1

Function GetRandomMath(m,n)
  Randomize
  GetRandomMath = Int(((n-m+1) * Rnd) + m)
End Function

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=GetRandomMath(50000,59999) '50000-59999
su.click '点击搜索