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

软件版本: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

快捷导航

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

发新话题 回复该主题

[老狼] [老狼][源码分享]----输入字符串的姿势----被峨眉山猴子暴打的第... [复制链接]

1#
姿势1:SayString
  1. SayString "每一天"
复制代码
姿势2: QTP按键
Set wshobj = CreateObject("WScript.Shell")
str="1234Sdfg/"
For i=1 To Len(str)
wshobj.SendKeys "{"&mid(str,i,1)&"}"
Next
Set wshobj = Nothing
姿势3:命令库KeyList
  1. Call lib.键盘.KeyList("1234Sdfg/",0,50)
复制代码
姿势4:ASCII
  1. txt = "这是个测试"
  2. Call sendstring(txt)
  3. Sub sendstring(str)
  4. Dim i, j, t
  5. For i = 1 To len(str)
  6. t = asc(mid(str, i, 1)) + 65536
  7. KeyDown 18,1
  8. For j = 1 To len(t)
  9. KeyPress "Num " & mid(t, j, 1), 1
  10. Next
  11. KeyUp 18,1
  12. Next
  13. End Sub
复制代码
姿势5:ASCII带编码格式
  1. TracePrint SendString("每一天", 50, "ANSI" )
  2. Function SendString(发送内容, 发送延迟, 文字编码类型)
  3. If 文字编码类型 = "ANSI" Or 文字编码类型 = "Unicode" Then
  4. Dim str, 字符编码,i, k
  5. str = 发送内容
  6. For i = 1 To Len(str)
  7. If 文字编码类型 = "ANSI" Then
  8. 字符编码 = Asc(Mid(str, i, 1))
  9. Elseif 文字编码类型 = "Unicode"
  10. 字符编码 = AscW(Mid(str, i, 1))
  11. End If
  12. If 字符编码 < 0 Then
  13. 字符编码 = 字符编码 + 65536
  14. End If
  15. KeyDown 18, 1
  16. For k = 1 To Len(字符编码)
  17. KeyPress Asc(Mid(字符编码, k, 1)) + 48, 1
  18. Next
  19. KeyUp 18, 1
  20. Delay 发送延迟
  21. Next
  22. SendString=1
  23. Else
  24. SendString=0
  25. End If
  26. End Function
复制代码
姿势6:粘帖
  1. Call Plugin.Sys.SetCLB("每一天")
  2. Delay 50
  3. Call lib.键盘.键盘组合键("Ctrl + V",0)
复制代码

最后编辑瑞祥幽冥狼 最后编辑于 2022-03-07 23:12:59
本主题由 超级版主 瑞祥幽冥狼 于 2023/4/5 13:50:30 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#


3#

老狼无敌~~~

4#

被峨眉山猴子暴打

5#

学习一下

6#

学习ing

7#

支持一下,学习一下!

8#

11111111111111111

9#

6666666666666

10#

阿萨fa

11#

大佬

12#

太专业了,可否有点中文备注小白看的有点吃力啊

13#

adsdsa

14#

来看看

联系QQ:491139943
15#


16#


17#

学习一下

18#

12321313

19#

啥1111

20#

峨眉山猴子来了

发新话题 回复该主题