for 20
a
b
c
d
。。。。
//以下不知道怎么写了
1/2/3/4
//以上4选一，4个都运行过一次后，刷新页面，重新4选一
next

利用rand随机函数。

Randomize
Delay 10
SJ = Int((3 - 1 + 1) * Rnd + 1)
Delay 10
If SJ = 1 Then
Call 举报骰子
ElseIf SJ = 2 Then
Call 举报挂机
ElseIf SJ = 3 Then
Call 举报演员
End If
我做的随机举报，应该和你想的那个一样吧，你参考吧。

for 20
...
...
...
delay 500
LeftClick 1
delay 500
LeftClick 1
//一下是选择宠物列表里的宠物
Randomize
宠物 = int((5 - 1 + 1) * rnd + 1)
Select Case 宠物
Case 1
moveto 996 ,235 )//第1个宠物
Case 2
moveto 996 ,340 //第2个宠物
Case 3
moveto 996 ,442 //第3个宠物
Case 4
moveto 996 , 552 //第4个宠物
Case 5
moveto 1117 , 213 //刷新按钮
delay 500
moveto 996 ,235 //第1个宠物
End Select
//4个宠物各出现一次，然后刷新宠物列表，新出现的4个宠物再各出现一次，直到20宠物都出现一次
delay 500
LeftClick 2
delay 500
LeftClick 1
delay 500
moveto60 , 141 //返回按钮
LeftClick 1
delay 500
next

//1366*768分辨率，edge浏览器
Dim 数组(4)
数组(0) = 0
数组(1) = 1
数组(2) = 2
数组(3) = 3
For 20
MoveTo 178, 665
Delay 2000
LeftClick 1
TracePrint "点击了仓库按钮"
For n = 4 To 1 Step -1
Randomize
i = int(rnd * n)
Select Case 数组(i)
Case 0
TracePrint "选择了第1个宠物"
moveto 1034,255//仓库第1个宠物
Case 1
TracePrint "选择了第2个宠物"
moveto 1046,366 //仓库第2个宠物
Case 2
TracePrint "选择了第3个宠物"
moveto 1050,476//仓库第3个宠物
Case 3
TracePrint "选择了第4个宠物"
moveto 1045,563////仓库第4个宠物
End Select
LeftClick 1
Delay 2000
For k = i To n-1 Step 1
数组(k)=数组(k+1)
Next
Next
TracePrint "全部执行完了，刷新屏幕"
moveto 1152,199//刷新按钮
Delay 2000
MoveTo 76,117
LeftClick 1
TracePrint "点击了返回按钮"
Delay 2000
Next
///////运行反馈如下
您的脚本在调试过程中，产生了下列调试信息：
脚本 我的脚本12.Q ，第11行：点击了仓库按钮
脚本 我的脚本12.Q ，第20行：选择了第2个宠物
脚本 我的脚本12.Q ，第17行：选择了第1个宠物
脚本 我的脚本12.Q ，第26行：选择了第4个宠物
脚本 我的脚本12.Q ，第23行：选择了第3个宠物
脚本 我的脚本12.Q ，第35行：全部执行完了，刷新屏幕
脚本 我的脚本12.Q ，第40行：点击了返回按钮

