• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:4.0.2
软件大小:45M
更新时间:2025-07-01

按键精灵iOS版
立即下载

软件版本:2.3.3
软件大小:29.2M
更新时间:2025-07-01

按键手机助手
立即下载

软件版本:4.3.0
软件大小:242M
更新时间:2025-07-01

快捷导航

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

返回列表 «8283848586878889» / 108
发新话题 回复该主题

[按键精灵安卓版] 安卓按键的界面设计和应用 - 【201509期】 [复制链接]

1701#

正在學習腳本製作
非常感謝有教材可以學習

1702#

学习怎么写好脚本

1703#

看看吧

1704#

厉害噢噢噢噢

1705#

看看学习

1706#

的点点滴滴多多多多多大所多所大所多

1707#

不错

1708#

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

1709#

非常开心的呢!

1710#

学习中,爱好而已

1711#

学习

1712#

频繁回复

1713#

我就喜欢搞界面

1714#

好好学习

1715#

学习一下

1716#

看一下

1717#

5界[url][/url]面相关属性

1718#

来学习

诚交天下好友:VX:stnvip
1719#

好几款

1720#

这棋课程对我很重要

发新话题 回复该主题