当前位置 博文首页 > 用vbs产生的若干个随机数并写入到一个.txt中的代码

最大化 缩小

    用vbs产生的若干个随机数并写入到一个.txt中的代码

    作者：admin 时间：2021-02-13 12:32

    复制代码 代码如下:

    Set a=WScript.CreateObject("WScript.Shell")
    a.Run "notepad"
    '打开记事本
    do
    Randomize
    x= Int((40 * Rnd) + 1)
    '产生一个1~40的随机数赋给X
    WScript.Sleep 1000
    a.SendKeys x&","
    '模拟键盘，输出x
    n=n+1 '累计器
    if n=10 then wscript.quit '若累计器N为10则推出脚本
    loop
    '保存成VBS可以看到结果
    js
    上一篇：wuch：python工业互联网应用实战6—任务分解
    下一篇：没有了