For 20
MoveTo 178, 665
Delay 2000
LeftClick 1
TracePrint "点击了仓库按钮"
//一下是循环
Do
delay 2000
Randomize
宠物 = int((4 - 1 + 1) * rnd + 1)
If 宠物 = 1 Then //当随机数为1时进入此条件内
If C1 = 0 Then //用来判断此条是否已被执行过一次，通过变量内数值进行判断
delay 2000
C1 + 1
delay 2000
MoveTo 1034, 255
End If
//第1个宠物
ElseIf 宠物 = 2 Then
If C2 = 0 Then
delay 2000
C2 + 1
delay 2000
MoveTo 1046, 366
End If
//第2个宠物
ElseIf 宠物 = 3 Then
If C3 = 0 Then
delay 2000
C3 + 1
delay 2000
MoveTo 1050, 476//仓库第3个宠物
End If
//第3个宠物
ElseIf 宠物 = 4 Then
If C4 = 0 Then
delay 2000
C4 + 1
delay 2000
MoveTo 1045, 563////仓库第4个宠物
End If
//第4个宠物
End If
//当四个数值全部被选择过一次后，退出循环
Loop Until C1 = 1 AND C2 = 1 AND C3 = 1 AND C4 = 1
moveto 1152,199//刷新按钮
Delay 500
//以上是循环选宠物
MoveTo 76,117
LeftClick 1
TracePrint "点击了返回按钮"
Delay 2000
Next
//一下是运行反馈
您的脚本在调试过程中，产生了下列调试信息：
脚本 我的脚本2.Q ，第11行：点击了仓库按钮
脚本 我的脚本2.Q ，第28行：选择了第1个宠物
脚本 我的脚本2.Q ，第31行：选择了第2个宠物
脚本 我的脚本2.Q ，第37行：选择了第4个宠物
脚本 我的脚本2.Q ，第34行：选择了第3个宠物
脚本 我的脚本2.Q ，第13行：全部执行完了，刷新屏幕
脚本 我的脚本2.Q ，第18行：点击了返回按钮
脚本 我的脚本2.Q ，第11行：点击了仓库按钮
脚本 我的脚本2.Q ，第28行：选择了第1个宠物
脚本 我的脚本2.Q ，第28行：选择了第1个宠物
脚本 我的脚本2.Q ，第28行：选择了第1个宠物
脚本 我的脚本2.Q ，第28行：选择了第1个宠物
脚本 我的脚本2.Q ，第13行：全部执行完了，刷新屏幕
脚本 我的脚本2.Q ，第18行：点击了返回按钮
脚本 我的脚本2.Q ，第11行：点击了仓库按钮
脚本 我的脚本2.Q ，第28行：选择了第1个宠物
脚本 我的脚本2.Q ，第28行：选择了第1个宠物
脚本 我的脚本2.Q ，第28行：选择了第1个宠物
脚本 我的脚本2.Q ，第28行：选择了第1个宠物
脚本 我的脚本2.Q ，第13行：全部执行完了，刷新屏幕
脚本 我的脚本2.Q ，第18行：点击了返回按钮

我为啥无法回复啊

兄弟你私信打开吧，我私信给你，这块我一直发不上去啊，发上马上见被删除了

发代码发不出去。我又换了一个号也一样。给你私信发，你私信隐私设置不接收，我发截图了，

