小知识点合集1
- 您所在的用户组无法下载或查看附件
本文由按键学院提供技术支持
按键学院交流①群（已满）：376122403
按键学院交流②群（已满）：372671254
按键学院交流③群（快满）：170084238
按键学院安卓①群：115768679
写脚本的时候，总有一些事与愿违的地方，一个不经意的小地方，可能会令我们寻找半天才发现并且解决，将我们平时碰到的积累起来，是一笔不小的财富，积少成多，跟着我记下书写脚本的点点滴滴吧。
- 您所在的用户组无法下载或查看附件
1. 输入框
我们在使用UI界面的输入框时，有这样一个选项：
- 您所在的用户组无法下载或查看附件
当我们改成true时，我们知道，这代表这个输入框只能输入数字，但是我们获取到的就是一个数值吗？我们来尝试一下。
UI界面：
- 界面1:
- {
- 输入框:
- {
- 注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
- 名称:"输入框1",
- 提示内容:"提示用户应该输入什么内容",
- 仅输入数字:true,
- 文字大小:0,
- 最大输入长度:0,
- 高度:0,
- 宽度:600
- },
- }
- Dim 内容 = ReadUIConfig("输入框1")
- If 内容 = 1 Then
- TracePrint "你输入的是1"
- End If
- Dim 内容 = ReadUIConfig("输入框1")
- If 内容 = "1" Then
- TracePrint "你输入的是1"
- End If
- Dim 内容 = ReadUIConfig("输入框1")
- If CInt(内容) = 1 Then
- TracePrint "你输入的是1"
- End If
2. 字符串处理
我们学习了字符串处理之后知道了，字符串可以提取，切割，合并，转换类型等。那么，我们可以用这些来做什么呢？发挥你的想象力，我们是不是可以对字符串进行处理后得到另一个字符串，再通过反过来的处理回到原始的数值，当然不一定能返回，但这不影响我们脑洞大开，尝试着做一个加密试试。
UI界面：
- 界面1:
- {
- 水平布局:
- {
- 注释:"用于将多个控件放在同一行",
- 文字框:
- {
- 注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
- 名称:"xiaohaomingzi",
- 显示内容:"注册码",
- 文字大小:0,
- 高度:0,
- 宽度:0
- },
- 输入框:
- {
- 注释:"文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
- 名称:"注册码",
- 提示内容:"注册码",
- 仅输入数字:false,
- 文字大小:0,
- 最大输入长度:0,
- 高度:0,
- 宽度:500
- },
- },
- }
- Dim deviceID
- deviceID = GetDeviceID()
- TracePrint "本机的ID是："&deviceID
- Dim 用户输入的注册码,正确口令
- 用户输入的注册码 = ReadUIConfig("注册码")
- TracePrint "用户输入的注册码是：" & 用户输入的注册码
- 正确口令 = 加密算法(deviceID)
- TracePrint "正确口令是：" & 正确口令
- If 用户输入的注册码 = 正确口令 Then
- TracePrint "口令正确"
- Else
- TracePrint "口令失败，退出脚本"
- EndScript
- End If
- Function 加密算法(参数)
- Dim MyVar = Mid(参数, 2, 5)
- Dim var(5)
- For i=1 to 5
- Dim Str = Mid(MyVar,i, 1)
- Dim Str1 = Asc(Str)
- var(i - 1) = Str1
- Next
- Dim MyString = Join(var, "")
- Dim fanzhuan = StrReverse(MyString)
- Dim fanzhuanjiequ = Mid(fanzhuan,1, 7)
- Dim strtonum = CInt(fanzhuanjiequ)
- Dim z = strtonum - 65535
- 加密算法 = CStr(z)
- End Function
- 您所在的用户组无法下载或查看附件
我们根据提示，将输入框的内容改成正确口令的内容再一次尝试：
- 您所在的用户组无法下载或查看附件
一个简单的加密就这么做好了。可能比较粗糙，有人可以轻易破解，但是我们的用户总不会人人都是大神~学到一点是一点！
- 您所在的用户组无法下载或查看附件
闽公网安备 35010002000112号