安卓版,我按下面这样子写出来之后无法对比时间,但是把“Dim 部落战时 = ReadUIConfig("输入框4")和Dim 部落战分 = ReadUIConfig("输入框5")”改成“Dim 部落战时 = 19和Dim 部落战分 = 20”后就可以比较了
源码:
If DateTime.WeekDay() = 2 or DateTime.WeekDay() = 4 or DateTime.WeekDay() = 6 Then 
    Dim 部落战时 = ReadUIConfig("输入框4")
    Dim 部落战分 = ReadUIConfig("输入框5")
    If DateTime.Hour() = 部落战时 Then 
        If 部落战分 - 1 = DateTime.Minute() or 部落战分 = DateTime.Minute() or 部落战分 + 1 = DateTime.Minute() or 部落战分 + 2 = DateTime.Minute() or 部落战分 + 3 = DateTime.Minute() or 部落战分 + 4 = DateTime.Minute() or 部落战分 + 5 = DateTime.Minute() or 部落战分 + 6 = DateTime.Minute() or 部落战分 + 7 = DateTime.Minute() or 部落战分 + 8 = DateTime.Minute() or 部落战分 + 9 = DateTime.Minute() or 部落战分 + 10 = DateTime.Minute() Then 
            TracePrint "开始"
        End If 
    End If
End If
界面:
输入框:
                {
                        名称:"输入框4",
                        提示内容:"提示用户应该输入什么内容",
                        初始文本:"",
                        仅输入数字:false,
                        密码:false,
                        文字大小:0,
                        最大输入长度:0,
                        高度:0,
                        宽度:0,
                        注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
                },        
                输入框:
                {
                        名称:"输入框5",
                        提示内容:"提示用户应该输入什么内容",
                        初始文本:"",
                        仅输入数字:false,
                        密码:false,
                        文字大小:0,
                        最大输入长度:0,
                        高度:0,
                        宽度:0,
                        注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
                },