//刷新仓库宠物的步骤出错，脚本在宠物喂养界面刷新了，此时还没有进入仓库。
//我在刷新按钮前增加了进入仓库的按钮，但是会导致，出现两次点击进去仓库按钮
Dim 数组(4)
For 20//20只宠物，循环20次
数组(0) = 0
数组(1) = 1
数组(2) = 2
数组(3) = 3
For n = 4 To 1 Step - 1
MoveTo 238, 936 //仓库按钮位置
Delay 2000
LeftClick 1
TracePrint "点击进入仓库按钮"
Randomize
i = int(rnd * n)
Select Case 数组(i)
Case 0
TracePrint "选择了第1个宠物"
moveto 1430,293//仓库第1个宠物
Case 1
TracePrint "选择了第2个宠物"
moveto 1430 ,460//仓库第2个宠物
Case 2
TracePrint "选择了第3个宠物"
moveto 1430,619//仓库第3个宠物
Case 3
TracePrint "选择了第4个宠物"
moveto 1430,776////仓库第4个宠物
End Select
For k = i To n-1 Step 1
数组(k)=数组(k+1)
Next
LeftClick 1
Delay 2000
MoveTo 1468, 928//确认选择的宠物
LeftClick 1
Delay 2000
MoveTo 90, 161//退出仓库的坐标
LeftClick 1
TracePrint "点击了退出仓库按钮"
Delay 2000
//一下是喂养动作
TracePrint "我们在这里喂养了宠物"
Next
Delay 2000
TracePrint "全部执行完了，刷新屏幕"
MoveTo 1616, 305//刷新按钮
LeftClick 1
TracePrint "点击了刷新按钮"
Delay 2000
Next
//一下是反馈信息
您的脚本在调试过程中，产生了下列调试信息：
脚本 我的脚本1.Q ，第11行：点击进入仓库按钮
脚本 我的脚本1.Q ，第16行：选择了第1个宠物
脚本 我的脚本1.Q ，第38行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第41行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第11行：点击进入仓库按钮
脚本 我的脚本1.Q ，第19行：选择了第2个宠物
脚本 我的脚本1.Q ，第38行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第41行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第11行：点击进入仓库按钮
脚本 我的脚本1.Q ，第22行：选择了第3个宠物
脚本 我的脚本1.Q ，第38行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第41行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第11行：点击进入仓库按钮
脚本 我的脚本1.Q ，第25行：选择了第4个宠物
脚本 我的脚本1.Q ，第38行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第41行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第44行：全部执行完了，刷新屏幕
脚本 我的脚本1.Q ，第47行：点击了刷新按钮
我在刷新按钮钱增加了进入仓库的按钮，但是会导致，出现两次点击进去仓库按钮
Dim 数组(4)
For 20//20只宠物，循环20次
数组(0) = 0
数组(1) = 1
数组(2) = 2
数组(3) = 3
For n = 4 To 1 Step - 1
MoveTo 238, 936 //仓库按钮位置
Delay 2000
LeftClick 1
TracePrint "点击进入仓库按钮"
Randomize
i = int(rnd * n)
Select Case 数组(i)
Case 0
TracePrint "选择了第1个宠物"
moveto 1430,293//仓库第1个宠物
Case 1
TracePrint "选择了第2个宠物"
moveto 1430 ,460//仓库第2个宠物
Case 2
TracePrint "选择了第3个宠物"
moveto 1430,619//仓库第3个宠物
Case 3
TracePrint "选择了第4个宠物"
moveto 1430,776////仓库第4个宠物
End Select
For k = i To n-1 Step 1
数组(k)=数组(k+1)
Next
LeftClick 1
Delay 2000
MoveTo 1468, 928//确认选择的宠物
LeftClick 1
Delay 2000
MoveTo 90, 161//退出仓库的坐标
LeftClick 1
TracePrint "点击了退出仓库按钮"
Delay 2000
//一下是喂养动作
TracePrint "我们在这里喂养了宠物"
Next
Delay 2000
//这里是我新加的
MoveTo 238, 936 //仓库按钮位置
Delay 2000
LeftClick 1
TracePrint "点击进入仓库按钮"
//新加的结束
TracePrint "全部执行完了，刷新屏幕"
MoveTo 1616, 305//刷新按钮
LeftClick 1
TracePrint "点击了刷新按钮"
Delay 2000
Next

