Dim 随机评论(),评论内容(),评论随机
Dim 内容次数=1
Function 随机评论hs()
For i = 1 To 4 //4为输入框个数
随机评论(i) = ReadUIConfig("随机评论-多选框" & i)
If 随机评论(i) = True Then
评论内容(内容次数) = ReadUIConfig("评论内容-输入框" & i)
内容次数=内容次数+1
End If
Next
评论随机 = Int((((内容次数-1)-1+1) * Rnd()) + 1)
随机评论hs = 评论内容(评论随机)
End Function
TracePrint 随机评论hs()

界面1:
{
标签页1:
{
水平布局:
{
多选框:
{
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"随机评论-多选框1",
提示内容:" ",
点击响应:"函数名1",
选中:true,
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"评论内容-输入框1",
提示内容:"输入内容",
初始文本:"",
仅输入数字:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0
},
注释:"用于将多个控件放在同一行",
},
水平布局:
{
多选框:
{
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"随机评论-多选框2",
提示内容:" ",
点击响应:"函数名1",
选中:true,
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"评论内容-输入框2",
提示内容:"输入内容",
初始文本:"",
仅输入数字:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0
},
注释:"用于将多个控件放在同一行",
},
水平布局:
{
多选框:
{
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"随机评论-多选框3",
提示内容:" ",
点击响应:"函数名1",
选中:false,
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"评论内容-输入框3",
提示内容:"输入内容",
初始文本:"",
仅输入数字:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0
},
注释:"用于将多个控件放在同一行",
},
水平布局:
{
多选框:
{
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"随机评论-多选框4",
提示内容:" ",
点击响应:"函数名1",
选中:false,
文字大小:0,
高度:0,
宽度:0
},
输入框:
{
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
名称:"评论内容-输入框4",
提示内容:"输入内容",
初始文本:"",
仅输入数字:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0
},
注释:"用于将多个控件放在同一行",
},
},
}

有用的拿走，大佬请无视

大佬，我来了，给你私聊了

太有心了

感谢大哥

我想随机输入六位英文的怎么写

有的插件有这个功能，自己写也不难

支持

大佬有么有按键精灵视频