源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

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

  • 时间:2022-11-15 23:10 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:用vbs产生的若干个随机数并写入到一个.txt中的代码
[u]复制代码[/u] 代码如下:
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可以看到结果
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部