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

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

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

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

返回列表 12345678» / 11
发新话题 回复该主题

[神梦] 【分享】按键精灵中的奇技淫巧代码 [复制链接]

1#

一、多行代码合并一行

 

用英文冒号 : 把换行符替换就行
  1. // 变量赋值
  2. a = 1 : b = 2 : c = 3

  3. // For循环
  4. For i = 0 To 10 : TracePrint i : Next
复制代码
If 语句可以不用 : 符号,也能变单行
  1. // 注:按键精灵的代码检测有点问题,如果项目代码复杂可能会报错,实际上这样的语法是正确的
  2. // If语句
  3. If True Then TracePrint "条件成立!"

  4. // 带否则的If语句
  5. If False Then TracePrint "条件成立!" Else TracePrint "条件不成立!"

  6. // 两层If语句
  7. If True Then If True Then TracePrint "条件成立!"
复制代码




二、单行代码拆分多行

 

用下划线 _ 在一行代码中的空处进行拆分
注:下划线前面最好加个空格,还有下划线后面不能有任何字符(包括空格)
  1. // 拆分字符串
  2. 字符串 = _
  3. " 作者:神梦无痕" & _
  4. " QQ:1042207232" & _
  5. " Q群:584781753"
  6. TracePrint 字符串

  7. // 拆分数组
  8. 数组 = Array( _
  9.     "a", _
  10.     "b", _
  11.     "c" _
  12. )

  13. // 拆分API声明
  14. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
  15.     ByVal lpClassName As String, _
  16.     ByVal lpWindowName As String _
  17. ) As Long
  18. TracePrint FindWindow(vbNullString, "按键精灵")

  19. // 拆分If语句
  20. If 条件A = True _
  21. And 条件B = True _
  22. Or 条件C = False Then
  23.     TracePrint "成功!"
  24. End If
复制代码




三、表示八进制和十六进制数

 

&O 前缀表示八进制数,返回的是一个十进制数
注:O 是字母,不是数字零
  1. // 可以用大写
  2. 整数 = &O11
  3. TracePrint 整数

  4. // 可以用小写
  5. 整数 = &o11
  6. TracePrint 整数

  7. // 在 &O100000 ~ &O177777 范围会返回负数
  8. // 需要在尾部加 & 符号
  9. 负数 = &O100000
  10. 正数 = &O100000&
  11. TracePrint 负数
  12. TracePrint 正数

  13. // &O 与变量结合使用
  14. 变量 = "177777"
  15. 整数 = CLng("&O" & 变量)
  16. TracePrint 整数

  17. // 十进制转八进制
  18. 八进制 = Oct(1024)
  19. TracePrint 八进制
复制代码


&H 前缀表示十六进制数,返回的是一个十进制数
注:十六进制只能用 0~9、A~F 表示
  1. // 可以用大写
  2. 粉色 = &HFF00FF
  3. TracePrint 粉色

  4. // 可以用小写
  5. 绿色 = &hff00ff
  6. TracePrint 绿色

  7. // 在 &H8000 ~ &HFFFF 范围会返回负数
  8. // 需要在尾部加 & 符号
  9. 负数 = &H8000
  10. 正数 = &H8000&
  11. TracePrint 负数
  12. TracePrint 正数

  13. // &H 与变量结合使用
  14. 变量 = "800080"
  15. 紫色 = CLng("&H" & 变量)
  16. TracePrint 紫色

  17. // 十进制转十六进制
  18. 十六进制 = Hex(1024)
  19. TracePrint 十六进制
复制代码




四、直接表示日期时间的符号

 

# 来表示日期时间类型
  1. // 日期用斜杠分割
  2. 日期时间 = #2022/11/06 22:04:00#
  3. TracePrint TypeName(日期时间)

  4. // 日期用横杠分割
  5. 日期时间 = #2022-11-06 22:04:00#
  6. TracePrint TypeName(日期时间)

  7. // 只显示日期
  8. 日期时间 = #2022-11-06#
  9. TracePrint TypeName(日期时间)

  10. // 只显示时间
  11. 日期时间 = #22:04:00#
  12. TracePrint TypeName(日期时间)

  13. // 判断日期时间
  14. If Now() > #2022-11-06 22:04:00# Then
  15.     TracePrint "时间过期了!"
  16. End If

  17. // 只判断时间
  18. If #06:00:00# <= Time() And Time() < #12:00:00# Then
  19.     TracePrint "上午"
  20. ElseIf #12:00:00# <= Time() And Time() < #18:00:00# Then
  21.     TracePrint "下午"
  22. Else
  23.     TracePrint "晚上"
  24. End If