//这次我增加了一个goto跳过“刷新仓库后的两次点击进入仓库的行为”，但是出现了“第15行：下标越界: 'I', ”，不知道是什么意思
Dim 数组(4)
For 20//20只宠物，循环20次
数组(0) = 0
数组(1) = 1
数组(2) = 2
数组(3) = 3
For n = 4 To 1 Step - 1
MoveTo 238, 936 //仓库按钮位置
Delay 2000
LeftClick 1
TracePrint "点击进入仓库按钮"
Rem 标记
Randomize
i = int(rnd * n)
Select Case 数组(i)
Case 0
TracePrint "选择了第1个宠物"
moveto 1430,293//仓库第1个宠物
Case 1
TracePrint "选择了第2个宠物"
moveto 1430 ,460//仓库第2个宠物
Case 2
TracePrint "选择了第3个宠物"
moveto 1430,619//仓库第3个宠物
Case 3
TracePrint "选择了第4个宠物"
moveto 1430,776////仓库第4个宠物
End Select
For k = i To n-1 Step 1
数组(k)=数组(k+1)
Next
LeftClick 1
Delay 2000
MoveTo 1468, 928//确认选择的宠物
LeftClick 1
Delay 2000
MoveTo 90, 161//退出仓库的坐标
LeftClick 1
TracePrint "点击了退出仓库按钮"
Delay 2000
//一下是喂养动作
TracePrint "我们在这里喂养了宠物"
Next
MoveTo 238, 936 //仓库按钮位置
Delay 2000
LeftClick 1
TracePrint "点击进入仓库按钮"
Delay 2000
TracePrint "全部执行完了，刷新屏幕"
MoveTo 1616, 305//刷新按钮
LeftClick 1
TracePrint "点击了刷新按钮"
Delay 2000
Goto 标记
next
//一下是运行反馈
您的脚本在调试过程中，产生了下列调试信息：
脚本 我的脚本1.Q ，第11行：点击进入仓库按钮
脚本 我的脚本1.Q ，第17行：选择了第1个宠物
脚本 我的脚本1.Q ，第39行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第42行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第11行：点击进入仓库按钮
脚本 我的脚本1.Q ，第20行：选择了第2个宠物
脚本 我的脚本1.Q ，第39行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第42行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第11行：点击进入仓库按钮
脚本 我的脚本1.Q ，第26行：选择了第4个宠物
脚本 我的脚本1.Q ，第39行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第42行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第11行：点击进入仓库按钮
脚本 我的脚本1.Q ，第23行：选择了第3个宠物
脚本 我的脚本1.Q ，第39行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第42行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第47行：点击进入仓库按钮
脚本 我的脚本1.Q ，第49行：全部执行完了，刷新屏幕
脚本 我的脚本1.Q ，第52行：点击了刷新按钮
脚本 我的脚本1.Q ，第17行：选择了第1个宠物
脚本 我的脚本1.Q ，第39行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第42行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第47行：点击进入仓库按钮
脚本 我的脚本1.Q ，第49行：全部执行完了，刷新屏幕
脚本 我的脚本1.Q ，第52行：点击了刷新按钮
脚本 我的脚本1.Q ，第15行：下标越界: 'I',
脚本 我的脚本1.Q ，第17行：选择了第1个宠物
脚本 我的脚本1.Q ，第39行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第42行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第47行：点击进入仓库按钮
脚本 我的脚本1.Q ，第49行：全部执行完了，刷新屏幕
脚本 我的脚本1.Q ，第52行：点击了刷新按钮
脚本 我的脚本1.Q ，第15行：下标越界: 'I',
脚本 我的脚本1.Q ，第17行：选择了第1个宠物
脚本 我的脚本1.Q ，第39行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第42行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第47行：点击进入仓库按钮
脚本 我的脚本1.Q ，第49行：全部执行完了，刷新屏幕
脚本 我的脚本1.Q ，第52行：点击了刷新按钮
脚本 我的脚本1.Q ，第15行：下标越界: 'I',
脚本 我的脚本1.Q ，第17行：选择了第1个宠物
脚本 我的脚本1.Q ，第39行：点击了退出仓库按钮
脚本 我的脚本1.Q ，第42行：我们在这里喂养了宠物
脚本 我的脚本1.Q ，第47行：点击进入仓库按钮
脚本 我的脚本1.Q ，第49行：全部执行完了，刷新屏幕
脚本 我的脚本1.Q ，第52行：点击了刷新按钮
脚本 我的脚本1.Q ，第15行：下标越界: 'I',
脚本 我的脚本1.Q ，第17行：选择了第1个宠物
脚本 我的脚本1.Q ，第39行：点击了退出仓库按钮

//出现类型不匹配: 'C',以及选择4次后不会在仓库刷新


脚本 我的脚本21.Q ，第9行：点击进入仓库按钮
脚本 我的脚本21.Q ，第40行：类型不匹配: 'C1',
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第68行：类型不匹配: 'C3',
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第82行：类型不匹配: 'C4',
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第40行：类型不匹配: 'C1',
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第40行：类型不匹配: 'C1',
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第68行：类型不匹配: 'C3',
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第54行：类型不匹配: 'C2',
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第68行：类型不匹配: 'C3',
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第40行：类型不匹

发不了代码啊，发上去就被删除

您的脚本在调试过程中，产生了下列调试信息：
脚本 我的脚本21.Q ，第9行：点击进入仓库按钮
脚本 我的脚本21.Q ，第102行：选了第4个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第72行：选了第2个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第57行：选了第一个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第87行：选了第3个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第31行：点击是刷新仓库按钮
脚本 我的脚本21.Q ，第35行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第9行：点击进入仓库按钮
脚本 我的脚本21.Q ，第102行：选了第4个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第57行：选了第一个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第87行：选了第3个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第72行：选了第2个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第31行：点击是刷新仓库按钮
脚本 我的脚本21.Q ，第35行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第9行：点击进入仓库按钮
脚本 我的脚本21.Q ，第57行：选了第一个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第72行：选了第2个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次
脚本 我的脚本21.Q ，第26行：点击进入仓库按钮
脚本 我的脚本21.Q ，第102行：选了第4个宠物
脚本 我的脚本21.Q ，第19行：点击了退出仓库按钮
脚本 我的脚本21.Q ，第21行：假装我们在这里喂养了10次