• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已解决] 请问如何随机子程序的运行次数,这样可以实现吗? [复制链接]

1#
Sub 文本
Randomize
Text = Plugin.File.ReadFileEx("D:\测试.txt")
MyArray = Split(Text, "|")
//MessageBox MyArray(Int((UBound(MyArray) * Rnd) + 0))
Delay 50
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
Delay 50
KeyPress "Enter", 1
End Sub

Delay 50
//子程序-随机文本发送

由于我这个是已经有随机数的了,我想实现的是,能在调用此子程序在1-3次数内的数值间随机执行次数,!

通俗点说就是,随机执行这个此子程序的次数,在1-3的数值间,!

随后执行下一段指令

本主题由 超级版主 n15976906190 于 2018/9/13 14:51:55 执行 审核帖子 操作
2#

回复 1楼qq635227227的帖子
  1. For i = 1 To 亂數(1, 3)
  2. 文本    
  3. Next
  4. Function 亂數(最小值, 最大值)
  5. Randomize
  6. 亂數 = Int((最大值 - 最小值 + 1) * Rnd + 最小值)
  7. End Function
  8. Sub 文本()
  9. TracePrint "文本"
  10. End Sub
复制代码

自命不凡,其实很落魄

个人QQ:1223116618
3#

回复 2楼n15976906190的帖子

可是我本来的文本里面,就是随机抽取里面的段落了,

有点不知所措,,不是很明白怎么操作!

我的这个是已经有随机读取里面的段落了,

我还想多一个随机执行的次数,, 例如我按一次启动,他就会随机文本里的某一段落,,我现在想实现的是,按一次启动键,他会随机执行1-3次不等的抽取文本里的随机段落,这样可以实现吗?

4#

回复 3楼qq635227227的帖子

注:你好 2# 的代码 满足你的需求

自命不凡,其实很落魄

个人QQ:1223116618
5#

回复 4楼n15976906190的帖子

你好,不好意思问的有点多,那么我输出的文本应该放到哪里呢,?是附件还是

6#

回复 4楼n15976906190的帖子

可是输出的文本我不知道该放到哪里,放到附件没任何用呀,,!

7#

回复 6楼qq635227227的帖子

注:你好 将Sub替换为你自己的Sub 代码仅示意如何随随机次数调用Sub

自命不凡,其实很落魄

个人QQ:1223116618
8#

回复 7楼n15976906190的帖子

For i = 1 To 亂數(1, 5)
随机
Next
Function 亂數(最小值, 最大值)
Randomize
亂數 = Int((最大值 - 最小值 + 1) * Rnd + 最小值)
End Function
Sub 随机()
Randomize
Text = Plugin.File.ReadFileEx("D:\测试.txt")
MyArray = Split(Text, "|")
//MessageBox MyArray(Int((UBound(MyArray) * Rnd) + 0))
Delay 50
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
Delay 50
KeyPress "Enter", 1
Delay 50
End Sub
//子程序-随机次数调用文本发送

Call 聊天1
Call 随机

//自动在模拟器随机输入文本,获取坐标

Call 微信1
Delay 500
//点击获取微信坐标(1)

Do
FindPic 0,0,1920,1080,"Attachment:\消息3.bmp",0.9,intX,intY
If intX > 0 Then
MoveTo intX+3, intY+3
Delay 300
LeftClick 1
Delay 500
Call 随机
Delay 500
Call 随机
Delay 700
End If
Loop Until intX < 0//找不到图不再循环
//自动获取电脑版消息,自动回复,消息(3)
Delay 500


可是我这样每次都是只会发送两次,是不是我哪里出问题了

发新话题 回复该主题