复制代码




五、中括号的特殊用法

 

VBSBegin ... VBSEnd 块中无法使用中文作为变量
需要用中括号 [] 进行包裹,否则报错
  1. VBSBegin
  2.     ' 包裹中文变量
  3.     [中文变量] = "神梦无痕"
  4.     TracePrint [中文变量]

  5.     ' 包裹中文函数
  6.     Function [中文函数]()
  7.         [中文函数] = "QQ:1042207232"
  8.     End Function
  9.     TracePrint [中文函数]()
  10. VBSEnd

  11. // 当对象某个属性名和按键精灵关键字冲突,
  12. // 也需要用中括号 `[]` 进行包裹,否则报错
  13. Set re = New RegExp
  14. re.Pattern = "\d+" '匹配所有数字
  15. re.[Global] = True
  16. Set Matches = re.Execute("QQ:1042207232;Q群:584781753")
  17. For Each Match in Matches ' Iterate Matches collection.
  18.     匹配结果 = 匹配结果 & Match.Value & "|"
  19. Next
  20. TracePrint 匹配结果
复制代码




六、字符串中的双引号

 

按键精灵中的字符串是用双引号括起来的
如果字符串内部有双引号怎么办呢?
  1. // 直接用两个双引号转义表示
  2. 字符串 = "{""作者"":""神梦无痕"", ""QQ"":1042207232}"
  3. TracePrint 字符串

  4. // 用 Chr(34) 表示
  5. 引号 = Chr(34)
  6. 字符串 = 引号 & 引号 & 引号 & "三个双引号中的内容" & 引号 & 引号 & 引号
  7. TracePrint 字符串
复制代码




七、字符串中的换行符

 

让按键精灵中的字符串显示换行效果
  1. // 直接用 vbCrLf 表示换行符
  2. 字符串 = _
  3. "第1行、作者:神梦无痕" & vbCrLf & _
  4. "第2行、QQ:1042207232" & vbCrLf & _
  5. "第3行、Q群:58478175" & vbCrLf
  6. MessageBox 字符串

  7. // 用 Chr(13) & Chr(10) 表示
  8. 换行符 = Chr(13) & Chr(10)
  9. 字符串 = _
  10. "第1行、作者:神梦无痕" & 换行符 & _
  11. "第2行、QQ:1042207232" & 换行符 & _
  12. "第3行、Q群:58478175" & 换行符
  13. MessageBox 字符串
复制代码




八、Select Case 也支持条件判断

 

Case 分支用表达式判断
  1. 输入 = 1
  2. Select Case True
  3.     Case 输入 < 0
  4.         TracePrint "小于零"
  5.     Case 输入 > 0
  6.         TracePrint "大于零"
  7.     Case Else
  8.         TracePrint "等于零"
  9. End Select
复制代码

最后编辑神梦科技 最后编辑于 2022-11-09 19:34:51
2#

哈哈,这个功能可以提高可视行

3#

wwww

4#

老师赞一个

5#

奇技淫巧

6#

学习一下

7#

达到

的撒分撒地方

8#

666666

9#


10#

456789123

11#

{:5_136:}

12#

学习一下666666666666666666666666

13#

學習學習~!!

14#

表示不会。学习学习~!

15#

学习学习

16#

谢谢

17#

学习一下

承接或合作开发脚本 QQ 170885196<a href="http://wpa.qq.com/msgrd?v=3&amp;uin=170885196&amp;site=qq&amp;menu=yes" target="_blank"><img id="aimg_s6Fu3" onclick="zoom(this, this.src, 0, 0, 0)" class="zoom" src="http://wpa.qq.com/pa?p=2:170885196:41" onmouseover="img_onmouseoverfunc(this)" onload="thumbImg(this)" border="0" alt="" /></a>
18#

dfhgaae

19#

学习学习

20#

奇技淫巧代码

发新话题 回复该主题